#! /usr/bin/perl
#
# profile.cgi
#
# 1.264 : 10/7/10 : 最大登録数の処理を修正
# 1.263 : 4/9/08 : GDをImage::Size変更
# 1.262 : 6/18/07 : 画像表示パスのバグを修正
# 1.261 : 11/21/06 : 修正ページパスワード入力を修正
# 1.260 : 6/28/06 : 画像ファイルが無い場合の処理を修正
# 1.259 : 4/6/06 : 登録最大数登録している場合に削除できないバグを修正
# 1.258 : 1/23/06 : 画像以外のファイルのアップロード処理を追加
# 1.257 : 1/8/06 : 画像ファイル名処理を修正
# 1.256 : 1/7/06 : 画像処理を修正。jcode.plを削除
# 1.255 : 10/21/05 : メール送信のMIMEを修正
# 1.254 : 10/1/05 : Copyrightにリンクを追加
# 1.253 : 7/2/05 : 修正時に最終項目に改行が入ってしまうのを修正
# 1.252 : 7/1/05 : メンバー専用パスワードを新規登録のみに変更
# 1.251 : 6/30/05 : メンバー専用パスワードを追加
# 1.250 : 3/31/05 : sendmailのオプションを修正
# 1.249 : 3/28/05 : 記事更新時にメールを送るオプションを追加
# 1.248 : 3/19/05 : お名前の項目名設定を追加。表示順に登録順、更新順のオプション追加
# 1.247 : 3/6/05 : 登録者一覧に別ページで表示のオプション追加
# 1.246 : 3/5/05 : 登録者一覧のオプション、最新順、古い順表示オプション追加
# 1.245 : 2/21/05 : 管理用セットアップのパスワード認証でまれにミスするバグを修正
# 1.244 : 2/9/05 : 管理人オンリーモードで「新規登録」をクリックするとパスワードを
#                  を要求するように修正
# 1.243 : 2/8/05 : CGI::Carpをコメントアウト
# 1.242 : 2/7/05 : 管理人オンリーモードを追加。「新規登録」非表示モード追加。
# 1.241 : 2/7/05 : Location:の後にスペースを追加。AnHTTPD対応。
# 1.240 : 2/6/05 : CGI::Carpを追加
# 1.239 : 5/17/04 : 修正時にパスワードと共にエンターを押した場合のエラー処理を追加
# 1.238 : 3/20/04 : 表示画面のパスワード項目名を変更可能に修正
# 1.237 : 2/20/04 : 画像表示位置指定オプションを設定ページに追加
# 1.236 : 2/14/04 : 項目欄の文字の位置を設定できるように修正
#                   一人がアップできる合計ファイルサイズ制限設定を追加
# 1.235 : 2/6/04 : 登録、修正フォームの１行目を変更できるように修正
#                  スタイルシート用に<input type=butotn>にid=buttonを追加。
# 1.234 : 2/5/04 : 前ページ、次ページの位置指定できるように修正
# 1.233 : 7/1/03 : 小さい画像も$max_wの横幅に合わせるように修正
# 1.232 : 6/30/03 : 管理者が個人のパスワードを変更できるように修正
# 1.231 : 5/25/03 : 自動リンクにマッチする文字列を改良
# 1.230 : 5/10/03 : アップ画像サイズ設定が設定毎に20kBずつ増えてしまうバグを修正
#                   表示部のパスワード入力テキストサイズを縮めた。
# 1.229 : 4/21/03 : 写真のコメントを変更できるように修正
# 1.228 : 4/19/03 : 最大アップサイズに書き込みテキスト用のサイズマージン（20kB）を追加
# 1.227 : 4/15/03 : テーブルレイアウトの設定を追加
#                   最大ファイルサイズのオプション追加
# 1.226 : 4/6/03 : ヘッダーに好きな構文を挿入できるオプション追加
# 1.225 : 3/24/03 : パスワード作成失敗処理を追加
# 1.224 : 3/12/03 : 文中のリンクが長くなるのを防止するためhttp://からの
#                   自動リンクを文字列に書き換えるよう修正
# 1.223 : 3/8/03 : １ページの表示制限オプションを追加
#                   表次ページにバージョン表示追加
# 1.222 : 3/6/03 : $cgibinの設定を削除
# 1.221 : 3/4/03 : http://からのオートリンクを追加
# 1.22 : 2/27/03 : 管理人コメントを追加
#                  管理人パスワードで他人の書き込みを修正した場合
#                  その人のパスワードが変更されてしまうバグを修正
#                  テキストエリアのサイズのオプションを追加
#                  予備のアップデートファイルオプションを追加
# 1.211 : 2/25/03 : Copyright表記
#                   管理人用注意書きを追加
# 1.21 : 2/24/03 : エラッタを修正。書き込みアイテム数を一旦増やして
#                  最後のほうに書き込んだ後、アイテム数を減らすと
#                  現在のアイテム数以上の項目に既に書き込まれたアイテムを
#                  変更できない問題を修正。
#                  テーブルのバックグラウンドカラー設定を追加。
#                  各記事の更新時間設定を追加
# 1.2 : 2/23/03 : 管理人セットアップ機能を追加
# 1.11 : 2/17/03 : 画像の拡張子大文字にも対応、トップページへのリンクを追加
# 1.1 : 2/15/03 : 削除機能追加、写真が無い時にブランクのカラムを非表示
# 1.0 : 1/24/03 : Initial Revision
#
# http://www.hidekik.com/
#
# Copyright(c) 2003-2010, Hideki Kanayama All rights reserved
#

