#! c:/perl/bin/perl
#
# chkbox.cgi
#
# 2.0 : 1/19/06 : Created.
#
# $Id: chkbox2.cgi,v 1.4 2006/01/19 05:44:34 Hideki Kanayama Exp $
# Copyright 2005-2006 Hideki Kanayama, All rights reserved

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

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

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

my $script = basename($0);

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

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

our $datafile = "checkbox.dat";
our $items = "items.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';

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

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

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

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

#オプション オプション名,背景色
our $options = '日曜日,red
月曜日,blue
火曜日,green
水曜日,lightgreen
木曜日,black
金曜日,orange
土曜日,lightblue
';

# 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 = $q->Vars;

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

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

my @option_list = grep !/^\s*$/, split /[\r\n]/, $options;

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);
    &error('名前は必ず入れてください')if ($in{name} eq "" and $adminonly_en == 0);
    
    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 @items = &get_items;
    my ($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};

    &lockfile;
    my $tmpfile = "tmp.$$";
    open(WRDAT,">$tmpfile");
    print WRDAT "0,$in{name},$update,\n";
    my $endatt = $#items + 1;
    my $i;
    for ($i=1;$i<=$endatt;$i=$i+1){
	my $pwdi = "pwd_$i";
	chomp($items[$i-1]);
	my $incheck = join('-', map {$in{"${i}_$_"}} (0 .. $#option_list));
	my $stcheck = join('-', map {$status[$i][$_]} (0 .. $#option_list));
	if ($incheck ne $stcheck) {
	    $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,$items[$i-1],$in{\"count_$i\"},$eachmod[$i],$eachpwd[$i],";
	my $x;
	for ($x=0;$x<=$#option_list;$x++) {
	    my $tmpix = "${i}_$x";
	    print WRDAT "$in{$tmpix}," ;
	}
	print WRDAT "\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, $count, $eachpwd, $eachmod) = &get_data;
    my (@name, @status, @count, @eachpwd, @eachmod);
    @name = @{$name};
    @status = @{$status};
    @count = @{$count};
    @eachpwd = @{$eachpwd};
    @eachmod = @{$eachmod};

    my @items_list = &get_items;

    print "$body_head";

    print "<form method=post action=\"$script\" name=\"checkbox\">\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 ($adminonly_en == 0){
	print "<P>最終更新者は　";
	print "<font color=\"#cc00cc\">$lastname</font>";
	print "、最終更新日は　";
	print "<font color=\"#cc00cc\">$date</font>です";
	print qq(<BR>更新者のお名前：<INPUT type=text name="name" size="20"><p>);
    } else {
	print "最終更新日：";
	print "<font color=\"#cc00cc\">$date</font><p>";
	print qq(管理用パスワード：<INPUT type=password name="pwd" size="20"><br>);
    }
    
    print qq(<INPUT type=submit name="fix" value="決定"><FONT COLOR="#006600">　←決定ボタンはここ</FONT>);

    my $select_items = $#option_list + 3 + $update_en + $count_en + $password_en;
    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\">合計</font></TH>\n";
	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 "</TR>\n";
    
    my $i = 1;
    my $totalcheckbox;
    my @vtotal;
    my $htotal;
    while ($#items_list >= 0){
	$htotal = 0;
	print "<TR>\n";
	
	my $j;
	for ($j=1;$j<=$table_colms;$j=$j+1){
	    if ($#items_list < 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_list[0]);
	    print "<font color=\"$item_font_color\">$items_list[0]</font>";
	    print "</TD>\n";

	    my @checked;
	    my $k;
	    my $tmpik;
	    for ($k=0;$k<=$#option_list;$k++) {
		$tmpik = "${i}_$k";
		$checked[$k] = 'checked' if ("$status[$i][$k]" eq 'on');
		my ($item,$color) = split /,/, $option_list[$k];
		if ($checked[$k] eq 'checked') {
		    print "<td bgcolor=\"$color\" align=center>";
		    $vtotal[$k]++;
		    $htotal++;
		} else {
		    print "<td align=center>";
		}
		print "<INPUT type=checkbox name=\"${i}_$k\" $checked[$k]></td>\n";
	    }

	    print "<td align=center>";
	    print "$htotal";
	    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>";
		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";
	    }
	    
	    $totalcheckbox = $totalcheckbox + $count[$i];
	    
	    shift(@items_list);
	    $i = $i + 1;
	    
	}
	print "</tr>\n";
    }
    
    print "<tr>";
    print "<td>合計</td>\n";
    my $rightcolspan = $update_en + $count_en + $password_en;
    my $leftcol = $cols - $rightcolspan - 3;
    for ($i=0;$i<=$leftcol;$i++){
	if ($vtotal[$i] ne '') {
	    print "<td align=center>$vtotal[$i]</td>\n";
	} else {
	    print "<td align=center>0</td>\n";
	}
    }

    my $ground_total = eval join('+', @vtotal);
    print "<td align=center>$ground_total</td>\n";

    if ($count_en == 1){
	print "<td colspan=\"$rightcolspan\" nowrap>合計 $totalcheckbox</td>\n";
    } else {
	for ($i=1;$i<=$rightcolspan;$i++){
	    print "<td>&nbsp;</td>\n";
	}
    }
    print "</tr>\n";
    
    print "</TABLE>\n";
    
    if ($password_en == 1){
	if ($adminonly_en) {
	    print "<font color=red size=-1>※</font><font size=-1>各項目のパスワードを入力して更新すると個別のパスワードを設定できます。</font><br>\n";
	} else {
	    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 @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;
    $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";
    
    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="items" value="$items" 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>管理人オンリーモード</td>
<td>
<input type=radio name=adminonly_en value=1 $adminonly_check[1]>管理人オンリーモード
<input type=radio name=adminonly_en value=0 $adminonly_check[0]>ユーザーモード<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 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=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=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=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=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=\"管理人設定だけを更新する\">";
    
# 項目
    
    my @items_list = &get_items;
    
    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 (@items_list){
	$_=shift(@items_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(@items_list);
	    print "<td><input type=text size=30 name=attname$i value=\"$_\"></td>\n";
	    $i = $i + 1;
	}
	print "</tr>\n";
    }
    
    my $extra_items = 3;
    my $extra_max;
    if ($i < $default_max - $extra_items){
	$extra_max = $default_max;
    } else {
	$extra_max = $i + $extra_items;
    }
    
    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(@items_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=\"update_items\" 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;
	$in{$_} =~ s/&#44;/,/g;
	$in{$_} =~ s/&lt;/</g;
	$in{$_} =~ s/&gt;/>/g;
	$in{$_} =~ s/\s*$//;
    }

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

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

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

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

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

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

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

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

#参加人数 1:有効 0:無効
\$count_en = $in{count_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 writems {
    &error('パスワードが違います。')if (! &checkadmin($in{pwd}));
    open (FILE,"> $items") || &error("$itemsを作成できません。");
    my $i;
    for ($i=1;$i<=$default_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_items}){
	&writems;
    } else {
	&wrsetup;
	&writems;
    }
    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) 2005-$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,"< $items")){
	@items_list = <ITEM>;
	map {chomp} @items_list;
	close(ITEM);
    }
    return (@items_list);
}

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