#! /usr/bin/perl
#
# grmail.cgi
#
# 1.005 : 11/22/06 : 送信後のリターンページオプションのバグを修正
# 1.004 : 1/21/06 : Added an option to not display name on To: and From:
# 1.003 : 1/15/06 : Added recipient, sender non-display mode
# 1.002 : 1/6/06 : Fixed MIME encode
# 1.001 : 10/18/05 : Deleted unnecessary spaces in title
# 1.0 : 10/17/05 : Initial revision
#
# Group mail
# グループメール
#
# グループモードとユーザーモードとあります。
# - グループモード
#   グループモードでは管理人のみメールアドレスを登録することができます。
#   登録されているユーザーはグループパスワードを使ってのみメールを
#   送信することができます。
#   登録削除は管理人のみ可能です。
# - ユーザーモード
#   ユーザーモードではユーザーが自分のメールアドレスを登録することができます。
#   登録の際にはグループパスワードが必要になります。その際個人パスワードを
#   設定します。
#   メールを送信するときには個人のパスワードが必要になります。
#   登録削除はユーザーが個人のパスワードを使ってすることができます。
#
# いずれのモードもメール送信にはパスワードが必要になります。
#
# http://www.hidekik.com/
#
# Copyright(c) 2005-2006, Hideki Kanayama All rights reserved

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

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

my $script = basename($0);

my $setupfile = "grmail_setup.pl";
my $admindat = "adminpwd.dat";
my $groupdat = "grouppwd.dat";

my $charset = "Shift_JIS";

my $lang = 0;

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

our $datafile = "member.dat";

# Title
our $title = ('グループメール','Group mail')[$lang];

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

# col mux of address list
our $colmax = 5;

# Display admin link
our $setup_en = 1;
our $setup_name = '管理用';

# Group mode 0:user mode, 1:group mode
our $group_mode = 0;

# Bcc copoy 0:off, 1:on
our $bcc_en = 1;

# body_head
our $body_head = "
<center><h1>グループメール</h1></center><p>
";

# body_tail
our $body_tail = '
';

# return page after sending a mail
# 0: group mail, 1: done page, 2: top page
our $return_page = 0;

# mail command
our $mail_cmd = '/usr/sbin/sendmail -t';

# Recipent, sender non-display mode
our $recip_nondisp = 0;
our $sender_nondisp = 0;
our $sender_dummy = 'dummy@dummy.dum';

# Name on To:, From:, Bcc:
# 1: display, 0:no display
our $mail_name = 1;

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

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

our $offset = 9;

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

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} eq 'wradminpwd'){
	&wradminpwd($in{pwd},$admindat);
    } else {
	&setadminpwd($admindat);
    }
}
if (! -e "$groupdat"){
    if ($in{mode} eq 'grwradminpwd'){
	&wradminpwd($in{pwd},$groupdat);
    } else {
	&setadminpwd($groupdat);
    }
}

if ($in{mode} eq 'setmember'){
    &setmember;
} elsif ($in{mode} eq 'wrmember'){
    &wrmember;
} elsif ($in{mode} eq 'register_list'){
    &register_list;
} elsif ($in{mode} eq 'register'){
    &register;
} elsif ($in{mode} eq 'delete_list'){
    &delete_list;
} elsif ($in{mode} eq 'delete_mail'){
    &delete_mail;
} elsif ($in{mode} eq 'setup'){
    &setup;
} elsif ($in{mode} eq 'setupwrite'){
    &setupwrite;
} elsif ($in{mode} eq 'send'){
    &send;
} else {
    &mainpage;
}