use POSIX;
use CGI::Carp qw(fatalsToBrowser);
use Image::Size;
use Jcode;
require "cgi-lib.pl";

#管理人パスワードファイル
$admindat = "adminpwd.dat";

#セットアップファイル
$setupfile = "profile_setup.pl";

$version = "1.264";
$lastmodifiedyear = "2010";

$lang = 0;

#### 環境設定 ###### ここから ############
$prdir = "../profile";
$prfile = "$prdir/profile.lst";
#$cgibin = "../cgi-bin";
$program = $0;
$program =~ s/^.+[\/\\]([^\/\\]+)$/$1/;
$script = "$program";
$dellog = "$prdir/delete.lst";

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#最大登録件数
$postmax = 100;

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

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

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

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

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

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

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

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

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

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

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

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

#書き込みの注意事項
$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>
';

#時間設定
$offset = 9;

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

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

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

if ($bgimage_en == 1){
	$bgset = "background=\"$bgimagefile\"";
} else {
	$bgset = "bgcolor=\"$bgcolor\"";
}

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

if ($maxmb < 100) {$maxmb = 100;}
$maxmb2 = $maxmb + 20; # Margin for text up size
$cgi_lib::maxdata = $maxmb2 * 1024;
$maxsize = $cgi_lib::maxdata;
if ($maxsize > 1048576){
	$maxsize = sprintf("%.1fMB",$maxsize/1048576);
} elsif ($maxsize > 1024){
	$maxsize = sprintf("%.1fkB",$maxsize/1024);
} else {
	$maxsize = sprintf("%dB",$maxsize);
}

&ReadParse;

while (($key,$value)=each %in){
	if ($key !~ /upfile\d+_pic/){
	    $value = jcode($value)->sjis;

		$value =~ s/</&lt;/g; $value =~ s/>/&gt;/g;

		$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;
	}
}


if (! -e "$admindat"){
	if ($in{mode} ne 'adminpwd'){
		&setadminpwd;
	} else {
		&wradminpwd;
		print "Location: $script?mode=read\n\n";
	}
}

open(ADMIN,"< $admindat");
$adminpwd = <ADMIN>;
close(ADMIN);


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 frameset {

print "Content-type: text/html\n\n";

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

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

}

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

