#! c:/perl/bin/perl
#
# attlist.cgi
#
# 4.001 : 3/6/06 : 参加者ファイル作成のバグを修正
# 4.0 : 10/12/05 : Created as a Non-SSI versoin
#
# $Id: attlist2.cgi,v 1.9 2006/03/05 08:29:49 Hideki Kanayama Exp $

use CGI qw(:cgi-lib);
use strict;
use CGI::Carp qw(fatalsToBrowser);
use File::Basename;

my $version = "4.001";
my $lastupdatedyear = "2006";

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

my $script = basename($0);

my $charset = "Shift_JIS";

my $lang = 0;

########## 環境設定 ここから ###########################

our $datafile = "attend.dat";
our $attendees = "attendees.lst";

# lockfile
our $lockfile = "lockfile.dat";

# Title
our $title = '出欠表 ';

# Background
our $bgimage_en = 0;
our $bgimage_file = '';
our $bgcolor = "#ffffff";

# Back link
our $backlink_en = 1;
our $backlink = '..';
our $backlink_name = '戻る';

# Body width
our $body_width = '100';

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

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

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

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

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

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

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

# body_head
our $body_head = "
<center><h1>出欠表\</h1></center><p>
";

# body_tail
our $body_tail = '
';

# Style Sheet
our $style_sheet_en = 0;
our $style_sheet = '
';

# Head insert
our $head_insert_en = 0;
our $head_insert = '
';

#時間設定
our $offset = 9;

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


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

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

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

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

if ($in{mode} eq 'atwrite'){
    &atwrite;
} elsif ($in{mode} eq 'setup'){
    &setup;
} elsif ($in{mode} eq 'setup_update'){
    &setup_update;
} else {
    &display;
}

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

    &error('名前は必ず入れてください')if ($in{name} eq "");
    
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime(time + 3600 * $offset);
    my $update = sprintf("%s_%s_%s_%02s_%02s",$year+1900,$mon+1,$mday,$hour,$min);
    
    my @attendees = &get_attendees;
    my ($date, $lastname, $name, $status, $family, $eachpwd, $eachmod) = &get_data;
    my (@name, @status, @family, @eachpwd, @eachmod);
    @name = @{$name};
    @status = @{$status};
    @family = @{$family};
    @eachpwd = @{$eachpwd};
    @eachmod = @{$eachmod};

    &lockfile;
    my $tmpfile = "tmp.$$";
    open(WRDAT,">$tmpfile");
    print WRDAT "0,$in{name},$update,\n";
    my $endatt = $#attendees + 1;
    my $i;
    for ($i=1;$i<=$endatt;$i=$i+1){
	my $pwdi = "pwd_$i";
	chomp($attendees[$i-1]);
	if ($in{$i} ne $status[$i]) {
	    $eachmod[$i] = "$update";
	    if ($password_en == 1 && "$eachpwd[$i]" ne '' &&
		!&checkcrypt("$in{$pwdi}","$eachpwd[$i]")) {
		close(WRDAT);
		unlink("$tmpfile");
		&error("$name[$i]のパスワードが違います。");
	    }
	}
	if ($password_en == 1 && ("$in{$pwdi}" ne '' && "$eachpwd[$i]" eq '')){
	    $eachpwd[$i] = &makecrypt("$in{$pwdi}");
	}
	print WRDAT "$i,$attendees[$i-1],$in{$i},$in{\"family_$i\"},$eachmod[$i],$eachpwd[$i]\n";
}

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

    chmod(0666,"$datafile");
    &unlockfile;

    &extraupdate;

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

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

    &htmlhead($title);

    my ($date, $lastname, $name, $status, $family, $eachpwd, $eachmod) = &get_data;
    my (@name, @status, @family, @eachpwd, @eachmod);
    @name = @{$name};
    @status = @{$status};
    @family = @{$family};
    @eachpwd = @{$eachpwd};
    @eachmod = @{$eachmod};

    my @attendees_list = &get_attendees;

    print "$body_head";

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

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

    print "<a href=\"$backlink\">$backlink_name</a><p>\n" if ($backlink_en);
    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

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

    print "<TABLE BORDER COLS=$cols WIDTH=\"18%\">\n";
    print "<TR bgcolor=\"#ffcc33\">\n";
    my $i;
    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";
    
    my $i = 1;
    my $totalattend;
    while ($#attendees_list >= 0){
	print "<TR>\n";
	
	my $j;
	for ($j=1;$j<=$table_colms;$j=$j+1){
	    if ($#attendees_list < 0) {
		my $h;
		for ($h=0;$h<$select_items;$h=$h+1){
		    print "<td>&nbsp</td>\n";
		}
		last;
	    }
	    
	    my $person = $attendees_list[0];
	    
	    my $chkatt="";
	    my $chkabt="";
	    my $chktbd="";
	    my $chkdef="";
	    
	    if ("$status[$i]" eq 'attend'){
		$chkatt="CHECKED";
		$chkabt="";
		$chktbd="";
		$chkdef="";
		if ($family[$i] < 1){
		    $family[$i]=1;
		};
	    } elsif ($status[$i] eq 'absent'){
		$chkatt="";
		$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+)/) {
		    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){
	my $rightcolspan = $update_en + $family_en + $password_en;
	my $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";
    }
    
    &copyright;
    
    if ($setup_en == 1){
	print "<br><a href=\"$script?mode=setup\">管理用</a><br>\n";
    }

    print "</form>";
    
    print "$body_tail";

    &htmltail;
}

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

    &setadminpwd if ($in{pwd} eq '');
    &error('管理用パスワードが違います。') unless &checkadmin($in{pwd});
    
    &htmlhead('管理用セットアップ');

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

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

    my @table_colms_check;
    my @setup_check;
    my @update_check;
    my @password_check;
    my @family_check;
    my @update1_file_check;
    my @update2_file_check;
    my @init_state_check;
    $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";
    
    my %check;
  
    $check{bgimage}[$bgimage_en] = "checked";
    $check{backlink}[$backlink_en] = "checked";
    $check{style_sheet}[$style_sheet_en] = "checked";
    $check{head_insert}[$head_insert_en] = "checked";

    print <<END_SETUP;

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

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

