#! c:/perl/bin/perl
#
# attlist.cgi
#
# Ver3.014 : 10/4/05 : cyrptを修正
# Ver3.013 : 10/2/05 : Copyrightにリンクを追加
# Ver3.012 : 9/3/05 : jcode.plを削除
# Ver3.011 : 7/25/05
#           選択項目から初期状態をなくすオプション追加
# Ver3.01 : 8/28/03
#           セットアップで間違った戻りＵＲＬを指定した場合のエラー処理を追加
# Ver3.0 : 4/28/03
#          attendlist.plとwrattend.plを一つに統合
#          パスワード機能追加
#          attendhyperの機能（参加者カウント）も追加
#
# $Id: attlist.cgi,v 1.9 2005/10/04 06:23:03 Hideki Kanayama Exp $

$version = "3.014";
$lastmodifiedyear = "2005";

$admindat = "adminpwd.dat";
$setupfile = "attend_setup.pl";

$thisfile = $0;
$thisfile =~ s/^.+[\/\\]([^\\\/]+)$/$1/;

$lang = 0;

########## 環境設定 ここから ###########################
$cgibin = "../cgi-bin";
$script = "$cgibin/$thisfile";

$event = "../attendlist";
$datafile = "$event/attend.dat";
$eventhtml = "$event/event.shtml";
$attendees = "$event/attendees.lst";

#表示テーブルのカラム数
$table_colms = 2;

#参加者設定の初期登録可能人数
$default_max = 30;

#管理用リンク表示 1:有効 0:無効
$setup_en = 1;

#変更日表示 1:有効 0:無効
$update_en = 0;

#パスワード保護 1:有効 0:無効
$password_en = 0;

#参加人数 1:有効 0:無効
$family_en = 0;

#初期状態 1:あり 0:なし
$init_state_en = 0;

#時間設定
$offset = 9;

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


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

if ($ENV{"REQUEST_METHOD"} eq "GET"){
	$data=$ENV{"QUERY_STRING"};
	$method = 'GET';
} elsif ($ENV{"REQUEST_METHOD"} eq "POST"){
	read(STDIN,$data,$ENV{"CONTENT_LENGTH"});
	$method = 'POST'
}

@tmparry=split(/&/,$data);

foreach $string (@tmparry){
	($key,$value)=split(/=/,$string);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

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

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

	$all{"$key"}=$value;
}

if ($all{id} eq ''){
	$id = 1;
} else {
	$id = $all{id};
}

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

$tmpfile = "$event/tmp.$$";

if (! -e "$admindat"){
	if ($all{mode} ne 'adminpwd'){
		&setadminpwd;
	} else {
		&wradminpwd;
		print "Location: $eventhtml\n\n";
	}
}

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


if ($all{mode} eq 'atwrite'){
	&atwrite;
} elsif ($all{mode} eq 'setup'){
	&setup;
} elsif ($all{mode} eq 'wrsetup'){
	&wrsetup;
} elsif ($all{mode} eq 'wrattendees'){
	&wrattendees;
} else {
	&display;
}

###################### 書き込み ############################
sub atwrite {

if ($all{name} eq ""){
	&error('名前は必ず入れてください');
}

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

$datafile = &datafilegen;
$attendeefile = &attendeefilegen;

open(ATTENDEE,"< $attendeefile") || &error("$attendeefileが開けません");
@attendees = <ATTENDEE>;
close(ATTENDEE);

if (open(ATTEND,"< $datafile")) {
	foreach (<ATTEND>){
		chop;
		($key,$name,$value,$family,$moddate,$pwd)=split(/,/);
		if ($key == 0){
			$date = $moddate;;
			$lastname = $name;
		} else {
			$name[$key] = "$name";
			$status[$key] = "$value";
			$family[$key] = "$family";
			$eachpwd[$key] = "$pwd";
			$eachmod[$key] = "$moddate";
		}
	}
	close(ATTEND);
}

open(WRDAT,">$tmpfile");
print WRDAT "0,$all{name},$update,\n";

$endatt = $#attendees + 1;
for ($i=1;$i<=$endatt;$i=$i+1){
	$pwdi = "pwd_$i";
	$attendees[$i-1] =~ s/[\n\r]*$//; # instead of a chop
	if ($all{$i} ne $status[$i]) {
		$eachmod[$i] = "$update";
		if ($password_en == 1 && !("$eachpwd[$i]" eq '' ||
	            &checkcrypt("$all{$pwdi}","$adminpwd") ||
	            &checkcrypt("$all{$pwdi}","$eachpwd[$i]"))) {
			close(WRDAT);
			unlink("$tmpfile");
			&error("$name[$i]のパスワードが違います。");
		}
	}
	if ($password_en == 1 && ("$all{$pwdi}" ne '' && "$eachpwd[$i]" eq '')){
		$eachpwd[$i] = &makecrypt("$all{$pwdi}");
	}
	print WRDAT "$i,$attendees[$i-1],$all{$i},$all{\"family_$i\"},$eachmod[$i],$eachpwd[$i]\n";
}

close(WRDAT);
rename("$tmpfile","$datafile");

chmod(0666,"$datafile");

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

print "Location: $eventhtml#$id\n\n";

}

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

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