if (open(FILE,"< $prfile")){
	while (<FILE>){
	($count,@dum)=split(/,/);
	push(@countlist,$count);
	}
	close(FILE);
	@countlist2 = sort {$a <=> $b} @countlist;
	$count = $countlist2[$#countlist2] + 1;
} else {
	$count = 1;
}

if ($count > $postmax){
    &error("これ以上登録できません。");
}

if ($in{'yourname'} eq "") {
	&error("名前を入れてください。");
}

if ($in{'pwd'} eq "") {
	&error("パスワードを入れてください。");
}

if ($admin_only_en == 1 && (! &checkcrypt($in{pwd},"$adminpwd"))){
	&error("管理人オンリーモードなので管理人のみ書き込みができます。");
}

if ($member_only == 1 && ("$in{member_pwd}" ne "$member_pwd")){
	&error('メンバー専用パスワードが違います。');
}

foreach $picnum (1 .. $picmaxnum){
	$uppic = "upfile${picnum}_pic";
	foreach (@in){
		if ($_ =~ /name=\"$uppic\"/){
			if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; }
			if ($_ =~ /(.*)filename=\"(.*)\"/i) {
				$origfile=$2;
				$origfile =~ s/^.*[\\\/]([^\\\/]+)$/$1/;
				$fname[$picnum]="$count-$picnum-$origfile";
			}
		}
	}
	if ($origfile eq ""){next;}

	$fname[$picnum] =~ tr/\"\x0D\x0A//d;
	$outfile = "$prdir/$fname[$picnum]";

	$origfile =~ s/^.+[\/\\]([^\/\\]+)$/$1/; #just in case
	if ("$origfile" !~ /^[\w\.\-]+$/) {
		&error("$origfile:アップ後のファイル名は半角英数で。");
	}

	open(OUT,"> $outfile") || &error("アップロードに失敗しました。");
	binmode(OUT);
	print OUT $in{$uppic};
	close(OUT);
	chmod (0666,$outfile);

	$fileterm = $fileterm . "$uppic" . '=' . "$fname[$picnum]" . '<>';
	$upcom = "upfile${picnum}_com";
	$filecomterm = $filecomterm . "$upcom" . '=' . "$in{$upcom}" . '<>';

}

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

$encpwd = &makecrypt($in{pwd});

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

chmod(0666,"$prfile");

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");
}

if ($reg_mail_en == 1){
	&mailnotice("$reg_mail_title","$in{yourname}");
}

print "Location: $script?mode=read\n\n";

}

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

#print "Content-Type: text/html\n\n";

open(ADMIN,"< $admindat");
$adminpwd = <ADMIN>;
close(ADMIN);

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

@newlist=();
open(DLFILE,"< $prfile");
while(<DLFILE>){
	s/[\r\n]*$//;
	($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/);
	$editcount = "edit$count";
	if ("$in{edit_num}" == $count){
#		if ((&checkcrypt($in{pwd},"$encpwd") && ($encpwd ne ''))
#		     || &checkcrypt($in{pwd},"$adminpwd")){

@fileterm_list = split(/<>/,$fileterm);
@filecomterm_list = split(/<>/,$filecomterm);
$fileterm_tmp = '';
$filecomterm_tmp = '';
$filesize_sum=0;
foreach $a (1 .. $in{old_picnum_end}){
	$tmppic = "upfile${a}_pic";
	$tmpcom = "upfile${a}_com";

	if ($in{$tmppic} ne 'on'){
		@aaa = grep(/$tmppic=/,@fileterm_list);
#		@bbb = grep(/$tmpcom=/,@filecomterm_list);
		if ($aaa[0] eq '') {next;}
		$fileterm_tmp = $fileterm_tmp . $aaa[0] . "<>";
#		$filecomterm_tmp = $filecomterm_tmp . $bbb[0] . "<>";
		$filecomterm_tmp = $filecomterm_tmp . "$tmpcom=$in{$tmpcom}" . "<>";
		if ($size_check_en == 1){
			$pic_filename = $aaa[0];
			$pic_filename =~ s/$tmppic=//;
			($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 = grep(/$tmppic=/,@fileterm_list);
		$aaa[0] =~ /$tmppic=(.+)/;
		$deletefile = $1;
		unlink("$prdir/$deletefile");
	}
}

$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を越えています。");
	}
}

$fileterm = $fileterm_tmp;
$filecomterm = $filecomterm_tmp;

foreach $picnum ($in{new_picnum_start} .. $in{new_picnum_end}){
	$uppic = "upfile${picnum}_pic";
	$new_picnum = $old_picnum + $picnum;
	foreach (@in){
		if ($_ =~ /name=\"$uppic\"/){
			if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; }
			if ($_ =~ /(.*)filename=\"(.*)\"/i) {
				$origfile=$2;
				$origfile =~ s/^.*[\\\/]([^\\\/]+)$/$1/;
				$fname[$picnum]="$count-$picnum-$origfile";
			}
		}
	}
	if ($origfile eq ""){next;}

	$fname[$picnum] =~ tr/\"\x0D\x0A//d;
	$outfile = "$prdir/$fname[$picnum]";

	$origfile =~ s/^.+[\/\\]([^\/\\]+)$/$1/; #just in case
	if ("$origfile" !~ /^[\w\.\-]+$/) {
		&error("$origfile:アップ後のファイル名は半角英数で。");
	}

	open(OUT,"> $outfile") || &error("アップロードに失敗しました。");
	binmode(OUT);
	print OUT $in{$uppic};
	close(OUT);
	chmod (0666,$outfile);

	$fileterm = $fileterm . "$uppic" . '=' . "$fname[$picnum]" . '<>';
	$upcom = "upfile${picnum}_com";
	$filecomterm = $filecomterm . "$upcom" . '=' . "$in{$upcom}" . '<>';

}

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

if (! &checkcrypt($in{adminpwd},"$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 $a (1 .. $itemmaxnum){
	$tmpa = "item${a}_key";
	$tmpb = "item${a}_elem";
	$aaa = $aaa . ",$in{$tmpa}<>$in{$tmpb}";
}
	$aaa = $aaa . "\n";

#		} else {
#			&error("パスワードが違います。");
#		}

	push (@newlist,"$aaa") if ($reorder == 0);

	} else {
		push(@newlist,"$_\n");
	}
}
close(DLFILE);