<tr>
<td width="20%">出席者登録ファイル</td>
<td width="80%"><input type=text name="attendees" value="$attendees" size=30></td>
</tr>

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

<td>タイトル</td>
<td>
<input type=text name="title" value="$title" size=30><br>
ブラウザのタイトルバーに表\示されるタイトルです。ページのタイトルは「ページ上部」で自由にタイトル表\示させることができます。
</td>
</tr>

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

<tr>
<td>トップへのリンク</td>
<td>
<input type=radio name=backlink_en value=1 $check{backlink}[1]>表\示
<input type=radio name=backlink_en value=0 $check{backlink}[0]>非表\示<br>
<input type=text name="backlink_name" value="$backlink_name" size=30>リンク名<br>
<input type=text name="backlink" value="$backlink" size=30>ＵＲＬ<br>
</td>
</tr>

<tr>
<td>表\示幅</td>
<td>
ブラウザ全体の<input type=text name="body_width" value="$body_width" size=5>％
</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>
ページ上部に表\示させるものをＨＴＭＬ表\記<br>
<textarea name="body_head" cols=50 rows=3 wrap=soft>$body_head</textarea><br>
</td>
</tr>

<tr>
<td>ページ下部</td>
<td>
ページ下部に表\示させるものをＨＴＭＬ表\記<br>
<textarea name="body_tail" cols=50 rows=3 wrap=soft>$body_tail</textarea><br>
</td>
</tr>

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

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

print "<p><input type=submit name=\"update_admin\" value=\"管理人設定だけを更新する\">";
    
# 参加者設定
    
    my @attendees_list = &get_attendees;
    
    print "<hr><h3>参加者設定</h3>\n";
    print "<ul>\n";
    print "<li>出欠表\に表\示する人の名前を各テキストフォームに一人ずつ入力してください。</li>\n";
    print "</ul>\n";
    print "<table cols=$table_colms border=1>\n";
    
    my $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";
    }
    
    my $extra_attendees = 3;
    my $extra_max;
    if ($i < $default_max - $extra_attendees){
	$extra_max = $default_max;
    } else {
	$extra_max = $i + $extra_attendees;
    }
    
    my $j;
    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 "<input type=hidden name=extra_max value=$extra_max>\n";
    
    print "</table>\n";
    
    print "<input type=submit name=\"update_attendees\" value=\"参加者設定だけを更新する\">\n";
    print "<p>\n";
    print "<input type=submit name=\"update_both\" value=\"管理人設定と参加者設定を同時に更新する\">\n";
    print "</form>\n";

    print "<p><div align=\"right\">";
    &copyright;
    print "</div>";
    &htmltail;


}

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

    &error('パスワードが違います。') unless (&checkadmin($in{pwd}));

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

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

print SETUP <<END;
########## 環境設定 ここから ###########################
\$event = "$in{event}";
\$datafile = "$in{datafile}";
\$attendees = "$in{attendees}";

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

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

# Title
\$title = '$in{title} ';

# Background
\$bgimage_en = $in{bgimage_en};
\$bgimage_file = '$in{bgimage_file}';
\$bgcolor = "$in{bgcolor}";

# Back link
\$backlink_en = $in{backlink_en};
\$backlink = '$in{backlink}';
\$backlink_name = '$in{backlink_name}';