$datafile = &datafilegen;

if (open(ATTEND,"< $datafile")) {
	foreach (<ATTEND>){
		chop;
		($key,$name,$value,$family,$moddate,$pwd)=split(/,/);
		if ($key == 0){
			$date = $value;;
			$lastname = $name;
		} else {
			$name[$key] = "$name";
			$status[$key] = "$value";
			$family[$key] = "$family";
			$eachpwd[$key] = "$pwd";
			$eachmod[$key] = "$moddate";
		}
	}
	close(ATTEND);
}


$attendees = &attendeefilegen;

if (open(ATTENDEE,"< $attendees")){
	@attendees_list = <ATTENDEE>;
}


#print "<html>";
#print "<body>";

print "<a name=\"$id\"></a>\n";
print "<form method=post action=\"$script\" name=\"attend$id\">\n";
print "<input type=hidden name=mode value=atwrite>\n";
print "<input type=hidden name=id value=$id>\n";

if ($date =~ /(\d+)_(\d+)_(\d+)_(\d+)_(\d+)/) {
	$modyear = $1;
	$modmon = $2;
	$modday = $3;
	$modhour = $4;
	$modmin = $5;
	$date = sprintf("%s年%s月%s日%s時%s分",$1,$2,$3,$4,$5);
} else {
	$date = "&nbsp;";
}

print "<P>最終更新者は　";
print "<font color=\"#cc00cc\">$lastname</font>";
print "、最終更新日は　";
print "<font color=\"#cc00cc\">$date</font>です";

print <<FINISH_1;

<BR>更新者のお名前：<INPUT type=text name="name" size="20"><p>
<INPUT type=submit name="fix" value="決定"><FONT COLOR="#006600">　←決定ボタンはここ</FONT>
FINISH_1

$select_items = 4 + $init_state_en + $update_en + $family_en + $password_en;
$cols = $table_colms * $select_items;

print "<TABLE BORDER COLS=$cols WIDTH=\"18%\">\n";
print "<TR bgcolor=\"#ffcc33\">\n";
for ($i=1;$i<=$table_colms;$i=$i+1){
	print "<TH NOWRAP>名前</TH>\n";
	print "<TH NOWRAP>出席</TH>\n";
	print "<TH NOWRAP>欠席</TH>\n";
	print "<TH NOWRAP>未定</TH>\n";
	print "<TH NOWRAP>初期<br>状態</TH>\n" if ($init_state_en == 1);
	print "<TH NOWRAP>参加<br>人数</TH>\n" if ($family_en == 1);
	print "<TH NOWRAP>更新日</TH>\n" if ($update_en == 1);
	print "<TH NOWRAP>パスワード</TH>\n" if ($password_en == 1);
}
print "</TR>\n";

