#! /usr/bin/perl
#
# jl3.cgi
#
# 3.003 : 6/15/08 : タグ機能を修正、削除機能を修正
# 3.002 : 3/12/08 : Locationタグを修正
# 3.001 : 10/10/05 : Added option to attach numbers to the attendees
# 3.0 : 10/9/05 : Created as a non-SSI version
# 
# $Id: jl3.cgi,v 1.11 2008/06/14 18:12:17 Hideki Kanayama Exp $
# Copyright(c) 2005-2008, Hideki Kanayama, All rights reserved.

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

my $version='3.003';
my $lastupdatedyear='2008';

my $script = basename($0);

my $setupfile = "jl_setpu.pl";

my $tmpfile = "tmp.$$";
my $admindat = "adminpwd.dat";
my $charset = "Shift_JIS";
my $lang = 0;

#####################################

our $datafile = "joinlist.dat";
our $lockfile = "lockfile.dat";

our $backlink_en = 1;
our $backlink = "..";
our $backlink_name = ('戻る','Back')[$lang];

our $bgimage_en = 0;
our $bgcolor = 'white';
our $bgimage_file = '';

our $title = ('パーティー参加表明表３','Party signup board 3')[$lang];
our $logo = ".";
our $logo_style = '';
our $logo_color = 'black';
our $logo_size = '+1';
our $logo_face = '';
our $logo_sel = 0; # 0:default, 1:text, 2:logo, 3:style sheet
our $logo_loc=1;  # 0:left, 1:center, 2:right

our $attendee = ('参加者名','attendee')[$lang];
our $comment = ('意気込み／コメント','Comment')[$lang];
our $password = ('パスワード','Password')[$lang];
our $register = ('登録','Register')[$lang];
our $attendee_color = 'black';
our $comment_color = 'black';
our $password_color = 'black';
our $register_color = 'black';
our $attendee_bgcolor = 'white';
our $comment_bgcolor = 'white';
our $password_bgcolor = 'white';
our $register_bgcolor = 'white';

our $body_width = 100;

our $name_width = 20;
our $comment_width = 60;
our $pwd_width = 10;
our $button_width = 10;

our $name_text_width = 20;
our $comment_text_width = 50;
our $pwd_text_width = 10;

our $setup_en = 1;
our $setup_name = ('管理用','admin')[$lang];

our $tag_en = 0;

our $number_en = 0;

our $style_sheet_en = 1;
our $style_sheet = '
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
';

our $head_insert_en = 0;
our $head_insert = '<META NAME="description" CONTENT="Joinlist 3">';

our $body_insert1_en = 0;
our $body_insert1 = '';
our $body_insert2_en = 0;
our $body_insert2 = '';
our $body_insert3_en = 0;
our $body_insert3 = '';

##########################################

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} eq 'wradminpwd'){
    &wradminpwd($in{pwd});
  } else {
    &setadminpwd;
  }
}

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

