#! c:/perl/bin/perl
#
# profile.cgi
#
# 2.006 : 1/23/06 : 画像以外のファイルのアップロード処理を追加
# 2.005 : 1/8/06 : 画像ファイルの処理を修正
# 2.004 : 1/7/06 : タイプミスを修正
# 2.003 : 1/6/06 : MIME encodeを修正。削除のバグを修正。
# 2.002 : 11/23/05 : タイプミスを修正
# 2.001 : 11/19/05 : サポートしてない画像も表示するように修正
# 2.0 : 11/16/05 : Modified from profile.cgi
#
# $Id: profile2.cgi,v 1.14 2006/01/22 19:43:45 Hideki Kanayama Exp $
#

use strict;
use CGI qw(:cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
use File::Copy;
use File::Basename;
use POSIX;
use GD;
use Jcode;

my $admindat = "adminpwd.dat";

my $setupfile = "profile_setup.pl";

my $version = "2.006";
my $lastmodifiedyear = "2006";

my $lang = 0;
my $charset = ("Shift_JIS","ISO-8859-1")[$lang];

#### 環境設定 ###### ここから ############
our $prdir = "data";
our $prfile = "$prdir/profile.lst";
our $script = basename($0);
our $dellog = "$prdir/delete.lst";

our $lockfile = "$prdir/lockfile.lck";

# バックグラウンド設定
# Background設定
# 1:画像を使う 0:カラー番号を使う
our $bgimage_en = 0;
our $bgimagefile = "$prdir/sample.jpg";
our $bgcolor="#ffffff";

#テーブルのバックグラウンド 1: on, 0: off
our $table_bgcolor_en = 0;
our $table_bgcolor = '#ffffff';

#名前欄の色
our $namebgcolor='lightblue';

#タイトル
our $title_logo_en = 0;
our $title_logo = '';
our $title = 'プロファイル';
our $title_color='blue';
our $regtitle_logo_en = 0;
our $regtitle_logo = '';
our $regtitle = 'プロファイル登録';
our $regtitle_color='blue';
our $edititle_logo_en = 0;
our $edititle_logo = '';
our $edititle = 'プロファイル修正';
our $edititle_color='blue';
our $register_title_logo_en = 0;
our $register_title_logo = '';
our $register_title = '新規登録';
our $setup_title_logo_en = 0;
our $setup_title_logo = '';
our $setup_title = '管理用';

#トップへのリンク 1: on 0:off
our $toplink_en = 1;
our $toplink_logo_en = 0;
our $toplink_logo = '';
our $toplink_title = 'トップへ';
our $toplink_link = "../profile.html";

#登録者リスト表示 0:非表示 1:上に表示 2:下に表示 3:別ウィンドウに表示 4:別ページに表示
our $list_display = 0;
our $list_logo_en = 0;
our $list_logo = '';
our $list_title = '登録者リスト';

#登録者リストの一行に表示される人数
our $list_cols = 5;

#表示順 0:最新順 1:古い順
our $disp_order = 0;

#記事更新時の表示順 0:登録順 1:更新順
our $reorder = 1;

#削除機能 1: on, 0: off
our $delete_en = 1;

#管理人セットアップ表示 1: on, 0: off
our $setup_en = 1;

#登録リンク表示 1:on 0:off
our $regform_en = 1;

#管理人オンリーモード 1:on, 0:off
our $admin_only_en = 0;

#最終更新表示 1: on, 0: off
our $lastupdate_en = 1;
our $lastupdate = 'Last Update : ';
our $lastupdate_color = '#3333ff';
our $lastupdate_form = '1';

#各記事更新表示 1: on, 0: off
our $eachupdate_en = 1;
our $eachupdate = '更新時間';
our $eachupdate_form = '1';

#登録修正フォームの１行目
our $item = '項目';
our $item_color = 'black';
our $item_bgcolor = 'lightblue';
our $contents = '内容';
our $contents_color = 'black';
our $contents_bgcolor = 'lightblue';

#項目欄の文字位置
our $item_lr = 0;      # 0:左 1:中 2:右
our $item_ud = 1;      # 0:上 1:中 2:下

#お名前の項目名
our $name_in = 'お名前';

#パスワード項目名
our $passitem = 'パスワード';

#修正ボタン名
our $editbutton = '修正する';

#削除ボタン名
our $deletebutton = '削除する';

#アイテムの最大数
our $itemmaxnum = 9;

#１度にアップできる画像の最大数
our $picmaxnum = 6;

#１ページ表示制限 1:on 0:off
our $pagedisp_en = 0;

#１ページ表示件数
our $pagedispnum = 10;

# 次ページ前ページリンク名
our $prev_icon_en = 0;
our $next_icon_en = 0;
our $prev_icon = '';
our $next_icon = '';
our $prevpage = '←前ページ';
our $nextpage = '次ページ→';
our $prev_loc = 0;
our $next_loc = 2;
our $first_icon_en = 0;
our $first_icon = '';
our $firstpage = '最初に戻る';

#入力項目のデフォルト、最大$itemmaxnum項目（デフォルト９）
our @item_value = ('家族構成','生年月日','最近の出来事');

# 画像ファイルの最大表示の大きさ（単位：ピクセル）
# → これを超える画像は縮小表示します
our $max_width = 150;		# 横幅
our $max_height = 150;		# 縦幅

#最大画像アップサイズ(kB)
our $maxmb = 300;

#一人がアップできる合計ファイルサイズ制限 1:on 0:off
our $size_check_en = 1;

#一人がアップできる合計ファイルサイズ(kB)
our $allocated_size = 300;

#画像クリック時 1: 同じウィンドウ 0: 別ウィンドウ
our $samewin_en = 1;

#画像表示位置 0:左 1:中 2:右
our $pic_loc = 1;

#表示テーブルのサイズ(パーセント)
our $table_width = 60;

#項目欄のサイズ(パーセント)
our $item_width = 20;

#テーブルのレイアウト
our $table_layout_en = 0;
our $bordercolor = '#000000';
our $table_border = 1;
our $cellpadding = 1;
our $cellspacing = 1;

#書き込みテキストエリアのサイズ
our $textarea_cols = 50;
our $textarea_rows = 3;

#各記事ごとの<HR>ライン 1:on 0:off
our $hr_en = 1;

#本文中のリンクを文字列に置き換える 1:on 0:off
our $link_replace_en = 1;
our $link_replace = 'リンクはこちら';
our $link_replace_top_en = 0;

#メール送信  1:on 0:off
our $reg_mail_en = 0;
our $up_mail_en = 0;
our $del_mail_en = 0;
our $reg_mail_title = 'profile.cgi -- 登録情報';
our $up_mail_title = 'profile.cgi -- 更新情報';
our $del_mail_title = 'profile.cgi -- 削除情報';
our $mail_contents = 'profile.cgiが更新されました。';
our $to_mail = 'admin@yourdomain.com';
our $from_mail = 'admin@yourdomain.com';
our $mail_cmd = '/usr/sbin/sendmail -t';

#メンバー専用パスワード 1:on 0:off
our $member_only = 0;
our $member_pwd = '12345';

#<head>〜</head>内に挿入できる構文 1:on, 0:off
our $head_insert_en = 0;
our $head_insert = '<META NAME="description" CONTENT="profile">';

#スタイルシート 1:on 0:off
our $style_sheet_en = 1;
our $style_sheet = '
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
';

#書き込みの注意事項
our $usage = '<ul>
<li>名前以外の項目は自由に変更できます。<br>
<li>左側の項目をブランクにするとその項目は登録されません。<br>
<li>画像は一度に６枚までアップできますが、後から追加できます。<br>
<li>一度にアップできるファイルの合計サイズは300kBです。<br>
<li>現在登録されているファイルを含め、一人がアップできる全ファイルの合計サイズは300kBです。<br>
<li>画像のファイル名は半角英数とアンダースコア(_)、ドット(.)のみ有効です。<br>
<li>画像はJPEG, GIF, PNGのみ対応してます。拡張子はそれぞれ.jpg, .gif, .pngとしてください。<br>
<li>アップロードはファイルサイズ、通信速度によってそれなりに時間がかかりますので、アップロード中はページが再表\示されるまで根気よくお待ちください。<br>
<li>http://から始まる行は自動的にリンクされます。<br>
<li>パスワードは半角英数で。<br>
</ul>
';

#時間設定
our $localtime_en = 0;
our $offset_from_gmt = 9;

#トップからのＳＳＩ表示による更新時間のための予備のアップデートファイル
# 1: on, 0: off
our $update1_file_en = 0;
our $update2_file_en = 0;
our $update1_file = "$prdir/update1.log";
our $update2_file = "$prdir/update2.log";

#### 環境設定 ###### ここまで ############

if (-e "$setupfile"){
    require "$setupfile";
}

my $url_pattern = 'https?:\/\/[\w\.\~\/\?\&\+\=\:\@\%\;\#\$\%\-]*';

if ($maxmb < 100) {$maxmb = 100;}
my $maxmb2 = $maxmb + 20; # Margin for text up size
$CGI::POST_MAX = $maxmb2 * 1024;

my $q = new CGI;
my $cgierror = $q->cgi_error;
&error($cgierror) if ($cgierror);
my %in = $q->Vars;

%in = &postprocess(%in);


my $table_bgcolor2;
if ($table_bgcolor_en == 1){
    $table_bgcolor2 = "bgcolor = $table_bgcolor";
} else {
    $table_bgcolor2 = '';
}

if (! -e "$admindat"){
    if ($in{mode} eq 'adminpwd'){
	&wradminpwd;
    } else {
	&setadminpwd;
    }
}

if ($in{mode} eq 'register'){
    &register;
} elsif ($in{mode} eq 'edit'){
    &edit;
} elsif ($in{mode} eq 'regform'){
    if ($admin_only_en == 1 && $in{pwd} eq ''){
	$in{next} = 'regform';
	&setup;
    } else {
	&regform;
    }
} elsif ($in{mode} eq 'editform'){
    &editform;
} elsif ($in{mode} eq 'setup'){
    &setup;
} elsif ($in{mode} eq 'setform'){
    &setform;
} elsif ($in{mode} eq 'setupwrite'){
    &setupwrite;
} elsif ($in{mode} eq 'list_display'){
    &list_display;
} elsif ($in{mode} eq 'read'){
    &display;
} else {
    if ($list_display == 3){
	&frameset;
    } else {
	&display;
    }
}

sub postprocess {
    my %in = @_;
    my ($key,$value);
    while (($key,$value)=each %in){
	if ($key !~ /upfile\d+_pic/){
	    $value =~ s/</&lt;/g; $value =~ s/>/&gt;/g;
	    
	    my $br = "<br>";
	    if ($value =~ /\r\n/) { $value =~ s/\r\n/$br/g; }
	    if ($value =~ /\n/) { $value =~ s/\n/$br/g; }
	    if ($value =~ /\r/) { $value =~ s/\r/$br/g; }
	    if ($value =~ /,/) { $value =~ s/,/&\#44;/g; }
	    
	    $in{"$key"}=$value;
	}
    }
    return (%in);
}

sub frameset {

    print $q->header(-type=>'text/html',-charset=>$charset);

    print <<END;
<html>
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=$charset">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$title</TITLE>
</HEAD>

<frameset cols="100%,*" frameborder="no" border="0">
	<frame src="$script" name="profile_main">
</frameset>
</html>
END

}

sub register {
################ 登録 #######################

    my $count;
    my @dum;
    my @countlist;
    my @countlist2;
    if (open(REGFILE,"< $prfile")){
	while (<REGFILE>){
	    ($count,@dum)=split(/,/);
	    push(@countlist,$count);
	}
	close(REGFILE);
	@countlist2 = sort {$a <=> $b} @countlist;
	$count = $countlist2[$#countlist2] + 1;
    } else {
	$count = 1;
    }
    
    if ($in{'yourname'} eq "") {
	&error("名前を入れてください。");
    }
    
    if ($in{'pwd'} eq "") {
	&error("パスワードを入れてください。");
    }
    
    if ($admin_only_en == 1 && (! &checkadmin($in{pwd}))){
	&error("管理人オンリーモードなので管理人のみ書き込みができます。");
    }
    
    if ($member_only == 1 && ("$in{member_pwd}" ne "$member_pwd")){
	&error('メンバー専用パスワードが違います。');
    }
    
    my $fname;
    my $fileterm;
    my $upcom;
    my $filecomterm;
    my $picnum;
    foreach $picnum (1 .. $picmaxnum){
	my $uppic = "upfile${picnum}_pic";
	$fname = &upload_file($count,$picnum);
	$fileterm = $fileterm . "$uppic" . '=' . "$fname" . '<>';
	$upcom = "upfile${picnum}_com";
	$filecomterm = $filecomterm . "$upcom" . '=' . "$in{$upcom}" . '<>';
    }
    
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=mylocaltime(time);
    my $update = sprintf("%s_%s_%s_%02s_%02s",$year+1900,$mon+1,$mday,$hour,$min);
    
    my $encpwd = &makecrypt($in{pwd});

    &lockfile;
    open(DAT,">> $prfile");
    print DAT "$count,$update,$in{yourname},$encpwd,$fileterm,$filecomterm";
    foreach $a (1 .. $itemmaxnum){
	my $tmpa = "item${a}_key";
	my $tmpb = "item${a}_elem";
	print DAT ",$in{$tmpa}<>$in{$tmpb}";
    }
    print DAT "\n";
    close(DAT);
    &unlockfile;
    
    chmod(0666,"$prfile");

    &extraupdate;
    &mailnotice("$reg_mail_title","$in{yourname}","$update") if ($reg_mail_en == 1);
    
    print "Location: $script\n\n";
    
}

sub upload_file {
    my ($count,$picnum )= @_;
    my $uppic = "upfile${picnum}_pic";
    my $origfile = basename($in{$uppic});
    $origfile =~ s/^.*[\/\\]([^\/\\]+)$/$1/; #just in case
    next if ($origfile eq "");
    if ("$origfile" !~ /^[\w\._\-]+$/) {
	my $message = ("$origfile:アップ後のファイル名は半角英数で。","file name only allows alphabetical characters and _, ., -.")[$lang];
	&error($message);
    }
    my $fname="$count-$picnum-$origfile";
    my $outfile = "$prdir/$fname";

    my $fh = $q->upload($uppic);
    my $cgierror = $q->cgi_error;
    &error($cgierror) if (!$fh && $cgierror);
    copy ($fh, $outfile) or &error(('アップロードに失敗しました','Failed to upload')[$lang]);
    close $fh;
    chmod (0666,"$outfile");

    return $fname;
}

sub mylocaltime {
    my $src = shift;
    if ($localtime_en) {
	return (localtime($src));
    } else {
	return (gmtime($src + $offset_from_gmt * 3600));
    }
}

################ 編集 #######################
sub edit {

    if ($admin_only_en && !&checkadmin($in{pwd})){
	&error('パスワードが違います。');
    }
    
    if ($in{'pwd'} eq "") {
	&error("削除用パスワードを正しく入れてください。");
    }

    &error(('使い方が間違っています。','Wrong edit method.')[$lang]) if ($ENV{REQUEST_METHOD} eq 'GET');

    my $aaa;
    my @newlist=();
    my ($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem);
    open(DLFILE,"< $prfile");
    while(<DLFILE>){
	chomp;
	($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/);
	my $editcount = "edit$count";
	if ("$in{edit_num}" == $count){
	    my @fileterm_list = split(/<>/,$fileterm);
	    my @filecomterm_list = split(/<>/,$filecomterm);
	    my $fileterm_tmp = '';
	    my $filecomterm_tmp = '';
	    my $filesize_sum=0;
	    foreach my $a (1 .. $in{old_picnum_end}){
		my $tmppic = "upfile${a}_pic";
		my $tmpcom = "upfile${a}_com";
		
		my @aaa = grep(/$tmppic=/,@fileterm_list);
		if ($in{$tmppic} ne 'on'){
		    if ($aaa[0] eq '') {next;}
		    $fileterm_tmp = $fileterm_tmp . $aaa[0] . "<>";
		    $filecomterm_tmp = $filecomterm_tmp . "$tmpcom=$in{$tmpcom}" . "<>";
		    if ($size_check_en == 1){
			my $pic_filename = $aaa[0];
			$pic_filename =~ s/$tmppic=//;
			my ($d_dev,$d_ino,$d_mode,$d_nlink,$d_uid,$d_gid,$d_rdev,$d_size,$d_atime,$d_mtime,$d_ctime,$d_blksize,$d_blocks)=stat("$prdir/$pic_filename");
			$filesize_sum=$filesize_sum + $d_size;
		    }
		} else {
		    $aaa[0] =~ /$tmppic=(.+)/;
		    my $deletefile = $1;
		    unlink("$prdir/$deletefile");
		}
	    }
	    
	    my $allocated_size2 = $allocated_size * 1024 + 20480; # margin 20KB
	    if ($size_check_en == 1){
		$filesize_sum = $filesize_sum + $ENV{'CONTENT_LENGTH'};
		if ($filesize_sum > $allocated_size2){
		    &error("一人がアップロードできる合計ファイルサイズが${allocated_size}kBを越えています。");
		}
	    }
	    
	    my $fileterm = $fileterm_tmp;
	    my $filecomterm = $filecomterm_tmp;
	    my $uppic;
	    my $picnum;
	    my $fname;
	    my $upcom;
	    foreach $picnum ($in{new_picnum_start} .. $in{new_picnum_end}){
		$uppic = "upfile${picnum}_pic";
		$fname = &upload_file($count,$picnum);
		$fileterm = $fileterm . "$uppic" . '=' . "$fname" . '<>';
		$upcom = "upfile${picnum}_com";
		$filecomterm = $filecomterm . "$upcom" . '=' . "$in{$upcom}" . '<>';
	    }

	    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=mylocaltime(time);
	    $update = sprintf("%s_%s_%s_%02s_%02s",$year+1900,$mon+1,$mday,$hour,$min);

	    my $encpwd;
	    if (! &checkadmin($in{adminpwd})){
		$encpwd = &makecrypt($in{pwd});
	    } else {
		if ($in{pwdreset} eq 'on'){
		    $encpwd = &makecrypt($in{pwd2});
		} else {
		    $encpwd = $in{pwd};
		}
	    }
	    
	    $aaa = "$count,$update,$in{yourname},$encpwd,$fileterm,$filecomterm";
	    foreach my $a (1 .. $itemmaxnum){
		my $tmpa = "item${a}_key";
		my $tmpb = "item${a}_elem";
		$aaa = $aaa . ",$in{$tmpa}<>$in{$tmpb}";
	    }
	    $aaa = $aaa . "\n";
	    
	    push (@newlist,"$aaa") if ($reorder == 0);
	    
	} else {
	    push(@newlist,"$_\n");
	}
    }
    close(DLFILE);
    
    push(@newlist,$aaa) if ($reorder == 1);

    &lockfile;

    open(DAT,"> $prfile");
    print DAT @newlist;
    close(DAT);

    &unlockfile;
    &extraupdate;

    if ($up_mail_en == 1){
	&mailnotice("$up_mail_title","$in{yourname}",$update);
    }
    
    print "Location: $script\n\n";
}

sub extraupdate {

    if ($update1_file_en == 1){
	open(UPDATE,">$update1_file");
	print UPDATE "dummy file1\n";
	close(UPDATE);
	chmod(0666,"$update1_file");
    }
    
    if ($update2_file_en == 1){
	open(UPDATE,">$update2_file");
	print UPDATE "dummy file2\n";
	close(UPDATE);
	chmod(0666,"$update2_file");
    }
}

sub regform {
################ 登録フォーム #######################

    if ($admin_only_en == 1 && ! &checkadmin($in{pwd})){
	&error('パスワードが違います。');
    }

    &beginning($regtitle);

    if ($regtitle_logo_en == 1){
	print "<h2><center><img src=\"$regtitle_logo\" alt=\"$regtitle\"></center></h2>\n";
    } else {
	print "<h2><center><font color=\"$regtitle_color\">$regtitle</font></center></h2>\n";
    }
    
    &regexplain;
    print <<"EOM";
<form action="$script" method="POST" enctype="multipart/form-data">
<input type=hidden name=mode value=register>
EOM

if ($table_layout_en == 1){
	print "<table cols=2 bordercolor=$bordercolor border=$table_border width=$table_width% $table_bgcolor2 align=\"center\" cellpadding=$cellpadding cellspacing=$cellspacing>\n";
} else {
	print "<table cols=2 border=1 width=$table_width% $table_bgcolor2 align=\"center\">\n";
}

print <<EOM2;
<tr>
<th align="center" width="$item_width%" nowrap bgcolor="$item_bgcolor"><font color="$item_color">$item</font></th>
<th align="center" bgcolor="$contents_bgcolor"><font color="$contents_color">$contents</font></th>
</tr>

<tr>
<td align="left" width="20%" nowrap>$name_in</td>
<td><input type=text name=yourname size="50"></td>
</tr>
EOM2

foreach (1 .. $itemmaxnum){

print <<COMS;
<tr>
<td align="right" width="20%" nowrap><input type=text name=item${_}_key size="20" value="$item_value[$_-1]"></td>
<td><textarea name=item${_}_elem cols="$textarea_cols" rows="$textarea_rows"></textarea></td>
</tr>
COMS

}

foreach (1 .. $picmaxnum){
print <<PICS;
<tr>
<td align="right" width="20%" nowrap>画像ファイル<br>画像コメント</td>
<td><input type=file name=upfile${_}_pic size="50"><br>
<input type=text name=upfile${_}_com size="50">
</td>
</tr>
PICS
}

if ($member_only == 1){
print <<END3;
<tr>
<td>メンバー専用パスワード</td>
<td><INPUT type=\"password\" size=\"20\" name=\"member_pwd\"></td>
</tr>
END3
}

    my $pwdmessage;
    if ($admin_only_en == 1){
	$pwdmessage = '管理人パスワード';
    } else {
	$pwdmessage = '修正用パスワード';
    }

print <<EOM2;

<tr>
<td align="right" width="20%" nowrap>$pwdmessage</td>
<td><input type=password name=pwd size="20"></td>
</tr>

<tr>
<td align="right" width="20%" nowrap>&nbsp;</td>
<td><input type=submit value="送信する" class="button"></td>
</tr>

</table>
</form>
EOM2

&ending;

}

sub editform {
    open(EDITFILE,"< $prfile") or &error(("$prfileが開けません","Cannot open $prfile.")[$lang]);
    while(<EDITFILE>){
	my ($count,@dumps)=split(/,/,$_);
	my $editkey = "edit${count}";
	my $delkey = "delete${count}";
	if (defined $in{$editkey}){
	    close(EDITFILE);
	    chomp;
	    &editform2($_);
	    exit;
	} elsif (defined $in{$delkey}) {
	    close(EDITFILE);
	    &delete_one;
	    exit;
	}
    }

    close(EDITFILE);
    &beginning('Error');
    print "<center><form>パスワードを入力して【Enter】キーではなく、<input type=button name=dummy value=\"$editbutton\" class=\"button\"></from>をクリックしてください。</center>";
    &ending;
    exit;
}

##### 削除 ####
sub delete_one {
    &lockfile;
    open(TMPFILE,"> tmp.$$");
    open(DELLOG,">> $dellog");

    my ($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem);
    if (open(DELFILE,"< $prfile")){
	while(<DELFILE>){
	    ($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/,$_);
	    my $delkey = "delete${count}";	    
	    if (defined $in{$delkey}){
		if (!((&checkcrypt($in{pwd},"$encpwd") && ("$encpwd" ne ''))
		      || &checkadmin($in{pwd}))){
		    close(DELLOG);
		    close(TMPFILE);
		    close(DELFILE);
		    unlink("tmp.$$");
		    &error("パスワードが違います。");
		}
		print DELLOG $_;
		
		my @tmp_list=split(/<>/,$fileterm);
		my @picnumlist;
		foreach (@tmp_list){
		    my ($itemname,$filename)=split(/=/);
		    $itemname =~ /upfile(\d+)_pic/;
		    push(@picnumlist,$1);
		}
		my @aaa = sort {$a <=> $b} @picnumlist;
		my $old_picnum_end = $aaa[$#aaa];
		foreach my $a (1 .. $old_picnum_end){
		    my $tmppic = "upfile${a}_pic";
		    my $tmpcom = "upfile${a}_com";
		    
		    @aaa = grep(/$tmppic=/,@tmp_list);
		    $aaa[0] =~ /$tmppic=(.+)/;
		    my $deletefile = $1;
		    unlink("$prdir/$deletefile");
		}
	    } else {
		print TMPFILE $_;
	    }
	}
	close(DELFILE);
    }
    close(TMPFILE);
    close(DELLOG);
    rename("tmp.$$","$prfile");
    &unlockfile;

    if ($del_mail_en == 1){
	&mailnotice("$del_mail_title","$name","$update");
    }
    print "Location: $script\n\n";
    exit;
}

sub lockfile {
    open(LOCKFILE,"> $lockfile");
    flock LOCKFILE, 2;
}
sub unlockfile {
    no strict;
    close (LOCKFILE) if (defined LOCKFILE);
    close (TMPFILE) if (defined TMPFILE);
    unlink $lockfile if (-e $lockfile);
    unlink "tmp.$$" if (-e "tmp.$$");
}

##### 修正フォーム ####
sub editform2 {
    my ($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/,shift);
    
    if (! &checkcrypt($in{pwd},$encpwd) and ! &checkadmin($in{pwd})){
	&error(('パスワードが違います','Wrong password.')[$lang]);
    }

    &beginning($edititle);
    
    if ($edititle_logo_en == 1){
	print "<h2><center><img src=\"$edititle_logo\" alt=\"$edititle\"></center></h2>\n";
    } else {
	print "<h2><center><font color=\"$edititle_color\">$edititle</font></center></h2>\n";
    }
    
    &regexplain;
    
    print <<"EOM";
<form action="$script" method="POST" enctype="multipart/form-data">
<input type=hidden name=mode value=edit>
EOM

if ($table_layout_en == 1){
    print "<table cols=2 bordercolor=$bordercolor border=$table_border width=$table_width% $table_bgcolor2 align=\"center\" cellpadding=$cellpadding cellspacing=$cellspacing>\n";
} else {
    print "<table cols=2 border=1 width=$table_width% $table_bgcolor2 align=\"center\">\n";
}
    print <<EOM2;
<tr>
<th align="center" width="$item_width%" nowrap bgcolor="$item_bgcolor"><font color="$item_color">$item</font></th>
<th align="center" bgcolor="$contents_bgcolor"><font color="$contents_color">$contents</font></th>
</tr>

<tr>
<td align="left" width="$item_width%" nowrap>$name_in</td>
<td><input type=text name=yourname size="50" value="$name"></td>
</tr>
EOM2

    my $item_keyelem_num = $#item_keyelem+1;

    my $item_max;
    if ($itemmaxnum >= $item_keyelem_num){
	$item_max = $itemmaxnum;
    } else {
	$item_max = $item_keyelem_num;
    }
    
    my $keycount = 1;
    foreach (1 .. $item_max){
	
	my ($key,$elem)=split(/<>/,$item_keyelem[$_-1]);
	$elem =~ s/<br>/\n/g;
	
	if ($key ne ''){
	    print "<tr>";
	    print "<td align=\"right\" width=\"$item_width%\" nowrap><input type=text name=item${keycount}_key size=\"20\" value=\"$key\"></td>";
	    $elem =~ s/<a..*>(http..*)<\/a>/$1/;
	    print "<td><textarea name=item${keycount}_elem cols=\"$textarea_cols\" rows=\"$textarea_rows\">$elem</textarea></td>\n";
	    print "</tr>\n";
	    $keycount = $keycount + 1;
	}
	
    }
    
    if ($keycount <= $itemmaxnum){
	
	foreach ($keycount .. $itemmaxnum){
	    print "<tr>";
	    print "<td align=\"right\" width=\"$item_width%\" nowrap><input type=text name=item${_}_key size=\"20\" value=\"\"></td>";
	    print "<td><textarea name=item${_}_elem cols=\"$textarea_cols\" rows=\"$textarea_rows\"></textarea></td>\n";
	    print "</tr>\n";
	}
    }
    
    my @tmp=split(/<>/,$fileterm);
    my @picnumlist;
    foreach (@tmp){
	my ($itemname,$filename)=split(/=/);
	$itemname =~ /upfile(\d+)_pic/;
	push(@picnumlist,$1);
    }
    my @aaa = sort {$a <=> $b} @picnumlist;
    my $old_picnum_start = $aaa[0];
    my $old_picnum_end = $aaa[$#aaa];
    my $new_picnum_start = $old_picnum_end + 1;
    my $new_picnum_end = $old_picnum_end + $picmaxnum;
    
    foreach ($new_picnum_start .. $new_picnum_end){
	print <<PICS;
<tr>
<td align="right" width="$item_width%" nowrap>画像ファイル<br>画像コメント</td>
<td><input type=file name=upfile${_}_pic size="50"><br>
<input type=text name=upfile${_}_com size="50">
</td>
</tr>
PICS
}

    my $hiddeninfo;
    if ($fileterm ne ''){
	print "<tr><td colspan=2>\n";
	print "<table cols=3 border=0>";
	my @piclist = split(/<>/,$fileterm);
	my @comlist = split(/<>/,$filecomterm);
	my $i=1;
	foreach my $pic (@piclist){
	    my ($tmp,$tmp1)=split(/=/,$pic);
	    ($pic eq '' or ! -e "$prdir/$tmp1") && next;
	    my ($picfile,$picname,$picnum,$imtd_width,$actual_width,$actual_height,$comname,$comment) =
		&get_one_image($pic,\@comlist);

	    if ($i % 3 == 1) {print "<tr>";}
	    print "<td align=\"center\" width=\"$imtd_width\" valign=\"top\" style=\"border:0px\">";
	    print &image_tag($picfile,$actual_width,$actual_height);
#	    print "<img src=\"$picfile\" width=$actual_width height=$actual_height border=0>";
	    print "<br> \n";
	    print "<input type=text size=20 value=\"$comment\" name=$comname><br>";
	    print "<input type=checkbox name=$picname>↑削除<br>";
	    print "</td>";
	    if ($i % 3 == 0) {print "</tr>";}
	    $hiddeninfo = $hiddeninfo . "<>" . "upfile${picnum}_pic";
	    $i = $i + 1;
	}
	print "</table>";
	
    }
    
    print "</td></tr>\n";
    
    print "<input type=hidden name=\"upfiles\" value=\"$hiddeninfo\">\n";
    print "<input type=hidden name=\"new_picnum_start\" value=\"$new_picnum_start\">\n";
    print "<input type=hidden name=\"new_picnum_end\" value=\"$new_picnum_end\">\n";
    
    print "<input type=hidden name=\"old_picnum_start\" value=\"$old_picnum_start\">\n";
    print "<input type=hidden name=\"old_picnum_end\" value=\"$old_picnum_end\">\n";
    print "<input type=hidden name=\"edit_num\"  value=\"$count\">\n";
    
    
    print "<tr>";
    print "<td align=\"right\" width=\"20%\" nowrap>修正用パスワード</td>\n";
    print "<td>";
    if (&checkadmin($in{pwd})){
	print "<input type=hidden name=adminpwd value=$in{pwd}>\n";
	print "<input type=hidden name=pwd value=\"$encpwd\">\n";
	print "<input type=text name=pwd2 size=\"10\">";
	print "<input type=checkbox name=pwdreset>←パスワードを変更するときチェック";
    } else {
	print "<input type=password name=pwd size=\"10\" value=\"$in{pwd}\">←パスワードを変更できます";
    }
    print "</td>";
    print "</tr>\n";
    
    print <<EOM2;
<tr>
<td align="right" width="20%" nowrap>&nbsp;</td>
<td><input type=submit value="$editbutton" class="button"></td>
</tr>

</table>
</form>
EOM2

&ending;

}

sub image_tag {
    my ($image,$w,$h) = @_;
    if ($w == 0 or $h == 0) {
	return "&lt;File&gt;";
    } else {
	return "<img src=\"$image\" width=$w height=$h border=0>";
    }
}

sub get_one_image {
    my $pic = shift;
    my $comlist = shift;
    my ($picname,$picfile)=split(/=/,$pic);
    $picname =~ /upfile(\d+)_pic/;
    my $picnum = $1;
    my $comname = "upfile${picnum}_com";
    my @com1 = grep(/^$comname=/,@{$comlist});
    my $com = $com1[0];
    $com =~ /$comname=(.*)/;
    my $comment = $1;
    $picfile =~ /(.+)(\..+)/;
    my $pichead = $1;
    my $tail = $2;
    
    my ($actual_width, $actual_height);
    ($picfile,$actual_width,$actual_height) = 
	&get_image_size("$picfile",$max_width,$max_height);
    
    my $imtd_width;
    if ($actual_width < $max_width) {
	$imtd_width = $max_width;
    } else {
	$imtd_width = $actual_width;
    }
    return ($picfile, $picname, $picnum,
	    $imtd_width, $actual_width, $actual_height,
	    $comname, $comment);
}

################ セットアップ用パスワード入力 #######################
sub setup {

    my $next;
    if ($in{next} ne ''){
	$next = $in{next};
    } else {
	$next = 'setform';
    }

    &beginning('管理者用パスワード');
    print "<form name=\"setpwd\" action=\"$script\" method=\"post\">\n";
    
    print "<center>管理者用パスワードを入力してください。<br>\n";
    print "<input type=password name=\"pwd\" size=20>\n";
    print "<input type=submit name=\"sub\" value=\"入力\" class=\"button\">\n";
    print "<input type=hidden name=\"mode\" value=\"$next\" class=\"button\">\n";
    
    print "</form></center>";
    &ending;
    
    exit;
}

################ セットアップフォーム #######################
sub setform {

    if (! &checkadmin($in{pwd})){
	&error('パスワードが違います。');
    }
    
    &beginning($setup_title);
    
    my @admin_only_check;
    my @title_logo_check;
    my @regtitle_logo_check;
    my @edititle_logo_check;
    my @register_title_logo_check;
    my @setup_title_logo_check;
    my @toplink_check;
    my @toplink_logo_check;
    my @list_logo_check;
    my @list_display_check;
    my @bgimage_check;
    my @setup_check;
    my @delete_check;
    my @regform_check;
    my @samewin_check;
    my @lastupdate_check;
    my @lastupdate_form_check;
    my @eachupdate_check;
    my @eachupdate_form_check;
    my @style_sheet_check;
    my @table_bgcolor_check;
    my @update1_file_check;
    my @update2_file_check;
    my @pagedisp_check;
    my @prev_icon_check;
    my @prev_loc_check;
    my @next_icon_check;
    my @next_loc_check;
    my @first_icon_check;
    my @link_replace_check;
    my @link_replace_top_check;
    my @head_insert_check;
    my @hr_check;
    my @table_layout_check;
    my @item_lr_check;
    my @item_ud_check;
    my @size_check_check;
    my @pic_loc_check;
    my @disp_order_check;
    my @reorder_check;
    my @reg_mail_check;
    my @up_mail_check;
    my @del_mail_check;
    my @member_only_check;
    my @localtime_check;

    $admin_only_check[$admin_only_en] = "checked";
    $title_logo_check[$title_logo_en] = "checked";
    $regtitle_logo_check[$regtitle_logo_en] = "checked";
    $edititle_logo_check[$edititle_logo_en] = "checked";
    $register_title_logo_check[$register_title_logo_en] = "checked";
    $setup_title_logo_check[$setup_title_logo_en] = "checked";
    $toplink_check[$toplink_en] = "checked";
    $toplink_logo_check[$toplink_logo_en] = "checked";
    $list_logo_check[$list_logo_en] = "checked";
    $list_display_check[$list_display] = "checked";
    $bgimage_check[$bgimage_en] = "checked";
    $setup_check[$setup_en] = "checked";
    $delete_check[$delete_en] = "checked";
    $regform_check[$regform_en] = "checked";
    $samewin_check[$samewin_en] = "checked";
    $lastupdate_check[$lastupdate_en] = "checked";
    $lastupdate_form_check[$lastupdate_form] = "checked";
    $eachupdate_check[$eachupdate_en] = "checked";
    $eachupdate_form_check[$eachupdate_form] = "checked";
    $style_sheet_check[$style_sheet_en] = "checked";
    $table_bgcolor_check[$table_bgcolor_en] = "checked";
    $update1_file_check[$update1_file_en] = "checked";
    $update2_file_check[$update2_file_en] = "checked";
    $pagedisp_check[$pagedisp_en] = "checked";
    $prev_icon_check[$prev_icon_en] = "checked";
    $prev_loc_check[$prev_loc] = "checked";
    $next_icon_check[$next_icon_en] = "checked";
    $next_loc_check[$next_loc] = "checked";
    $first_icon_check[$first_icon_en] = "checked";
    $link_replace_check[$link_replace_en] = "checked";
    $link_replace_top_check[$link_replace_top_en] = "checked";
    $head_insert_check[$head_insert_en] = "checked";
    $hr_check[$hr_en] = "checked";
    $table_layout_check[$table_layout_en] = "checked";
    $item_lr_check[$item_lr] = "checked";
    $item_ud_check[$item_ud] = "checked";
    $size_check_check[$size_check_en] = "checked";
    $pic_loc_check[$pic_loc] = "checked";
    $disp_order_check[$disp_order] = "checked";
    $reorder_check[$reorder] = "checked";
    $reg_mail_check[$reg_mail_en] = "checked";
    $up_mail_check[$up_mail_en] = "checked";
    $del_mail_check[$del_mail_en] = "checked";
    $member_only_check[$member_only] = "checked";
    $localtime_check[$localtime_en] = "checked";
    
    my $item_value = join(',',@item_value);
    
    my $target;
    if ($list_display == 3){
	$target = "target=_parent";
    } else {
	$target = "target=_self";
    }
    
    print "<form name=\"setup\" action=\"$script\" method=\"post\" $target>\n";
    print "<input type=hidden name=\"mode\" value=\"setupwrite\">\n";
    print "<input type=hidden name=\"pwd\" value=\"$in{pwd}\">\n";
    
    if ($table_layout_en == 1){
	print "<table cols=2 bordercolor=$bordercolor border=$table_border $table_bgcolor2 cellpadding=$cellpadding cellspacing=$cellspacing>\n";
    } else {
	print "<table cols=2 border=1 $table_bgcolor2>\n";
    }
    
print <<END;
<tr>
<td colspan=2>
<ul>
<li>ディレクトリ、ファイルの設定は、$scriptから見た相対パス、又は絶対パスで指定してください。ＣＧＩと同じディレクトリの場合、.（半角ドット）でＯＫです。バックグランドファイルやロゴファイルはhttp://からのリンクの指定も可能\\です。</li>
<li>管理人パスワードを変更するには、$admindatを削除して、$scriptを実行しなおしてパスワードを再入力してください。</li>
<li>削除された記事は$dellogに保存されますので、ここから復帰したい行を$prfileにコピーすると記事が復元できます。但し、画像は復帰できません。</li>
<li>これらの設定は$setupfileに保存されます。また、$setupfileをエディタ等で変更してもこの設定ページに反映されます。</li>
<li>$scriptがバージョンアップされた場合、単純に$scriptだけを置き換えるだけで設定はそのまま使えます。</li>
<li>$admindatと$setupfileのファイル名はこの設定ページでは変更できません。変更したい場合は$scriptの中で変更してください。</li>
<li>管理人パスワードで他人の書き込みを修正、削除することができます。</li>
<li>管理用リンクを非表\\示にしている場合にこのページにアクセスするには、$script?mode=setupを実行するとアクセスできます。</li>
<li>登録リンクを非表\\示にしている場合に登録ページにアクセスするには、$script?mode=regformを実行するとアクセスできます。</li>
<li>画像アップサイズを変更した場合は、書き込みの注意事項内のサイズ部分も忘れずに変更してください。</li>
<li><font color=red>数字やカラー指定は必ず半角で指定してください。全角やブランクだとＣＧＩが起動しなくなります。</font>万一間違って全角で書いてしまった場合は、$setupfileをエディタで開きその場所を半角に正しく修正してください。それで直ります。</li>
<li>送信ボタンなどのボタンはid=buttonがHTMLで設定されてるのでスタイルシートでボタンをデザインする時は、.button {...}で設定してください。</li>
<li>各ページのタイトルは&lt;H2&gt;をつかってるのでスタイルシートでデザインを変更したい場合は、H2 {...}で設定してください。</li>
</ul>
</td>
</tr>

<tr>
<td width="20%">データディレクトリ</td>
<td width="80%"><input type=text name="prdir" value="$prdir" size=30></td>
</tr>

<tr>
<td>データファイル</td>
<td><input type=text name="prfile" value="$prfile" size=30></td>
</tr>

<tr>
<td>削除記事保存ファイル</td>
<td><input type=text name="dellog" value="$dellog" size=30></td>
</tr>

<tr>
<td>ロックファイル</td>
<td><input type=text name="lockfile" value="$lockfile" size=30></td>
</tr>

<tr>
<td>バックグランド</td>
<td>
<input type=radio name=bgimage_en value=1 $bgimage_check[1]>画像を使う
<input type=radio name=bgimage_en value=0 $bgimage_check[0]>カラー設定にする<br>
<input type=text name="bgimagefile" value="$bgimagefile" size=30>画像を使う場合の画像ファイル<br>
<input type=text name="bgcolor" value="$bgcolor" size=30>カラー設定の場合のカラー番号（白：\#ffffff 又は white）
</td>
</tr>

<tr>
<td>表\\示テーブルのバックグラウンドカラー</td>
<td>
<input type=radio name=table_bgcolor_en value=1 $table_bgcolor_check[1]>有り
<input type=radio name=table_bgcolor_en value=0 $table_bgcolor_check[0]>無し<br>
<input type=text name="table_bgcolor" value="$table_bgcolor" size=10>色指定<br>
</td>
</tr>

<tr>
<td>名前欄のバックの色</td>
<td>
<input type=text name="namebgcolor" value="$namebgcolor" size=20><br>
</td>
</tr>

<tr>
<td>管理人オンリーモード</td>
<td>
<input type=radio name=admin_only_en value=1 $admin_only_check[1]>有効
<input type=radio name=admin_only_en value=0 $admin_only_check[0]>無効<br>
有効にすると管理人のみ新規登録ができるようになります。
</td>
</tr>

<tr>
<td>タイトル名</td>
<td>
<input type=radio name=title_logo_en value=1 $title_logo_check[1]>ロゴ使用
<input type=radio name=title_logo_en value=0 $title_logo_check[0]>ロゴ非使用<br>
<input type=text name="title_logo" value="$title_logo" size=30>ロゴ画像ファイル<br>
<input type=text name="title" value="$title" size=30>タイトル名<br>
<input type=text name="title_color" value="$title_color" size=10>その色
</td>
</tr>

<tr>
<td>登録タイトル</td>
<td>
<input type=radio name=regtitle_logo_en value=1 $regtitle_logo_check[1]>ロゴ使用
<input type=radio name=regtitle_logo_en value=0 $regtitle_logo_check[0]>ロゴ非使用<br>
<input type=text name="regtitle_logo" value="$regtitle_logo" size=30>ロゴ画像ファイル<br>
<input type=text name="regtitle" value="$regtitle" size=30>タイトル名<br>
<input type=text name="regtitle_color" value="$regtitle_color" size=10>その色
</td>
</tr>

<tr>
<td>修正タイトル</td>
<td>
<input type=radio name=edititle_logo_en value=1 $edititle_logo_check[1]>ロゴ使用
<input type=radio name=edititle_logo_en value=0 $edititle_logo_check[0]>ロゴ非使用<br>
<input type=text name="edititle_logo" value="$edititle_logo" size=30>ロゴ画像ファイル<br>
<input type=text name="edititle" value="$edititle" size=30>タイトル名<br>
<input type=text name="edititle_color" value="$edititle_color" size=10>その色
</td>
</tr>

<tr>
<td>登録リンク表\\示</td>
<td>
<input type=radio name=regform_en value=1 $regform_check[1]>表\\示
<input type=radio name=regform_en value=0 $regform_check[0]>非表\\示<br>
</td>
</tr>

<tr>
<td>登録リンク名</td>
<td>
<input type=radio name=register_title_logo_en value=1 $register_title_logo_check[1]>アイコン使用
<input type=radio name=register_title_logo_en value=0 $register_title_logo_check[0]>アイコン非使用<br>
<input type=text name="register_title_logo" value="$register_title_logo" size=30>アイコン画像ファイル<br>
<input type=text name="register_title" value="$register_title" size=30>リンク名
</td>
</tr>

<tr>
<td>管理用リンク表\\示</td>
<td>
<input type=radio name=setup_en value=1 $setup_check[1]>表\\示
<input type=radio name=setup_en value=0 $setup_check[0]>非表\\示<br>
</td>
</tr>

<tr>
<td>管理用リンク名</td>
<td>
<input type=radio name=setup_title_logo_en value=1 $setup_title_logo_check[1]>アイコン使用
<input type=radio name=setup_title_logo_en value=0 $setup_title_logo_check[0]>アイコン非使用<br>
<input type=text name="setup_title_logo" value="$setup_title_logo" size=30>アイコン画像ファイル<br>
<input type=text name="setup_title" value="$setup_title" size=30>リンク名
</td>
</tr>

<tr>
<td>トップへのリンク表\\示</td>
<td>
<input type=radio name=toplink_en value=1 $toplink_check[1]>有り
<input type=radio name=toplink_en value=0 $toplink_check[0]>無し<br>
<input type=text name="toplink_link" value="$toplink_link" size=30>トップのリンク先<br>
</td>
</tr>

<tr>
<td>トップへのリンク名</td>
<td>
<input type=radio name=toplink_logo_en value=1 $toplink_logo_check[1]>アイコン使用
<input type=radio name=toplink_logo_en value=0 $toplink_logo_check[0]>アイコン非使用<br>
<input type=text name="toplink_logo" value="$toplink_logo" size=30>アイコン画像ファイル<br>
<input type=text name="toplink_title" value="$toplink_title" size=30>リンク名
</td>
</tr>

<tr>
<td>登録者一覧表\\示</td>
<td>
<input type=radio name=list_display value=0 $list_display_check[0]>非表\\示
<input type=radio name=list_display value=1 $list_display_check[1]>上に表\\示
<input type=radio name=list_display value=2 $list_display_check[2]>下に表\\示
<input type=radio name=list_display value=4 $list_display_check[4]>別ページに表\\示
<input type=radio name=list_display value=3 $list_display_check[3]>別ウィンドウで表\\示<br>
<input type=text name="list_cols" value="$list_cols" size=5>登録者一覧の一行に表\\示される数
</td>
</tr>

<tr>
<td>登録者一覧表\\示名</td>
<td>
<input type=radio name=list_logo_en value=1 $list_logo_check[1]>アイコン使用
<input type=radio name=list_logo_en value=0 $list_logo_check[0]>アイコン非使用<br>
<input type=text name="list_logo" value="$list_logo" size=30>アイコン画像ファイル<br>
<input type=text name="list_title" value="$list_title" size=30>リンク名
</td>
</tr>

<tr>
<td>最終更新時間表\\示とフォーム</td>
<td>
<input type=radio name=lastupdate_en value=1 $lastupdate_check[1]>有り
<input type=radio name=lastupdate_en value=0 $lastupdate_check[0]>無し<br>
<input type=text name="lastupdate" value="$lastupdate" size=30>最終更新タイトル<br>
<input type=text name="lastupdate_color" value="$lastupdate_color" size=10>その色<br>
<input type=radio name=lastupdate_form value=1 $lastupdate_form_check[1]>yyyy年mm月dd日HH時MM分<br>
<input type=radio name=lastupdate_form value=2 $lastupdate_form_check[2]>yyyy/mm/dd HH:MM<br>
<input type=radio name=lastupdate_form value=3 $lastupdate_form_check[3]>HH:MM yyyy/mm/dd<br>
<input type=radio name=lastupdate_form value=4 $lastupdate_form_check[4]>HH:MM mm/dd/yyyy<br>
</td>
</tr>

<tr>
<td>各記事更新時間</td>
<td>
<input type=radio name=eachupdate_en value=1 $eachupdate_check[1]>表\\示
<input type=radio name=eachupdate_en value=0 $eachupdate_check[0]>非表\\示<br>
<input type=text name="eachupdate" value="$eachupdate" size=30>更新時間タイトル<br>
<input type=radio name=eachupdate_form value=1 $eachupdate_form_check[1]>yyyy年mm月dd日HH時MM分<br>
<input type=radio name=eachupdate_form value=2 $eachupdate_form_check[2]>yyyy/mm/dd HH:MM<br>
<input type=radio name=eachupdate_form value=3 $eachupdate_form_check[3]>HH:MM yyyy/mm/dd<br>
<input type=radio name=eachupdate_form value=4 $eachupdate_form_check[4]>HH:MM mm/dd/yyyy<br>
</td>
</tr>

<tr>
<td>登録修正フォームの１行目</td>
<td>
項目欄名<input type=text name="item" value="$item" size=30><br>
項目欄の文字色<input type=text name="item_color" value="$item_color" size=10><br>
項目欄の背景色<input type=text name="item_bgcolor" value="$item_bgcolor" size=10><br>
内容欄名<input type=text name="contents" value="$contents" size=30><br>
内容欄の文字色<input type=text name="contents_color" value="$contents_color" size=10><br>
内容欄の背景色<input type=text name="contents_bgcolor" value="$contents_bgcolor" size=10><br>
</td>
</tr>

<tr>
<td>項目欄の文字の位置</td>
<td>
<input type=radio name=item_lr value=0 $item_lr_check[0]>左
<input type=radio name=item_lr value=1 $item_lr_check[1]>中
<input type=radio name=item_lr value=2 $item_lr_check[2]>右<br>
<input type=radio name=item_ud value=0 $item_ud_check[0]>上
<input type=radio name=item_ud value=1 $item_ud_check[1]>中
<input type=radio name=item_ud value=2 $item_ud_check[2]>下<br>
</td>
</tr>

<tr>
<td>お名前の項目名</td>
<td>
<input type=text name="name_in" value="$name_in" size=30><br>
</td>
</tr>

<tr>
<td>パスワード項目名</td>
<td>
<input type=text name="passitem" value="$passitem" size=30><br>
</td>
</tr>

<tr>
<td>修正ボタン名</td>
<td>
<input type=text name="editbutton" value="$editbutton" size=30><br>
</td>
</tr>

<tr>
<td>削除機能\\</td>
<td>
<input type=radio name=delete_en value=1 $delete_check[1]>有効
<input type=radio name=delete_en value=0 $delete_check[0]>無効<br>
</td>
</tr>

<tr>
<td>削除ボタン名</td>
<td>
<input type=text name="deletebutton" value="$deletebutton" size=30><br>
</td>
</tr>

<tr>
<td>表\\示順</td>
<td>
<input type=radio name=disp_order value=0 $disp_order_check[0]>最新順
<input type=radio name=disp_order value=1 $disp_order_check[1]>古い順<br>
<input type=radio name=reorder value=0 $reorder_check[0]>登録順
<input type=radio name=reorder value=1 $reorder_check[1]>更新順<br>
最新順は更新時間が最新の記事が最初に表\\示されます。古い順は更新時間が最古の記事が最初に表\\示されます。<br>
登録順は記事を更新してもその記事は最新記事として認識されないので最新順や古い順にしても順序が変わりません。更新順は記事を更新するとそれが最新記事として扱われますので最新順でその記事が最初に表\\示されて、古い順でその記事が最後に表\\示されます。<br>
登録順／更新順は記事の書き込み時に適用される（データファイルにそのように書き込まれる）ので記事が書き込まれた後この設定を変更しても表\\示順序は変わりません。<br>
最新順／古い順は表\\示時に適用されるので設定を変えた時点で有効になります。<br>
</td>
</tr>

<tr>
<td>１ページ表\\示制限</td>
<td>
<input type=radio name=pagedisp_en value=1 $pagedisp_check[1]>有効
<input type=radio name=pagedisp_en value=0 $pagedisp_check[0]>無効<br>
<input type=text name="pagedispnum" value="$pagedispnum" size=5>　有効時に１ページに表\\示する件数<br>
</td>
</tr>

<tr>
<td>前ページのリンク名</td>
<td>
<input type=radio name=prev_icon_en value=1 $prev_icon_check[1]>アイコン使用
<input type=radio name=prev_icon_en value=0 $prev_icon_check[0]>アイコン非使用<br>
<input type=text name="prev_icon" value="$prev_icon" size=30>アイコン画像ファイル<br>
<input type=text name="prevpage" value="$prevpage" size=30>前ページリンク名<br>
位置
<input type=radio name=prev_loc value=0 $prev_loc_check[0]>左
<input type=radio name=prev_loc value=1 $prev_loc_check[1]>中
<input type=radio name=prev_loc value=2 $prev_loc_check[2]>右<br>
</td>
</tr>

<tr>
<td>次ページのリンク名</td>
<td>
<input type=radio name=next_icon_en value=1 $next_icon_check[1]>アイコン使用
<input type=radio name=next_icon_en value=0 $next_icon_check[0]>アイコン非使用<br>
<input type=text name="next_icon" value="$next_icon" size=30>アイコン画像ファイル<br>
<input type=text name="nextpage" value="$nextpage" size=30>次ページリンク名<br>
位置
<input type=radio name=next_loc value=0 $next_loc_check[0]>左
<input type=radio name=next_loc value=1 $next_loc_check[1]>中
<input type=radio name=next_loc value=2 $next_loc_check[2]>右<br>
</td>
</tr>

<tr>
<td>最初に戻るのリンク名</td>
<td>
<input type=radio name=first_icon_en value=1 $first_icon_check[1]>アイコン使用
<input type=radio name=first_icon_en value=0 $first_icon_check[0]>アイコン非使用<br>
<input type=text name="first_icon" value="$first_icon" size=30>アイコン画像ファイル<br>
<input type=text name="firstpage" value="$firstpage" size=30>次ページリンク名<br>
</td>
</tr>

<tr>
<td>アイテムの最大数</td>
<td>
<input type=text name="itemmaxnum" value="$itemmaxnum" size=5><br>
</td>
</tr>

<tr>
<td>画像の最大数</td>
<td>
<input type=text name="picmaxnum" value="$picmaxnum" size=5>　１度にアップできる画像の最大数<br>
</td>
</tr>

<tr>
<td>入力項目のデフォルト</td>
<td>
<input type=text name="item_value" value="$item_value" size=50>半角カンマ(,)で区切ってください<br>
</td>
</tr>

<tr>
<td>画像表\\示サイズ</td>
<td>
<input type=text name="max_width" value="$max_width" size=5>横幅　これを超える画像は縮小表\\示されます。<br>
<input type=text name="max_height" value="$max_height" size=5>縦幅　但し画像をクリックするとフルサイズで表\\示されます。<br>
</td>
</tr>

<tr>
<td>画像アップサイズ</td>
<td>
<input type=text name="maxmb" value="$maxmb" size=5>ＫＢ　１度にアップできる最大合計サイズ
</td>
</tr>

<tr>
<td>一人がアップできる合計画像サイズ制限</td>
<td>
<input type=radio name=size_check_en value=1 $size_check_check[1]>有効
<input type=radio name=size_check_en value=0 $size_check_check[0]>無効<br>
<input type=text name="allocated_size" value="$allocated_size" size=5>ＫＢ　現在アップされている画像も含め、一人がアップできる最大合計サイズ
</td>
</tr>

<tr>
<td>画像クリック時</td>
<td>
<input type=radio name=samewin_en value=1 $samewin_check[1]>同じウィンドウ
<input type=radio name=samewin_en value=0 $samewin_check[0]>別ウィンドウ<br>
</td>
</tr>

<tr>
<td>画像表\\示位置</td>
<td>
<input type=radio name=pic_loc value=0 $pic_loc_check[0]>左
<input type=radio name=pic_loc value=1 $pic_loc_check[1]>中
<input type=radio name=pic_loc value=2 $pic_loc_check[2]>右
</td>
</tr>

<tr>
<td>表\\示テーブルのサイズ</td>
<td>
<input type=text name="table_width" value="$table_width" size=5>パーセント　ページ全体からのパーセント<br>
</td>
</tr>

<tr>
<td>項目欄のサイズ</td>
<td>
<input type=text name="item_width" value="$item_width" size=5>パーセント　テーブル全体からのパーセント<br>
</td>
</tr>

<tr>
<td>テーブルレイアウト</td>
<td>
<input type=radio name=table_layout_en value=1 $table_layout_check[1]>有効
<input type=radio name=table_layout_en value=0 $table_layout_check[0]>無効<br>
bordercolor=<input type=text name="bordercolor" value="$bordercolor" size=10> 
border=<input type=text name="table_border" value="$table_border" size=5> 
cellpadding=<input type=text name="cellpadding" value="$cellpadding" size=5> 
cellspacing=<input type=text name="cellspacing" value="$cellspacing" size=5> 
</td>
</tr>

<tr>
<td>書き込みテキストエリアのサイズ</td>
<td>
<input type=text name="textarea_cols" value="$textarea_cols" size=3>横幅<br>
<input type=text name="textarea_rows" value="$textarea_rows" size=3>縦幅<br>
</td>
</tr>

<tr>
<td>&lt;HR&gt;ライン</td>
<td>
<input type=radio name=hr_en value=1 $hr_check[1]>有り
<input type=radio name=hr_en value=0 $hr_check[0]>無し<br>
</td>
</tr>

<tr>
<td>自動リンクの置き換え</td>
<td>
<input type=radio name=link_replace_en value=1 $link_replace_check[1]>有効
<input type=radio name=link_replace_en value=0 $link_replace_check[0]>無効<br>
<input type=text name="link_replace" value="$link_replace" size=30>置き換える文字列<br>
</td>
</tr>

<tr>
<td>自動リンククリック時
</td>
<td>
<input type=radio name=link_replace_top_en value=1 $link_replace_top_check[1]>同じウィンドウ
<input type=radio name=link_replace_top_en value=0 $link_replace_top_check[0]>別ウィンドウ<br>
</td>
</tr>

<tr>
<td>メンバー専用パスワード</td>
<td>
<input type=radio name=member_only value=1 $member_only_check[1]>有効
<input type=radio name=member_only value=0 $member_only_check[0]>無効<br>
<input type=text name="member_pwd" value="$member_pwd" size=20>パスワード
</td>
</tr>

<tr>
<td>メール送信</td>
<td>
新規登録時
<input type=radio name=reg_mail_en value=1 $reg_mail_check[1]>有効
<input type=radio name=reg_mail_en value=0 $reg_mail_check[0]>無効
<input type=text name="reg_mail_title" value="$reg_mail_title" size=30>メールタイトル<br>
記事更新時
<input type=radio name=up_mail_en value=1 $up_mail_check[1]>有効
<input type=radio name=up_mail_en value=0 $up_mail_check[0]>無効
<input type=text name="up_mail_title" value="$up_mail_title" size=30>メールタイトル<br>
記事削除時
<input type=radio name=del_mail_en value=1 $del_mail_check[1]>有効
<input type=radio name=del_mail_en value=0 $del_mail_check[0]>無効
<input type=text name="del_mail_title" value="$del_mail_title" size=30>メールタイトル<br>
メールコマンド<input type=text name="mail_cmd" value="$mail_cmd" size=30><br>
送り主（From:）<input type=text name="from_mail" value="$from_mail" size=30><br>
送り先（To:）<input type=text name="to_mail" value="$to_mail" size=30><br>
メール内容<br><textarea name="mail_contents" cols=50 rows=5>$mail_contents</textarea><br>
</td>
</tr>

<tr>
<td>&lt;head&gt;内挿入文</td>
<td>
<input type=radio name=head_insert_en value=1 $head_insert_check[1]>有効
<input type=radio name=head_insert_en value=0 $head_insert_check[0]>無効<br>
ＨＴＭＬ書式<br>
ポップアップ広告やJavascript、&lt;META&gt;を挿入したい場合にここに記述する。<br>
以下の記述が&lt;head&gt;〜&lt;/head&gt;内に挿入される。<br>
<textarea name="head_insert" cols=50 rows=5>$head_insert</textarea><br>
</td>
</tr>

<tr>
<td>スタイルシート</td>
<td>
<input type=radio name=style_sheet_en value=1 $style_sheet_check[1]>有効
<input type=radio name=style_sheet_en value=0 $style_sheet_check[0]>無効<br>
<textarea name="style_sheet" cols=50 rows=5>$style_sheet</textarea><br>
</td>
</tr>

<tr>
<td>書き込みの注意事項</td>
<td>
ＨＴＭＬ書式<br>
<textarea name="usage" cols=50 rows=5>$usage</textarea><br>
</td>
</tr>

<tr>
<td>時間設定</td>
<td>
<input type=radio name=localtime_en value=0 $localtime_check[0]>GMTからのオフセット
<input type=radio name=localtime_en value=1 $localtime_check[1]>ローカルタイム<br>
GMTからのオフセットに設定した場合、GMTより<input type=text name=offset_from_gmt value="$offset_from_gmt" size=2>時間(日本：+9時間)
</td>
</tr>

<tr>
<td>予\\備のアップデートファイル</td>
<td>
１
<input type=radio name=update1_file_en value=1 $update1_file_check[1]>使用
<input type=radio name=update1_file_en value=0 $update1_file_check[0]>非使用
<input type=text name="update1_file" value="$update1_file" size=30>ファイル名<br>
２
<input type=radio name=update2_file_en value=1 $update2_file_check[1]>使用
<input type=radio name=update2_file_en value=0 $update2_file_check[0]>非使用
<input type=text name="update2_file" value="$update2_file" size=30>ファイル名<br>
</td>
</tr>


</table>
END

print "<input type=submit name=\"sub\" value=\"設定\" class=\"button\">";
    print "</form>\n";

    &ending;
}

################ セットアップファイル作成 #######################
sub setupwrite {

    &checkadmin($in{pwd});

    foreach (keys(%in)){
	$in{$_} =~ s/<br>/\n/g;
	$in{$_} =~ s/&\#44;/,/g;
	$in{$_} =~ s/&lt;/</g;
	$in{$_} =~ s/&gt;/>/g;
    }

    my $item_value1 = '';
    foreach (split(/,/,"$in{item_value}")){
	$item_value1 = $item_value1 . "\'$_\'" . ',';
    }
    
    open(SETUP,"> $setupfile");

    print SETUP <<END;
#### 環境設定 ###### ここから ############
\$prdir = "$in{prdir}";
\$prfile = "$in{prfile}";
\$dellog = "$in{dellog}";

\$lockfile = "$in{lockfile}";

# バックグラウンド設定
# Background設定
# 1:画像を使う 0:カラー番号を使う
\$bgimage_en = $in{bgimage_en};
\$bgimagefile = "$in{bgimagefile}";
\$bgcolor="$in{bgcolor}";

#テーブルのバックグラウンド 1: on, 0: off
\$table_bgcolor_en = $in{table_bgcolor_en};
\$table_bgcolor = '$in{table_bgcolor}';

#名前欄の色
\$namebgcolor='$in{namebgcolor}';

#管理人オンリーモード 1:on, 0:off
\$admin_only_en = $in{admin_only_en};

#タイトル
\$title_logo_en = $in{title_logo_en};
\$title = '$in{title}';
\$title_logo = '$in{title_logo}';
\$title_color='$in{title_color}';
\$regtitle_logo_en = $in{regtitle_logo_en};
\$regtitle = '$in{regtitle}';
\$regtitle_logo = '$in{regtitle_logo}';
\$regtitle_color='$in{regtitle_color}';
\$edititle_logo_en = $in{edititle_logo_en};
\$edititle = '$in{edititle}';
\$edititle_logo = '$in{edititle_logo}';
\$edititle_color='$in{edititle_color}';
\$register_title_logo_en = $in{register_title_logo_en};
\$register_title = '$in{register_title}';
\$register_title_logo = '$in{register_title_logo}';

#トップへのリンク 1: on 0:off
\$toplink_en = $in{toplink_en};
\$toplink_logo_en = $in{toplink_logo_en};
\$toplink_logo = '$in{toplink_logo}';
\$toplink_title = '$in{toplink_title}';
\$toplink_link = '$in{toplink_link}';

#登録者リスト表\\示 0:非表\\示 1:上に表\\示 2:下に表\\示 3:別ウィンドウに表\\示 4:別ページに表\\示
\$list_display = $in{list_display};
\$list_logo_en = $in{list_logo_en};
\$list_logo = '$in{list_logo}';
\$list_title = '$in{list_title}';

#登録者リストの一行に表\\示される人数
\$list_cols = $in{list_cols};

#表\\示順 0:最新順 1:古い順
\$disp_order = $in{disp_order};

#記事更新時の表\\示順 0:登録順 1:更新順
\$reorder = $in{reorder};

#管理人セットアップ表\\示 1: on, 0: off
\$setup_en = $in{setup_en};
\$setup_title_logo_en = $in{setup_title_logo_en};
\$setup_title = '$in{setup_title}';
\$setup_title_logo = '$in{setup_title_logo}';

#削除機能\\ 1: on, 0: off
\$delete_en = $in{delete_en};

#登録リンク表\\示 1:on 0:off
\$regform_en = $in{regform_en};

#最終更新表\\示 1: on, 0: off
\$lastupdate_en = $in{lastupdate_en};
\$lastupdate = '$in{lastupdate}';
\$lastupdate_color = '$in{lastupdate_color}';
\$lastupdate_form = $in{lastupdate_form};

#各記事更新表\\示 1: on, 0: off
\$eachupdate_en = $in{eachupdate_en};
\$eachupdate = '$in{eachupdate}';
\$eachupdate_form = $in{eachupdate_form};

#登録修正フォームの１行目
\$item = '$in{item}';
\$item_color = '$in{item_color}';
\$item_bgcolor = '$in{item_bgcolor}';
\$contents = '$in{contents}';
\$contents_color = '$in{contents_color}';
\$contents_bgcolor = '$in{contents_bgcolor}';

#項目欄の文字位置
\$item_lr = $in{item_lr};      # 0:左 1:中 2:右
\$item_ud = $in{item_ud};      # 0:上 1:中 2:下

#お名前の項目名
\$name_in = '$in{name_in}';

#パスワード項目名
\$passitem = '$in{passitem}';

#修正ボタン名
\$editbutton = '$in{editbutton}';

#削除ボタン名
\$deletebutton = '$in{deletebutton}';

#１ページの表\\示制限
\$pagedisp_en = $in{pagedisp_en};

#１ページの表\\示件数
\$pagedispnum = $in{pagedispnum};

#次ページ前ページリンク名
\$prevpage = '$in{prevpage}';
\$nextpage = '$in{nextpage}';

#前ページ次ページアイコン
\$prev_icon_en = $in{prev_icon_en};
\$next_icon_en = $in{next_icon_en};
\$prev_icon = '$in{prev_icon}';
\$next_icon = '$in{next_icon}';
\$prev_loc = $in{prev_loc};
\$next_loc = $in{next_loc};
\$first_icon_en = $in{first_icon_en};
\$first_icon = '$in{first_icon}';
\$firstpage = '$in{firstpage}';

#アイテムの最大数
\$itemmaxnum = $in{itemmaxnum};

#１度にアップできる画像の最大数
\$picmaxnum = $in{picmaxnum};

#入力項目のデフォルト、最大\$itemmaxnum項目（デフォルト９）
\@item_value = ($item_value1);

# 画像ファイルの最大表\\示の大きさ（単位：ピクセル）
# → これを超える画像は縮小表\\示します
\$max_width = $in{max_width};		# 横幅
\$max_height = $in{max_height};		# 縦幅

#画像アップ最大サイズ
\$maxmb = $in{maxmb};

#一人がアップできる合計ファイルサイズ制限 1:on 0:off
\$size_check_en = $in{size_check_en};

#一人がアップできる合計ファイルサイズ(kB)
\$allocated_size = $in{allocated_size};

#画像クリック時 1: 同じウィンドウ 0: 別ウィンドウ
\$samewin_en = $in{samewin_en};

#画像表\\示位置 0:左 1:中 2:右
\$pic_loc = $in{pic_loc};

#表\\示テーブルのサイズ(パーセント)
\$table_width = $in{table_width};

#項目欄のサイズ(パーセント)
\$item_width = $in{item_width};

#テーブルのレイアウト
\$table_layout_en = $in{table_layout_en};
\$bordercolor = '$in{bordercolor}';
\$table_border = $in{table_border};
\$cellpadding = $in{cellpadding};
\$cellspacing = $in{cellspacing};

#各記事ごとの<HR>ライン 1:on 0:off
\$hr_en = $in{hr_en};

#書き込みテキストエリアのサイズ
\$textarea_cols = $in{textarea_cols};
\$textarea_rows = $in{textarea_rows};

#本文中のリンクを文字列に置き換える 1:on 0:off
\$link_replace_en = $in{link_replace_en};
\$link_replace = '$in{link_replace}';
\$link_replace_top_en = $in{link_replace_top_en};

#メール送信  1:on 0:off
\$reg_mail_en = $in{reg_mail_en};
\$up_mail_en = $in{up_mail_en};
\$del_mail_en = $in{del_mail_en};
\$reg_mail_title = '$in{reg_mail_title}';
\$up_mail_title = '$in{up_mail_title}';
\$del_mail_title = '$in{del_mail_title}';
\$mail_contents = '$in{mail_contents}';
\$to_mail = '$in{to_mail}';
\$from_mail = '$in{from_mail}';
\$mail_cmd = '$in{mail_cmd}';

#メンバー専用パスワード 1:on 0:off
\$member_only = $in{member_only};
\$member_pwd = '$in{member_pwd}';

#<head>〜</head>内に挿入できる構文 1:on, 0:off
\$head_insert_en = $in{head_insert_en};
\$head_insert = '$in{head_insert}';

#スタイルシート 1:on 0:off
\$style_sheet_en = $in{style_sheet_en};
\$style_sheet = '$in{style_sheet}';

#書き込みの注意事項
\$usage = '$in{usage}';

#時間設定
\$localtime_en = $in{localtime_en};
\$offset_from_gmt = $in{offset_from_gmt};

#トップからのＳＳＩ表\\示による更新時間のための予\\備のアップデートファイル
# 1: on, 0: off
\$update1_file_en = $in{update1_file_en};
\$update2_file_en = $in{update2_file_en};
\$update1_file = '$in{update1_file}';
\$update2_file = '$in{update2_file}';

#### 環境設定 ###### ここまで ############

END

    close(SETUP);

    print "Location: $script\n\n";
    
}

################ 表示 #######################
sub display {

    my @alldata;
    if (open(FILE,"< $prfile")){
	@alldata=<FILE>;
	close(FILE);
    }
    @alldata = reverse(@alldata) if ($disp_order == 0);

    my ($d_dev,$d_ino,$d_mode,$d_nlink,$d_uid,$d_gid,$d_rdev,$d_size,$d_atime,$d_mtime,$d_ctime,$d_blksize,$d_blocks)=stat("$prfile");
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=mylocaltime($d_mtime);

    my $date_str;
    if ($lastupdate_form == 1){
	$date_str = POSIX::strftime("%Y年%m月%d日%H時%M分",$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    } elsif ($lastupdate_form == 2){
	$date_str = POSIX::strftime("%Y/%m/%d %H:%M",$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    } elsif ($lastupdate_form == 3){
	$date_str = POSIX::strftime("%H:%M %Y/%m/%d",$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    } elsif ($lastupdate_form == 4){
	$date_str = POSIX::strftime("%H:%M %d/%m/%Y",$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    } else {
	$date_str = POSIX::strftime("%Y年%m月%d日%H時%M分",$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    }

    &beginning($title);
    &header($date_str);

    my $target;
    print "<center>\n";
    if ($toplink_en == 1){
	if ($toplink_logo_en == 1){
	    if ($list_display == 3) {
		$target = "target=_parent";
	    } else {
		$target = "target=_self";
	    }
	    print "<a href=\"$toplink_link\" style=\"border:0px\" $target><img src=\"$toplink_logo\" border=0 alt=\"$toplink_title\"></a>\n";
	} else {
	    print "<a href=\"$toplink_link\" $target>$toplink_title</a>\n";
	}
    }
    
    my $regform_mode;
    if ($admin_only_en == 1){
	$regform_mode = "mode=setup&next=regform";
    } else {
	$regform_mode = "mode=regform";
    }
    
    if ($regform_en == 1){
	if ($register_title_logo_en == 1){
	    print "<a href=\"$script?$regform_mode\" style=\"border:0px\"><img src=\"$register_title_logo\" border=0 alt=\"$register_title\"></a>\n";
	} else {
	    print "<a href=\"$script?$regform_mode\">$register_title</a>\n";
	}
    }
    
    if ($list_display == 3 || $list_display == 4){
	if ($list_display == 3){
	    $target = "target=_blank";
	} else {
	    $target = '';
	}
	if ($list_logo_en == 1){
	    print "<a href=\"$script?mode=list_display\" style=\"border:0px\" $target><img src=\"$list_logo\" border=0 alt=\"$list_title\"></a>\n";
	} else {
	    print "<a href=\"$script?mode=list_display\" $target>$list_title</a>\n";
	}
    }
    
    if ($setup_en == 1){
	if ($setup_title_logo_en == 1){
	    print "<a href=\"$script?mode=setup&next=setform\" style=\"border:0px\"><img src=\"$setup_title_logo\" border=0 alt=\"$setup_title\"></a>\n";
	} else {
	    print "<a href=\"$script?mode=setup&next=setform\">$setup_title</a>\n";
	}
    }
    print "</center>\n";
    
    if ($hr_en == 1 && $list_display == 1){
	print "<hr>\n";
    }
    
    &listgen(@alldata) if ($list_display == 1);
    
    my $itemnumber = 0;
    my $midoffile = 0;
    my $actualdispnum = 0;
    my $allmesnum = $#alldata + 1;
    my $next = $in{next};
    foreach (@alldata){
	chomp;
	my ($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/);
	
	next if ($in{number} ne '' && $in{number} != $count);
	
	$itemnumber = $itemnumber + 1;
	if ($pagedisp_en == 1){
	    if ($itemnumber < $next + 1){
		next;
	    } elsif ($itemnumber > $next + $pagedispnum){
		$midoffile = 1;
		last;
	    }
	}
	$actualdispnum = $actualdispnum + 1;
	
	if ($hr_en == 1){
	    print "<hr>\n";
	} else {
	    print "<br>\n";
	}
	
	if ($table_layout_en == 1){
	    print "<table cols=2 bordercolor=$bordercolor border=$table_border width=\"$table_width%\" $table_bgcolor2 align=center cellpadding=$cellpadding cellspacing=$cellspacing>\n";
	} else {
	    print "<table cols=2 border=1 width=\"$table_width%\" $table_bgcolor2 align=center>\n";
	}
	
	print "<tr>";
	print "<th colspan=2 bgcolor=$namebgcolor align=center>$name</th>";
	print "</tr>\n";
	
	my @item_lr_name = ('left','center','right');
	my @item_ud_name = ('top','center','bottom');
	
	my $link_replace_target;
	if ($link_replace_top_en == 1){
	    $link_replace_target = 'target="_top"';
	} else {
	    $link_replace_target = 'target="_blank"';
	}

	foreach my $keyelem (@item_keyelem){
	    my ($key,$elem)=split(/<>/,$keyelem);
	    if ($key eq '') {next;}
	    print "<tr>";
	    print "<td width=\"$item_width%\" align=\"$item_lr_name[$item_lr]\" valign=\"$item_ud_name[$item_ud]\">$key</td>";
	    if ($elem eq ''){$elem = "&nbsp;";}
	    if ($link_replace_en == 1){
		$elem =~ s/($url_pattern)/<a href=\"$1\" $link_replace_target>$link_replace<\/a>$2/g;
	    } else {
		$elem =~ s/($url_pattern)/<a href=\"$1\" $link_replace_target>$1<\/a>$2/g;
	    }
	    print "<td>$elem</td>";
	    print "</tr>\n";
	}
	
	my @picalign;
	if ($fileterm ne ''){
	    @picalign = ('left','center','right');
	    print "<tr><td colspan=2 align=\"$picalign[$pic_loc]\">\n";
	    
	    my @piclist = split(/<>/,$fileterm);
	    my @comlist = split(/<>/,$filecomterm);
	    my $piccnt = $#piclist + 1;
	    my $i=1;
	    my $newwin;
	    if ($samewin_en == 1){
		$newwin = '';
	    } else {
		$newwin = 'target="_blank"';
	    }
	    foreach my $pic (@piclist){
		my ($tmp,$tmp1)=split(/=/,$pic);
		($pic eq '' or ! -e "$prdir/$tmp1") && next;
		my ($picfile,$picname,$picnum,$imtd_width,
		    $actual_width,$actual_height,$comname,$comment) =
		    &get_one_image($pic,\@comlist);
		
		my $colm_num;
		if ($piccnt/3 >= 1){$colm_num = 3;}
		else		   {$colm_num = $piccnt;}
		if ($i % 3 == 1) {print "<table cols=$colm_num border=0 style=\"border:0px\">\n<tr>\n";}
		print "<td width=\"$imtd_width\" valign=\"top\" align=\"center\" style=\"border:0px\">";
		print "<a href=\"$picfile\" $newwin style=\"border:0px\">";
		print &image_tag($picfile,$actual_width,$actual_height);
		print "</a>";
		print "<br> \n";
		print "$comment";
		print "</td>\n";
		if ($i % 3 == 0) {print "</tr>\n";}
		if ($i % 3 == $colm_num % 3) {print "</tr>\n</table>\n";}
		if ($i % 3 == $colm_num % 3) {$piccnt = $piccnt - $colm_num;}
		$i = $i + 1;
	    }
	    print "</td></tr>\n";
	}
	
	my @yourdate;
	my $dateform;
	if ($eachupdate_en == 1){
	    my @yourdate = split(/_/,$update);
	    if ($eachupdate_form == 1){
		$dateform = sprintf("%s年%s月%s日%s時%s分",$yourdate[0],$yourdate[1],$yourdate[2],$yourdate[3],$yourdate[4]);
	    } elsif ($eachupdate_form == 2){
		$dateform = sprintf("%s/%s/%s %s:%s",$yourdate[0],$yourdate[1],$yourdate[2],$yourdate[3],$yourdate[4]);
	    } elsif ($eachupdate_form == 3){
		$dateform = sprintf("%s:%s %s/%s/%s",$yourdate[3],$yourdate[4],$yourdate[0],$yourdate[1],$yourdate[2]);
	    } elsif ($eachupdate_form == 4){
		$dateform = sprintf("%s:%s %s/%s/%s",$yourdate[3],$yourdate[4],$yourdate[1],$yourdate[2],$yourdate[0]);
	    } else{
		$dateform = sprintf("%s年%s月%s日%s時%s分",$yourdate[0],$yourdate[1],$yourdate[2],$yourdate[3],$yourdate[4]);
	    }
	    print "<tr><td align=\"$item_lr_name[$item_lr]\" valign=\"$item_ud_name[$item_ud]\">$eachupdate</td>";
	    print "<td>$dateform</td>";
	    print "</tr>\n";
	}
	
	print "<form method=post action=\"$script\">\n";
	print "<tr><td align=\"$item_lr_name[$item_lr]\" valign=\"$item_ud_name[$item_ud]\">$passitem</td>\n";
	print "<input type=hidden name=\"mode\" value=\"editform\">\n";
	print "<td><input type=password size=10 name=pwd>\n<input type=submit name=\"edit$count\" value=\'$editbutton\' class=\"button\"> \n";
	if ($delete_en == 1){
	    print "<input type=submit name=\"delete$count\" value=\'$deletebutton\' class=\"button\">\n";
	}
	print "</td>\n";
	print "</form>\n";
	print "</tr>\n";
	
	print "</table>\n";
	
    }
    
    if ($hr_en == 1){
	print "<hr>\n";
    } else {
	print "<br>\n";
    }
    
    my $prevlink = '';
    my $nextlink = '';
    if ($pagedisp_en == 1){
	if ($itemnumber > $pagedispnum + $midoffile){
	    my $prev = $itemnumber - $pagedispnum - $actualdispnum;
	    $prev = $prev - $midoffile;
	    if ($prev_icon_en == 1){
		$prevlink = "<a href=\"$script?mode=read&next=$prev\"><img src=\"$prev_icon\" alt=\"$prevpage\" border=0 style=\"border:0px\"></a>\n";
	    } else {
		$prevlink = "<a href=\"$script?mode=read&next=$prev\">$prevpage</a>\n";
	    }
	}
	if ($midoffile == 1){
	    my $next = $itemnumber-1;
	    if ($next_icon_en == 1){
		$nextlink = "<a href=\"$script?mode=read&next=$next\"><img src=\"$next_icon\" alt=\"$nextpage\" border=0 style=\"border:0px\"></a>\n";
	    } else {
		$nextlink = "<a href=\"$script?mode=read&next=$next\">$nextpage</a>\n";
	    }
	}
    }
    
    my $firstlink;
    if ($first_icon_en == 1){
	$firstlink = "<a href=\"$script?mode=read\"><img src=\"$first_icon\" alt=\"$firstpage\" border=0 style=\"border:0px\"></a>\n";
    } else {
	$firstlink = "<a href=\"$script\">$firstpage</a>\n";
    }
    
    print "<table cols=3 border=0 width=\"100%\" style=\"border:0px\">\n";
    print "<tr>\n";
    print "<td align=\"left\" style=\"border:0px\">\n";
    if ($prev_loc == 0){print "$prevlink";}
    if ($next_loc == 0){print "$nextlink";}
    print "</td>\n";
    print "<td align=\"center\" style=\"border:0px\">\n";
    if ($prev_loc == 1){print "$prevlink";}
    print "$firstlink\n";
    if ($next_loc == 1){print "$nextlink";}
    print "</td>\n";
    print "<td align=\"right\" style=\"border:0px\">\n";
    if ($prev_loc == 2){print "$prevlink";}
    if ($next_loc == 2){print "$nextlink";}
    print "</td>\n";
    print "</tr>\n";
    print "</table>\n";
    
    if ($hr_en == 1 && $list_display == 2){
	print "<hr>\n";
    }
    &listgen(@alldata) if ($list_display == 2);
    
    &ending;
    
}

sub get_image_size {

	my ($image,$max_width,$max_height) = @_;
	my $imagefile = "$prdir/$image";
	my $im;
	$image =~ /\.jpe?g$/i and $im = GD::Image->newFromJpeg($imagefile);
	$image =~ /\.gif$/i   and $im = GD::Image->newFromGif($imagefile);
	$image =~ /\.png$/i   and $im = GD::Image->newFromPng($imagefile);
	$image =~ /\.xbm$/i   and $im = GD::Image->newFromxbm($imagefile);
	$image =~ /\.gd$/i    and $im = GD::Image->newFromgd($imagefile);
	$image =~ /\.gd2$/i   and $im = GD::Image->newFromgd2($imagefile);
	$image =~ /\.xpm$/i   and $im = GD::Image->newFromxpm($imagefile);
	
	my ($width, $height) = $im->getBounds() if ($im);
	
	my $actual_width;
	my $actual_height;
	if ($width > $max_width or $height > $max_height){
	    my $width_shrink  = $max_width  / $width;
	    my $height_shrink = $max_height / $height;
	    my $shrink_ratio;
	    if ($width_shrink < $height_shrink){
		$shrink_ratio = $width_shrink;
	    } else {
		$shrink_ratio = $height_shrink;
	    }
	    $actual_width  = int($width  * $shrink_ratio);
	    $actual_height = int($height * $shrink_ratio);
	} else {
	    $actual_width  = $width;
	    $actual_height = $height;
	}

	return($imagefile,$actual_width,$actual_height);
}

sub listgen {
    my @alldata = @_;
    my $target;
    if ($list_display == 3){
	$target = "target=profile_main";
    } else {
	$target = "target=_self";
    }
    
    print "<table cols=$list_cols border=0 style=\"border:0px\" align=center width=\"$table_width\">\n";
    
    my $i = 0;
    my $flag = 0;
    foreach (@alldata){
	chomp;
	my ($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/);
	if ($i%$list_cols == 0 && $list_cols != 0) {
	    print "<tr>\n";
	    $flag = 1;
	}
	print "<td style=\"border:0px\" nowrap><a href=\"$script?mode=read&number=$count\" $target>$name</a></td>\n";
	if ($i%$list_cols == $list_cols-1 && $list_cols != 0) {
	    print "</tr>\n";
	    $flag = 0;
	}
	$i++;
    }
    print "</tr>\n" if ($flag == 1);
    
    print "</table>\n";

}

sub list_display {
    &beginning($list_title);

    my @alldata;
    if (open(FILE,"< $prfile")){
	@alldata=<FILE>;
	close(FILE);
    }
    @alldata = reverse(@alldata) if ($disp_order == 0);
    
    &listgen(@alldata);
    
    &ending;

}


sub beginning {
    my $title = shift;
    print $q->header(-type=>'text/html',-charset=>$charset);
    print "<html>\n";
    print <<HEADPRINT;
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=$charset">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$title</TITLE>
HEADPRINT

if ($head_insert_en == 1){
    print "$head_insert\n";
}
    
    if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
    }
    
    my $bgset;
    if ($bgimage_en == 1){
	$bgset = "background=\"$bgimagefile\"";
    } else {
	$bgset = "bgcolor=\"$bgcolor\"";
    }
    
    print "</HEAD>\n";
    print "<BODY TEXT=\"#000000\" $bgset LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
}

sub ending {
    my $year = $lastmodifiedyear;
    if ($year > 2003){
	$year = "2003-$year";
    }
    my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];

    print "<div align=\"right\"><i>$script Ver. $version<br>Copyright(C) $year, <a href=\"$mysite\" target=\"_blank\">hidekik.com</a></i></div>\n";
    print "</body>\n";
    print "</html>\n";
}

sub header {
    my $date_str = shift;
    if ($title_logo_en == 1){
	print "<h2><CENTER><img src=\"$title_logo\" alt=\"$title\"></CENTER></h2>\n";
    } else {
	print "<h2><CENTER><font color=\"$title_color\">$title</font></CENTER></h2>\n";
    }
    if ($lastupdate_en == 1){
	print "<center><FONT COLOR=\"$lastupdate_color\">$lastupdate $date_str</FONT></center><br>\n";
    }
}

sub error {
    my $message = shift;
    &unlockfile;
    &beginning($message);
    print "<br><center>$message</center>\n";
    &ending;
    exit;
}

sub makecrypt {
    my $plain = shift;
    my $salt = join "", ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
    my $result = crypt($plain,$salt) or crypt($plain,'$1$'.$salt.'$');
    return $result;
}

sub setadminpwd {

    &beginning($setup_title);
    print "<form name=\"setpwd\" action=\"$script\" method=\"post\">";
    
    print "<center>管理者用パスワードを設定してください。<br>";
    print "<input type=input name=\"pwd\" size=20>";
    print "<input type=submit name=\"sub\" value=\"設定\" class=\"button\">";
    print "<input type=hidden name=\"mode\" value=\"adminpwd\" class=\"button\">";
    
    print "</form></center>";
    &ending;

exit;

}

sub wradminpwd {

    my $passwd = &makecrypt($in{pwd});

    if (open(FILE,"> $admindat")){
	print FILE "$passwd";
	close(FILE);
    } else {
	&error(('パスワードファイル作成に失敗しました。','Failed to create a password file')[$lang]);
    }
    
}

sub checkcrypt {
    my ($pwd,$encpwd)=@_;
    return(crypt($pwd,$encpwd) eq "$encpwd");
}

sub regexplain {
print <<NOTICE;
<table cols=1 border=0 width="70%" align="center">
<tr><td style=\"border:0px\">
$usage
</td></tr>
</table>
NOTICE

}

sub mailnotice {

    my ($subj,$name,$update) = @_;

    $subj=jcode($subj)->jis;

    my $header;
    $header = "To: " . jcode($to_mail)->mime_encode . "\n";
    $header .= "From: " . jcode($from_mail)->mime_encode . "\n";
    $header .= "Subject: " . jcode($subj)->mime_encode . "\n";
    $header .= "MIME-Version: 1.0\n";
    $header .= "Content-type: text/plain; charset=ISO-2022-JP\n";
    $header .= "Content-Transfer-Encoding: 7bit\n\n";
    
    my $body;
    $body = $mail_contents;
    $body .= "\n";
    $body .= "名前 ：$name\n";
    $body .= "Host : $ENV{REMOTE_HOST}\n";
    $body .= "IP : $ENV{REMOTE_ADDR}\n";
    $body .= "時間 : $update\n\n";
    
    if (open(SMAIL, "| $mail_cmd")){
	
	print SMAIL $header;
	print SMAIL jcode($body)->jis;
	
	close(SMAIL);
	
    } else {
	&error("メールコマンドが実行できません。");
    }
    
}

sub checkadmin {
  my $pwd = shift;
  $pwd ||= $in{pwd};
  if (open(FILE,"< $admindat")){
      my $filepwd = <FILE>;
      close(FILE);
      my $inpwd = crypt($pwd,$filepwd);
      return ("$inpwd" eq "$filepwd");
  } else {
      my $message = ('パスワードファイルが存在しません','Cannot find password file.')[$lang];
      &error($message);
  }
  
}