$i = 1;
while ($#attendees_list >= 0){
print "<TR>\n";

for ($j=1;$j<=$table_colms;$j=$j+1){
if ($#attendees_list < 0) {
	for ($h=0;$h<$select_items;$h=$h+1){
		print "<td>&nbsp;</td>\n";
	}
	last;
}

$person = $attendees_list[0];

$chkatt="";
$chkabt="";
$chktbd="";
$chkdef="";

if ("$status[$i]" eq attend){
	$chkatt="CHECKED";
	$chkabt="";
	$chktbd="";
	$chkdef="";
	if ($family[$i] < 1){
		$family[$i]=1;
	};
} elsif ($status[$i] eq absent){
	$chkat="";
	$chkabt="CHECKED";
	$chktbd="";
	$chkdef="";
	$family[$i]=0;
} elsif ($status[$i] eq tbd){
	$chkatt="";
	$chkabt="";
	$chktbd="CHECKED";
	$chkdef="";
	$family[$i]=0;
} elsif ($status[$i] eq default){
	$chkatt="";
	$chkabt="";
	$chktbd="";
	$chkdef="CHECKED";
	$family[$i]=0;
} else {
	$chkatt="";
	$chkabt="";
	$chktbd="";
	$chkdef="";
	$family[$i]=0;
} 


print "<TD NOWRAP BGCOLOR=\"#66FF99\">";
chomp($person);
print "$person";
print "</TD>\n";

if ($chkatt eq CHECKED){
	print "<TD bgcolor=\"#0000ff\">";
} else {
	print "<TD>";
}
print "<INPUT type=radio name=\"$i\" value=attend $chkatt></TD>\n";

if ($chkabt eq CHECKED){
	print "<TD bgcolor=\"ff0000\">";
} else {
	print "<TD>";
}
print "<INPUT type=radio name=\"$i\" value=absent $chkabt></TD>\n";

if ($chktbd eq CHECKED){
	print "<TD bgcolor=\"yellow\">";
} else {
	print "<TD>";
}
print "<INPUT type=radio name=\"$i\" value=tbd $chktbd></TD>\n";

if ($init_state_en == 1){
	if ($chkdef eq CHECKED){
		print "<TD bgcolor=\"gray\">";
	} else {
		print "<TD>";
	}
	print "<INPUT type=radio name=\"$i\" value=default $chkdef></TD>\n";
}

if ($family_en == 1){
	print "<td>";
	print "<INPUT type=text name=\"family_$i\" value=\"$family[$i]\" size=2>";
	print "</td>\n";
}

if ($update_en == 1){
	print "<td>";
	if ($eachmod[$i] =~ /(\d+)_(\d+)_(\d+)_(\d+)_(\d+)/) {
		$modyear = $1;
		$modmon = $2;
		$modday = $3;
		$modhour = $4;
		$modmin = $5;
		print "$2/$3/$1";
	} else {
		print "&nbsp;";
	}
	print "</td>\n";
}

if ($password_en == 1){
	print "<td>";
	print "<INPUT type=password name=\"pwd_$i\" size=10>";
	print "</td>\n";
} else {
	print "<INPUT type=hidden name=\"pwd_$i\" value=''>\n";
}

$totalattend = $totalattend + $family[$i];

shift(@attendees_list);
$i = $i + 1;

}

print "</tr>\n";

}

if ($family_en == 1){
	$rightcolspan = $update_en + $family_en + $password_en;
	$leftcolspan = $cols - $rightcolspan;
	print "<tr>";
	print "<td colspan=\"$leftcolspan\" align=\"right\">";
	print "参加合計";
	print "</td>";
	print "<td colspan=\"$rightcolspan\" nowrap>$totalattend 人</td>";
	print "</tr>\n";
}

print "</TABLE>\n";

if ($password_en == 1){
	print "<font color=red size=-1>※</font><font size=-1>パスワードをブランクで登録すると誰でも変更できるようになります。ブランク以外の時だけ保護されます。</font><br>\n";
}

if ($setup_en == 1){
	print "<a href=\"$script?mode=setup&id=$id\">管理用</a><br>\n";
}

print "</form>";

$year = $lastmodifiedyear;
if ($year > 1997){
	$year = "1997-$year";
}
$mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
print "<font color=gray><i>$thisfile Ver. $version<br>Copyright(C) $year, <a href=\"$mysite\" target=\"_blank\">hidekik.com</a></i></font>\n";

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

}

