▼変更対象の変数
259行目 while (
$file = readdir(AGD)) {
260行目 ($dt,$ex) = split(/\./,
$file);
263行目 my $path = join('/',$agenda_dir,
$file);
264行目 if (
$file ne '.' &&
$file ne '..' && $ex eq 'dat' && (stat $path)[7] > 0 && $dt =~ /^[0-9]${8}/) {
265行目 push(@agd_cont,
$file);
750行目 my
$file = &url_encode($in['file']);
751行目
$file =~ s/%2e/\./g;
752行目 my $del_file = $data_dir . $in['date'] . '/' .
$file;
985行目 while (my
$file = readdir(DIR)) {
986行目 next if
$file eq '.' ||
$file eq '..';
987行目 my $link = join('/',$attach_dir,
$file);
988行目
$file =~ /.*\.(.*)/;
992行目
$file["$link"] =
$file;
1013行目 my $decode_name = &url_decode(
$file["$key"]);
1015行目 print qq(<div style="margin:0.5em"><a href="$tmp"><img src="$tmp" $wh["$key"] border="0" alt="decode_name" title="$decode_name\n$fsize["$key"]"></a> <a href="$script?mode=del_file&date=$in['date']&file=
$file["$key"]">削除</a></div>);
1017行目 print qq(<div style="margin:0.5em"><a href="$tmp" title="$decode_name\n$fsize["$key"]"><img src="./clip.gif" border="0" alt="$decode_name">$decode_name</a> <a href="$script?mode=del_file&date=$in['date']&file=
$file["$key"]">削除</a></div>);
1067行目 foreach
$file (@logfile_list) {
1068行目 $file_path = join('/',$data_dir,
$file);
1090行目 $yy = substr(
$file, 0,4);
1091行目 $mm = substr(
$file, 4,2);
1092行目 $dd = substr(
$file, 6,2);
1461行目 next if
$file eq '.' ||
$file eq '..';
1462行目
$file !~ /.*\.(.*)/;
1464行目 my $path = join('/',$tmp,
$file);
1466行目 my $decode_name = &url_decode(
$file);
2048行目 while (
$file = readdir(ATT)) {
2049行目 next if
$file eq '.' ||
$file eq '..';
2050行目 if (
$file =~ /^(\d+)/) {