sub mainpage {

    &nomember if (! -e $datafile);
    my ($maillist,$finnum,$items) = &get_maillist;

    &htmlhead($title);

    print $body_head;
    print "<a href=\"$backlink\">$backlink_name</a><br>" if ($backlink_en);

    print qq(<form method=post name="mailform" action="$script">\n);
    print qq(<input type=hidden name=mode value=send>\n);

    print qq(<table border=0 width="10%" cols=$colmax>\n);
    print qq(<tr><td colspan=$colmax nowrap>宛先</td></tr>\n);

    print qq(<tr>\n);
    print qq(<td colspan=$colmax nowrap>\n);
    print qq(<input type=checkbox name="toall" onClick="allcheck()">全員\n);
    print qq(<input type=checkbox name="rlsall" onClick="allrelease()">全員解除\n);
    print qq(</td>\n</tr>\n);

    my $i;
    my $j;
    my $num;
    for ($i=0;$i<$items;$i+=$colmax){
	print qq(<tr>\n);
	$j=0;
#	$num = $i+$num;
	while ($j < $colmax){
	    if ($maillist->[$num]) {
		if ($maillist->[$num][2] ne 'deleted'){
		    print qq(<td nowrap><input type=checkbox name="m$maillist->[$num][0]" onClick="release()">$maillist->[$num][1]</td>\n);
		    $j++;
		}
	    } else {
		print qq(<td>&nbsp;</td>\n);
		$j++;
	    }
	    $num++;
	}
	print qq(</tr>\n);
    }

    print qq(</table><br>\n);
    print qq(送信者<br>\n);
    print qq(<select name="sender"><br>\n);
    print qq(<option value=none>送信者を選んでください<br>\n);
    foreach $i (0 .. $finnum) {
	print qq(<option value=$i>$maillist->[$i][1]\n) unless ($maillist->[$i][2] eq 'deleted');
    }
    print qq(</select><p>\n);
    if ($group_mode){
	print qq(メンバー用パスワードを入力してください<br>\n);
    } else {
	print qq(送信者のパスワードを入力してください<br>\n);
    }
    print qq(<input type=password name=pwd size=10><p>\n);

    print qq(タイトル\n);
    print qq(<BR><INPUT type="text" size="60" maxlength="60" name="subject">\n);

    print qq(<P>本文\n);
    print qq(<BR><TEXTAREA rows="15" cols="80" name="main"></TEXTAREA>\n);

    print qq(<P><INPUT type="submit" value="送信"><p>\n);

    print "$body_tail";

    print "<div align=\"right\">\n";
    print "<a href=\"$script?mode=register_list\">登録</a> \n";
    print "<a href=\"$script?mode=delete_list\">削除</a> \n";
    print "<a href=\"$script?mode=setup\">管理用</a> \n";
    print "</div>\n";
    &htmltail;
}

sub nomember {
    &htmlhead('メールアドレスが登録されていません');
    print qq(<center><p><a href="$script?mode=register_list">メールアドレスを登録する</a></center><p>\n);
    print qq(<center><p><a href="$script?mode=setup">管理人セットアップ</a></center>\n);
    &htmltail;
}

sub register_list {
    &htmlhead('メールアドレス登録');
    my $cols;
    my $adminpwd;
    my $persopwd1;
    my $persopwd2;
    if ($group_mode) {
	$cols = 3;
	$adminpwd = "<th nowrap>管理人パスワード</th>";
	$persopwd1 = '';
	$persopwd2 = '';
    } else {
	$cols = 4;
	$adminpwd = "<th nowrap>グループパスワード</th>";
	$persopwd1 = "<th nowrap>個人パスワード設定</th>";
	$persopwd2 = "<td nowrap><input type=password name=persopwd size=10></td>";
    }
    print <<END;
<form name="register_list" action="$script" method=post>
<table cols=$cols border=1 width=10%>
<tr>
<th nowrap>名前</th>
<th nowrap>メールアドレス</th>
$adminpwd
$persopwd1
</tr>
<tr><td nowrap>
<input type=text name=name size=20>
</td>
<td nowrap>
<input type=text name=address size=30>
</td>
<td nowrap>
<input type=password name=grouppwd size=10>
</td>
$persopwd2
</tr>
</table>
<input type=hidden name=mode value=register>
<input type=submit value="登録">
</form>
<p>
END

    print qq(<a href="$script">$titleへ</a>);

    &htmltail;
}

sub register {
    if ($group_mode) {
	&error('グループモードなので管理人のみ登録できます。') if (!&checkadmin($in{grouppwd}));
    } else {
	&error('グループパスワードが違います。') if (!&checkadmin($in{grouppwd},$groupdat));
    }
    my ($data, $finnum) = &get_maillist;
    $finnum++ if (-e $datafile);
    my $pwd;
    if ($group_mode == 0){
	$pwd = &makecrypt($in{persopwd});
    }
    open(FILE, ">> $datafile") or &error('$datafileが開けません。');
    print FILE "$finnum,$in{name},$in{address},$pwd\n";
    close(FILE);
    print "Location: $script\n\n";
}