###################### セットアップ ############################
sub setup {

if ($all{pwd} eq ''){
	&enterpwd;
}

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

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 "<h1>Setup for ID=$id</h1>\n";

print "<form name=\"setup\" action=\"$script\" method=\"post\">\n";
print "<input type=hidden name=\"mode\" value=\"wrsetup\">\n";
print "<input type=hidden name=\"pwd\" value=\"$all{pwd}\">\n";
print "<input type=hidden name=\"id\" value=\"$id\">\n";

print "<table cols=2 border=1>\n";

$table_colms_check[$table_colms] = "checked";
$setup_check[$setup_en] = "checked";
$update_check[$update_en] = "checked";
$password_check[$password_en] = "checked";
$family_check[$family_en] = "checked";
$update1_file_check[$update1_file_en] = "checked";
$update2_file_check[$update2_file_en] = "checked";
$init_state_check[$init_state_en] = "checked";

print <<END_SETUP;

<tr>
<td colspan=2>
<ul>
<li>ディレクトリ、ファイルの設定は、$eventから見た相対パス、又は絶対パスで指定してください。ＣＧＩと同じディレクトリの場合、.（半角ドット）でＯＫです。バックグランドファイルやロゴファイルはhttp://からのリンクの指定も可能\\です。</li>
<li>管理人パスワードを変更するには、$admindatを削除して、$scriptを実行しなおしてパスワードを再入力してください。</li>
<li>これらの設定は$idsetupfileに保存されます。また、$idsetupfileをエディタ等で変更してもこの設定ページに反映されます。</li>
<li>$scriptがバージョンアップされた場合、単純に$scriptだけを置き換えるだけで設定はそのまま使えます。</li>
<li>$admindatと$idsetupfileのファイル名はこの設定ページでは変更できません。変更したい場合は$scriptの中で変更してください。</li>
<li>管理用リンクを非表\\示にしている場合にこのページにアクセスするには、$script?mode=setup&id=$idを実行するとアクセスできます。</li>
<li><font color=red>数字やカラー指定は必ず半角で指定してください。全角やブランクだとＣＧＩが起動しなくなります。</font>万一間違って全角で書いてしまった場合は、$idsetupfileをエディタで開きその場所を半角に正しく修正してください。それで直ります。</li>
</ul>
</td>
</tr>

<tr>
<td width="20%">CGIディレクトリ</td>
<td width="80%"><input type=text name="cgibin" value="$cgibin" size=30>CGIを置くディレクトリ（データと同じでも可）</td>
</tr>


<tr>
<td width="20%">データディレクトリ</td>
<td width="80%"><input type=text name="event" value="$event" size=30>CGIと同じでも可</td>
</tr>

<tr>
<td>データファイル</td>
<td><input type=text name="datafile" value="$datafile" size=30>ファイル名は&lt;dir&gt;/&lt;id&gt;-&lt;filename&gt;に自動的に変換されます</td>
</tr>

<tr>
<td width="20%">ＣＧＩを呼び出す.shtmlファイル</td>
<td width="80%"><input type=text name="eventhtml" value="$eventhtml" size=30></td>
</tr>

<tr>
<td width="20%">出席者登録ファイル</td>
<td width="80%"><input type=text name="attendees" value="$attendees" size=30>ファイル名は&lt;dir&gt;/&lt;id&gt;-&lt;filename&gt;に自動的に変換されます</td>
</tr>

<tr>
<td width="20%">参加者設定の初期登録可能\\人数</td>
<td width="80%"><input type=text name="default_max" value="$default_max" size=5></td>
</tr>

<tr>
<td>表\\示テーブルのカラム数</td>
<td>
<input type=radio name=table_colms value=1 $table_colms_check[1]>１
<input type=radio name=table_colms value=2 $table_colms_check[2]>２<br>
</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=init_state_en value=1 $init_state_check[1]>あり
<input type=radio name=init_state_en value=0 $init_state_check[0]>なし<br>
</td>
</tr>

<tr>
<td>変更時間表\\示</td>
<td>
<input type=radio name=update_en value=1 $update_check[1]>表\\示
<input type=radio name=update_en value=0 $update_check[0]>非表\\示<br>
</td>
</tr>

<tr>
<td>参加人数</td>
<td>
<input type=radio name=family_en value=1 $family_check[1]>有効
<input type=radio name=family_en value=0 $family_check[0]>無効<br>
</td>
</tr>

<tr>
<td>パスワード保護</td>
<td>
<input type=radio name=password_en value=1 $password_check[1]>有効
<input type=radio name=password_en value=0 $password_check[0]>無効<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_SETUP

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

# 参加者設定

$attendees = &attendeefilegen;

if (open(ATTENDEE,"< $attendees")){
	@attendees_list = <ATTENDEE>;
}

print "<hr><h3>参加者設定</h3><br>\n";
print "<ul>\n";
print "<li>出欠表\\に表\\示する人の名前を各テキストフォームに一人ずつ入力してください。</li>\n";
print "</ul>\n";
print "<form name=\"attendees\" action=\"$script\" method=\"post\">\n";
print "<input type=hidden name=\"mode\" value=\"wrattendees\">\n";
print "<input type=hidden name=\"pwd\" value=\"$all{pwd}\">\n";
print "<input type=hidden name=\"id\" value=\"$id\">\n";

print "<table cols=$table_colms border=1>\n";

$i = 1;
while (@attendees_list){
	$_=shift(@attendees_list);
	print "<tr>\n";
	print "<td><input type=text size=30 name=attname$i value=\"$_\"></td>\n";
	$i = $i + 1;
	if ($table_colms == 2){
		$_=shift(@attendees_list);
		print "<td><input type=text size=30 name=attname$i value=\"$_\"></td>\n";
		$i = $i + 1;
	}
	print "</tr>\n";
}

$extra_attendees = 3;
if ($i < $default_max - $extra_attendees){
	$extra_max = $default_max;
} else {
	$extra_max = $i + $extra_attendees;
}

for ($j=$i;$j<=$extra_max;$j=$j+1){
	print "<tr>\n";
	print "<td><input type=text size=30 name=attname$i></td>\n";
	$i = $i + 1;
	if ($table_colms == 2){
		$_=shift(@attendees_list);
		print "<td><input type=text size=30 name=attname$i></td>\n";
		$i = $i + 1;
		$j = $j + 1;
	}
}
print "</tr>\n";


print "</table>\n";

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

print "</body></html>\n";


}