push(@newlist,$aaa) if ($reorder == 1);

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

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");
}

if ($up_mail_en == 1){
	&mailnotice("$up_mail_title","$in{yourname}");
}

print "Location: $script?mode=read\n\n";

}

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

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

print "Content-Type: text/html\n\n";

&beginning;

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
}

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 {
################ 修正フォーム #######################

#print "Content-Type: text/html\n\n";

##### 削除 ####
for($i=1;$i<=$postmax;$i=$i+1){
	$tmp = "delete${i}";
	if ($in{$tmp} ne ''){
		$edit_num = $i;
		$hitline = 1;
		open(WRITE,"> $prdir/tmp.$$");
		open(DELLOG,">> $dellog");

		if (open(FILE,"< $prfile")){
			while(<FILE>){
				($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/,$_);

				if ($count == $edit_num){
				if (!((&checkcrypt($in{pwd},"$encpwd") && ("$encpwd" ne ''))
				     || &checkcrypt($in{pwd},"$adminpwd"))){
					close(DELLOG);
					close(WRITE);
					unlink("$prdir/tmp.$$")
					&error("パスワードが違います。");
				}
					print DELLOG $_;

					@tmp_list=split(/<>/,$fileterm);
					foreach (@tmp_list){
						($itemname,$filename)=split(/=/);
						$itemname =~ /upfile(\d+)_pic/;
						push(@picnumlist,$1);
					}
					@aaa = sort {$a <=> $b} @picnumlist;
					$old_picnum_end = $aaa[$#aaa];
					foreach $a (1 .. $old_picnum_end){
						$tmppic = "upfile${a}_pic";
						$tmpcom = "upfile${a}_com";

						@aaa = grep(/$tmppic=/,@tmp_list);
						$aaa[0] =~ /$tmppic=(.+)/;
						$deletefile = $1;
						unlink("$prdir/$deletefile");
					}
				} else {
					print WRITE $_;
				}
			}
			close(FILE);
		}
		close(WRITE);
		close(DELLOG);
		rename("$prdir/tmp.$$","$prfile");
		if ($del_mail_en == 1){
			&mailnotice("$del_mail_title","$name");
		}
		print "Location: $script?mode=read\n\n";
		exit;
	}
}

##### 修正フォーム ####
for($i=1;$i<=$postmax;$i=$i+1){
	$tmp = "edit${i}";
	if ($in{$tmp} ne ''){
		$edit_num = $i;
		$hitline = 1;
		last;
	}
}

if (open(FILE,"< $prfile")){
	while(<FILE>){
		($count,@dump)=split(/,/,$_);
		if ($count == $edit_num){
			chomp;
			$thisline = $_;
			last;
		}
	}
	close(FILE);
}

open(ADMIN,"< $admindat");
$adminpwd = <ADMIN>;
close(ADMIN);

($count,$update,$name,$encpwd,$fileterm,$filecomterm,@item_keyelem)=split(/,/,$thisline);

if ($hitline == 0) {
	&error("<form>パスワードを入力して【Enter】キーではなく、<input type=button name=dummy value=\"$editbutton\" class=\"button\"></from>をクリックしてください。");
} elsif (!((&checkcrypt($in{pwd},"$encpwd") && ("$encpwd" ne '')) || &checkcrypt($in{pwd},"$adminpwd"))){
	&error("パスワードが違います。");
}


print "Content-Type: text/html\n\n";

&beginning;

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

$item_keyelem_num = $#item_keyelem+1;

if ($itemmaxnum >= $item_keyelem_num){
	$item_max = $itemmaxnum;
} else {
	$item_max = $item_keyelem_num;
}

$keycount = 1;
foreach (1 .. $item_max){

($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";

}


}


@tmp=split(/<>/,$fileterm);
foreach (@tmp){
	($itemname,$filename)=split(/=/);
	$itemname =~ /upfile(\d+)_pic/;
	push(@picnumlist,$1);
}
@aaa = sort {$a <=> $b} @picnumlist;
$old_picnum_start = $aaa[0];
$old_picnum_end = $aaa[$#aaa];
$new_picnum_start = $old_picnum_end + 1;
$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
}

if ($fileterm ne ''){

print "<tr><td colspan=2>\n";
print "<table cols=3 border=0>";
@piclist = split(/<>/,$fileterm);
@comlist = split(/<>/,$filecomterm);
$i=1;
foreach $pic (@piclist){
	($pic eq '') && next;
	($picname,$picfile)=split(/=/,$pic);
	$picname =~ /upfile(\d+)_pic/;
	$picnum = $1;
	$comname = "upfile${picnum}_com";
	@com1 = grep(/^$comname=/,@comlist);
	$com = $com1[0];
	$com =~ /$comname=(.*)/;
	$comment = $1;
	$picfile =~ /(.+)(\..+)/;
	$pichead = $1;
	$tail = $2;
	$picfile = "$prdir/$picfile";

	if (-e "$picfile") {
	    ($pic_width,$pic_height)=&get_image_size($picfile,$max_w,$max_h);
	    if ($pic_width < $max_w) {
		$pic_width2 = $max_w;
	    } else {
		$pic_width2 = $pic_width;
	    }
	} else {
	    $pic_width2 = $max_w;
	}

	if ($i % 3 == 1) {print "<tr>";}
	print "<td align=\"center\" width=\"$pic_width2\" valign=\"top\" style=\"border:0px\">";
	if (-e "$picfile") {
	    print &image_tag($picfile,$pic_width,$pic_height);
	} else {
	    print "&lt;No Image&gt;";
	}
	print "<br> \n";
	print "<input type=text size=20 value=\"$comment\" name=$comname><br>";
	print "<input type=checkbox name=$picname>↑削除<br>";
	print "</td>\n";
	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=\"$edit_num\">\n";


print "<tr>";
print "<td align=\"right\" width=\"20%\" nowrap>修正用パスワード</td>\n";
print "<td>";
if (&checkcrypt($in{pwd},"$encpwd") && ("$encpwd" ne '')){
    print "<input type=password name=pwd size=\"10\" value=\"$in{pwd}\">←パスワードを変更できます";
} else {
    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>←パスワードを変更するときチェック";
}
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_image_size {

	my ($image,$max_width,$max_height) = @_;
	my $imagefile = "$image";

	my ($width, $height);
	if ($image =~ /\.gif$/i or
	    $image =~ /\.jpe?g$/i or
	    $image =~ /\.[xp][bp]m$/i or
	    $image =~ /\.xv$/i or
	    $image =~ /\.[pm]ng$/i or
	    $image =~ /\.tif$/i or
	    $image =~ /\.bmp$/i or
	    $image =~ /\.psd$/i or
	    $image =~ /\.swf$/i or
	    $image =~ /\.cws$/i or
	    $image =~ /\.pcd$/i) {
	    ($width, $height) = imgsize($imagefile);
	}
	
	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($actual_width,$actual_height);
}


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

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

print "Content-type:text/html\n\n";
&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>";
print "</body></html>";

exit;

}

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

open(ADMIN,"< $admindat");
$adminpwd = <ADMIN>;
close(ADMIN);

if (! &checkcrypt($in{pwd},"$adminpwd")){
	&error('パスワードが違います。');
}

print "Content-Type:text/html\n\n";

&beginning;

#if (open(SETUP,"< $setupfile")){
#	$perlpath = <SETUP>;
#	$perlpath =~ s/^#\! *(.+) *[\r\n]*$/$1/;
#	close(SETUP);
#} else {
#	$perlpath = "/usr/local/bin/perl";
#}

$admin_only_check[$admin_only_en] = "checked";
$compatible_check[$compatible] = "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";

$item_value = join(',',@item_value);

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%">CGIディレクトリ</td>
<td width="80%"><input type=text name="cgibin" value="$cgibin" size=30>profile.cgiを置くディレクトリ（データと同じでも可）</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=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="maxw" value="$max_w" size=5>横幅　これを超える画像は縮小表\\示されます。<br>
<input type=text name="maxh" value="$max_h" 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=text name="postmax" value="$postmax" 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>GMTより<input type=text name=offset value="$offset" 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 {
################ セットアップファイル作成 #######################

if (open(FILE,"< $admindat")){;
	$filepwd = <FILE>;
	close(FILE);
	if (! &checkcrypt($in{pwd},$filepwd)){
		&error('パスワードが違います。');
	}
} else {
	print "Content-type:text/html\n\n";
	print "<html><body $bgimage>";
	print "パスワードファイルが存在しません。";
	print "</body></html>";
	exit;
}

#print "Content-Type: text/html\n\n";

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

$item_value1 = '';
foreach (split(/,/,"$in{item_value}")){
#	print "$_<BR>";
	$item_value1 = $item_value1 . "\'$_\'" . ',';
}

#print @item_value1;

#exit;

open(SETUP,"> $setupfile");

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

# バックグラウンド設定
# 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_w = $in{maxw};		# 横幅
\$max_h = $in{maxh};		# 縦幅

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

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

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

#最大登録件数
\$postmax = $in{postmax};

#画像クリック時 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}';

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

#トップからのＳＳＩ表\\示による更新時間のための予\\備のアップデートファイル
# 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);

if ($in{list_display} == 3){
	print "Location: $script\n\n";
} else {
	print "Location: $script?mode=read\n\n";
}

}

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

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

($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");
@monarray=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime($d_mtime + $offset * 3600);

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);
}

print "Content-Type: text/html\n\n";

&beginning;
&header;

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";
	}
}

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 if ($list_display == 1);

