▼変更対象の変数
1326行目 my
@html = <HTM>;
1329行目 foreach (
@html) {
2003行目 my
$html;
2017行目
$html = <<"EOM";
2022行目
$html .= qq(<div class="admin">);
2026行目
$html .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="管理者設定" /></form>);
2028行目
$html .= qq(<a href="$script) . &url_param(%param) . qq(" style="color:$text_color;text-decoration:none;">管理者設定</a>\n);
2033行目
$html .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ユーザー設定" /></form>);
2035行目
$html .= qq(<a href="$script) . &url_param(%param) . qq(" style="color:$text_color;text-decoration:none;">ユーザー設定</a>\n);
2038行目
$html .= qq(</div>\n);
2040行目 return
$html;
2104行目 my ($time,$in_user,$in_path,$in_pass,$in_permit,$in_size,$in_mail,$raw_pass,
$html,$dlmail,$dm);
2161行目 my ($time,$in_user,$in_path,$in_pass,$in_permit,$in_size,$in_mail,$raw_pass,
$html);
2187行目
$html .= qq(<div style="margin:1em;text-align:center;">メールを送信しました</div>\n);
2210行目
$html .= qq(<div style="text-align:center;margin:1em;">\n);
2211行目
$html .= qq(以下の内容でメールを送信します);
2212行目
$html .= qq(<form action="$script" method="post">\n);
2213行目
$html .= &hidden_param(%param);
2214行目
$html .= qq(<div style="margin:1em"><table border="1" cellpadding="4" cellspacing="0" style="margin:auto;" summary="メール送信フォーム">\n);
2215行目
$html .= qq(<tr><td style="text-align:right;">Subject:</td><td style="text-align:left;">${simple_title}登録のお知らせ</td></tr>\n);
2216行目
$html .= qq(<tr><td style="text-align:right;">From:</td><td style="text-align:left;">$from</td></tr>\n);
2217行目
$html .= qq(<tr><td style="text-align:right;">To:</td><td style="text-align:left;">$in_mail</td></tr>\n);
2218行目
$html .= qq(<tr><td style="text-align:right;vertical-align:top;">本文</td><td><textarea name="cont" rows=") . (scalar(@body) + 1) . qq(" cols="80">\n);
2220行目
$html .= $_;
2222行目
$html .= qq(</textarea></td></tr>\n);
2223行目
$html .= qq(<tr><td colspan="2"><div style="font-size:90%">※本文を修正する場合は、フォーム内を編集の上送信ボタンを押してください</div><input type="submit" name="send" value="この内容で送信" /> \n);
2224行目
$html .= qq(<input type="submit" value="キャンセル" onclick="history.back(); return false;" /></td></tr>\n);
2225行目
$html .= qq(</table>\n);
2226行目
$html .= qq(</div>\n);
2227行目
$html .= qq(</form>\n);
2228行目
$html .= qq(</div>\n);
2230行目 return
$html;
2731行目 my
$html;
2735行目
$html = &send_mail;
2738行目
$html = &manage_user;
2741行目
$html = &config('以下の設定を変更',1);
2744行目
$html = &dir_arrange;
2747行目
$html = &file_manage;
2750行目
$html = &show_acc_log;
2753行目
$html = &admin_pass_chg;
2821行目 print
$html;
2885行目 my (
$html, %comment);
2950行目
$html .= $comment{'chg_pass'};
2951行目
$html .= qq(<form action="$script" method="post" style="padding:0">\n);
2952行目
$html .= qq(<input type="hidden" name="mode" value="admin" />\n);
2953行目
$html .= qq(<input type="hidden" name="mode2" value="admin_pass_chg" />\n);
2954行目
$html .= qq(<input type="hidden" name="login_admin" value="$login_admin" />\n);
2955行目
$html .= qq(<table cellpadding="0" summary="パスワードフォーム">\n);
2956行目
$html .= qq(<tr><td colspan="2">管理者のユーザー名 ： <span style="font-size:120%">$admin_id</span></td></tr>\n);
2957行目
$html .= qq(<tr><td>新しいパスワード</td><td><a name="anchor" id="anchor"><input type="password" name="new_pass" value="" style="margin:0.3em" tabindex="1" /></a> );
2958行目
$html .= qq(<a name="pass_chg" id="pass_chg"><input type="submit" name="new_pass_do" value="変更する" style="margin:0.3em" tabindex="2" /></a></td></tr>\n);
2959行目
$html .= qq(</table>\n);
2960行目
$html .= qq(</form>\n);
2961行目 return
$html;
2970行目 my (
$html, $user, $rpass);
2989行目
$html .= qq(<strong>$user</strong>${mr}のパスワード : $rpass);
2990行目 return
$html;
3377行目 my
$html;
3385行目
$html .= qq(<div style="margin:0.5em">\n<table border="1" cellspacing="0" cellpadding="2" summary="アクセスログ">\n);
3386行目
$html .= qq(<caption style="white-space:nowrap;"><strong>$user</strong>のアクセスログ</caption>\n);
3387行目
$html .= qq(<tr><th>アクセス時間</th><th>ホスト</th></tr>\n);
3393行目
$html .= qq(<tr><td>$ax_tm</td><td>$host</td></tr>\n);
3395行目
$html .= qq(</table>\n</div>\n);
3403行目
$html .= qq(<div style="margin:0.5em">\n<table border="1" cellspacing="0" cellpadding="2" summary="アクセスログ">\n);
3404行目
$html .= qq(<caption style="white-space:nowrap;"><strong>$user</strong>のアクセスログ</caption>\n);
3405行目
$html .= qq(<tr><th>アクセス時間</th><th>ホスト</th></tr>\n);
3411行目
$html .= qq(<tr><td>$ax_tm</td><td>$host</td></tr>\n);
3413行目
$html .= qq(</table>\n</div>\n);
3421行目
$html .= qq(<div style="margin:0.5em">\n<table border="1" cellspacing="0" cellpadding="2" summary="アクセスログ">\n);
3422行目
$html .= qq(<caption style="white-space:nowrap;"><strong>$user</strong>のアクセスログ</caption>\n);
3423行目
$html .= qq(<tr><th>アクセス時間</th><th>ホスト</th></tr>\n);
3429行目
$html .= qq(<tr><td>$ax_tm</td><td>$host</td></tr>\n);
3431行目
$html .= qq(</table>\n</div>\n);
3433行目 if (!
$html) {
3434行目
$html = 'ログはありません';
3436行目 return
$html;
3737行目
$html .= << "EOF";
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);
3750行目
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="登録日時でソ\ート$order{'time'}">登録日時</a></th>);
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);
3756行目
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="ユーザー名でソ\ート$order{'name'}">ユーザー名</a></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);
3762行目
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="ディレクトリ名でソ\ート$order{'dir'}">ディレクトリ</a></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);
3768行目
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="メールアドレスでソ\ート$order{'mail'}">メールアドレス</a></th>\n);
3778行目
$html .= << "EOF";
3994行目
$html .= $msg;
3997行目
$html .= qq(</table>\n);
4001行目
$html =~ s/<hit_count>/$hit_com/;
4004行目
$html =~ s/<hit_count>/$nohit/;
4009行目
$html .= $usr_nmb_com;
4104行目
$html .= qq(<div style="padding:0.5em"><a name="anchor" id="anchor">$comment{'htac'}</a></div>) if $comment{'htac'};
4105行目
$html = '' if ! scalar(@user);
4106行目
$html = $usr_form .
$html;
4107行目
$html .= $htacc_table if $use_htaccess && scalar(@user);
4108行目 return
$html;
4113行目 my
$html;
4114行目
$html .= qq(<table border="1" cellpadding="4" cellspacing="0" summary="アクセスログ" style="margin:4px 0 4px 0"><tr><th colspan="3"><a name="acc_log" id="acc_log">アクセスログ</a></th></tr>\n);
4115行目
$html .= qq(<tr><th>ユーザー名</th><th>アクセス時間</th><th>ホスト</th></tr>\n);
4163行目
$html .= qq(<tr><td><a name="line$count" id="line$count">$ac_user</a></td>);
4165行目
$html .= qq(<td><form action="$script#line$count" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$ac_time_o" style="font-size:80%" /></form></td>\n);
4167行目
$html .= qq(<td><small><a href="$log_link" style="padding:0.2em">$ac_time</a></small></td>\n);
4169行目
$html .= qq(<td><small>$ac_host</small></td></tr>\n);
4170行目
$html .= $html2;
4173行目
$html .= qq(</table>\n);
4179行目 my
$html;
4180行目
$html .= qq(<table border="1" cellspacing="0" summary="自動削除されたファイル">\n);
4181行目
$html .= qq(<caption>自動削除されたファイル</caption>);
4182行目
$html .= qq(<tr><th>削除した日時</th><th>ディレクトリ</th><th>ファイル名</th></tr>\n);
4196行目
$html .= qq(<tr style="color:#999999"><td><span style="font-size:80%">) . $time . "</span></td><td>" . $path . "</td><td>$file</td></tr>\n";
4198行目
$html .= qq(<tr><td><span style="font-size:80%">) . $time . "</span></td><td>" . $path . "</td><td>$file</td></tr>\n";
4201行目
$html .= qq(</table>\n);
4208行目 my
$html = &show_del_file;
4209行目 return
$html;
4212行目 my
$html;
4253行目
$html .= $comment{'del_file'} if $comment{'del_file'};
4254行目
$html .= qq(<table summary="一括削除フォーム">\n);
4255行目
$html .= qq(<tr><td colspan="2">);
4256行目
$html .= qq(<form action="$script" method="post" style="margin:0;padding:0">\n<input type="hidden" name="mode" value="admin" />\n<input type="hidden" name="mode2" value="file_manage" />\n);
4257行目
$html .= qq(<input type="hidden" name="login_admin" value="$login_admin" />\n);
4258行目
$html .= qq(アップロードから<input type="text" name="del_day" value="${life}" size="2" style="ime-mode:disabled" />);
4259行目
$html .= qq(日以上経過したファイルを<input type="submit" name="del_old" value="削除する" style="margin:0" />);
4260行目
$html .= qq(</form>\n);
4261行目
$html .= qq(</td>);
4265行目
$html .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="自動削除されたファイル" /></form></td>);
4267行目
$html .= qq(<td> <a href="$script) . &url_param(%param) . qq(">自動削除されたファイル</a></td>);
4270行目
$html .= qq(</tr>\n</table>\n);
4371行目
$html .= $form2 . $tree . qq(</table>\n);
4373行目 return
$html;
4398行目 my
$html;
4444行目
$html .= qq(<div>以下のディレクトリはアクセスできるユーザーがいません。削除しますか？</div>\n);
4446行目
$html .= qq(<div>使用されていないディレクトリはありません</div>\n);
4449行目
$html .= qq(<form action="$script" method="post">\n);
4450行目
$html .= &hidden_param(%param);
4451行目
$html .= qq(<input type="submit" name="del_all" value="全て削除" tabindex="$tab_indx" /> );
4452行目
$html .= qq(<input type="submit" value="リロード" tabindex="1" />\n);
4453行目
$html .= qq(</form>\n);
4455行目
$html .= qq(<table border="1" cellspacing="0" summary="ディレクトリ削除フォーム">\n);
4456行目
$html .= $form;
4457行目
$html .= qq(</table>\n);
4459行目 return
$html;
4967行目 my
$html;
4968行目
$html .= qq(<strong>このCGIの設置ディレクトリ</strong>：$path<br />\n);
4969行目
$html .= $comment if $comment;
4970行目
$html .= qq(<form action="${script}#anchor" method="post" style="margin:0">\n);
4971行目
$html .= qq(<input type="hidden" name="mode" value="$mode" />\n);
4972行目
$html .= qq(<input type="hidden" name="mode2" value="config" />\n);
4973行目
$html .= qq(<input type="hidden" name="login_admin" value="$login_admin" />\n);
4974行目
$html .= qq(<table border="1" cellspacing="0" cellpadding="4" summary="スクリプトの設定変更フォーム">\n);
4975行目
$html .= qq(<tr><td colspan="3" align="center"><input type="submit" name="config" value="$do_word" tabindex="$tindx" /></td></tr>\n); $tindx++;
5018行目
$html .= qq(<tr><td align="right">$line $name = </td><td><input type="text" name="$cfg" value="$value"$style tabindex="$tindx" /></td><td>$com</td></tr>\n); $tindx++;
5020行目
$html .= qq(</table>\n);
5021行目
$html .= qq(</form>\n);
5022行目 return
$html;
5261行目 my
$html;
5374行目
$html .= qq(<div style="text-align:center;margin:1em">) . param('new_id') . qq(${mr}を登録しました。</div>\n);
5382行目
$html .= <<"EOF";
5427行目
$html .= <<"EOF";
5481行目
$html .= <<"EOF";
5497行目
$html .= qq(<div style="margin-top:2em;text-align:center;">\n);
5498行目
$html .= qq(<form action="$script" method="post"><input type="hidden" name="usr_regist" value="1" /><input type="submit" value="新規登録する" tabindex="5" /></form>\n);
5499行目
$html .= qq(</div>\n);
5506行目 print
$html;
