▼変更対象の変数
286行目 my
$path = my $fullpath = Cwd::realpath( '.' ); # ルートディレクトリのフルパスを取得
339行目 my
$path = join('/',$logindir,$file);
340行目 if ((stat(
$path))[9] < time - $login_term * 60) {
341行目 unlink
$path; # $login_term分間操作がなければ削除
343行目 if ((stat(
$path))[10] < time - 60 * 60) {
344行目 unlink
$path; # ログインから1時間以上たったら削除
347行目 unlink
$path; # ログアウトしたら削除
461行目 my ($tm, $user,
$path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down,$dlmail) = split(/\,/,$line);
470行目 $updir = $root =
$path;
525行目 my ($tm, $user,
$path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down) = split(/\,/,$line);
1018行目 my
$path = File::Spec->rel2abs($dir2);
1019行目
$path =~ s/\\/\//g;
1021行目 $dir = $last_dir =
$path;
2472行目 my
$path = url;
2473行目
$path =~ s/\/?$script$//;
2476行目
$path = join('/',
$path,$tmp);
2926行目 foreach my
$path (@dir_list) {
2927行目 opendir(SUB,
$path);
2930行目 my $pass_path = join('/',
$path,$file);
3022行目 my ($tm, $user,
$path, $pass, $permit, $l_size) = split(/\,/);
3050行目 my (@parent_user_list,@child_user_list,
%path,%pass);
3072行目 my ($tm, $user,
$path, $pass, $permit, $l_size,$mail,$mxday,$mxdown) = split(/\,/,$line);
3082行目 $del_htac{"$user"} =
$path; # .htaccessを削除するディレクトリの候補
3087行目
$path = $in_path;
3097行目 if ($in_path ne
$path) {
3098行目 $del_htac{"$user"} =
$path; # ディレクトリが変更された場合も、旧ディレクトリを.htaccessを削除するディレクトリの候補に
3112行目 if (
$path eq $_) {
3127行目
$path{"$user"} =
$path;
3130行目 if (
$path =~ /^$in_path/) { push(@child_user_list,$user); }
3230行目 my $tmp_path =
$path{"$_"};
3270行目 # @parent_user_list内のユーザーのルートディレクトリは
$path{"$_"}。
3271行目 # パスワード保存ファイルは join('/',$passdir,
$path{"$_"},'.htpasswd')となる。
3291行目 foreach my
$path (@dir_list) {
3292行目 my $tmp_path =
$path;
3294行目 if (open(PAS,join('/',
$path,'.htpasswd'))) {
3312行目 open(PAS,">" . join('/',
$path,'.htpasswd'));
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/\,/;
3489行目 $fpath =
$path;
3827行目 my
$path = join('/',$logindir,$file);
3828行目 open(GID,
$path);
3862行目 my ($tm, $user,
$path, $pass, $permit, $l_size, $mail) = split/\,/, $_;
3864行目 push(@updir_list,
$path);
3875行目 } elsif (
$path =~ /$user_root/) {
3897行目 %param = ('login_admin'=>$login_admin,'dir'=>
$path);
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);
3919行目 if (-e
$path) {
3984行目 if (! -e join('/',
$path,$htaccess)) {
3987行目
$path =~ /$root(.+$)/;
4185行目 my ($tm,
$path) = split(/<>/);
4186行目
$path =~ s/([^\/]*)$//;
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";
4305行目 my
@path = split(/\//);
4307行目 if (
$path[$i] ne $last[$i]) {
4308行目 $last[$i] =
$path[$i];
4309行目 if ($i == scalar(
@path) - 1) {
4320行目 $tree .= qq(<table summary="ファイルを開く"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/$img" alt=") . &url_decode(
$path[$i]) . qq(を開く" /></form></td><td>) . &url_decode(
$path[$i]) . qq(</td></tr></table>\n);
4322行目 $tree .= qq(<a href="$script) . &url_param(%param) . qq(" title="$_"><span style="position:relative;top:4px;right:1px"><img src="./img/$img" style="border:0" alt="$img" /></span>) . &url_decode(
$path[$i]) . qq(</a>);
4328行目 for (my $j=$i; $j < (scalar(
@path) - 1); $j++) {
4333行目 $tree .= 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="
$path[$i]ディレクトリに移動" /></form></td><td>
$path[$i]</td></tr></table></td>\n);
4335行目 $tree .= qq(<td><span style="position:relative;top:4px;right:1px"><img src="./img/dir.gif" alt="dir.gif" /></span><a href="$script) . &url_param(%param) . qq(">
$path[$i]</a></td>\n);
4339行目 if ($i == scalar(
@path) - 1) {
4346行目 $tree .= qq(<td colspan="$colspan" style="text-align:right;"><table summary="ファイルを開く"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/$img" alt=") . &url_decode(
$path[$i]) . qq(を開く" /></form></td><td>) . &url_decode(
$path[$i]) . qq(</td></tr></table></td>);
4348行目 $tree .= qq(<td colspan="$colspan" style="text-align:right;"><a href="$script) . &url_param(%param) . qq(" title="$_"><span style="position:relative;top:4px;right:1px"><img src="./img/$img" style="border:0" alt="$img" /></span>) . &url_decode(
$path[$i]) . qq(</a></td>\n);
4382行目 my
$path = join('/',$dir,$file);
4383行目 if (-f
$path) {
4384行目 push(@up_file_list,
$path);
4385行目 } elsif (-d
$path) {
4386行目 push(@dir_list,
$path);
5026行目 my ($base,
$path) = @_;
5027行目 (my $mod =
$path) =~ s!/!::!g;
5289行目 my ($tm, $user,
$path, $e_pass, $permit, $l_size) = split(/\,/);
5319行目
$path = join('/',$user_root,substr($enc_pass,0,13));
5320行目 if (mkdir
$path) {
5322行目 my $index = join('/',
$path,'index.html');
5334行目 my $new_line = join(',', $time, $new_id,
$path, $enc_pass, 3, $limit_size, param('new_mail'),$auto_delete,$max_dl_count);
5356行目 my $htac = join('/',
$path, $htaccess);
5715行目 my(
$path) = shift;
5718行目 opendir(DIR,
$path) or return;
