#! /usr/bin/perl
#
# grmob.cgi
#
# 1.002 : 2/28/08 : 携帯で選択した送信者が正常に選択されないバグを修正
# 1.001 : 2/1/08 : 送信文確認画面モードを追加
# 1.0 : 1/5/08 : Initial revision
#
# Group mail
# 携帯版グループメール
#
# グループモードとユーザーモードとあります。
# - グループモード
#   グループモードでは管理人のみメールアドレスを登録することができます。
#   登録されているユーザーはグループパスワードを使ってのみメールを
#   送信することができます。
#   登録削除は管理人のみ可能です。
# - ユーザーモード
#   ユーザーモードではユーザーが自分のメールアドレスを登録することができます。
#   登録の際にはグループパスワードが必要になります。その際個人パスワードを
#   設定します。
#   メールを送信するときには個人のパスワードが必要になります。
#   登録削除はユーザーが個人のパスワードを使ってすることができます。
#
# いずれのモードもメール送信にはパスワードが必要になります。
#
# http://www.hidekik.com/
#
# Copyright(c) 2005-2008, Hideki Kanayama All rights reserved

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

my $lastupdatedyear = 2008;
my $version = "1.002";

my $script = basename($0);

my $setupfile = "grmob_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];

# Back link
our $backlink_en = 1;
our $backlink = '..';
our $backlink_name = '戻る';

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

# Confirmation 0:off, 1:on
our $confirm_en = 0;

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

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

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 '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;
} elsif ($in{mode} eq 'confirm'){
    &confirm;
} elsif ($in{mode} eq 'next'){
    &nextaction;
} else {
    &mainpage;
}

sub mainpage {

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

    &htmlhead($title);

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

#    print qq(<form method=post name="mailform" action="$script">\n);
    print qq(<form method=post action="$script">\n);

    if ($confirm_en){
	print qq(<input type=hidden name=mode value=confirm>\n);
    } else {
	print qq(<input type=hidden name=mode value=send>\n);
    }

    print qq(宛先<br>\n);

    my $i;
    my $j;
    my $num;
    for ($num=0;$num<=$finnum;$num++){
	if ($maillist->[$num][2] ne 'deleted'){
	    my $checked;
	    if ($in{"m$num"} eq 'on') {
		$checked = 'checked';
	    } else {
		$checked = '';
	    }
	    print qq(<input type="checkbox" name="m$maillist->[$num][0]" value="on" $checked>$maillist->[$num][1]<br>\n);
	}
    }

    print qq(<p>送信者<br>\n);
    print qq(<select name="sender">\n);
    print qq(<option value=none>送信者を選んでください<br>\n);
    foreach $i (0 .. $finnum) {
	my $selected;
	if ($in{sender} == $i and $in{retry} ne ''){
	    $selected = 'selected';
	} else {
	    $selected = '';
	}
	print qq(<option value=$i $selected>$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 value="$in{pwd}"><p>\n);

    print qq(タイトル\n);
    print qq(<BR><INPUT type="text" size="20" name="subject" value="$in{subject}">\n);

    print qq(<P>本文\n);
    $in{main} =~ s/<br>/\n/ig;
    print qq(<BR><TEXTAREA rows="10" cols="20" name="main">$in{main}</TEXTAREA>\n);

    print qq(<P><INPUT type="submit" value="送信"><p>\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";
    &htmltail;
}

sub confirm {
    my ($maillist, $finnum, $items) = &formcheck;
    &htmlhead('メール確認');
    print 'メール確認画面<p>';
    print qq(<form method=post name="mailconfirm" action="$script">\n);
    print "To:";
    my @tolist;
    foreach my $mm (@$maillist){
	my $mnum = "m$mm->[0]";
	if ("$in{$mnum}" eq 'on'){
	    push (@tolist, "$mm->[1]");
	    print qq(<INPUT type="hidden" name="$mnum" value="on">\n);
	}
    }
    print join ',', @tolist;
    print "<br>\n";
    print "From: $maillist->[$in{sender}][1]<br>\n";
    print qq(<INPUT type="hidden" name="sender" value="$in{sender}">\n);
    print "Subject: $in{subject}<br>\n";
    print "-----<br>\n";
    my $main = $in{main};
    $in{main} =~ s/\r\n/<br>/g;
    $in{main} =~ s/\r/<br>/g;
    $in{main} =~ s/\n/<br>/g;
    print "$in{main}<p>\n";
    print qq(<INPUT type="submit" name="send" value="送信"> \n);
    print qq(<INPUT type="submit" name="retry" value="やり直す">\n);
    print qq(<INPUT type="hidden" name="subject" value="$in{subject}">\n);
    print qq(<INPUT type="hidden" name="main" value="$main">\n);
    print qq(<INPUT type="hidden" name="pwd" value="$in{pwd}">\n);
    print qq(<INPUT type="hidden" name="mode" value="next">\n);
    print qq(</form>\n);
    &htmltail;
}

sub nextaction {
    if ($in{send} ne ''){
	&send;
    } else {
	&mainpage;
    }
}

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 $adminpwd;
    my $persopwd1;
    my $persopwd2;
    if ($group_mode) {
	$adminpwd = "<th nowrap>管理人パスワード</th>";
	$persopwd1 = '';
	$persopwd2 = '';
    } else {
	$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>
名前<br>
<input type=text name=name size=20><br>
メールアドレス<br>
<input type=text name=address size=30><br>
$adminpwd<br>
<input type=password name=grouppwd size=10><br>
$persopwd1<br>
$persopwd2<br>
<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 formcheck {
    my ($data, $finnum) = &get_maillist;
    
    &error("送信者の名前を選択してください。") if ($in{sender} eq 'none');
    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));
    }
    return ($data, $finnum);
}

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

    my $sender_name = $data->[$in{sender}][1];
    my $sender_mail = $data->[$in{sender}][2];

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

  print "</HEAD>\n";
  print "<BODY>\n";
}