$itemnumber = 0;
$midoffile = 0;
$actualdispnum = 0;
$allmesnum = $#alldata + 1;
$next = $in{next};
foreach (@alldata){
	s/[\r\n]*$//;  # instead of a chop
	($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>$itemnumber:$name</th>";
	print "<th colspan=2 bgcolor=$namebgcolor align=center>$name</th>";
	print "</tr>\n";

	@item_lr_name = ('left','center','right');
	@item_ud_name = ('top','center','bottom');

	foreach $keyelem (@item_keyelem){
		($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_top_en == 1){
			$link_replace_target = 'target="_top"';
		} else {
			$link_replace_target = 'target="_blank"';
		}
		if ($link_replace_en == 1){
			$elem =~ s/(https?:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\$]*)/<a href=\"$1\" $link_replace_target>$link_replace<\/a>$2/g;
		} else {
			$elem =~ s/(https?:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\$]*)/<a href=\"$1\" $link_replace_target>$1<\/a>$2/g;
		}
		print "<td>$elem</td>";
		print "</tr>\n";
	}

	if ($fileterm ne ''){
	@picalign = ('left','center','right');
	print "<tr><td colspan=2 align=\"$picalign[$pic_loc]\">\n";

#	print "<table cols=3 border=0>";
	@piclist = split(/<>/,$fileterm);
	@comlist = split(/<>/,$filecomterm);
	$piccnt = $#piclist + 1;
	$i=1;
	foreach $pic (@piclist){
		($pic eq '') && next;
		($picname,$picfile)=split(/=/,$pic);
		$picname =~ /upfile(\d+)_pic/;
		$picnum = $1;
		$comname = "upfile${picnum}_com";
		@com1 = grep(/^$comname=/,@comlist);
		$com = $com1[0];
		$com =~ /$comname=(.*)/;
		$comment = $1;
		$picfile =~ /.+(\..+)/;
		$tail = $1;
		$picfile = "$prdir/$picfile";

		if (-e "$picfile") {
		    ($pic_width,$pic_height)=&get_image_size($picfile,$max_w,$max_h);
		    if ($pic_width < $max_w) {
			$pic_width2 = $max_w;
		    } else {
			$pic_width2 = $pic_width;
		    }
		} else {
		    $pic_width2 = $max_w;
		}

		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=\"$pic_width2\" valign=\"top\" align=\"center\" style=\"border:0px\">";
		if ($samewin_en == 1){
			$newwin = '';
		} else {
			$newwin = 'target="_blank"';
		}

		if (-e "$picfile") {
		    print "<a href=\"$picfile\" $newwin style=\"border:0px\">";
		    print &image_tag($picfile,$pic_width,$pic_height);
		    print "</a>";
		    print "<br> \n";
		    print "$comment";
		} else {
		    print "&lt;No Image&gt;";
		}
		print "</td>\n";
		if ($i % 3 == 0 and $colm_num % 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 "</table>\n";
	print "</td></tr>\n";
	}

	if ($eachupdate_en == 1){
		@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";
}

$prevlink = '';
$nextlink = '';
if ($pagedisp_en == 1){
	if ($itemnumber > $pagedispnum + $midoffile){
		$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){
		$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";
		}
	}
}

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?mode=read\">$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 if ($list_display == 2);

&ending;

}