# Body width
\$body_width = $in{body_width};

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

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

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

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

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

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

# body_head
\$body_head = '$in{body_head} ';

# body_tail
\$body_tail = '$in{body_tail} ';

# Style Sheet
\$style_sheet_en = $in{style_sheet_en};
\$style_sheet = '$in{style_sheet}';

# Head insert
\$head_insert_en = $in{head_insert_en};
\$head_insert = '$in{head_insert}';

#時間設定
\$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);

}


###################### 参加者ファイル作成 ############################
sub wrattendees {
    &error('パスワードが違います。')if (! &checkadmin($in{pwd}));
    open (FILE,"> $attendees") || &error("$attendeesを作成できません。");
    my $i;
    for ($i=1;$i<=$in{extra_max}+3;$i=$i+1){
	my $attname = 'attname' . $i;
	if ($in{$attname} ne ''){
	    print FILE "$in{$attname}\n";
	}
    }
    close(FILE);
}

sub setup_update {
    if (defined $in{update_admin}){
	&wrsetup;
    } elsif (defined $in{update_attendees}){
	&wrattendees;
    } else {
	&wrsetup;
	&wrattendees;
    }
    print "Location: $script\n\n";
}

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

sub postprocess {
    my $key;
    foreach $key (keys %in){
	my $br;
#	$br = "<br>";
#	$in{$key} =~ s/</&lt;/g; 
#	$in{$key} =~ s/>/&gt;/g;
#	if ($in{$key} =~ /\r\n/) { $in{$key} =~ s/\r\n/$br/g; }
#	if ($in{$key} =~ /\n/)   { $in{$key} =~ s/\n/$br/g; }
#	if ($in{$key} =~ /\r/)   { $in{$key} =~ s/\r/$br/g; }
	if ($in{$key} =~ /,/)    { $in{$key} =~ s/,/&\#44;/g; }
    }
}

sub htmlhead {
  
  my $title = shift;
  
  my $bgimage;
  if ($bgimage_en == 1){
    $bgimage = "background=\"$bgimage_file\"";
  } else {
    $bgimage = "bgcolor=\"$bgcolor\"";
  }

  print $q->header(-charset=>$charset);
  print "<html>\n";
  print "<HEAD>\n";
  print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$charset\">\n";
  print "<TITLE>$title</TITLE>\n";
  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\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
  print "<table cols=1 border=0 width=\"${body_width}%\" style=\"border:0px\" align=center><tr><td style=\"border:0px;background-color:transparent\" >\n";
  
}

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

sub htmltail {
  print "</td></tr></table></body></html>\n";
  exit;
}

sub error {
  my ($msg) = shift;
  &unlockfile;
  &htmlhead($msg);
  print "<br><center>$msg</center>\n";
  print "<br><div align=\"right\">";
  &copyright;
  print "</div>";
  &htmltail;
  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 {
  
  my $subname = 'setadminpwd';
  &htmlhead('管理者用パスワードを入力してください');
  
  print "<form name=\"setpwd\" action=\"$script\" method=\"post\">\n";
  
  if ($in{mode} eq 'setup'){
    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=\"setup\">\n";
  } else {
    print "<center>管理者用パスワードを設定してください。<br>\n";
    print "<input type=input name=\"pwd\" size=20>\n";
    print "<input type=submit name=\"sub\" value=\"設定\">\n";
    print "<input type=hidden name=\"mode\" value=\"wradminpwd\">\n";
  }
  
  print "<p><div align=\"right\">";
  &copyright;
  print "</div>";
  &htmltail;
  exit;
}

sub wradminpwd {

  my $plain = shift;
  my $passwd = &makecrypt($plain);
  
  if (open(FILE,"> $admindat")){
    print FILE "$passwd";
    close(FILE);
  } else {
    &error('パスワードファイル作成に失敗しました');
  }
  
  print "Location: $script\n\n";
  
}

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

sub lockfile {
  while(-e "$lockfile"){
    sleep(1);
  }
  open(LOCK,"> $lockfile");
  close(LOCK);
}

sub unlockfile {
    unlink("tmp.$$") if (-e "tmp.$$");
    unlink("$lockfile") if (-e $lockfile);
}

sub get_attendees {
    my @attendees_list;
    if (open(ATTENDEE,"< $attendees")){
	@attendees_list = <ATTENDEE>;
	map {chomp} @attendees_list;
	close(ATTENDEE);
    }
    return (@attendees_list);
}

sub get_data {
    my ($date, $lastname);
    my (@name, @status, @family, @eachpwd, @eachmod);
    if (open(ATTEND,"< $datafile")) {
	foreach (<ATTEND>){
	    chomp;
	    my ($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);
    }
    return ($date, $lastname, \@name, \@status, \@family, \@eachpwd, \@eachmod);
}

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