sub write {    
    my @allline;
    my $finnum;
    my @rest;
    if (open(DAT,"< $datafile")){
	@allline=<DAT>;
	close(DAT);
	($finnum,@rest) = split(/,/,$allline[$#allline]);
    } else {
	$finnum = 0;
    }
    
    my $num;
    my $pwd;
    if ($in{reg} ne ''){
	&error(('パスワードを入力してください','Enter password')[$lang]) if ($in{pwd} eq '');
	if ($in{name} ne ''){
	    open(WR,">> $datafile");
	    $num = $finnum + 1;
	    $pwd = &makecrypt($in{pwd});
	    print WR "$num,$in{name},,$in{comment},$pwd\n";
	    close(WR);
	}
    } else {
	
	open(DAT,"< $datafile");
	open(WR,"> $tmpfile");
	
	while(<DAT>){
	    chomp;
	    my ($num,$name,$join,$comment,$pwd)=split(/,/);
	    my $cancel = 'cancel' . $num;
	    my $pwdnum = 'pwd' . $num;
	    if($in{$cancel} ne ''){
		unless (&checkcrypt($in{$pwdnum},$pwd) && ($pwd ne '')){
		    close(DAT);
		    close(WR);
		    &error(('パスワードが違います。','Wrong Password')[$lang]);
		}
	    } else {
		print WR "$num,$name,$join,$comment,$pwd\n";
	    }
	}
	
	close(DAT);
	close(WR);
	
	rename("$tmpfile","$datafile");
    }
    
    chmod(0666,"$datafile");

#    print $q->redirect(-url=>"$script");
    print "Location: $script\n\n";
}

sub display {
    
    my $titleprint=&titleprint("$title","$logo","$logo_style","$logo_color","$logo_size","$logo_face","$logo_sel","$logo_loc");

    &htmlhead($title);

    print "$body_insert1\n" if ($body_insert1_en);
    print "$titleprint\n";
    print "$body_insert2\n" if ($body_insert2_en);

    print "<FORM type=\"text\" method=post action=\"$script\">\n";

    if ($backlink_en or $setup_en){
	print "<table cols=2 border=0 style=\"border:0px\" width=\"100%\">\n";
	print "<tr><td align=left>\n";
	print "<a href=\"$backlink\">$backlink_name</a>\n" if ($backlink_en);
	print "</td>\n";
	print "<td><td align=right>\n";
	print "<a href=\"$script?mode=setup\">$setup_name<a/>\n" if ($setup_en == 1);
	print "</td></tr></table>\n";
    }

    print "<input type=hidden name=mode value=write>\n";
    
    my $cols;
    if ($number_en){
	$cols = 5;
    } else {
	$cols = 4;
    }
    print "<table border cols=$cols width=\"100%\">";
    print "<tr>\n";
    print "<th width=1 bgcolor=\"$attendee_bgcolor\">&nbsp;</th>\n" if ($number_en);
    print "<th nowrap width=\"$name_width%\" bgcolor=\"$attendee_bgcolor\">";
    print "<font color=\"$attendee_color\">$attendee</font>";
    print "</th>\n";
    print "<th width=\"$comment_width%\" bgcolor=\"$comment_bgcolor\">";
    print "<font color=\"$comment_color\">$comment";
    print "</th>\n";
    print "<th width=\"$pwd_width%\" nowrap bgcolor=\"$password_bgcolor\">";
    print "<font color=\"$password_color\">$password";
    print "</th>\n";
    print "<th width=\"$button_width%\" nowrap bgcolor=\"$register_bgcolor\">&nbsp;</th></tr>\n";

    my $delete_name = ('取り消し','delete')[$lang];
    if (open(DAT,"< $datafile")){
	my $i=1;
	while(<DAT>){
	    chomp;
	    my ($num,$name,$join,$comment,$pwd)=split(/,/);
	    $comment =~ s/^$/\&nbsp/;
	    $comment =~ s/&lt;/</ig if ($tag_en);
	    $comment =~ s/&gt;/>/ig if ($tag_en);
	    if ($join eq 'off' or $name =~ /^\s*$/ or $comment =~ /^\s*$/){
		next;
	    }
	    
	    print "<tr>";
	    print "<td width=1 nowrap>&nbsp;$i&nbsp;</td>\n" if ($number_en);
	    print "<td width=\"$name_width%\">$name</td>\n";
	    print "<td width=\"$comment_width%\">$comment</td>\n";
	    print "<td width=\"$pwd_width%\"><input type=password name=pwd$num size=$pwd_text_width></td>\n";
	    print "<td width=\"$button_width%\"><input type=\"submit\" name=\"cancel$num\" value=\"$delete_name\"></a></td>\n";
	    print "</tr>\n";
	    $i++;
	}
    }
	
    print "<tr>\n";
    print "<td width=1>&nbsp;</td>\n" if ($number_en);
    print "<td><input type=\"text\" size=$name_text_width name=\"name\"></td>\n";
    print "<td><input type=\"text\" name=\"comment\" size=\"$comment_text_width\"></td>\n";
    print "<td><input type=password name=pwd size=$pwd_text_width></td>\n";
    print "<td><input type=\"submit\" name=\"reg\" value=\"$register\"></td></tr>\n";
    print "</form>\n";
    
    print "</table>\n";
    close(DAT);
    &copyright;
    
    print "$body_insert3\n" if ($body_insert3_en);

    &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';
  my $msg = ('管理者用パスワードを入力してください','Please enter admin password')[$lang];
  &htmlhead($msg);
  
  print "<form name=\"setpwd\" action=\"$script\" method=\"post\">\n";
  
  print "<center>$msg<br>\n";
  print "<input type=password name=\"pwd\" size=20>\n";
  if ($in{mode} eq 'setup'){
    print "<input type=submit name=\"sub\" value=\"", ('入力','Input')[$lang], "\">\n";
    print "<input type=hidden name=\"mode\" value=\"setup\">\n";
  } else {
    print "<input type=submit name=\"sub\" value=\"", ('設定','Set')[$lang], "\">\n";
    print "<input type=hidden name=\"mode\" value=\"wradminpwd\">\n";
  }
  
  print "<p>";
  &copyright;
  &htmltail;
  exit;
}

sub wradminpwd {

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

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

sub postprocess {
    my $key;
    foreach $key (keys %in){
	my $br;
	if ($key !~ /insert/){
	    $in{$key} =~ s/</&lt;/g; 
	    $in{$key} =~ s/>/&gt;/g;
	}
	$br = "<br>";
	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 checkadmin {
  my $pwd = shift;
  
  if (open(FILE,"< $admindat")){
    my $filepwd = <FILE>;
    close(FILE);
    my $inpwd = crypt($pwd,$filepwd);
    return ("$inpwd" eq "$filepwd");
  } else {
    &error((('パスワードファイルが存在しません','Cannot find password file')[$lang]));
  }
}

sub error {
  my ($msg) = shift;
  &unlockfile;
  &htmlhead($msg);
  print "<br><center>$msg";
  print "<p>";
  &backbutton;
  print "</center>\n";
  &copyright;
  &htmltail;
  exit;
}

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

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

sub titleprint {

    my ($title,$logo,$style,$color,$size,$face,$sel,$loc)=@_;
    my @location = ('left','center','right');

    my $titleline;
    if ($sel == 0) {
	$titleline = "<div align=\"$location[$loc]\"><h2>$title</h2></div>";
    } elsif ($sel == 1){
	$titleline = "<div align=\"$location[$loc]\"><font size=\"$size\" color=\"$color\" face=\"$face\">$title</font></div><br>";
    } elsif ($sel == 2){
	$titleline = "<div align=\"$location[$loc]\"><img src=\"$logo\" alt=\"$title\"></div><br>";
    } elsif ($sel == 3){
	$titleline = "<div align=\"$location[$loc]\" style=\"$style\">$title</div><br>";
    } elsif ($sel == 4){
	$titleline = "";
    }
    
    return($titleline);
}

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

  print $q->header(-type=>'text/html',-charset=>$charset);

  print "<html>\n";
  print "<HEAD>\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 "<div align=\"right\"><i><font color=\"gray\">jl3.cgi Ver. $version ";
    print "Copyright(C) 2002-$lastupdatedyear, <a href=\"$mysite\" target=\"_blank\">hidekik.com</a></font></i></div>\n";
}

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

sub setup {
  my $subname = 'setup';
  &setadminpwd if ($in{pwd} eq '');
  &error(('管理用パスワードが違います。','Wrong admin password')[$lang]) unless &checkadmin($in{pwd});

  &htmlhead($title);
  
  my %check;
  
  $check{backlink}[$backlink_en] = "checked";
  $check{bgimage}[$bgimage_en] = "checked";
  $check{logo_sel}[$logo_sel] = "checked";
  $check{logo_loc}[$logo_loc] = "checked";
  $check{setup}[$setup_en] = "checked";
  $check{tag}[$tag_en] = "checked";
  $check{number}[$number_en] = "checked";
  $check{style_sheet}[$style_sheet_en] = "checked";
  $check{head_insert}[$head_insert_en] = "checked";
  $check{body_insert1}[$body_insert1_en] = "checked";
  $check{body_insert2}[$body_insert2_en] = "checked";
  $check{body_insert3}[$body_insert3_en] = "checked";
    
  print "<form name=\"setup\" action=\"$script\" method=\"post\">\n";
  print "<input type=hidden name=\"mode\" value=\"setupwrite\">\n";
  print "<input type=hidden name=\"pwd\" value=\"$in{pwd}\">\n";

  my $notice = ("<li>
セットアップリンクを非表\示にしている場合は、$script?mode=setupからパスワードを入力してこのページに入ってください。
</li>
<li><font color=red>数字やカラー指定は必ず半角で指定してください。全角やブランクだとＣＧＩが起動しなくなります。</font>万一間違って全角で書いてしまった場合は、$setupfileをエディタで開きその場所を半角に正しく修正してください。それで直ります。</li>",
"<li>If you disable to display admin setup link, you can open the page with $script?mode=setup and change the setting.</li>")[$lang];

  print <<END;
<table cols=2 border=1 width="100%">
<tr>
<td colspan=2>
<ul>
$notice
</ul>
</td>
</tr>

<tr>
<td>
END

print (('データファイル','data file')[$lang]);

print <<END;
</td>
<td><input type=text name="datafile" value="$datafile" size=30></td>
</tr>

<tr>
<td>
END

print (('ロックファイル','lock flie')[$lang]);

print <<END;
</td>
<td><input type=text name="lockfile" value="$lockfile" size=30></td>
</tr>

<tr>
<td>
END

print (('バックグランド','background')[$lang]);

print <<END;
</td>
<td>
<input type=radio name=bgimage_en value=1 $check{bgimage}[1]>
END

print (('画像を使う','image')[$lang]);

  print "
<input type=radio name=bgimage_en value=0 $check{bgimage}[0]>";

print (('カラー設定にする','color')[$lang]);

print <<END;
<br>
<input type=text name="bgimage_file" value="$bgimage_file" size=30>
END

print (('画像を使う場合の画像ファイル','image file')[$lang]);

  print <<END;
<br>
<input type=text name="bgcolor" value="$bgcolor" size=10>
END

print (('カラー設定の場合のカラー番号（白：#ffffff 又は white）','color code(white:white or #ffff)')[$lang]);

print <<END;
</td>
</tr>

<tr>
<td>
END

print (('タイトル名','title')[$lang]);

  my $none = ('無し','none')[$lang];
  my $default = ('デフォルト','default')[$lang];
  my $text = ('テキスト','text')[$lang];
  my $logoimage = ('ロゴ画像','logo image')[$lang];
  my $stylesheetname = ('スタイルシート','style sheet')[$lang];
  my $left = ('左','left')[$lang];
  my $center = ('中','center')[$lang];
  my $right = ('右','right')[$lang];
  my $location = ('位置：','location:')[$lang];

print <<END;
</td>
<td><input type=text name="title" value="$title" size=30><br>
<input type=radio name=logo_sel value=4 $check{logo_sel}[4]>$none<br>
<input type=radio name=logo_sel value=0 $check{logo_sel}[0]>$default&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=logo_sel value=1 $check{logo_sel}[1]>$text
color=<input type=text name="logo_color" value="$logo_color" size=8>
size=<input type=text name="logo_size" value="$logo_size" size=8>
face=<input type=text name="logo_face" value="$logo_face" size=8><br>
<input type=radio name=logo_sel value=2 $check{logo_sel}[2]>$logoimage
<input type=text name="logo" value="$logo" size=30><br>
<input type=radio name=logo_sel value=3 $check{logo_sel}[3]>$stylesheetname
<input type=text name="logo_style" value="$logo_style" size=30><br>
$location
<input type=radio name=logo_loc value=0 $check{logo_loc}[0]>$left
<input type=radio name=logo_loc value=1 $check{logo_loc}[1]>$center
<input type=radio name=logo_loc value=2 $check{logo_loc}[2]>$right
</td>
</tr>


<tr>
<td>
END

print (('ヘッダー名と色','header name and color')[$lang]);

print <<END;
</td>
<td>
END

print (('参加者名','attendee')[$lang]);
  print qq(<input type=text name="attendee" value="$attendee" size=20>
	   color=<input type=text name="attendee_color" value="$attendee_color" size=8>
	   bgcolor=<input type=text name="attendee_bgcolor" value="$attendee_bgcolor" size=8><br>\n);
  print (('コメント','comment')[$lang]);
  print qq(<input type=text name="comment" value="$comment" size=20>
	   color=<input type=text name="comment_color" value="$comment_color" size=8>
	   bgcolor=<input type=text name="comment_bgcolor" value="$comment_bgcolor" size=8><br>\n);
  print (('パスワード','password')[$lang]);
  print qq(<input type=text name="password" value="$password" size=20>
	   color=<input type=text name="password_color" value="$password_color" size=8>
	   bgcolor=<input type=text name="password_bgcolor" value="$password_bgcolor" size=8><br>\n);
  print (('登録ボタン','Button')[$lang]);
  print qq(<input type=text name="register" value="$register" size=20>
	   color=<input type=text name="register_color" value="$register_color" size=8>
	   bgcolor=<input type=text name="register_bgcolor" value="$register_bgcolor" size=8><br>\n);

print "
</td>
</tr>

<tr>
<td>";

  print (('トップへのリンク','link to top')[$lang]);
  my $disp = ('表示','display')[$lang];
  my $nondisp = ('非表示','not display')[$lang];
  my $linkname = ('リンク名','link name')[$lang];

print <<END;
</td>
<td>
<input type=radio name=backlink_en value=1 $check{backlink}[1]>$disp
<input type=radio name=backlink_en value=0 $check{backlink}[0]>$nondisp<br>
<input type=text name="backlink_name" value="$backlink_name" size=30>$linkname<br>
<input type=text name="backlink" value="$backlink" size=30>URL<br>
</td>
</tr>

<tr>
<td>
END

  print (('表の表示幅','table width')[$lang]);

print "</td>
<td>
";

  print (('ブラウザ全体の','')[$lang]);

  print <<END;
<input type=text name="body_width" value="$body_width" size=5>%
</td>
</tr>

<tr>
<td>
END

  print (('表のカラム幅','column width')[$lang]);

print "</td>
<td>
";
  print (('名前欄','name column')[$lang]);
  print qq(<input type=text name="name_width" value="$name_width" size=5>%<br>\n);
  print (('コメント欄','comment column')[$lang]);
  print qq(<input type=text name="comment_width" value="$comment_width" size=5>%<br>\n);
  print (('パスワード欄','password column')[$lang]);
  print qq(<input type=text name="pwd_width" value="$pwd_width" size=5>%<br>\n);
  print (('ボタン欄','button column')[$lang]);
  print qq(<input type=text name="button_width" value="$button_width" size=5>%<br>\n);

print "
</td>
</tr>

<tr>
<td>
";

  print (('テキストボックスサイズ','text box width')[$lang]);

print "</td>
<td>
";
  print (('名前','name column')[$lang]);
  print qq(<input type=text name="name_text_width" value="$name_text_width" size=5><br>\n);
  print (('コメント','comment column')[$lang]);
  print qq(<input type=text name="comment_text_width" value="$comment_text_width" size=5><br>\n);
  print (('パスワード','password column')[$lang]);
  print qq(<input type=text name="pwd_text_width" value="$pwd_text_width" size=5><br>\n);

print "
</td>
</tr>

<tr>
<td>
";

print (('セットアップのリンク','link to setup')[$lang]);

print <<END;
</td>
<td>
<input type=radio name=setup_en value=1 $check{setup}[1]>$disp
<input type=radio name=setup_en value=0 $check{setup}[0]>$nondisp<br>
<input type=text name="setup_name" value="$setup_name" size=30>$linkname<br>
</td>
</tr>

<tr>
<td>
END

print (('タグ使用','use of tags')[$lang]);

  my $valid = (('有効','valid')[$lang]);
  my $invalid = (('無効','invalid')[$lang]);

print <<END;
</td>
<td>
<input type=radio name=tag_en value=1 $check{tag}[1]>$valid
<input type=radio name=tag_en value=0 $check{tag}[0]>$invalid<br>
</td>
</tr>

<tr>
<td>
END

print (('参加者番号','number of the attendees')[$lang]);

print <<END;
</td>
<td>
<input type=radio name=number_en value=1 $check{number}[1]>$disp
<input type=radio name=number_en value=0 $check{number}[0]>$nondisp<br>
</td>
</tr>

<tr>
<td>
END

print (('&lt;head&gt;内挿入文','sentense in &lt;head&gt;')[$lang]);
  
  print <<END;
</td>
<td>
<input type=radio name=head_insert_en value=1 $check{head_insert}[1]>$valid
<input type=radio name=head_insert_en value=0 $check{head_insert}[0]>$invalid<br>
END

print (('
ＨＴＭＬ書式<br>
ポップアップ広告やJavascript、&lt;META&gt;を挿入したい場合にここに記述する。<br>
以下の記述が&lt;head&gt;〜&lt;/head&gt;内に挿入される。<br>
','HTML format. Javascript, popup ads, &lt;META&gt; and so on can be inserted in here.
')[$lang]);

print <<END;
<textarea name="head_insert" cols=50 rows=3>$head_insert</textarea><br>
</td>
</tr>

<tr>
<td>$stylesheetname</td>
<td>
<input type=radio name=style_sheet_en value=1 $check{style_sheet}[1]>$valid
<input type=radio name=style_sheet_en value=0 $check{style_sheet}[0]>$invalid<br>
<textarea name="style_sheet" cols=50 rows=3>$style_sheet</textarea><br>
</td>
</tr>

<tr>
<td>
END
print (('&lt;body&gt;内挿入文','sentense in &lt;body&gt;')[$lang]);

  print "</td><td>\n";

print (('
上部に表示される文をＨＴＭＬで記述。ここにイベントの予定や詳細等を記述することができます。その他リンク、画像なんでもＨＴＭＬで記述できます。タイトルを非表示にして凝ったタイトルをここに記述することもできます。<br>
タイトルの上
','HTML format. You can discrive event detail here.<br>
Above the title
')[$lang]);

print <<END;
<input type=radio name=body_insert1_en value=1 $check{body_insert1}[1]>$valid
<input type=radio name=body_insert1_en value=0 $check{body_insert1}[0]>$invalid<br>
<textarea name="body_insert1" cols=50 rows=3>$body_insert1</textarea><br>
END
print (('タイトルの下','below the title')[$lang]);
print <<END;
<input type=radio name=body_insert2_en value=1 $check{body_insert2}[1]>$valid
<input type=radio name=body_insert2_en value=0 $check{body_insert2}[0]>$invalid<br>
<textarea name="body_insert2" cols=50 rows=3>$body_insert2</textarea><br>
END
print (('ページの一番下','bottom of the page')[$lang]);
print <<END;
<input type=radio name=body_insert3_en value=1 $check{body_insert3}[1]>$valid
<input type=radio name=body_insert3_en value=0 $check{body_insert3}[0]>$invalid<br>
<textarea name="body_insert3" cols=50 rows=3>$body_insert3</textarea><br>
</td>
</tr>

</table>

END

my $setting = (('設定','setting')[$lang]);
  print "<input type=submit name=\"sub\" value=\"$setting\">";
  print "</form>";

  &copyright;
  &htmltail;
}

sub setupwrite {

    &error(('管理人パスワードが違います','Wrong admin password')[$lang]) unless ( &checkadmin($in{pwd}));

  $in{logo_size} =~ s/ /+/;

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

  open(SETUP,"> $setupfile");

  print SETUP <<END;
\$datafile = "$in{datafile}";

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

\$backlink_en = $in{backlink_en};
\$backlink = "$in{backlink}";
\$backlink_name = '$in{backlink_name}';

\$bgimage_en = $in{bgimage_en};
\$bgcolor = '$in{bgcolor}';
\$bgimage_file = '$in{bgimage_file}';

\$title = '$in{title}';
\$logo = "$in{logo}";
\$logo_style = '$in{logo_style}';
\$logo_color = '$in{logo_color}';
\$logo_size = '$in{logo_size}';
\$logo_face = '$in{logo_face}';
\$logo_sel = $in{logo_sel};
\$logo_loc = $in{logo_loc};

\$setup_en = $in{setup_en};
\$setup_name = '$in{setup_name}';

\$body_width = $in{body_width};

\$name_width = $in{name_width};
\$comment_width = $in{comment_width};
\$pwd_width = $in{pwd_width};
\$button_width = $in{button_width};

\$name_text_width = $in{name_text_width};
\$comment_text_width = $in{comment_text_width};
\$pwd_text_width = $in{pwd_text_width};

\$attendee = '$in{attendee}';
\$comment = '$in{comment}';
\$password = '$in{password}';
\$register = '$in{register}';
\$attendee_color = '$in{attendee_color}';
\$comment_color = '$in{comment_color}';
\$password_color = '$in{password_color}';
\$register_color = '$in{register_color}';
\$attendee_bgcolor = '$in{attendee_bgcolor}';
\$comment_bgcolor = '$in{comment_bgcolor}';
\$password_bgcolor = '$in{password_bgcolor}';
\$register_bgcolor = '$in{register_bgcolor}';

\$tag_en = $in{tag_en};

\$number_en = $in{number_en};

\$style_sheet_en = $in{style_sheet_en};
\$style_sheet = '$in{style_sheet}';

\$head_insert_en = $in{head_insert_en};
\$head_insert = '$in{head_insert}';

\$body_insert1_en = $in{body_insert1_en};
\$body_insert1 = '$in{body_insert1}';
\$body_insert2_en = $in{body_insert2_en};
\$body_insert2 = '$in{body_insert2}';
\$body_insert3_en = $in{body_insert3_en};
\$body_insert3 = '$in{body_insert3}';

1;
END

close(SETUP);

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

}

sub backbutton {
    my $back;
    if ($lang){
	$back = 'Back';
    } else {
	$back = '戻る';
    }
    print "<form><input type=button value=\"$back\" onClick=\"history.back()\"></form>\n";
}