sub copyright {
    my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
  print "<hr><i>grmob.cgi Ver. $version</i>\n";
  print "<i>Copyright(C) 2005-$lastupdatedyear, <a href=\"$mysite\" target=\"_blank\">hidekik.com</a></i>\n";
}

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

sub error {
  my ($msg) = shift;
  &htmlhead($msg);
  print "<br><center>$msg</center>\n";
  &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{setup}[$setup_en] = "checked";
  $check{group_mode}[$group_mode] = "checked";
  $check{bcc}[$bcc_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";
  $check{confirm}[$confirm_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;
#$notice
#<hr>
#END

print (('<b>データファイル</b><br>','data file')[$lang]);

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

print (('<b>タイトル名</b><br>','title')[$lang]);

print <<END;
<input type=text name="title" value="$title" size=30><hr>
END

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

print <<END;
<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<hr>
END

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

print <<END;
<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<hr>
END

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

  print "<b>$group</b><br>\n";

print <<END;
<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<hr>
END

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

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

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

<b>送信前の確認画面</b><br>
<input type=radio name=confirm_en value=1 $check{confirm}[1]>$valid
<input type=radio name=confirm_en value=0 $check{confirm}[0]>$invalid<hr>

<b>送信後の戻りページ</b><br>

<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」ページ<hr>
END

print (('<b>メールコマンド</b><br>','Mail command')[$lang]);

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

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

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 (('これが必要になるので「送信者へのコピー」は効かなくなります。また、プロバイダやメールサーバーにより無効なメールアドレスから送信できない設定になっている場合はメール送信ができません。<hr>','\"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 (('<b>To:,From:に名前を表示</b><br>','Display name on To:, From:')[$lang]);

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

# Back link
\$backlink_en = $in{backlink_en};
\$backlink = '$in{backlink}';
\$backlink_name = '$in{backlink_name}';

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

# Confirmation 0:off, 1:on
\$confirm_en = $in{confirm_en};

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

1;
END

close(SETUP);

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

}