sub listgen {

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>\n";

my $i = 0;
my $flag = 0;
foreach (@alldata){
	s/[\r\n]*$//;  # instead of a chop
	($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\"><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 {

print "Content-type: text/html\n\n";

$title = "$list_title";
&beginning;

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

&listgen;

#&ending;
print "</body></html>";

}


sub beginning {
print "<html>\n";
print <<HEADPRINT;
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
   <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";
}

print "</HEAD>\n";
print "<BODY TEXT=\"#000000\" $bgset LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
}

sub ending {
#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime(time + 3600 * $offset);
#$year = $year + 1900;
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>profile.cgi 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 {
	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 {

print "Content-Type: text/html\n\n";

&beginning;

print "<br><center>$_[0]</center>\n";
print "</body>";
print "</html>";

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 {

print "Content-type:text/html\n\n";
print "<html><body $bgset>";
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>";
print "</body></html>";

exit;

}

sub wradminpwd {

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

if (open(FILE,"> $admindat")){
	print FILE "$passwd";
	close(FILE);
} else {
	print "Content-type:text/html\n\n";
	print "<html>\n";
	print "<HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
	print "<META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
	print "<TITLE>パスワードファイル作成に失敗しました</TITLE>\n";
	print "</HEAD>\n";
	print "<body $bgimage>\n";
	print "パスワードファイル作成に失敗しました。";
	print "</body></html>\n";
	exit;
}

}

sub checkcrypt {
    local($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 {

local($subj,$name) = @_;

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

local $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";

local $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";

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

if (open(SMAIL, "| $mail_cmd")){

print SMAIL $header;
print SMAIL $body;

close(SMAIL);

} else {
&error("メールコマンドが実行できません。");
}

}