▼変更対象の変数
401行目 my (%tm,
%mail, %max_day, %max_down, %dlmail);
461行目 my ($tm, $user, $path, $e_pass, $permit, $l_size,
$mail,$max_day,$max_down,$dlmail) = split(/\,/,$line);
476行目
$mail{"$user"} =
$mail;
525行目 my ($tm, $user, $path, $e_pass, $permit, $l_size,
$mail,$max_day,$max_down) = split(/\,/,$line);
728行目 my ($time,$name,$dir,$epass,$permit,$l_size,
$mail,$max_day,$max_down,$dlmail) = split(/\,/);
866行目 my
$mail;
870行目
$mail = (split(/<>/,$line))[3];
871行目 chomp
$mail;
872行目
$mail .= 'に送信した<br>' if
$mail;
874行目
$mail = '' if $sample;
875行目 print qq(<table summary="アカウント削除"><tr><td>
$mail) . &presenttime(param('del_guest')) . qq(作成のアカウントを削除しますか？</td>);
902行目 foreach (keys
%mail) {
903行目 if ($_ &&
$mail{"$_"}) {
905行目 $user_mail =
$mail{"$_"};
911行目 my
$mail = qq($script) . &url_param(%param);
920行目 my (@guest_list,@kigen,
@mail);
939行目
$mail[$guest_count] = (split(/<>/,$line))[3];
940行目 chomp
$mail[$guest_count];
941行目
$mail[$guest_count] .= qq(に送信) if
$mail[$guest_count];
956行目 $com .= qq(\n
$mail[$count]) if
$mail[$count] && ! $sample;
964行目 $com .= qq(\n
$mail[$count]) if
$mail[$count] && ! $sample;
2418行目 $from =
$mail{"$name"};
2629行目 &mail($mail_title, $msg,
$mail{"$id"}, $admin_mail[0]);
3072行目 my ($tm, $user, $path, $pass, $permit, $l_size,
$mail,$mxday,$mxdown) = split(/\,/,$line);
3325行目 my ($tm, $user, $path, $pass, $permit, $l_size,
$mail) = split(/\,/,$line);
3484行目 my ($tm, $user, $path, $pass, $permit, $l_size,
$mail,$auto_del,$max_dl) = split/\,/;
3490行目 $fmail =
$mail;
3862行目 my ($tm, $user, $path, $pass, $permit, $l_size,
$mail) = split/\,/, $_;
3904行目 if (
$mail) {
3907行目 $msg .= qq(<td><table summary="メール送信"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/mail.gif" alt="${user}${mr}にメールを送る" /></form></td><td>) .&key_color(
$mail,$key) . qq(</td></tr></table></td>\n);
3910行目 $msg .= qq(<td><table summary="メール送信"><tr><td><a href="$url" title="${user}${mr}にメールを送る"><img border="0" src="./img/mail.gif" alt="${user}${mr}にメールを送る" /></a></td><td><a href="$url" title="${user}${mr}にメールを送る">) . &key_color(
$mail,$key) . qq(</a></td></tr></table></td>\n);
4762行目 my $old_mail =
$mail{"$id"};
4794行目 my %param = ('mode'=>'user','login_user'=>$login_user,'old_id'=>$id,'old_pass'=>$pass,'old_mail'=>
$mail{"$id"});
4809行目 <tr><td style="text-align:right;">メールアドレス</td><td align="left"><input type="text" name="new_mail" value="
$mail{"$id"}" style="ime-mode:disabled; width:120px;height:16px" tabindex="7" /></td></tr>
5377行目 my
$mail = param('new_mail');
5379行目 if (
$mail) {
