#! /usr/bin/perl
#
# attlist3.cgi
#
# 5.007 : 2/2/07 : 参加者ファイルを使わないように修正
# 5.006 : 1/24/07 : 名前欄の半角カンマのバグを修正
# 5.005 : 8/5/06 : パスワード無効モードを追加
# 5.004 : 4/23/06 : パスワードがマッチすると更新日を更新するように修正
# 5.003 : 4/16/06 : 変更なしでも更新者、更新日が更新されるのを修正
# 5.002 : 3/19/06 : 参加人数制限、更新締め切り機能を追加
# 5.001 : 3/6/06 : 追加時に更新情報が正しく表示されるように修正
# 5.0 : 3/5/06 : Upgread from attlist2.cgi
#
# http://www.hidekik.com/
#
# $Id: attlist3.cgi,v 1.9 2007/02/02 02:07:49 Hideki Kanayama Exp $
# Copyright(c) 1997-2006, Hideki Kanayama, All rights reserved.

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

my $version = "5.007";
my $lastupdatedyear = "2007";

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

my $script = basename($0);

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

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

our $datafile = "attend.dat";

# 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';

# option cell back ground color
our $option_bg_color = "#ffcc33";

# option cell font color
our $option_font_color = "black";

# item cell back ground color
our $item_bg_color = "#66ff99";

# item cell font color
our $item_font_color = "black";

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

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

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

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

#削除チェック 1:有効 0:無効
our $delcheck_en = 1;

#定員設定 1:有効 0:無効
our $att_limit_en = 0;
our $att_limit_num = 10;

#締め切り 1:有効 0:無効
our $deadline_en = 0;
our $deadline_year = 2006;
our $deadline_month = 3;
our $deadline_day = 25;
our $deadline_hour = 0;
our $deadline_min = 0;

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

#カウント 1:有効 0:無効
our $count_en = 0;

#管理人オンリーモード 1:有効 0:無効
our $adminonly_en = 0;

#オプション オプション名,背景色
our $options = '出席,red
欠席,blue
未定,green
';

# 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 = '
';

#時間設定 1:localtime, 0:offset from GMT
our $localtime_en = 1;
our $offset_from_gmt = 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 = &postprocess($q->Vars);

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

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

my $deadline_time = timelocal(0,$deadline_min,$deadline_hour,$deadline_day,$deadline_month-1,$deadline_year);
my $now = timelocal(localtime);
    
my @items = &get_items;
my ($maxnum, $date, $lastname, $name, $status, $count, $eachpwd, $eachmod) = &get_data;
my (@name, @status, @count, @eachpwd, @eachmod);
@name = @{$name};
@status = @{$status};
@count = @{$count};
@eachpwd = @{$eachpwd};
@eachmod = @{$eachmod};

my @valid_list = grep /^0$/, @status;
my $attnum = $#valid_list + 1;
my $hit_limit = 0;
my $update_button = 1;

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 (!&checkadmin($in{pwd}) and $adminonly_en == 1);

    if ($deadline_en and $now > $deadline_time){
	&error('締め切り日時を過ぎているので追加、変更できません。');
    }


    if ($in{add} ne ''){
	&newregister;
    } else {
	&update;
    }

    &extraupdate;

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

sub newregister {
    &error('名前は必ず入れてください')if ($in{newname} eq "");
    &error('パスワードは必ず入れてください')if ($in{newpwd} eq "" and $password_en);
    if ($att_limit_en and $attnum >= $att_limit_num){
	&error('締め切り人数に達しているので追加できません。。');
    }
    &lockfile;
    my ($maxnum, @dummy) = &get_data;
    open (TMPFILE, "> tmp.$$") or &error("tempfileを作成できません。");
    print TMPFILE "0,$in{newname},$update\n";
    if (open(DAT,"< $datafile")) {
	my $i = 0;
	while (<DAT>){
	    print TMPFILE "$_" if ($i != 0);
	    $i++;
	}
	close(DAT);
    }
    $maxnum++;
    $in{newoption} = 0 if ($in{newoption} eq '');
    my $encpwd = $password_en ? &makecrypt($in{newpwd}) : '';
    print TMPFILE "$maxnum,$in{newname},$in{newoption},$in{newcount},$update,$encpwd\n";
    close(TMPFILE);
    rename "tmp.$$", $datafile;
    &unlockfile;
}

