▼変更対象の変数
514行目 my
$dir = param('dir');
515行目
$dir =~ s/^\.\///;
536行目 my $tpass_path = join('/',$passdir,
$dir,param('time') . '.cgi'); # ゲスト承認用パスワードファイルのパス
728行目 my ($time,$name,
$dir,$epass,$permit,$l_size,$mail,$max_day,$max_down,$dlmail) = split(/\,/);
736行目 if (
$dir ne $user_root &&
$dir =~ /$user_root/ && $c_dir =~ /$dir/) {
1020行目 my (@link,
$dir,$links,$last_dir);
1021行目
$dir = $last_dir = $path;
1022行目 while (
$dir =~ s/(\/[^\/]+$)//) {
1024行目 $last_dir =
$dir;
1027行目 $links =
$dir . $links;
1051行目 my (%pm, %size, %mod, %ind,
%dir, %decode_name, %download);
1059行目
$dir{"$file"} = 1;
1216行目 if (
$dir{"$_"}) {
1236行目 if (
$dir{"$_"}) {
1706行目 my
$dir = param('dir');
1709行目 %param = ('mode'=>'permission','dir'=>
$dir,'file_path'=>$file_path,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
1765行目 my
$dir = shift;
1767行目 opendir(DIR,
$dir) or return($!);
1781行目 my
$dir = shift;
1782行目 opendir(DIR,
$dir) or return($!);
1793行目 rmdir(
$dir) or return($!);
1799行目 my
$dir = shift;
1802行目 opendir(DIR,
$dir) or die("Can not open directory:
$dir ($!)");
2133行目 my
$dir = param('dir');
2276行目 my
$dir = param('dir');
2400行目 my
$dir = param('dir');
2432行目 %param = ('mode'=>'send_url','mode2'=>$param2,'dir'=>
$dir,'time'=>$time,'guest_pass'=>$guest_pass,'login_user'=>$login_user);
2468行目 my (@file_list,%pm, %size, %mod, %ind,
%dir, %decode_name);
2474行目 my $tmp =
$dir;
2501行目 opendir(UPD,
$dir);
2508行目 if (-d join('/',
$dir, $file)) {
2509行目
$dir{"$file"} = 1;
2510行目 } elsif (-f join('/',
$dir, $file)) {
2621行目 my
$dir = $url . qq(?dir=$updir&id=) . &url_encode($id);
3333行目 foreach my
$dir (@dir_list) {
3334行目 if (-e join('/',
$dir,$htaccess) && ! $set_htac{"$dir"}) {
3335行目 if (unlink join('/',
$dir,$htaccess)) {
3336行目 $comment .= qq(<div style="color:red"><strong>) . join('/',
$dir,$htaccess) . qq(</strong>を削除しました</div>\n);
3338行目 $comment .= qq(<div style="color:red"><strong>) . join('/',
$dir,$htaccess) . qq(</strong>を削除できませんでした</div>\n);
3341行目 my $tmp =
$dir;
3357行目 if (index(
$dir,$path_{"$id"}) < 0) {
4312行目 my $file = my
$dir = $_;
4316行目
$dir =~ s/\/[^\/]*$//;
4318行目 my %param = ('mode'=>'download','login_admin'=>$login_admin,'dir'=>
$dir,'file'=>$file);
4327行目 my
$dir = $_;
4329行目
$dir =~ s/\/[^\/]*$//;
4331行目 my %param = ('login_admin'=>$login_admin,'dir'=>
$dir);
4377行目 my
$dir = shift;
4379行目 opendir(DIR,
$dir) or return($!);
4382行目 my $path = join('/',
$dir,$file);
4403行目 foreach my
$dir (@dir_list) {
4404行目 next if
$dir eq './upload/usr_root' ||
$dir eq './upload/root';
4410行目 if (
$dir =~ /^$usr_dir$/ ||
$dir =~ /^$usr_dir\//) {
4417行目 if (param('deldir_' .
$dir) eq '削除' || param('del_all')) {
4418行目 if (! &delete_dir(
$dir)) {
4422行目 if (! -d
$dir) {
4425行目 my %param = ('login_admin'=>$login_admin,'dir'=>
$dir);
4436行目 my $size = &kiro_byte(&size_measure(
$dir));
4486行目 my ($time,$name,
$dir,$epass) = split(/\,/);
4490行目 $del_dir =
$dir;
4559行目 my ($time,$name,
$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail) = split(/\,/);
4567行目 my $tmp_dir =
$dir;
4627行目 my $tmp_dir =
$dir;
4670行目 push(@new_user,qq($time,$name,
$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail,\n));
4737行目 my ($time,$name,
$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail);
4739行目 ($time,$name,
$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail) = split(/\,/);
5407行目 my
$dir = $url . qq(?dir=) . join('/', $updir, 'usr_root', $enc_pass,);
5717行目 my(
@dir);
5722行目 push(
@dir, $entry);
5730行目 foreach my $temp(
@dir){
