#! /usr/bin/perl
#
# chkbox2.cgi
#
# 2.007 : 12/5/07 : オプション削除＆チェック保存機能を追加
# 2.006 : 11/20/07 : ヘッダを繰り返し表示するオプションを追加
# 2.005 : 6/10/07 : 管理設定の項目登録ファイル表記を修正
# 2.004 : 12/11/06 : 項目削除時に以前のチェック状態を継承するよう修正
# 2.003 : 11/13/06 : 項目名の再挿入オプションを追加
# 2.002 : 10/20/06 : オプション名に<br>を入れられるように修正
# 2.001 : 3/6/06 : 項目作成、body_head, body_tailのバグを修正
# 2.0 : 1/19/06 : Created.
#
# http://www.hidekik.com
#
# $Id: chkbox2.cgi,v 1.12 2007/12/05 04:35:34 Hideki Kanayama Exp $
# Copyright 2005-2007 Hideki Kanayama, All rights reserved

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

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

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

my $script = basename($0);

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

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

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

#項目名の再挿入 指定数のカラム毎に項目名表示
our $repeat_item = 10;

#ヘッダの繰り返し表示
our $header_repeat = 20;

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

    &header_disp;
    
    my $i = 1;
    my $totalcheckbox;
    my @vtotal;
    my $htotal;
    while ($#items_list >= 0){
	$htotal = 0;

	if (($i-1) % $header_repeat == 0 and $i != 1){
	    &header_disp;
	}
	    
	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;
	    }

	    chomp($items_list[0]);
	    print "<TD NOWRAP BGCOLOR=\"$item_bg_color\">";
	    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++) {
		if ($k % $repeat_item == 0 and $k != 0){
		    print "<TD NOWRAP BGCOLOR=\"$item_bg_color\">";
		    print "<font color=\"$item_font_color\">$items_list[0]</font>";
		    print "</TD>\n";
		}
		$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>";
    my $sumname = '合計';
    print "<td>$sumname</td>\n";
    my $rightcolspan = $update_en + $count_en + $password_en;
    my $leftcol = $cols - $rightcolspan - 3;
    for ($i=0;$i<=$leftcol;$i++){
	if ($i % $repeat_item == 0 and $i != 0){
	    print "<td align=center>$sumname</td>\n";
	} 
	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>
<table cols=2 border=0 width="100%">
<tr><td width="5%" valign="top">
<textarea name='options' wrap=soft cols=20 rows=10>$options</textarea>
</td>
<td valign="top">
各行の半角カンマで区切った第三引数として「delete」と記述するとそのオプションは削除され、表\にあるそれより右の列のオプションにチェックされていたチェックはそのまま左詰されます。<br>
例）<br>
参加,red<br>
不参加,#ff0000,delete<br>
未定,green<br>
上記の例のようにすると不参加が表\から無くなり、未定の列がそのまま左詰されます。<br>
「delete」を使わずその行をテキストボックスの中で削除してもそのオプションは削除されますが、そのオプションのチェックは左詰されず以前の物がそのまま残ります。
</td>
</tr>
</table>
</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 width="20%">項目名の再挿入</td>
<td>指定のカラム数毎に項目名を表\示<br>
<input type=text name="repeat_item" value="$repeat_item" size=5></td>
</tr>

<tr>
<td width="20%">ヘッダの再挿入</td>
<td>指定の行数毎にヘッダを表\示<br>
<input type=text name="header_repeat" value="$header_repeat" size=5></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=hidden name=extra_max value=$extra_max>\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}));

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

    $in{options} = &update_options($in{options});

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

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

#項目名の再挿入 指定数のカラム毎に項目名表\示
\$repeat_item = $in{repeat_item};

#ヘッダの繰り返し表示
\$header_repeat = $in{header_repeat};

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

    my @org_list = &get_items;

    open (FILE,"> $items") || &error("$itemsを作成できません。");
    my $i;
    my @dellist;
    my $valid_items = -1;
    for ($i=1;$i<=$in{extra_max}+3;$i=$i+1){
	my $attname = 'attname' . $i;
	if ($in{$attname} ne ''){
	    print FILE $valid_items+2 . ",$in{$attname}\n";
	    $valid_items++;
	} else {
	    push @dellist, $i;
	}
    }
    close(FILE);

    if ($#dellist != -1 and $#org_list != $valid_items){
	&lockfile;
	my $tmpfile = "tmp.$$";
	if (open(ORG, "< $datafile")){
	    flock ORG, 1;
	    open(WRDAT,"> $tmpfile");
	    my $i = 0;
	    while (<ORG>){
		my (@line) = split /,/;
		if (! grep /^$line[0]$/, @dellist){
		    shift(@line);
		    print WRDAT "$i,", join ',', @line;
		    $i++;
		}
	    }
	    close(ORG);
	    close(WRDAT);
	    rename("$tmpfile","$datafile");
	}
	chmod(0666,"$datafile");
	&unlockfile;
    }
}

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\">chkbox2.cgi 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")){
	flock ITEM, 1;
	@items_list = <ITEM>;
	close(ITEM);
	map {chomp;s/^\d+\s*,\s*//} @items_list;
    }
    return (@items_list);
}

sub get_data {
    my ($date, $lastname);
    my (@name, @status, @count, @eachpwd, @eachmod);
    if (open(CHECKBOX,"< $datafile")) {
	flock CHECKBOX, 1;
	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");
    }
}

sub header_disp {
    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++) {
	    if ($j % $repeat_item == 0 and $j != 0) {
		print "<TH NOWRAP><font color=\"$option_font_color\">項目</font></TH>\n";
	    }
	    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";
}

sub update_options {
    my $options = shift;
    my @new_options;
    my @del_lines;
    my $i = 0;
    foreach (grep !/^\s*$/, split /[\r\n]/, $options){
	my ($item,$color,$delete) = split /,/;
	if ($delete eq 'delete'){
	    push @del_lines, $i;
	} else {
	    push @new_options, "$item,$color";
	} 
	$i++;
    }
    $options = join "\n", @new_options;
    @del_lines = map {$_+5} @del_lines;

    &lockfile;
    my $tmpfile = "tmp.$$";
    open (ORGDATA, "< $datafile");
    open(WRDAT,">$tmpfile");
    while (<ORGDATA>){
	chomp;
	my @line = split /,/;
	if ($line[0] == 0){
	    print WRDAT "$_\n";
	    next;
	}
	my @new_check;
	for ($i=0;$i<=$#line;$i++){
	    unless (grep /^$i$/, @del_lines){
		push @new_check, $line[$i];
	    }
	}
	print WRDAT join ',', @new_check;
	print WRDAT "\n";
    }
    close(WRDAT);
    close(ORGDATA);
    rename("$tmpfile","$datafile");

    &unlockfile;

    return $options;
}