sub update {

    &lockfile;
    my $tmpfile = "tmp.$$";
    open(WRDAT,">$tmpfile") or &error("$tmpfileが開けません。");
    my $endatt = $#items + 1;
    my $i;
    for ($i=1;$i<=$endatt;$i=$i+1){
	my $btni = "btn_$i";
	if ($in{$btni} ne ''){
	    $lastname = $name[$i];
	    last;
	}
    }
    print WRDAT "0,$lastname,$update,\n";
    my $newstatus;
    my $newcount;
    my $modified = 0;
    for ($i=1;$i<=$endatt;$i=$i+1){
	my $pwdi = "pwd_$i";
	my $btni = "btn_$i";
	$newstatus = $status[$i];
	$newcount = $count[$i];
	chomp($items[$i-1]);
	if ($in{$btni} ne '' and 
	    ($password_en == 1 && 
	     &checkcrypt("$in{$pwdi}","$eachpwd[$i]"))) {
	    $eachmod[$i] = "$update";
	    $modified = 1;
	}
	if (($in{$i} ne $status[$i] or 
	     ($in{"count_$i"} != $count[$i] and $count_en))
	    and $in{$btni} ne ''){
	    $eachmod[$i] = "$update";
	    $modified = 1;
	    if ($password_en == 1 && "$eachpwd[$i]" ne '' &&
		!&checkcrypt("$in{$pwdi}","$eachpwd[$i]")) {
		close(WRDAT);
		unlink("$tmpfile");
		&error("$name[$i]を変更しようとしましたが、そのパスワードが違います。");
	    }
	    $newstatus = $in{$i};
	    $newcount = $in{"count_$i"};
	    if ($att_limit_en and $attnum >= $att_limit_num and $newstatus eq '0'){
		close(WRDAT);
		unlink("$tmpfile");
		&error('締め切り人数に達しているので追加、変更できません。');
	    }
	}
	if ($password_en == 1 && ("$in{$pwdi}" ne '' && "$eachpwd[$i]" eq '')){
	    $eachpwd[$i] = &makecrypt("$in{$pwdi}");
	}
	print WRDAT "$i,$items[$i-1],$newstatus,$newcount,$eachmod[$i],$eachpwd[$i]\n";
    }

    close(WRDAT);
    if ($modified){
	rename("$tmpfile","$datafile");
    } else {
	unlink "$tmpfile";
    }

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

}

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

    &htmlhead($title);

    if ($att_limit_en and $attnum >= $att_limit_num){
	$hit_limit = 1;
    }
    if ($deadline_en and $now >= $deadline_time){
	$delcheck_en = 0;
	$password_en = 0;
	$update_button = 0;
    }

    print "$body_head";

    print "<form method=post action=\"$script\" name=\"attlist3\">\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);

    if ($deadline_en == 1){
	printf("更新締め切り：<font color=\"blue\">%4d年%02d月%02d日%02d時%02d分</font><br>\n",$deadline_year,$deadline_month,$deadline_day,$deadline_hour,$deadline_min);
    }
    if ($att_limit_en){
	print "参加者上限：<font color=\"blue\">$att_limit_num人</font><br>\n";
    }
    print "最終更新日：";
    print "<font color=\"#cc00cc\">$date</font><br>";
    print "最終更新者：";
    print "<font color=\"#cc00cc\">$lastname</font><p>";
    
    my @option_list = grep !/^\s*$/, split /[\r\n]/, $options;

    my $select_items = $#option_list + 2 + $delcheck_en + $update_en + $count_en + $password_en + $update_button;
    my $cols = $table_colms * $select_items;

    print "<TABLE BORDER COLS=$cols WIDTH=\"18%\">\n";
    print "<TR bgcolor=\"$option_bg_color\">\n";
    my $i;
    for ($i=1;$i<=$table_colms;$i=$i+1){
	print "<TH NOWRAP><font color=\"$option_font_color\">名前</font></TH>\n";
	my $j;
	for ($j=0;$j<=$#option_list;$j++) {
	    my ($option,$color) = split /,/, $option_list[$j];
	    print "<TH NOWRAP><font color=\"$option_font_color\">$option</font></TH>\n";
	}
	print "<TH NOWRAP><font color=\"$option_font_color\">削除</TH>\n" if ($delcheck_en == 1);
	print "<TH NOWRAP><font color=\"$option_font_color\">人数</font></TH>\n" if ($count_en == 1);
	print "<TH NOWRAP><font color=\"$option_font_color\">更新日</font></TH>\n" if ($update_en == 1);
	print "<TH NOWRAP><font color=\"$option_font_color\">パスワード</font></TH>\n" if ($password_en == 1);
	print "<TH NOWRAP><font color=\"$option_font_color\">&nbsp;</font></TH>\n" if ($update_button);
    }
    print "</TR>\n";
    
    my $i = 1;
    my $totalattlist3;
    my @total;
    while ($#items >= 0){
	if ($status[$i] eq 'deleted'){
	    shift @items;
	    $i++;
	    next;
	}
	print "<TR>\n";
	
	my $j;
	my @checked;
	for ($j=1;$j<=$table_colms;$j=$j+1){
	    if ($#items < 0) {
		my $h;
		for ($h=0;$h<$select_items;$h=$h+1){
		    print "<td>&nbsp</td>\n";
		}
		last;
	    }
	    
	    print "<TD NOWRAP BGCOLOR=\"$item_bg_color\">";
	    chomp($items[0]);
	    print "<font color=\"$item_font_color\">$items[0]</font>";
	    print "</TD>\n";

	    $checked[$status[$i]] = 'checked';

	    my $k;
	    for ($k=0;$k<=$#option_list;$k++) {
		my ($item,$color) = split /,/, $option_list[$k];
		if ($checked[$k] eq 'checked') {
		    print "<TD bgcolor=\"$color\" align=center>";
		    $total[$k]++;
		} else {
		    print "<td align=center>";
		}
		print "<INPUT type=radio name=\"$i\" value=$k $checked[$k]></TD>\n";
	    }

	    if ($delcheck_en == 1){
		print "<td align=center>";
		print "<INPUT type=radio name=\"$i\" value=\'deleted\'>";
		print "</td>\n";
	    }
	    
	    if ($count_en == 1){
		$count[$i] = 0 if (!$count[$i]);
		print "<td>";
		print "<INPUT type=text name=\"count_$i\" value=\"$count[$i]\" size=2>";
		print "</td>\n";
	    }
	    
	    if ($update_en == 1){
		print "<td nowrap>";
		if ($eachmod[$i] =~ /(\d+)_(\d+)_(\d+)_(\d+)_(\d+)/) {
		    print "$1年$2月$3日$4時$5分";
		} else {
		    print "&nbsp;";
		}
		print "</td>\n";
	    }
	    
	    if ($password_en == 1){
		print "<td>";
		if ($hit_limit and $status[$i] eq '0' or $hit_limit == 0) {
		    print "<INPUT type=password name=\"pwd_$i\" size=10>";
		} else {
		    print "&nbsp;";
		}
		print "</td>\n";
	    } else {
		print "<INPUT type=hidden name=\"pwd_$i\" value=''>\n";
	    }

	    if ($update_button){
		print "<td>";
		if ($hit_limit and $status[$i] eq '0' or $hit_limit == 0) {
		    print "<INPUT type=submit name=\"btn_$i\" value=\"更新\">";
		} else {
		    print "&nbsp;";
		}
		print "</td>\n";
	    }

	    $totalattlist3 = $totalattlist3 + $count[$i];
	    
	    shift(@items);
	    $i = $i + 1;
	    
	}
	print "</tr>\n";

    }
    
    print "<tr>";
    print "<td>合計</td>\n";
    my $rightcolspan = $delcheck_en + $update_en + $count_en + $password_en + $update_button;
    my $leftcol = $cols - $rightcolspan - 2;
    for ($i=0;$i<=$leftcol;$i++){
	if ($total[$i] ne '') {
	    print "<td align=center>$total[$i]</td>\n";
	} else {
	    print "<td align=center>0</td>\n";
	}
    }
    if ($count_en == 1){
	print "<td colspan=\"$rightcolspan\" nowrap>合計 $totalattlist3</td>\n";
    } else {
	for ($i=1;$i<=$rightcolspan;$i++){
	    print "<td>&nbsp;</td>\n";
	}
    }
    print "</tr>\n";

    # Display when
    # time limit is not reached or
    #     $udpate_button = 0 when time limit is reached
    # attend limit is not reached
    #     $hit_limit = 1 when attend limit is reached
    if (($update_button == 1 and $deadline_en) or
        ($hit_limit == 0 and $att_limit_en) or
        (($att_limit_en == 0) and ($deadline_en == 0))){

	print "<tr>\n";
	print "<td>";
	print qq(<input type=text size=10 name=newname>\n);
	print "</td>";
	my $k;
	for ($k=0;$k<=$#option_list;$k++) {
	    my ($item,$color) = split /,/, $option_list[$k];
	    print "<td align=center>";
	    print "<INPUT type=radio name=\"newoption\" value=$k></TD>\n";
	}
	
	if ($delcheck_en == 1){
	    print "<td>";
	    print "&nbsp;";
	    print "</td>\n";
	}
	
	if ($count_en == 1){
	    print "<td>";
	    print "<INPUT type=text name=\"newcount\" size=2>";
	    print "</td>\n";
	}
	
	if ($update_en == 1){
	    print "<td>";
	    print "&nbsp;";
	    print "</td>\n";
	}
	
	if ($password_en == 1){
	    print "<td>";
	    print "<INPUT type=password name=\"newpwd\" size=10>";
	    print "</td>\n";
	} else {
	    print "<INPUT type=hidden name=\"newpwd\" value=''>\n";
	}
	
	print "<td>";
	print "<INPUT type=submit name=\"add\" value=\"追加\">";
	print "</td>\n";
    
	print "</tr>\n";
    }
    
    print "</TABLE>\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 @setup_check;
    my @update_check;
    my @password_check;
    my @count_check;
    my @update1_file_check;
    my @update2_file_check;
    my @localtime_check;
    my @adminonly_check;
    my @att_limit_check;
    my @deadline_check;
    $setup_check[$setup_en] = "checked";
    $update_check[$update_en] = "checked";
    $password_check[$password_en] = "checked";
    $count_check[$count_en] = "checked";
    $update1_file_check[$update1_file_en] = "checked";
    $update2_file_check[$update2_file_en] = "checked";
    $localtime_check[$localtime_en] = "checked";
    $adminonly_check[$adminonly_en] = "checked";
    $att_limit_check[$att_limit_en] = "checked";
    $deadline_check[$deadline_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>ロックファイル</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>ヘッダーセルの色</td>
<td>
オプションセルの背景色<input type=text name="option_bg_color" value="$option_bg_color" size=15><br>
オプションセルのフォント色<input type=text name="option_font_color" value="$option_font_color" size=15><br>
項目セルの背景色<input type=text name="item_bg_color" value="$item_bg_color" size=15><br>
項目セルのフォント色<input type=text name="item_font_color" value="$item_font_color" size=15><br>
</td>
</tr>

<tr>
<td width="20%">オプション設定</td>
<td width="80%">
選択可能\なオプションを「オプション名,背景色」で並べてください。<br>
例）<br>
参加,red<br>
不参加,#ff0000<br>
未定,green<br>
<textarea name='options' wrap=soft cols=20 rows=10>$options</textarea>
</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=count_en value=1 $count_check[1]>有効
<input type=radio name=count_en value=0 $count_check[0]>無効<br>
</td>
</tr>

<tr>
<td>参加人数設定</td>
<td>
<input type=radio name=att_limit_en value=1 $att_limit_check[1]>有効
<input type=radio name=att_limit_en value=0 $att_limit_check[0]>無効<br>
参加人数上限<input type=text name=att_limit_num value=$att_limit_num size=4>
</td>
</tr>

<tr>
<td>締め切り時間</td>
<td>
有効にすると締め切り日時以降に更新できなくなります。<br>
<input type=radio name=deadline_en value=1 $deadline_check[1]>有効
<input type=radio name=deadline_en value=0 $deadline_check[0]>無効<br>
締め切り<input type=text name="deadline_year" value="$deadline_year" size=5>年
<input type=text name="deadline_month" value="$deadline_month" size=3>月
<input type=text name="deadline_day" value="$deadline_day" size=3>日
<input type=text name="deadline_hour" value="$deadline_hour" size=3>時
<input type=text name="deadline_min" value="$deadline_min" size=3>分
</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>
<input type=radio name=localtime_en value=0 $localtime_check[0]>GMTからのオフセット
<input type=radio name=localtime_en value=1 $localtime_check[1]>ローカルタイム<br>
GMTからのオフセットに設定した場合、GMTより<input type=text name=offset_from_gmt value="$offset_from_gmt" size=2>時間(日本：+9時間)
</td>
</tr>

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


</table>

END_SETUP

print "<p><input type=submit name=\"update_admin\" value=\"管理人設定を更新する\">";
    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}";

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

