▼変更対象の変数
488行目 &error("ログインエラー","「
${id}」では登録がありません。");
585行目 $comment .= qq(<span style="color:red">
${root}ディレクトリが無かったので作成しました。</span>);
609行目 &error('エラー',qq(ファイル") . &url_decode(
${file}) . qq("は存在しません。期限切れの可能\性があります。));
978行目 $style = qq( style="font-size:80
%;font-weight:bold;color:red");
980行目 $style = qq( style="font-size:80
%;color:#dd2200");
1004行目 print qq( ファイル総数
${file_nmb}個) if $show_size;
1005行目 print qq( ディレクトリ総数
${dir_nmb}個) if $show_size && $dir_nmb;
1011行目 print qq( ファイル総数
${file_nmb}個) if $show_size;
1012行目 print qq( ディレクトリ総数
${dir_nmb}個) if $show_size && $dir_nmb;
1022行目 while ($dir =~ s/(\/[^\/]+
$)//) {
1197行目 my $perm = sprintf("%o", $pm{"$_"}
% 512);
1247行目 print qq(<td align="right"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/dir.gif" alt="
${decode_name}に移動" /></form></td>\n);
1278行目 my $down = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/$img" alt="
${decode_name}をダウンロード" /></form>);
1283行目 print qq(<tr><td align="right"><a href="$down" title="
${decode_name}をダウンロード"><img src="./img/$img" alt="
${decode_name}をダウンロード" style="border-width:0" /></a></td>\n);
1284行目 print qq(<td><a href="$down" title="
${decode_name}をダウンロード"><span$style>$decode_name</span></a></td>\n);
1362行目 &dbg(qq(
${script}オープンエラー));
1395行目 $chg_com .= qq(
${frm} → ) . 'my $' . $cfg . " = " . $value . qq(\n);
1407行目 open(INIT,">
${script}_bck.cgi") || &error("
${script}_bck.cgiが開けません。");
1411行目 open(NEW,">$script") || &error("
${script}が開けません。");
1415行目 open(CFG,">$config_file") || &error("
${config_file}が開けません。");
1452行目 &error("
${tail}ファイルの操作は認められていません。");
1541行目 $del_com = qq(<div style="color:blue">
${original_path}から
${target_path}に移動しました。</div>);
1543行目 $del_com = qq(<div style="color:red">
${original_path}を移動できませんでした。\$original_path=$original_path \$target_path=$target_path</div>);
1560行目 &error("
${tail}ファイルの操作は認められていません。");
1616行目 my ($mode) = $st[2]
% 512;
1631行目 my $decode_file_name = &url_decode(
${file_path});
1635行目 &error("
${tail}ファイルの操作は認められていません。");
1661行目 &error('パーミッション変更エラー',"
${file_path}のパーミッションを変更できませんでした。\$chmode=$chmode \$file_path=$file_path");
1666行目 $chg_perm_com = qq(<span style="color:blue">
${decode_file_name}のパーミッションを) . $ov . $gv . $uv . qq(に変更しました。</span>);
1668行目 $chg_perm_com = qq(<span style="color:red">
${decode_file_name}のパーミッションを) . $ov . $gv . $uv . qq(に変更できませんでした。</span>);
1716行目 <div><strong>
${decode_file_name}</strong>のパーミッション</div>
1880行目 &error("
${tail}ファイルの操作は認められていません。");
1918行目 $err_comment = qq(アップロードするファイルサイズの上限は
${max_file_mb}MBですが、) . &kiro_byte($pre_size) . qq(あります。);
1949行目 open(CNT,">
${filepath}_count");
2011行目 $logout = qq(<div class="home"><a href="$script$param" style="color:$text_color;text-decoration:none;">ログアウト</a> <span style="font-size:80
%;color:$text_color">−
${id}でログイン中−</span></div>);
2014行目 $logout = qq(<div class="home"><a href="$script$param" style="color:$text_color;text-decoration:none;">ログアウト</a> <span style="font-size:80
%;color:$text_color">−
${id}\(ゲスト\)でログイン中−</span></div>);
2145行目 my $send_to = &mimeencode(qq("
${in_user}$mr" <$in_mail>));
2180行目 my $mail_title = qq(
${simple_title}登録のお知らせ);
2185行目 $send_to = &mimeencode(qq("
${in_user}$mr" <$in_mail>));
2215行目 $html .= qq(<tr><td style="text-align:right;">Subject:</td><td style="text-align:left;">
${simple_title}登録のお知らせ</td></tr>\n);
2253行目 &error(qq(
${pass_file_path}が作成できませんでした));
2266行目 print qq(<strong>
${kigen}</strong>まで有効です。<br />\n);
2288行目 my $mail_title = qq(
${simple_title}URLのお知らせ); # メール用タイトル
2311行目 &error(qq(
${pass_file_path}が作成できませんでした));
2526行目 my $note = qq(\n上記URLの有効期限は
${kigen}までとなっていますので、ご注意ください。);
2573行目 print qq(<option value="$count" selected="selected">
${count}日</option>);
2575行目 print qq(<option value="$count">
${count}日</option>);
2584行目 print qq(<tr><td colspan="2"><table><tr><td style="text-align:left;font-size:80
%;line-height:1.5em">このフォームでメールを送信しないと、ゲストのアカウントは作成されず、本文中のURLは有効になりません。<br />\n);
2601行目 $mail_title = '【' . $simple_title . '】' . "$id
${mr}登録";
2647行目 <user>
${mr}が
2705行目 $from_name = &mimeencode("
${simple_title}$admin_name <$send_from>");
2707行目 $from_name = &mimeencode("
${simple_title}自動送信 <$send_from>");
2845行目 } elsif (-e "
${script}_bck.cgi" && open(BCK,"
${script}_bck.cgi")) {
2899行目 &error('パスワードエラー',"パスワードは
${pass_length}文字以上にしてください");
2911行目 open(INIT,">
${script}_bck.cgi") || &error("
${script}_bck.cgiが開けません。");
2916行目 open(INIT,">$script") || &error("
${script}が開けません。");
2989行目 $html .= qq(<strong>$user</strong>
${mr}のパスワード : $rpass);
2992行目 if ($in_user eq $admin_id) { &error('エラー',"ユーザー名に
${admin_id}は使用できません。"); }
2993行目 if (length($in_user) > $max_user_id) { &error('ユーザー名エラー',"ユーザー名は半角で
${max_user_id}文字、全角で" . (int($max_user_id / 2)) . '文字以内にしてください。'); }
3024行目 if ($user eq $in_user) { &error('エラー', "
${in_user}はすでに使用されています。他の名前にしてください。"); }
3027行目 if (param('in_pass') && length(param('in_pass')) < $pass_length) { &error('エラー',"パスワードは
${pass_length}文字以上にしてください"); }
3037行目 &error("ディレクトリ作成エラー","
${in_path}は作成できません。ディレクトリ名の間は/で区切ってください");
3039行目 &error("ディレクトリ作成エラー","
${in_path}は作成できません。ディレクトリは
${root}の下位ディレクトリにしてください。");
3106行目 $send_mail_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="
${user}
${mr}にメールを送る" /></form>) if $in_mail;
3108行目 $send_mail_link = qq(<a href="$script) . &url_param(%param) . qq("><strong>
${user}
${mr}</strong>にメールを送る</a>) if $in_mail;
3110行目 $comment .= qq(<div style="color:blue">
${in_path}を作成しました。</div>) if $dir_flag;
3113行目 $comment .= qq(<div style="color:red">ディレクトリを
${path}にすると、
${user}は
${path}内の他のユーザーディレクトリすべてにアクセスできることになります。<br />\n);
3114行目 $comment .= qq(特に理由がない限り、
${root}/root/guestのように、
${root}/rootのサブディレクトリにすることをお勧めします。</div>);
3118行目 $comment .= qq(<div style="color:red">
${in_path}は) . join('/',$root,'root') . qq(のサブディレクトリではありません。<br />);
3143行目 $send_mail_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="
${in_user}
${mr}にメールを送る" /></form>) if $in_mail;
3145行目 $send_mail_link = qq(<a href="$script?) . &url_param(%param) . qq("><strong>
${in_user}
${mr}</strong>にメールを送る</a>) if $in_mail;
3149行目 $comment .= qq(<div style="color:red">ディレクトリを
${in_path}にすると、
${in_user}は
${in_path}内の他のユーザーディレクトリすべてにアクセスできることになります。<br />\n);
3150行目 $comment .= qq(特に理由がない限り、
${root}/root/guestのように、
${root}/rootのサブディレクトリにすることをお勧めします。</div>);
3154行目 $comment .= qq(<div style="color:red">
${in_path}は) . join('/',$root,'root') . qq(のサブディレクトリではありません。<br />);
3358行目 $comment .= qq(<div style="color:red">) . join('/',$passdir,$tmp,'.htpasswd') . qq(の
${id}を削除しました。</div>\n);
3398行目 $log_patht =~ s/(\.cgi
$)/t$1/;
3416行目 $log_pathg =~ s/(\.cgi
$)/g$1/;
3557行目 $passcom = qq(<br /><span style="font-size:80
%;color:red">パスワードを変更する場合だけ入力してください</span>);
3583行目 <form action="
${script}#anchor" method="post" style="margin:0">
3605行目 $pex = qq(<span style="font-size:80%"> \(<strong>.
${ex1}</strong>、<strong>.
${ex2}</strong>などの拡張子のファイル\) </span>);
3656行目 $usr_nmb_com .= qq(<td><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$start" style="color:red" /></form></td>);
3662行目 $usr_nmb_com .= qq(<td><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$start〜$end" style="color:red" /></form></td>);
3670行目 $usr_nmb_com .= qq(<td><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$start" /></form></td>);
3676行目 $usr_nmb_com .= qq(<td><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$start〜$end" /></form></td>);
3700行目 my $search = qq(<form action="
${script}#user_index" method="post">\n
3729行目 <form action="
${script}#input" method="post" style="margin:0;padding:0">
3748行目 $html .= qq(<th rowspan="2"><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="登録日時" title="登録日時でソ\ート$order{'time'}" /></form></th>\n);
3754行目 $html .= qq(<th rowspan="2"><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ユーザー名" title="ユーザー名でソ\ート$order{'name'}" /></form></th>\n);
3760行目 $html .= qq(<th rowspan="2"><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ディレクトリ" title="ディレクトリ名でソ\ート$order{'dir'}" /></form></th>\n);
3766行目 $html .= qq(<th rowspan="2"><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="メールアドレス" title="メールアドレスでソ\ート$order{'mail'}" /></form></th>\n);
3773行目 $colplus .= qq(<th rowspan="2"><form action="
${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="最終アクセス時間" title="最終アクセス時間でソ\ート$order{'acc'}" /></form></th>\n);
3882行目 $login = qq(<span style="font-size:80
%;color:red"> ログイン中</span>);
3895行目 $msg .= qq(<td><table summary="ユーザーとしてログイン"><tr><td><form action="$script" method="post" style="margin:0;padding:0" target="_blank">) . &hidden_param(%param) . qq(<input type="image" src="./img/men.gif" alt="
${user}
${mr}としてログイン" /></form></td><td>) . &key_color($user,$key) . qq($login</td></tr></table></td>\n);
3899行目 $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/dir.gif" alt="
${user}
${mr}のディレクトリに移動" /></form></td><td>) .&key_color($path,$key) . qq(</td></tr></table></td>\n);
3902行目 $msg .= qq(<td><table summary="ディレクトリ移動"><tr><td><a href="$url" title="
${user}
${mr}のディレクトリに移動"><span style=""><img border="0" src="./img/dir.gif" alt="
${user}
${mr}のディレクトリに移動" /></span></a></td><td><a href="$url" title="
${user}
${mr}のディレクトリに移動">) . &key_color($path,$key) . qq(</a></td></tr></table></td>\n);
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);
3985行目 $alarm .= qq(
${htaccess} NG!<br>);
3987行目 $path =~ /$root(.+
$)/;
4000行目 my $hit_com = qq(<span style="color:red"><a name="user_index" id="user_index" style="padding:0.5em">
${hit_count}件ヒット!</a></span>\n);
4016行目 $htacc_table .= qq(<form action="$script#htaccess" method="post" style="margin:0;padding:0" name="htaccess" id="htaccess">) . &hidden_param(%param_) . qq(<input type="submit" value="
${htaccess}と.htpasswdを隠す" /></form></div>\n);
4023行目 $htacc_table .= qq(<form action="$script#htaccess" method="post" style="margin:0;padding:0" name="htaccess" id="htaccess">) . &hidden_param(%param_) . qq(<input type="submit" value="
${htaccess}と.htpasswdを表\示する" /></form></div>\n);
4054行目 push(@user,qq(
${id}のパスワードが無効です));
4062行目 $cont = qq(<span style="color:red">
${cont}が存在しません</span>);
4068行目 $htacc_table .= qq(<tr><td>
${htac_file}</td><td>$cont</td><td>@user</td></tr>\n) if (param('show_htaccess'));
4082行目 $htacc_table .= qq(<tr><td><span style="color:red">
${htac_file}がありません</span></td><td colspan="2">$com</td></tr>\n) if (param('show_htaccess'));
4258行目 $html .= qq(アップロードから<input type="text" name="del_day" value="
${life}" size="2" style="ime-mode:disabled" />);
4419行目 $form .= qq(<tr><td colspan="3"><span style="color:red"><strong>
${dir}</strong>を削除しました</span></td></tr>\n);
4427行目 $form .= qq(<tr><td><table summary="ディレクトリを移動"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/dir.gif" alt="
${dir}に移動" /></form></td><td>$dir</td></tr></table></td>\n);
4429行目 $form .= qq(<tr><td><a href="$script) . &url_param(%param) . qq(" title="
${dir}に移動">$dir</a> </td>\n);
4520行目 $mail_title = '【' . $simple_title . '】' . $id . "
${mr}登録抹消";
4537行目 my $jump = qq($script?message=) . &url_encode(qq(<strong>
${id}</strong>の登録を削除しました。));
4547行目 &error('ユーザー名エラー',"ユーザー名は半角で
${max_user_id}文字、全角で" . (int($max_user_id / 2)) . '文字以内にしてください。');
4549行目 if (param('new_pass') && length(param('new_pass')) < $pass_length) { &error('エラー',"パスワードは
${pass_length}文字以上にしてください"); }
4680行目 $mail_title = '【' . $simple_title . '】' . $id . "
${mr}登録変更";
4771行目 $max_day_op .= qq(<option value="$count" selected="selected">
${count}日</option>\n);
4773行目 $max_day_op .= qq(<option value="$count">
${count}日</option>\n);
4780行目 $max_down_op .= qq(<option value="$count" selected="selected">
${count}回</option>\n);
4782行目 $max_down_op .= qq(<option value="$count">
${count}回</option>\n);
4804行目 <tr><td style="text-align:right;">ユーザー名<span style="color:red;font-size:80%">※必須</span></td><td align="left"><input type="text" name="new_id" value="$id" style="width:
${width1}px;height:16px" tabindex="4" /></td></tr>
4914行目 $chg_com .= qq(<div style="color:red">
${frm} → ) . 'my $' . $cfg . " = " . $value . qq(</div>\n);
4946行目 open(INIT,">
${script}_bck.cgi") || &error('バックアップエラー',"
${script}_bck.cgiが開けません。");
4950行目 open(NEW,">$script") || &error('エラー',"
${script}が開けません。");
4955行目 open(CFG,">$config_file") || &error('エラー',"
${config_file}が開けません。");
4970行目 $html .= qq(<form action="
${script}#anchor" method="post" style="margin:0">\n);
5007行目 $com = qq(<span style="color:red">
${value}は存在しません</span>) . $com;
5062行目 if ($count
% 2 == 0) {
5118行目 &dbg(qq(
${script}オープンエラー));
5141行目 open(INIT,">
${script}_bck.cgi") || &error("
${script}_bck.cgiが開けません。");
5145行目 open(NEW,">$script") || &error("
${script}が開けません。");
5159行目 open(CFG,">$config_file") || &error("
${config_file}が開けません。");
5175行目 &error('パスワードエラー',"パスワードは
${pass_length}文字以上にしてください。");
5211行目 open(INIT,">
${script}_bck.cgi") || &error('エラー',"
${script}_bck.cgiが開けません。");
5216行目 open(INIT,">$script") || &error('エラー',"
${script}が開けません。");
5234行目 my $comment = qq(管理者パスワードを設定しました。管理者のユーザー名は<strong>
${id}</strong>です。<br />次回のログイン時はこのユーザー名と、設定した管理者パスワードでログインしてください。);
5273行目 &error('パスワードエラー',"パスワードは
${pass_length}文字以上にしてください");
5276行目 &error('ユーザー名エラー',"ユーザー名に
${admin_id}は使用できません。他の名前にしてください");
5279行目 &error('ユーザー名エラー',"ユーザー名は半角で
${max_user_id}文字、全角で" . (int($max_user_id / 2)) . '文字以内にしてください。');
5292行目 &error(qq(
${user}はすでに登録済みです。),qq(申\し訳ありませんがユーザー名を変更してください。));
5374行目 $html .= qq(<div style="text-align:center;margin:1em">) . param('new_id') . qq(
${mr}を登録しました。</div>\n);
5398行目 $mail_title = '【' . $simple_title . '】' . param('new_id') . "
${mr}登録";
5472行目 $return = qq(<a href="$return_url">
${return_name}に戻る</a> );
5993行目 if ($file =~ /\.(\d{3}
$)/) {
6030行目 $com .= qq(
${hour}時間) if $hour;
6031行目 $com .= qq(
${min}分) if $min;