sub get_maillist {
    my @data;
    if (open(FILE, "< $datafile")) {
	my @detail;
	my $i=0;
	my $items;
	while (<FILE>){
	    chomp;
	    @detail = split /,/;
	    $data[$i] = [@detail];
	    $i++;
	    $items++ if ($detail[2] ne 'deleted');
	}
	close(FILE);
	my $finnum = $detail[0];
	return (\@data,$finnum,$items);
    } else {
	return (\@data,0); # return null and final number 0
    }
}

sub send {

    my $subject = $in{subject};
    my $contents = $in{main};
    my ($data, $finnum) = &get_maillist;

    &error("送信者の名前を選択してください。") if ($in{sender} eq 'none');
    my $sender_name = $data->[$in{sender}][1];
    my $sender_mail = $data->[$in{sender}][2];
    my $sender_pwd = $data->[$in{sender}][3];
    if ($group_mode){
	&error('メンバー用パスワードが違います。') unless (&checkadmin($in{pwd},$groupdat) or &checkadmin($in{pwd},$admindat));
    } else {
	&error('個人用パスワードが違います。') unless (&checkcrypt($in{pwd},$sender_pwd));
    }

    my $i;
    my @to_mail;
    foreach $i (0 .. $finnum){
	my $item = "m" . "$i";
	if ("$in{$item}" eq 'on') {
	    &error('選択されたメールアドレス'."$data->[$i][1]".'が削除されています。')		if ($data->[$i][2] eq 'deleted');
	    my $toaddr = $mail_name ? "$data->[$i][1] <$data->[$i][2]>" :
		                      "$data->[$i][2]";
	    push(@to_mail,"$toaddr");
	}
    }
    &error('宛先を選択してください。') if ($#to_mail < 0);
    &error('タイトルと本文は必ず書いてください。') if ($subject eq '' or $contents eq '');

    my $to_mail = join ",", @to_mail;

    $contents = jcode($contents)->jis;

   my $from_mail;
    if ($sender_nondisp){
	if ($sender_dummy ne '') {
	    $from_mail = $mail_name ? "$sender_name <$sender_dummy>" :
		                      "$sender_dummy";
	} else {
	    $from_mail = $mail_name ? "$sender_name <dummy\@dummy.dum>" :
		                      "dummy\@dummy.dum";
	}
    } else {
	$from_mail = $mail_name ? "$sender_name <$sender_mail>" : 
	                          "$sender_mail";
    }
    
    my $header;
    $header = "To: " . jcode($to_mail)->mime_encode . "\n" if (!$recip_nondisp);
    $header .= "From: " . jcode("$from_mail")->mime_encode . "\n";
    $header .= "Bcc: " if ($bcc_en or $recip_nondisp);
    $header .= jcode($from_mail)->mime_encode if ($bcc_en);
    $header .= "," if ($bcc_en and $recip_nondisp);
    $header .= jcode($to_mail)->mime_encode if ($recip_nondisp);
    $header .= "\n" if ($bcc_en or $recip_nondisp);
    $header .= "Subject: " . jcode($subject)->mime_encode . "\n";
    $header .= "MIME-Version: 1.0\n";
    $header .= "Content-type: text/plain; charset=ISO-2022-JP\n";
    $header .= "Content-Transfer-Encoding: 7bit\n\n";

    if (open(SMAIL, "| $mail_cmd")){
	print SMAIL $header;
	print SMAIL $contents;
	close(SMAIL);
    } else {
	&error("メールコマンドが実行できません。");
    }

    if ($return_page == 0) {
	print "Location: $script\n\n";
    } elsif ($return_page == 1) {
	&error("送信しました。<p><a href=\"$script\">$title</a> <a href=\"$backlink\">$backlink_name</a>");
    } else {
	print "Location: $backlink\n\n";
    }
}

sub delete_list {
    &htmlhead('メールアドレス削除');

    my ($maillist,$finnum) = &get_maillist;

    print qq(<form name="delete_list" action="$script" method=post>\n);
    print qq(<select name="delnumber">\n);
    print qq(<option value=none>削除する名前を選んでください\n);
    foreach my $i (0 .. $finnum) {
	print qq(<option value=$i>$maillist->[$i][1]\n) unless ($maillist->[$i][2] eq 'deleted');
    }
    print qq(</select><br>\n);
    print qq(<input type=hidden name=mode value=delete_mail><br>\n);

    if ($group_mode){
	print "管理人パスワード";
    } else {
	print "個人パスワード";
    }
    print qq(<input type=password name=pwd size=10><p>);
    print qq(<input type=submit value='削除'>);
    print qq(</form><p>\n);

    print qq(<a href="$script">$titleへ</a>);

    &htmltail;
}

sub delete_mail {
    my ($data, $finnum) = &get_maillist;
    my $inpwd;
    if ($group_mode) {
	&error('グループモードなので管理人のみ削除できます。') unless (&checkadmin($in{pwd}));
    } else {
	$inpwd = $data->[$in{delnumber}][3];
	&error('個人用パスワードが違います。') unless (&checkcrypt($in{pwd},$inpwd));
    }
    &error("削除する名前を選択してください。") if ($in{delnumber} eq 'none');

    open(FILE, "< $datafile") or &error("$datafileが開けません。");
    open(TMP, "> tmp.$$");
    while (<FILE>){
	my ($i,$name,$email,$pwd) = split /,/;
	if ($in{delnumber} == $i){
	    print TMP "$i,$name,deleted\n";
	} else {
	    print TMP "$_";
	}
    }
    close(FILE);
    close(TMP);
    rename ("tmp.$$","$datafile");

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

  if ($in{mode} eq ''){

      my ($data, $finnum) = &get_maillist;
      print qq(<script language="JavaScript">\n);
      print "function allcheck(){\n";
      print "if (document.mailform.toall.checked==1){\n";
      print qq(document.mailform.rlsall.checked=0;\n);
      my $i;
      foreach $i (0 .. $finnum) {
	  print qq(document.mailform.m$i.checked=1;\n) unless ($data->[$i][2] eq 'deleted');
      }
      print "}\n";
      print "}\n";

      print "function allrelease(){\n";
      print "if (document.mailform.rlsall.checked==1){\n";
      print "document.mailform.toall.checked=0;\n";
      foreach $i (0 .. $finnum) {
	  print qq(document.mailform.m$i.checked=0;\n) unless ($data->[$i][2] eq 'deleted');
      }
      print "}\n";
      print "}\n";

      print "function release(){\n";
      print "document.mailform.toall.checked=0;\n";
      print "document.mailform.rlsall.checked=0;\n";
      print "}\n";
      print "</script>\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>grmail.cgi Ver. $version</i><br>\n";
  print "<i>Copyright(C) 2005-$lastupdatedyear, <a href=\"$mysite\" target=\"_blank\">hidekik.com</a></i></div>\n";
}

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

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

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

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

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{setup}[$setup_en] = "checked";
  $check{group_mode}[$group_mode] = "checked";
  $check{bcc}[$bcc_en] = "checked";
  $check{style_sheet}[$style_sheet_en] = "checked";
  $check{head_insert}[$head_insert_en] = "checked";
  $check{return_page}[$return_page] = "checked";
  $check{recip_nondisp}[$recip_nondisp] = "checked";
  $check{sender_nondisp}[$sender_nondisp] = "checked";
  $check{mail_name}[$mail_name] = "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 (('バックグランド','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]);

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

<tr>
<td>
END

  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 (('宛先表示','Address lines')[$lang]);

print "</td>
<td>
";

  print (('一行に表示する宛先の数','number of To: list')[$lang]);

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

<tr>
<td>
END

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

  my $group = ('グループモード','Group mode')[$lang];
  my $user = ('ユーザーモード','User mode')[$lang];

  print $group;

print <<END;
</td>
<td>
<input type=radio name=group_mode value=1 $check{group_mode}[1]>$group
<input type=radio name=group_mode value=0 $check{group_mode}[0]>$user<br>
</td>
</tr>

<tr>
<td>
END

  print (('送信者へのコピー','Copy to sender')[$lang]);

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

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

<tr>
<td>
END

print "送信後の戻りページ";

print <<END;
</td>
<td>
<input type=radio name=return_page value=0 $check{return_page}[0]>グループメール<br>
<input type=radio name=return_page value=1 $check{return_page}[1]>送信完了ページ<br>
<input type=radio name=return_page value=2 $check{return_page}[2]>「$backlink_name」ページ
</td>
</tr>

<tr>
<td>
END

print (('メールコマンド','Mail command')[$lang]);

print qq(</td><td>To:などのヘッダ情報が本文に埋め込まれて送信されるのでsendmailの場合は「sendmail -t」のように-tを必ず付けてください。<br><input type=text name="mail_cmd" value="$mail_cmd" size=30>\n);

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

  print (('メールヘッダに送信先、送信元メールアドレス表示','Recipient, sender mail address display in a sending mail')[$lang]);

  print "</td>\n<td>\n";
print (('送信先','Recipient')[$lang]);
print <<END;
<input type=radio name=recip_nondisp value=0 $check{recip_nondisp}[0]>$disp(To:)
<input type=radio name=recip_nondisp value=1 $check{recip_nondisp}[1]>$nondisp(Bcc:)<br>
END

print (('送信元','Sender')[$lang]);
print <<END;
<input type=radio name=sender_nondisp value=0 $check{sender_nondisp}[0]>$disp
<input type=radio name=sender_nondisp value=1 $check{sender_nondisp}[1]>$nondisp<br>
END
print (('送信元メールアドレスを非表示にしても送信者の名前はメールヘッダに表示されます。<br>','Even though sender\'s mail address is set as non-display, sender name will be displayed in the header of the mail.<br>')[$lang]);
print (('送信元メールアドレスを非表示にする場合From:に付加されるダミーのメールアドレス。','A dummy mail address to be displayed as From: in the header.')[$lang]);

  print qq(<input type=text name=sender_dummy value="$sender_dummy" size=20><br>\n);

  print (('これが必要になるので「送信者へのコピー」は効かなくなります。また、プロバイダやメールサーバーにより無効なメールアドレスから送信できない設定になっている場合はメール送信ができません。','\"Copy to sender\" will not work due to this dummy mail address. Some porvider or mail servers do not allow to send a mail from invalid mail address.')[$lang]);

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

<tr>
<td>
END

  print (('To:,From:に名前を表示','Display name on To:, From:')[$lang]);

  print "</td>\n<td>\n";
print <<END;
<input type=radio name=mail_name value=1 $check{mail_name}[1]>$disp
<input type=radio name=mail_name value=0 $check{mail_name}[0]>$nondisp<br>
END

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

  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]);

  my $stylesheetname = ('スタイルシート','style sheet')[$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>ページ上部</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>GMTより<input type=text name=offset value="$offset" size=2>時間(日本：+9時間)</td>
</tr>

</table>
END

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

  &htmltail;
}

sub setupwrite {

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

    foreach (keys(%in)){
	$in{$_} =~ s/\s*$//;
    }

  open(SETUP,"> $setupfile");

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

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

# col mux of address list
\$colmax = $in{colmax};

# Display admin link
\$setup_en = $in{setup_en};
\$setup_name = '$in{setup_name}';

# Group mode 0:user mode, 1:group mode
\$group_mode = $in{group_mode};

# Bcc copoy 0:off, 1:on
\$bcc_en = $in{bcc_en};

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

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

# return page after sending a mail
# 0: group mail, 1: done page, 2: top page
\$return_page = $in{return_page};

# mail command
\$mail_cmd = '$in{mail_cmd}';

# Recipent, sender non-display mode
\$recip_nondisp = $in{recip_nondisp};
\$sender_nondisp = $in{sender_nondisp};
\$sender_dummy = '$in{sender_dummy}';

# Name on To:, From:, Bcc:
# 1: display, 0:no display
\$mail_name = $in{mail_name};

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

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

\$offset = $in{offset};

1;
END

close(SETUP);

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

}