# option cell back ground color
\$option_bg_color = "$in{option_bg_color}";

# option cell font color
\$option_font_color = "$in{option_font_color}";

# item cell back ground color
\$item_bg_color = "$in{item_bg_color}";

# item cell font color
\$item_font_color = "$in{item_font_color}";

#オプション オプション名,背景色
\$options = '$in{options}';

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

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

#定員設定 1:有効 0:無効
\$att_limit_en = $in{att_limit_en};
\$att_limit_num = $in{att_limit_num};

# 更新締め切り 1:on 0:off
\$deadline_en = $in{deadline_en};
\$deadline_year = $in{deadline_year};
\$deadline_month = $in{deadline_month};
\$deadline_day = $in{deadline_day};
\$deadline_hour = $in{deadline_hour};
\$deadline_min = $in{deadline_min};

#パスワード保護 1:有効 0:無効
\$password_en = $in{password_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}';

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

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

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

    close(SETUP);

}


###################### 参加者ファイル作成 ############################
sub setup_update {
    &wrsetup;
    print "Location: $script\n\n";
}

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

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(ADMINFILE,"< $admindat")){
    my $filepwd = <ADMINFILE>;
    close(ADMINFILE);
    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_items {
    my @items_list;
    if (open(ITEM,"< $datafile")){
	flock ITEM, 1;
	while (<ITEM>){
	    push @items_list, (split /,/)[1];
	}
	close(ITEM);
	shift @items_list;
    }
    return (@items_list);
}

sub get_data {
    my ($date, $lastname);
    my (@name, @status, @count, @eachpwd, @eachmod);
    my ($key,$name,$value,$count,$moddate,$pwd);
    if (open(ATTLIST3,"< $datafile")) {
	foreach (<ATTLIST3>){
	    chomp;
	    ($key,$name,$value,$count,$moddate,$pwd)=split(/,/);
	    if ($key == 0){
		$date = $value;;
		$lastname = $name;
	    } else {
		$name[$key] = "$name";
		if ($value eq '') {
		    $status[$key] = "0";
		} else {
		    $status[$key] = "$value";
		}
		$count[$key] = "$count";
		$eachpwd[$key] = "$pwd";
		$eachmod[$key] = "$moddate";
	    }
	}
	close(ATTLIST3);
    }
    return ($key, $date, $lastname, \@name, \@status, \@count, \@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");
    }
}

sub postprocess {
    my (%in) = @_;
    my ($key, $value);
    while (($key,$value)=each %in){
	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/,/&\#44;/g;
	$in{"$key"}=$value;
    }
    return(%in);
}