###################### セットアップ作成 ############################
sub wrsetup {

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

if (! -e "$all{eventhtml}"){
	&error("ＣＧＩを呼び出す.shtmlファイル名が正しくありません。<br><a href=\"$script?mode=setup&id=$all{id}\">ここをクリックしてセットアップから入力しなおしてください。</a>");
}

open(SETUP,"> $idsetupfile") || &error('セットアップファイルが作成できません。<br>ＣＧＩを置いてあるディレクトリが書き込み可能\\か確認してください。');

print SETUP <<END;
########## 環境設定 ここから ###########################
\$cgibin = "$all{cgibin}";
\$script = "$cgibin/$thisfile";

\$event = "$all{event}";
\$datafile = "$all{datafile}";
\$eventhtml = "$all{eventhtml}";
\$attendees = "$all{attendees}";

#表\\示テーブルのカラム数
\$table_colms = $all{table_colms};

#参加者設定の初期登録可能\\人数
\$default_max = $all{default_max};

#管理用リンク表\\示 1:有効 0:無効
\$setup_en = $all{setup_en};

#変更日表示 1:有効 0:無効
\$update_en = $all{update_en};

#パスワード保護 1:有効 0:無効
\$password_en = $all{password_en};

#参加人数 1:有効 0:無効
\$family_en = $all{family_en};

#初期状態 1:あり 0:なし
\$init_state_en = $all{init_state_en};

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

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

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

close(SETUP);

$eventhtml = "$all{eventhtml}";

print "Location: $eventhtml#$id\n\n";

}


###################### 参加者ファイル作成 ############################
sub wrattendees {

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

$attendees = &attendeefilegen;

open (FILE,"> $attendees") || error('$attendeesを作成できません。');

for ($i=1;$i<=$default_max+3;$i=$i+1){
	$attname = attname . $i;
	if ($all{$attname} ne ''){
		print FILE "$all{$attname}\n";
	}

}

close(FILE);

print "Location: $eventhtml#$id\n\n";

}

###################### クリプト ############################
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>\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>";
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=\"設定\">";
print "<input type=hidden name=\"mode\" value=\"adminpwd\">";

print "</form></center>";
print "</body></html>";

exit;

}

sub wradminpwd {

$passwd = &makecrypt($all{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 "パスワードファイル作成に失敗しました。$scriptがあるディレクトリのパーミッションが書き込み可能\\になっているか確認してください。";
	print "</body></html>\n";
	exit;
}
}

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

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

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 $bgset>\n";
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=\"入力\">\n";
print "<input type=hidden name=\"mode\" value=\"$all{mode}\">\n";
print "<input type=hidden name=\"id\" value=\"$all{id}\">\n";

print "</form></center>\n";
print "</body></html>\n";

exit;

}

sub error {

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

print "<html>";
print "<head>";
print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
print "<META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
print "</head>";

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

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

exit;

}

sub attendeefilegen {

$origfile = $attendees;
if ($origfile =~ /[\\\/]/){
	$origfile =~ /^(.*)[\\\/]([^\\\/]+)$/;
	$attendeedir = $1;
	$attendees = $2;
} else {
	$attendeedir = ".";
	$attendees = "$origfile";
}
$attendees = "$attendeedir/${id}-$attendees";

return ($attendees);

}

sub datafilegen {
$origfile = $datafile;
if ($origfile =~ /[\\\/]/){
	$origfile =~ /^(.*)[\\\/]([^\\\/]+)$/;
	$datadir = $1;
	$datafile = $2;
} else {
	$datadir = ".";
	$datafile = "$origfile";
}
$datafile = "$datadir/${id}-$datafile";

return ($datafile);

}