| 141 | my @admin_mail = split(/,/,$admin_mail);
|
| my @admin_mail_list = split(/,/,$admin_mail);
|
| 201 | my @ver = $history =~ /ver\.?(\d+\.\d*)/g;
|
| my @ver_list = $history =~ /ver\.?(\d+\.\d*)/g;
|
| 203 | foreach my $version (@ver) {
|
| foreach my $version (@ver_list) {
|
| 396 | my ($usr_perm,$usr_max_size,$user_mode,@user);
|
| my ($usr_perm,$usr_max_size,$user_mode,@user_list);
|
| 398 | @user = <USR>;
|
| @user_list = <USR>;
|
| 401 | my (%tm, %mail, %max_day, %max_down, %dlmail);
|
| my (%tm, %mail, %max_day, %max_down, %dlmail_hash);
|
| 460 | foreach my $line (@user) {
|
| foreach my $line (@user_list) {
|
| 476 | $mail{"$user"} = $mail;
|
| $mail_hash{"$user"} = $mail;
|
| 477 | $tm{"$user"} = $tm;
|
| $tm_hash{"$user"} = $tm;
|
| 478 | $max_day{"$user"} = $max_day;
|
| $max_day_hash{"$user"} = $max_day;
|
| 479 | $max_down{"$user"} = $max_down;
|
| $max_down_hash{"$user"} = $max_down;
|
| 480 | $dlmail{"$user"} = $dlmail;
|
| $dlmail_hash{"$user"} = $dlmail;
|
| 524 | foreach my $line (@user) {
|
| foreach my $line (@user_list) {
|
| 531 | $max_down{"$id"} = $max_down;
|
| $max_down_hash{"$id"} = $max_down;
|
| 541 | $max_day{"$id"} = $del_day;
|
| $max_day_hash{"$id"} = $del_day;
|
| 633 | $max_down{"$id"} = $max_dl_count if ! $max_down{"$id"} || param('dir') =~ /$user_root2/;
|
| $max_down_hash{"$id"} = $max_dl_count if ! $max_down_hash{"$id"} || param('dir') =~ /$user_root2/;
|
| 634 | if ((stat(join('/',param('dir'),$file . '_count')))[7] >= $max_down{"$id"}) {
|
| if ((stat(join('/',param('dir'),$file . '_count')))[7] >= $max_down_hash{"$id"}) {
|
| 668 | my %param = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| my %param_hash = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| 669 | my $jump = qq($script) . &url_param(%param);
|
| my $jump = qq($script) . &url_param(%param_hash);
|
| 671 | my $param = \%param;
|
| my $param = \%param_hash;
|
| 683 | my %param = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'show_size'=>$show_size);
|
| my %param_hash = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'show_size'=>$show_size);
|
| 684 | my $jump = qq($script) . &url_param(%param);
|
| my $jump = qq($script) . &url_param(%param_hash);
|
| 686 | my $param = \%param;
|
| my $param = \%param_hash;
|
| 727 | foreach (@user) {
|
| foreach (@user_list) {
|
| 730 | $max_day{"$name"} = $max_day if ! $login_guest;
|
| $max_day_hash{"$name"} = $max_day if ! $login_guest;
|
| 731 | $max_down{"$name"} = $max_down if ! $login_guest;
|
| $max_down_hash{"$name"} = $max_down if ! $login_guest;
|
| 732 | $dlmail{"$name"} = $dlmail;
|
| $dlmail_hash{"$name"} = $dlmail;
|
| 757 | my %param = ('dir'=>$dir2,'login_user'=>$login_user,'sort'=>$sort,'show_size'=>$show_size);
|
| my %param_hash = ('dir'=>$dir2,'login_user'=>$login_user,'sort'=>$sort,'show_size'=>$show_size);
|
| 762 | my $jump = $script . &url_param(%param) . qq(&message=) . &url_encode($message);
|
| my $jump = $script . &url_param(%param_hash) . qq(&message=) . &url_encode($message);
|
| 767 | $param{'dir'} = $dir2;
|
| $param_hash{'dir'} = $dir2;
|
| 812 | if ($mail_notify && $files && @admin_mail) {
|
| if ($mail_notify && $files && @admin_mail_list) {
|
| 828 | $param{'dir'} = $dir2;
|
| $param_hash{'dir'} = $dir2;
|
| 829 | $param{'tpass'} = $tpass if $tpass;
|
| $param_hash{'tpass'} = $tpass if $tpass;
|
| 830 | $param{'login_guest'} = $login_guest if $login_guest;
|
| $param_hash{'login_guest'} = $login_guest if $login_guest;
|
| 831 | $param{'login_user'} = $login_user if $login_user;
|
| $param_hash{'login_user'} = $login_user if $login_user;
|
| 832 | $param{'login_admin'} = $login_admin if $login_admin;
|
| $param_hash{'login_admin'} = $login_admin if $login_admin;
|
| 833 | $param{'time'} = param('time') if param('time');
|
| $param_hash{'time'} = param('time') if param('time');
|
| 835 | $link1 .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$1" title="$param{'dir'}に移動" /></form></td>);
|
| $link1 .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$1" title="$param_hash{'dir'}に移動" /></form></td>);
|
| 837 | $link1 .= qq(<a href="$script) . &url_param(%param) . qq(">$1</a>);
|
| $link1 .= qq(<a href="$script) . &url_param(%param_hash) . qq(">$1</a>);
|
| 841 | $param{'dir'} = $dir2;
|
| $param_hash{'dir'} = $dir2;
|
| 844 | $link1 .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$1" title="$param{'dir'}に移動" /></form></td>);
|
| $link1 .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$1" title="$param_hash{'dir'}に移動" /></form></td>);
|
| 846 | $link1 .= qq(<a href="$script) . &url_param(%param) . qq(">$1</a>);
|
| $link1 .= qq(<a href="$script) . &url_param(%param_hash) . qq(">$1</a>);
|
| 855 | $param{'dir'} = $updir;
|
| $param_hash{'dir'} = $updir;
|
| 856 | my $reload_url = &url_param(%param);
|
| my $reload_url = &url_param(%param_hash);
|
| 857 | my $reload_hidden = &hidden_param(%param);
|
| my $reload_hidden = &hidden_param(%param_hash);
|
| 876 | my %param = ('dir'=>$updir,'login_user'=>$login_user,'del_guest'=>param('del_guest'),'do_del'=>'1');
|
| my %param_hash = ('dir'=>$updir,'login_user'=>$login_user,'del_guest'=>param('del_guest'),'do_del'=>'1');
|
| 878 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="削除する" /></form></td></tr></table>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="削除する" /></form></td></tr></table>\n);
|
| 880 | print qq(<td><a href="$script) . &url_param(%param) . qq(">削除する</a></td></tr></table>\n);
|
| print qq(<td><a href="$script) . &url_param(%param_hash) . qq(">削除する</a></td></tr></table>\n);
|
| 892 | $param{"show_all"} = 1;
|
| $param_hash{"show_all"} = 1;
|
| 893 | print qq( <a href="$script) . &url_param(%param) . qq(">隠しファイルを表\示</a>);
|
| print qq( <a href="$script) . &url_param(%param_hash) . qq(">隠しファイルを表\示</a>);
|
| 894 | $param{"show_all"} = 0;
|
| $param_hash{"show_all"} = 0;
|
| 896 | $param{"show_all"} = 0;
|
| $param_hash{"show_all"} = 0;
|
| 897 | print qq( <a href="$script) . &url_param(%param) . qq(">隠しファイルを表\示しない</a>);
|
| print qq( <a href="$script) . &url_param(%param_hash) . qq(">隠しファイルを表\示しない</a>);
|
| 898 | $param{"show_all"} = 1;
|
| $param_hash{"show_all"} = 1;
|
| 902 | foreach (keys %mail) {
|
| foreach (keys %mail_hash) {
|
| 903 | if ($_ && $mail{"$_"}) {
|
| if ($_ && $mail_hash{"$_"}) {
|
| 905 | $user_mail = $mail{"$_"};
|
| $user_mail = $mail_hash{"$_"};
|
| 910 | my %param = ('mode'=>'send_url','dir'=>$updir,'login_user'=>$login_user);
|
| my %param_hash = ('mode'=>'send_url','dir'=>$updir,'login_user'=>$login_user);
|
| 911 | my $mail = qq($script) . &url_param(%param);
|
| my $mail = qq($script) . &url_param(%param_hash);
|
| 913 | print qq(</td>\n<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/mail.gif" alt="メール送信" /></form></td>);
|
| print qq(</td>\n<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/mail.gif" alt="メール送信" /></form></td>);
|
| 914 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="メール送信" /></form>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="メール送信" /></form>\n);
|
| 920 | my (@guest_list,@kigen,@mail);
|
| my (@guest_list,@kigen,@mail_list);
|
| 930 | $kigen[$guest_count] = $guest_list[$guest_count] + $kikan * 3600 * 24;
|
| $kigen_list[$guest_count] = $guest_list[$guest_count] + $kikan * 3600 * 24;
|
| 931 | if ($kigen[$guest_count] < time) {
|
| if ($kigen_list[$guest_count] < time) {
|
| 937 | $kigen[$guest_count] = 0;
|
| $kigen_list[$guest_count] = 0;
|
| 939 | $mail[$guest_count] = (split(/<>/,$line))[3];
|
| $mail_list[$guest_count] = (split(/<>/,$line))[3];
|
| 940 | chomp $mail[$guest_count];
|
| chomp $mail_list[$guest_count];
|
| 941 | $mail[$guest_count] .= qq(に送信) if $mail[$guest_count];
|
| $mail_list[$guest_count] .= qq(に送信) if $mail_list[$guest_count];
|
| 949 | my %param = ('dir'=>$updir,'login_user'=>$login_user,'del_guest'=>$guest_list[$count]);
|
| my %param_hash = ('dir'=>$updir,'login_user'=>$login_user,'del_guest'=>$guest_list[$count]);
|
| 950 | my $opc = (int(($kigen[$count] - time) / ($kigen[$count] - $guest_list[$count]) * 100) / 100) + 0.1;
|
| my $opc = (int(($kigen_list[$count] - time) / ($kigen_list[$count] - $guest_list[$count]) * 100) / 100) + 0.1;
|
| 953 | my $del_link = &url_param(%param);
|
| my $del_link = &url_param(%param_hash);
|
| 954 | if (! $kigen[$count]) {
|
| if (! $kigen_list[$count]) {
|
| 956 | $com .= qq(\n$mail[$count]) if $mail[$count] && ! $sample;
|
| $com .= qq(\n$mail_list[$count]) if $mail_list[$count] && ! $sample;
|
| 958 | print qq(</td>\n<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/men.gif" alt="$com" /></form>);
|
| print qq(</td>\n<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/men.gif" alt="$com" /></form>);
|
| 963 | my $com = qq(ゲストアカウント$guest_list[$count]\n) . &presenttime($kigen[$count]) . qq(まで有効);
|
| my $com = qq(ゲストアカウント$guest_list[$count]\n) . &presenttime($kigen_list[$count]) . qq(まで有効);
|
| 964 | $com .= qq(\n$mail[$count]) if $mail[$count] && ! $sample;
|
| $com .= qq(\n$mail_list[$count]) if $mail_list[$count] && ! $sample;
|
| 966 | print qq(</td>\n<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/men.gif" alt="$com"$img_style /></form>);
|
| print qq(</td>\n<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/men.gif" alt="$com"$img_style /></form>);
|
| 988 | $param{'show_size'} = 1;
|
| $param_hash{'show_size'} = 1;
|
| 990 | print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ディレクトリの容量を表\示" /></form> );
|
| print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ディレクトリの容量を表\示" /></form> );
|
| 992 | print qq(<a href="$script) . &url_param(%param) . qq(" title="ディレクトリ内のファイル数が多いと表\示に時間がかかる場合があります">ディレクトリの容量を表\示</a> );
|
| print qq(<a href="$script) . &url_param(%param_hash) . qq(" title="ディレクトリ内のファイル数が多いと表\示に時間がかかる場合があります">ディレクトリの容量を表\示</a> );
|
| 995 | $param{'show_size'} = 0;
|
| $param_hash{'show_size'} = 0;
|
| 997 | print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ディレクトリの容量を非表\示" /></form> );
|
| print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ディレクトリの容量を非表\示" /></form> );
|
| 999 | print qq(<a href="$script) . &url_param(%param) . qq(">ディレクトリの容量を非表\示</a> );
|
| print qq(<a href="$script) . &url_param(%param_hash) . qq(">ディレクトリの容量を非表\示</a> );
|
| 1039 | my %param = ('dir'=>$updir,'subdir'=>'..','login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| my %param_hash = ('dir'=>$updir,'subdir'=>'..','login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| 1041 | print qq(<form action="$script" method="post" style="margin:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/up.gif" alt="上のディレクトリへ" /></form>\n);
|
| print qq(<form action="$script" method="post" style="margin:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/up.gif" alt="上のディレクトリへ" /></form>\n);
|
| 1043 | print qq(<a href="$script) . &url_param(%param) . qq(" title="上のディレクトリへ"><span style="position:relative;top:4px;"><img src="./img/up.gif" style="border-width:0" alt="上のディレクトリへ" /></span></a>\n);
|
| print qq(<a href="$script) . &url_param(%param_hash) . qq(" title="上のディレクトリへ"><span style="position:relative;top:4px;"><img src="./img/up.gif" style="border-width:0" alt="上のディレクトリへ" /></span></a>\n);
|
| 1051 | my (%pm, %size, %mod, %ind, %dir, %decode_name, %download);
|
| my (%pm, %size, %mod, %ind, %dir, %decode_name, %download_hash);
|
| 1055 | ($dm,$dm,$pm{"$file"},$dm,$dm,$dm,$dm,$size{"$file"},$dm,$mod{"$file"},$ind{"$file"},$dm) = stat(join('/',$updir,$file));
|
| ($dm,$dm,$pm{"$file"},$dm,$dm,$dm,$dm,$size_hash{"$file"},$dm,$mod{"$file"},$ind{"$file"},$dm) = stat(join('/',$updir,$file));
|
| 1056 | $decode_name{"$file"} = &url_decode($file);
|
| $decode_name_hash{"$file"} = &url_decode($file);
|
| 1059 | $dir{"$file"} = 1;
|
| $dir_hash{"$file"} = 1;
|
| 1060 | $download{"$file"} = -1;
|
| $download_hash{"$file"} = -1;
|
| 1061 | $size{"$file"} = &size_measure(join('/',$updir, $file)) if $show_size;
|
| $size_hash{"$file"} = &size_measure(join('/',$updir, $file)) if $show_size;
|
| 1068 | $download{"$file_"} = $size{"$file"};
|
| $download_hash{"$file_"} = $size_hash{"$file"};
|
| 1071 | $download{"$file"} = -1;
|
| $download_hash{"$file"} = -1;
|
| 1082 | foreach my $key (sort { $decode_name{$a} cmp $decode_name{$b} } keys %decode_name) {
|
| foreach my $key (sort { $decode_name_hash{$a} cmp $decode_name_hash{$b} } keys %decode_name_hash) {
|
| 1086 | foreach my $key (sort { $decode_name{$b} cmp $decode_name{$a} } keys %decode_name) {
|
| foreach my $key (sort { $decode_name_hash{$b} cmp $decode_name_hash{$a} } keys %decode_name_hash) {
|
| 1098 | foreach my $key (sort { $size{$b} <=> $size{$a} } keys %size) {
|
| foreach my $key (sort { $size_hash{$b} <=> $size_hash{$a} } keys %size_hash) {
|
| 1102 | foreach my $key (sort { $size{$a} <=> $size{$b} } keys %size) {
|
| foreach my $key (sort { $size_hash{$a} <=> $size_hash{$b} } keys %size_hash) {
|
| 1106 | foreach my $key (sort { $download{$b} <=> $download{$a} } keys %download) {
|
| foreach my $key (sort { $download_hash{$b} <=> $download_hash{$a} } keys %download_hash) {
|
| 1110 | foreach my $key (sort { $download{$a} <=> $download{$b} } keys %download) {
|
| foreach my $key (sort { $download_hash{$a} <=> $download_hash{$b} } keys %download_hash) {
|
| 1130 | $sort{"$_"} = $_ . '_u';
|
| $sort_hash{"$_"} = $_ . '_u';
|
| 1133 | $sort{"$_"} = $_;
|
| $sort_hash{"$_"} = $_;
|
| 1137 | my %param = ('dir'=>$updir,'sort'=>$sort,'show_size'=>$show_size,);
|
| my %param_hash = ('dir'=>$updir,'sort'=>$sort,'show_size'=>$show_size,);
|
| 1138 | $param{"tpass"} = $tpass if $tpass;
|
| $param_hash{"tpass"} = $tpass if $tpass;
|
| 1139 | $param{"login_guest"} = $login_guest if $login_guest;
|
| $param_hash{"login_guest"} = $login_guest if $login_guest;
|
| 1140 | $param{"login_user"} = $login_user if $login_user;
|
| $param_hash{"login_user"} = $login_user if $login_user;
|
| 1141 | $param{"login_admin"} = $login_admin if $login_admin;
|
| $param_hash{"login_admin"} = $login_admin if $login_admin;
|
| 1143 | $param{"time"} = param('time') if param('time');
|
| $param_hash{"time"} = param('time') if param('time');
|
| 1144 | $param{'sort'} = $sort{'name'};
|
| $param_hash{'sort'} = $sort_hash{'name'};
|
| 1146 | print qq(<tr>\n<th abbr="インデックスソ\ート" colspan="2"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ファイル名" title="ファイル名でソ\ート$order{'name'}" /></form></th>\n);
|
| print qq(<tr>\n<th abbr="インデックスソ\ート" colspan="2"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ファイル名" title="ファイル名でソ\ート$order{'name'}" /></form></th>\n);
|
| 1148 | print qq(<tr>\n<th abbr="インデックスソ\ート" colspan="2"><a href="$script) . &url_param(%param) . qq(" title="ファイル名でソ\ート$order{'name'}">ファイル名</a></th>\n);
|
| print qq(<tr>\n<th abbr="インデックスソ\ート" colspan="2"><a href="$script) . &url_param(%param_hash) . qq(" title="ファイル名でソ\ート$order{'name'}">ファイル名</a></th>\n);
|
| 1150 | $param{'sort'} = $sort{'time'};
|
| $param_hash{'sort'} = $sort_hash{'time'};
|
| 1152 | print qq(<th abbr="インデックスソ\ート"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="更新日時" title="更新日時でソ\ート$order{'time'}" /></form></th>\n);
|
| print qq(<th abbr="インデックスソ\ート"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="更新日時" title="更新日時でソ\ート$order{'time'}" /></form></th>\n);
|
| 1154 | print qq(<th abbr="インデックスソ\ート"><a href="$script) . &url_param(%param) . qq(" title="更新日時でソ\ート$order{'time'}">更新日時</a></th>\n);
|
| print qq(<th abbr="インデックスソ\ート"><a href="$script) . &url_param(%param_hash) . qq(" title="更新日時でソ\ート$order{'time'}">更新日時</a></th>\n);
|
| 1156 | $param{'sort'} = $sort{'size'};
|
| $param_hash{'sort'} = $sort_hash{'size'};
|
| 1158 | print qq(<th abbr="インデックスソ\ート"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="サイズ" title="サイズでソ\ート$order{'size'}" /></form></th>\n);
|
| print qq(<th abbr="インデックスソ\ート"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="サイズ" title="サイズでソ\ート$order{'size'}" /></form></th>\n);
|
| 1160 | print qq(<th abbr="インデックスソ\ート"><a href="$script) . &url_param(%param) . qq(" title="サイズでソ\ート$order{'size'}">サイズ</a></th>\n);
|
| print qq(<th abbr="インデックスソ\ート"><a href="$script) . &url_param(%param_hash) . qq(" title="サイズでソ\ート$order{'size'}">サイズ</a></th>\n);
|
| 1162 | $param{'sort'} = $sort{'dl'};
|
| $param_hash{'sort'} = $sort_hash{'dl'};
|
| 1164 | print qq(<th abbr="インデックスソ\ート"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="DL" title="DL数でソ\ート$order{'dl'}" /></form></th>\n) if $show_dl_count;
|
| print qq(<th abbr="インデックスソ\ート"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="DL" title="DL数でソ\ート$order{'dl'}" /></form></th>\n) if $show_dl_count;
|
| 1166 | print qq(<th abbr="インデックスソ\ート"><a href="$script) . &url_param(%param) . qq(" title="DL数でソ\ート$order{'dl'}">DL</a></th>) if $show_dl_count;
|
| print qq(<th abbr="インデックスソ\ート"><a href="$script) . &url_param(%param_hash) . qq(" title="DL数でソ\ート$order{'dl'}">DL</a></th>) if $show_dl_count;
|
| 1191 | my $size = &kiro_byte($size{"$_"});
|
| my $size = &kiro_byte($size_hash{"$_"});
|
| 1199 | my %param = ('dir'=>$updir,'sort'=>$sort,'show_size'=>$show_size,'file'=>$_);
|
| my %param_hash = ('dir'=>$updir,'sort'=>$sort,'show_size'=>$show_size,'file'=>$_);
|
| 1200 | $param{'tpass'} = $tpass if $tpass;
|
| $param_hash{'tpass'} = $tpass if $tpass;
|
| 1201 | $param{'login_guest'} = $login_guest if $login_guest;
|
| $param_hash{'login_guest'} = $login_guest if $login_guest;
|
| 1202 | $param{'login_user'} = $login_user if $login_user;
|
| $param_hash{'login_user'} = $login_user if $login_user;
|
| 1203 | $param{'login_admin'} = $login_admin if $login_admin;
|
| $param_hash{'login_admin'} = $login_admin if $login_admin;
|
| 1204 | $param{'time'} = param('time') if param('time');
|
| $param_hash{'time'} = param('time') if param('time');
|
| 1206 | $param{'mode'} = 'move';
|
| $param_hash{'mode'} = 'move';
|
| 1208 | $move_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="移動" /></form>\n);
|
| $move_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="移動" /></form>\n);
|
| 1210 | $move_link = qq(<a href="$script) . &url_param(%param) . qq(">移動</a>);
|
| $move_link = qq(<a href="$script) . &url_param(%param_hash) . qq(">移動</a>);
|
| 1215 | $param{'mode'} = 'delete';
|
| $param_hash{'mode'} = 'delete';
|
| 1216 | if ($dir{"$_"}) {
|
| if ($dir_hash{"$_"}) {
|
| 1217 | $param{'file_type'} = 'd';
|
| $param_hash{'file_type'} = 'd';
|
| 1219 | $param{'file_type'} = 'f';
|
| $param_hash{'file_type'} = 'f';
|
| 1222 | $del_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="削除" /></form>\n);
|
| $del_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="削除" /></form>\n);
|
| 1224 | $del_link = qq(<a href="$script) . &url_param(%param) . qq(">削除</a>);
|
| $del_link = qq(<a href="$script) . &url_param(%param_hash) . qq(">削除</a>);
|
| 1228 | $param{'mode'} = 'permission';
|
| $param_hash{'mode'} = 'permission';
|
| 1229 | $param{'file_path'} = join('/',$updir,$link);
|
| $param_hash{'file_path'} = join('/',$updir,$link);
|
| 1231 | $perm = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$perm" /></form>\n);
|
| $perm = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$perm" /></form>\n);
|
| 1233 | $perm = qq(<a href="$script) . &url_param(%param) . qq(">$perm</a>);
|
| $perm = qq(<a href="$script) . &url_param(%param_hash) . qq(">$perm</a>);
|
| 1236 | if ($dir{"$_"}) {
|
| if ($dir_hash{"$_"}) {
|
| 1245 | my %param = ('dir'=>$updir,'subdir'=>$_,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size,'file'=>$_);
|
| my %param_hash = ('dir'=>$updir,'subdir'=>$_,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size,'file'=>$_);
|
| 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);
|
| print qq(<td align="right"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/dir.gif" alt="${decode_name}に移動" /></form></td>\n);
|
| 1248 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$decode_name" style="text-align:left;" /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$decode_name" style="text-align:left;" /></form></td>\n);
|
| 1250 | print qq(<td align="right"><a href="$script) . &url_param(%param) . qq("><img src="./img/dir.gif" alt="$decode_name" style="border-width:0" /></a></td>\n);
|
| print qq(<td align="right"><a href="$script) . &url_param(%param_hash) . qq("><img src="./img/dir.gif" alt="$decode_name" style="border-width:0" /></a></td>\n);
|
| 1251 | print qq(<td><a href="$script) . &url_param(%param) . qq(">$decode_name</a></td>\n);
|
| print qq(<td><a href="$script) . &url_param(%param_hash) . qq(">$decode_name</a></td>\n);
|
| 1261 | my %param;
|
| my %param_hash;
|
| 1263 | %param = ('mode'=>'download','dir'=>$updir,'file'=>$link,'login_admin'=>$login_admin);
|
| %param_hash = ('mode'=>'download','dir'=>$updir,'file'=>$link,'login_admin'=>$login_admin);
|
| 1265 | %param = ('mode'=>'download','dir'=>$updir,'file'=>$link);
|
| %param_hash = ('mode'=>'download','dir'=>$updir,'file'=>$link);
|
| 1267 | $param{'login_guest'} = $login_guest;
|
| $param_hash{'login_guest'} = $login_guest;
|
| 1268 | $param{'time'} = param('time');
|
| $param_hash{'time'} = param('time');
|
| 1270 | $param{'login_user'} = $login_user;
|
| $param_hash{'login_user'} = $login_user;
|
| 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>);
|
| my $down = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/$img" alt="${decode_name}をダウンロード" /></form>);
|
| 1280 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$decode_name" style="text-align:left;" /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$decode_name" style="text-align:left;" /></form></td>\n);
|
| 1282 | my $down = qq($script) . &url_param(%param);
|
| my $down = qq($script) . &url_param(%param_hash);
|
| 1300 | my @raw_pass = <RAW>;
|
| my @raw_pass_list = <RAW>;
|
| 1303 | foreach (@raw_pass) {
|
| foreach (@raw_pass_list) {
|
| 1306 | if ($tm == $tm{"$id"} && $raw_pass) {
|
| if ($tm == $tm_hash{"$id"} && $raw_pass) {
|
| 1326 | my @html = <HTM>;
|
| my @html_list = <HTM>;
|
| 1329 | foreach (@html) {
|
| foreach (@html_list) {
|
| 1350 | my %val;
|
| my %val_hash;
|
| 1357 | $val{"$name"} = $value;
|
| $val_hash{"$name"} = $value;
|
| 1377 | if ($cfg && exists $val{"$cfg"} && $line =~ /^\s*(my)?\s*\$$cfg\s*=\s*/) {
|
| if ($cfg && exists $val_hash{"$cfg"} && $line =~ /^\s*(my)?\s*\$$cfg\s*=\s*/) {
|
| 1379 | if ($val{"$cfg"} =~ /^\d+$/) {
|
| if ($val_hash{"$cfg"} =~ /^\d+$/) {
|
| 1380 | $value = $val{"$cfg"};
|
| $value = $val_hash{"$cfg"};
|
| 1382 | $val = $val{"$cfg"};
|
| $val = $val_hash{"$cfg"};
|
| 1394 | if ($oval ne $val{"$cfg"}) {
|
| if ($oval ne $val_hash{"$cfg"}) {
|
| 1399 | push(@config_value,qq($cfg<>) . $val{"$cfg"} . qq(\n));
|
| push(@config_value,qq($cfg<>) . $val_hash{"$cfg"} . qq(\n));
|
| 1491 | my %param = ('mode'=>'move','move'=>'do','dir'=>$updir,'file'=>$file,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| my %param_hash = ('mode'=>'move','move'=>'do','dir'=>$updir,'file'=>$file,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| 1493 | $param{'file_type'} = 'd';
|
| $param_hash{'file_type'} = 'd';
|
| 1495 | $param{'file_type'} = 'f';
|
| $param_hash{'file_type'} = 'f';
|
| 1497 | my $hidden = &hidden_param(%param);
|
| my $hidden = &hidden_param(%param_hash);
|
| 1577 | my %param = ('mode'=>'delete','delete_file'=>'do','dir'=>$updir,'file'=>$file,'file_type'=>param('file_type'),'login_guest'=>$login_guest,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size,'time'=>$time);
|
| my %param_hash = ('mode'=>'delete','delete_file'=>'do','dir'=>$updir,'file'=>$file,'file_type'=>param('file_type'),'login_guest'=>$login_guest,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size,'time'=>$time);
|
| 1578 | my $hidden = &hidden_param(%param);
|
| my $hidden = &hidden_param(%param_hash);
|
| 1615 | my (%mode);
|
| my (%mode_hash);
|
| 1617 | $mode{'o_r'} = $mode & 256;
|
| $mode_hash{'o_r'} = $mode & 256;
|
| 1618 | $mode{'o_w'} = $mode & 128;
|
| $mode_hash{'o_w'} = $mode & 128;
|
| 1619 | $mode{'o_x'} = $mode & 64;
|
| $mode_hash{'o_x'} = $mode & 64;
|
| 1620 | $mode{'g_r'} = $mode & 32;
|
| $mode_hash{'g_r'} = $mode & 32;
|
| 1621 | $mode{'g_w'} = $mode & 16;
|
| $mode_hash{'g_w'} = $mode & 16;
|
| 1622 | $mode{'g_x'} = $mode & 8;
|
| $mode_hash{'g_x'} = $mode & 8;
|
| 1623 | $mode{'u_r'} = $mode & 4;
|
| $mode_hash{'u_r'} = $mode & 4;
|
| 1624 | $mode{'u_w'} = $mode & 2;
|
| $mode_hash{'u_w'} = $mode & 2;
|
| 1625 | $mode{'u_x'} = $mode & 1;
|
| $mode_hash{'u_x'} = $mode & 1;
|
| 1626 | return %mode;
|
| return %mode_hash;
|
| 1672 | my (%mode) = &get_perm($file_path);
|
| my (%mode_hash) = &get_perm($file_path);
|
| 1673 | foreach(keys %mode){
|
| foreach(keys %mode_hash){
|
| 1674 | if($mode{$_}){ $mode{$_} = qq( checked="checked");}
|
| if($mode_hash{$_}){ $mode_hash{$_} = qq( checked="checked");}
|
| 1675 | else{ $mode{$_} = "";}
|
| else{ $mode_hash{$_} = "";}
|
| 1680 | if ($mode{"$_"}) {
|
| if ($mode_hash{"$_"}) {
|
| 1700 | my %param = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| my %param_hash = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| 1702 | print qq(<div style="text-align:center;"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="戻る"></form></div>\n);
|
| print qq(<div style="text-align:center;"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="戻る"></form></div>\n);
|
| 1704 | print qq(<div style="text-align:center;"><a href="$script) . &url_param(%param) . qq(">戻る</a></div>\n);
|
| print qq(<div style="text-align:center;"><a href="$script) . &url_param(%param_hash) . qq(">戻る</a></div>\n);
|
| 1708 | undef %param;
|
| undef %param_hash;
|
| 1709 | %param = ('mode'=>'permission','dir'=>$dir,'file_path'=>$file_path,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| %param_hash = ('mode'=>'permission','dir'=>$dir,'file_path'=>$file_path,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
|
| 1710 | my $hidden = &hidden_param(%param);
|
| my $hidden = &hidden_param(%param_hash);
|
| 1721 | <input type="checkbox" name="o_r" id="o_r" value="256"$mode{'o_r'} tabindex="1" /><label for="o_r">呼び出し(4)</label><br />
|
| <input type="checkbox" name="o_r" id="o_r" value="256"$mode_hash{'o_r'} tabindex="1" /><label for="o_r">呼び出し(4)</label><br />
|
| 1722 | <input type="checkbox" name="o_w" id="o_w" value="128"$mode{'o_w'} tabindex="2" /><label for="o_w">書き込み(2)</label><br />
|
| <input type="checkbox" name="o_w" id="o_w" value="128"$mode_hash{'o_w'} tabindex="2" /><label for="o_w">書き込み(2)</label><br />
|
| 1723 | <input type="checkbox" name="o_x" id="o_x" value="64"$mode{'o_x'} tabindex="3" /><label for="o_x">実行(1)</label>
|
| <input type="checkbox" name="o_x" id="o_x" value="64"$mode_hash{'o_x'} tabindex="3" /><label for="o_x">実行(1)</label>
|
| 1726 | <input type="checkbox" name="g_r" id="g_r" value="32"$mode{'g_r'} tabindex="4" /><label for="g_r">呼び出し(4)</label><br />
|
| <input type="checkbox" name="g_r" id="g_r" value="32"$mode_hash{'g_r'} tabindex="4" /><label for="g_r">呼び出し(4)</label><br />
|
| 1727 | <input type="checkbox" name="g_w" id="g_w" value="16"$mode{'g_w'} tabindex="5" /><label for="g_w">書き込み(2)</label><br />
|
| <input type="checkbox" name="g_w" id="g_w" value="16"$mode_hash{'g_w'} tabindex="5" /><label for="g_w">書き込み(2)</label><br />
|
| 1728 | <input type="checkbox" name="g_x" id="g_x" value="8"$mode{'g_x'} tabindex="6" /><label for="g_x">実行(1)</label>
|
| <input type="checkbox" name="g_x" id="g_x" value="8"$mode_hash{'g_x'} tabindex="6" /><label for="g_x">実行(1)</label>
|
| 1731 | <input type="checkbox" name="u_r" id="u_r" value="4"$mode{'u_r'} tabindex="7" /><label for="u_r">呼び出し(4)</label><br />
|
| <input type="checkbox" name="u_r" id="u_r" value="4"$mode_hash{'u_r'} tabindex="7" /><label for="u_r">呼び出し(4)</label><br />
|
| 1732 | <input type="checkbox" name="u_w" id="u_w" value="2"$mode{'u_w'} tabindex="8" /><label for="u_w">書き込み(2)</label><br />
|
| <input type="checkbox" name="u_w" id="u_w" value="2"$mode_hash{'u_w'} tabindex="8" /><label for="u_w">書き込み(2)</label><br />
|
| 1733 | <input type="checkbox" name="u_x" id="u_x" value="1"$mode{'u_x'} tabindex="9" /><label for="u_x">実行(1)</label>
|
| <input type="checkbox" name="u_x" id="u_x" value="1"$mode_hash{'u_x'} tabindex="9" /><label for="u_x">実行(1)</label>
|
| 1754 | my @perm;
|
| my @perm_list;
|
| 1757 | if($permit & $i){ $perm[$count] = 1; }
|
| if($permit & $i){ $perm_list[$count] = 1; }
|
| 1758 | else{ $perm[$count] = 0; }
|
| else{ $perm_list[$count] = 0; }
|
| 1761 | return @perm;
|
| return @perm_list;
|
| 1783 | my @subdir = ();
|
| my @subdir_list = ();
|
| 1789 | foreach $file (@subdir) {
|
| foreach $file (@subdir_list) {
|
| 1837 | $del_day = $max_day{"$id"} if ! $del_day;
|
| $del_day = $max_day_hash{"$id"} if ! $del_day;
|
| 1845 | chomp $max_day{"$dir_owner"};
|
| chomp $max_day_hash{"$dir_owner"};
|
| 1846 | $max_day{"$dir_owner"} = $auto_delete if ! $max_day{"$dir_owner"};
|
| $max_day_hash{"$dir_owner"} = $auto_delete if ! $max_day_hash{"$dir_owner"};
|
| 1847 | print qq( ファイル保存日数 <strong>$max_day{"$dir_owner"}日</strong>);
|
| print qq( ファイル保存日数 <strong>$max_day_hash{"$dir_owner"}日</strong>);
|
| 1849 | $max_down{"$dir_owner"} = $max_dl_count if ! $max_down{"$dir_owner"};
|
| $max_down_hash{"$dir_owner"} = $max_dl_count if ! $max_down_hash{"$dir_owner"};
|
| 1850 | print qq( 最大ダウンロード回数 <strong>$max_down{"$dir_owner"}回</strong>) if $show_dl_count;
|
| print qq( 最大ダウンロード回数 <strong>$max_down_hash{"$dir_owner"}回</strong>) if $show_dl_count;
|
| 1858 | my %param = ('dir'=>$updir,'sort'=>$sort,'login_admin'=>$login_admin,'login_user'=>$login_user,'login_guest'=>$login_guest,'time'=>$time);
|
| my %param_hash = ('dir'=>$updir,'sort'=>$sort,'login_admin'=>$login_admin,'login_user'=>$login_user,'login_guest'=>$login_guest,'time'=>$time);
|
| 1859 | my $hidden = &hidden_param(%param);
|
| my $hidden = &hidden_param(%param_hash);
|
| 2024 | my %param = ('mode'=>'admin','login_admin'=>$login_admin);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin);
|
| 2026 | $html .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="管理者設定" /></form>);
|
| $html .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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);
|
| $html .= qq(<a href="$script) . &url_param(%param_hash) . qq(" style="color:$text_color;text-decoration:none;">管理者設定</a>\n);
|
| 2031 | my %param = ('mode'=>'user','login_user'=>$login_user);
|
| my %param_hash = ('mode'=>'user','login_user'=>$login_user);
|
| 2033 | $html .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ユーザー設定" /></form>);
|
| $html .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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);
|
| $html .= qq(<a href="$script) . &url_param(%param_hash) . qq(" style="color:$text_color;text-decoration:none;">ユーザー設定</a>\n);
|
| 2047 | my %param = ('mode'=>'history','login_guest'=>$login_guest,'login_user'=>$login_user,'login_admin'=>$login_admin);
|
| my %param_hash = ('mode'=>'history','login_guest'=>$login_guest,'login_user'=>$login_user,'login_admin'=>$login_admin);
|
| 2049 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ver.$ver" /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ver.$ver" /></form></td>\n);
|
| 2051 | print qq(<td><a href="$script) . &url_param(%param) . qq(" title="更新履歴">ver.$ver</a></td>\n);
|
| print qq(<td><a href="$script) . &url_param(%param_hash) . qq(" title="更新履歴">ver.$ver</a></td>\n);
|
| 2102 | my @user = <USR>;
|
| my @user_list = <USR>;
|
| 2105 | foreach (@user) {
|
| foreach (@user_list) {
|
| 2156 | my @user = <USR>;
|
| my @user_list = <USR>;
|
| 2159 | my @raw_pass = <RAW>;
|
| my @raw_pass_list = <RAW>;
|
| 2162 | foreach (@user) {
|
| foreach (@user_list) {
|
| 2169 | foreach (@raw_pass) {
|
| foreach (@raw_pass_list) {
|
| 2186 | &mail($mail_title, $msg, $send_to, $admin_mail[0]);
|
| &mail($mail_title, $msg, $send_to, $admin_mail_list[0]);
|
| 2202 | my $from = $admin_mail[0];
|
| my $from = $admin_mail_list[0];
|
| 2203 | if (!$admin_mail[0]) {
|
| if (!$admin_mail_list[0]) {
|
| 2209 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>$mode2,'tm'=>$tm);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>$mode2,'tm'=>$tm);
|
| 2213 | $html .= &hidden_param(%param);
|
| $html .= &hidden_param(%param_hash);
|
| 2239 | my @user = <USR>;
|
| my @user_list = <USR>;
|
| 2255 | my %param = ('dir'=>param('dir'),'login_user'=>$login_user);
|
| my %param_hash = ('dir'=>param('dir'),'login_user'=>$login_user);
|
| 2257 | print qq(<div style="margin:1em;text-align:center;"><form action="$script" method="post" stykle="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ディレクトリに戻る" /></form></div>\n);
|
| print qq(<div style="margin:1em;text-align:center;"><form action="$script" method="post" stykle="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ディレクトリに戻る" /></form></div>\n);
|
| 2259 | print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param) . qq(">ディレクトリに戻る</a></div>\n);
|
| print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param_hash) . qq(">ディレクトリに戻る</a></div>\n);
|
| 2389 | my %param = ('dir'=>param('dir'),'login_user'=>$login_user);
|
| my %param_hash = ('dir'=>param('dir'),'login_user'=>$login_user);
|
| 2391 | print qq(<div style="margin:1em;text-align:center;"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ディレクトリに戻る" /></form></div>\n);
|
| print qq(<div style="margin:1em;text-align:center;"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ディレクトリに戻る" /></form></div>\n);
|
| 2393 | print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param) . qq(">ディレクトリに戻る</a></div>\n);
|
| print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param_hash) . qq(">ディレクトリに戻る</a></div>\n);
|
| 2418 | $from = $mail{"$name"};
|
| $from = $mail_hash{"$name"};
|
| 2421 | my %param = ('dir'=>param('dir'),'login_user'=>$login_user);
|
| my %param_hash = ('dir'=>param('dir'),'login_user'=>$login_user);
|
| 2423 | print qq(<div><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ディレクトリに戻る" /></form></div>\n);
|
| print qq(<div><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ディレクトリに戻る" /></form></div>\n);
|
| 2425 | print qq(<div><a href="$script) . &url_param(%param) . qq(">ディレクトリに戻る</a></div>\n);
|
| print qq(<div><a href="$script) . &url_param(%param_hash) . qq(">ディレクトリに戻る</a></div>\n);
|
| 2431 | undef %param;
|
| undef %param_hash;
|
| 2432 | %param = ('mode'=>'send_url','mode2'=>$param2,'dir'=>$dir,'time'=>$time,'guest_pass'=>$guest_pass,'login_user'=>$login_user);
|
| %param_hash = ('mode'=>'send_url','mode2'=>$param2,'dir'=>$dir,'time'=>$time,'guest_pass'=>$guest_pass,'login_user'=>$login_user);
|
| 2433 | print &hidden_param(%param);
|
| print &hidden_param(%param_hash);
|
| 2468 | my (@file_list,%pm, %size, %mod, %ind, %dir, %decode_name);
|
| my (@file_list,%pm, %size, %mod, %ind, %dir, %decode_name_hash);
|
| 2469 | my @url;
|
| my @url_list;
|
| 2486 | @url = @add_str;
|
| @url_list = @add_str;
|
| 2506 | ($dm,$dm,$pm{"$file"},$dm,$dm,$dm,$dm,$size{"$file"},$dm,$mod{"$file"},$ind{"$file"},$dm) = stat(join('/',$updir,$file));
|
| ($dm,$dm,$pm{"$file"},$dm,$dm,$dm,$dm,$size_hash{"$file"},$dm,$mod{"$file"},$ind{"$file"},$dm) = stat(join('/',$updir,$file));
|
| 2507 | $decode_name{"$file"} = &url_decode($file);
|
| $decode_name_hash{"$file"} = &url_decode($file);
|
| 2509 | $dir{"$file"} = 1;
|
| $dir_hash{"$file"} = 1;
|
| 2516 | print qq(<tr><td style="text-align:right;vertical-align:top;">本文</td><td><textarea name="cont" rows=") . (scalar(@body) + scalar(@url) * 3 + 4) . qq(" cols="100" tabindex="$tab_index_count">\n); $tab_index_count++;
|
| print qq(<tr><td style="text-align:right;vertical-align:top;">本文</td><td><textarea name="cont" rows=") . (scalar(@body) + scalar(@url_list) * 3 + 4) . qq(" cols="100" tabindex="$tab_index_count">\n); $tab_index_count++;
|
| 2519 | $kday = $max_day{"$id"} if ! $kday;
|
| $kday = $max_day_hash{"$id"} if ! $kday;
|
| 2568 | chomp $max_day{"$id"};
|
| chomp $max_day_hash{"$id"};
|
| 2571 | $max_day{"$id"} = 0 if ! $max_day{"$id"};
|
| $max_day_hash{"$id"} = 0 if ! $max_day_hash{"$id"};
|
| 2572 | if ((! $kigen && $count eq $max_day{"$id"}) || $count eq $kigen) {
|
| if ((! $kigen && $count eq $max_day_hash{"$id"}) || $count eq $kigen) {
|
| 2629 | &mail($mail_title, $msg, $mail{"$id"}, $admin_mail[0]);
|
| &mail($mail_title, $msg, $mail_hash{"$id"}, $admin_mail_list[0]);
|
| 2663 | foreach (@admin_mail) {
|
| foreach (@admin_mail_list) {
|
| 2664 | &mail($mail_title, $msg, $_, $admin_mail[0]);
|
| &mail($mail_title, $msg, $_, $admin_mail_list[0]);
|
| 2671 | &mail($mail_title, $msg, $send_to, $admin_mail[0]);
|
| &mail($mail_title, $msg, $send_to, $admin_mail_list[0]);
|
| 2676 | $send_from = $admin_mail[0] if ! $send_from;
|
| $send_from = $admin_mail_list[0] if ! $send_from;
|
| 2757 | my %param = ('login_admin'=>$login_admin);
|
| my %param_hash = ('login_admin'=>$login_admin);
|
| 2759 | print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$rootディレクトリに戻る" /></form>);
|
| print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$rootディレクトリに戻る" /></form>);
|
| 2761 | print qq(<a href="$script) . &url_param(%param) . qq(">$rootディレクトリに戻る</a>);
|
| print qq(<a href="$script) . &url_param(%param_hash) . qq(">$rootディレクトリに戻る</a>);
|
| 2775 | my %param = ('mode'=>'admin','mode2'=>'show_acc_log','login_admin'=>$login_admin);
|
| my %param_hash = ('mode'=>'admin','mode2'=>'show_acc_log','login_admin'=>$login_admin);
|
| 2777 | $acc_log_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="アクセスログ"$st5 /></form>\n);
|
| $acc_log_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="アクセスログ"$st5 /></form>\n);
|
| 2779 | $acc_log_link = qq([<a href="$script) . &url_param(%param) . qq("$st5>アクセスログ</a>] \n);
|
| $acc_log_link = qq([<a href="$script) . &url_param(%param_hash) . qq("$st5>アクセスログ</a>] \n);
|
| 2783 | $param{'mode'} = 'admin';
|
| $param_hash{'mode'} = 'admin';
|
| 2784 | $param{'mode2'} = 'user';
|
| $param_hash{'mode2'} = 'user';
|
| 2786 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ユーザー管理"$st1 /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ユーザー管理"$st1 /></form></td>\n);
|
| 2788 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st1>ユーザー管理</a>]</td>\n);
|
| print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st1>ユーザー管理</a>]</td>\n);
|
| 2790 | $param{'mode2'} = 'config';
|
| $param_hash{'mode2'} = 'config';
|
| 2792 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="スクリプトの設定"$st2 /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="スクリプトの設定"$st2 /></form></td>\n);
|
| 2794 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st2>スクリプトの設定</a>]</td>\n\n);
|
| print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st2>スクリプトの設定</a>]</td>\n\n);
|
| 2796 | $param{'mode2'} = 'dir_arrange';
|
| $param_hash{'mode2'} = 'dir_arrange';
|
| 2798 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ディレクトリ管理"$st3 /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ディレクトリ管理"$st3 /></form></td>\n);
|
| 2800 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st3>ディレクトリ管理</a>]</td>\n\n);
|
| print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st3>ディレクトリ管理</a>]</td>\n\n);
|
| 2802 | $param{'mode2'} = 'file_manage';
|
| $param_hash{'mode2'} = 'file_manage';
|
| 2804 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="ファイル管理"$st4 /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="ファイル管理"$st4 /></form></td>\n);
|
| 2806 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st4>ファイル管理</a>]</td>\n\n);
|
| print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st4>ファイル管理</a>]</td>\n\n);
|
| 2809 | $param{'mode2'} = 'admin_pass_chg';
|
| $param_hash{'mode2'} = 'admin_pass_chg';
|
| 2811 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="管理者パスワード変更"$st6 /></form></td>\n);
|
| print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="管理者パスワード変更"$st6 /></form></td>\n);
|
| 2813 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st6>管理者パスワード変更</a>]</td>\n\n);
|
| print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st6>管理者パスワード変更</a>]</td>\n\n);
|
| 2857 | @tmp = split(/;/,$line);
|
| @tmp_list = split(/;/,$line);
|
| 2858 | $com = pop(@tmp);
|
| $com = pop(@tmp_list);
|
| 2860 | ($name, $value) = split(/=/,$tmp[0]);
|
| ($name, $value) = split(/=/,$tmp_list[0]);
|
| 2902 | my @tmp = split(/;/,$line);
|
| my @tmp_list = split(/;/,$line);
|
| 2903 | my $com = pop(@tmp);
|
| my $com = pop(@tmp_list);
|
| 2972 | foreach (@user) {
|
| foreach (@user_list) {
|
| 2980 | my @raw_pass = <RAW>;
|
| my @raw_pass_list = <RAW>;
|
| 2982 | foreach (@raw_pass) {
|
| foreach (@raw_pass_list) {
|
| 2996 | my (@user, @raw_pass);
|
| my (@user, @raw_pass_list);
|
| 2997 | @user = &read_file("./user.cgi");
|
| @user_list = &read_file("./user.cgi");
|
| 2998 | @raw_pass = &read_file(join('/',$passdir,'raw_pass.cgi'));
|
| @raw_pass_list = &read_file(join('/',$passdir,'raw_pass.cgi'));
|
| 3008 | my @new_user = ();
|
| my @new_user_list = ();
|
| 3021 | foreach (@user) {
|
| foreach (@user_list) {
|
| 3050 | my (@parent_user_list,@child_user_list,%path,%pass);
|
| my (@parent_user_list,@child_user_list,%path,%pass_hash);
|
| 3071 | foreach my $line (@user) {
|
| foreach my $line (@user_list) {
|
| 3082 | $del_htac{"$user"} = $path; # .htaccessを削除するディレクトリの候補
|
| $del_htac_hash{"$user"} = $path; # .htaccessを削除するディレクトリの候補
|
| 3098 | $del_htac{"$user"} = $path; # ディレクトリが変更された場合も、旧ディレクトリを.htaccessを削除するディレクトリの候補に
|
| $del_htac_hash{"$user"} = $path; # ディレクトリが変更された場合も、旧ディレクトリを.htaccessを削除するディレクトリの候補に
|
| 3104 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$tm);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$tm);
|
| 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;
|
| $send_mail_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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;
|
| $send_mail_link = qq(<a href="$script) . &url_param(%param_hash) . qq("><strong>${user}${mr}</strong>にメールを送る</a>) if $in_mail;
|
| 3127 | $path{"$user"} = $path;
|
| $path_hash{"$user"} = $path;
|
| 3128 | $pass{"$user"} = $pass;
|
| $pass_hash{"$user"} = $pass;
|
| 3141 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$time);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$time);
|
| 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;
|
| $send_mail_link = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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;
|
| $send_mail_link = qq(<a href="$script?) . &url_param(%param_hash) . qq("><strong>${in_user}${mr}</strong>にメールを送る</a>) if $in_mail;
|
| 3159 | print USR @new_user;
|
| print USR @new_user_list;
|
| 3163 | foreach (@new_user) {
|
| foreach (@new_user_list) {
|
| 3172 | my @new_raw_pass = ();
|
| my @new_raw_pass_list = ();
|
| 3174 | foreach my $line (@raw_pass) {
|
| foreach my $line (@raw_pass_list) {
|
| 3190 | @raw_pass = @new_raw_pass;
|
| @raw_pass_list = @new_raw_pass_list;
|
| 3195 | print RAW @raw_pass;
|
| print RAW @raw_pass_list;
|
| 3230 | my $tmp_path = $path{"$_"};
|
| my $tmp_path = $path_hash{"$_"};
|
| 3255 | my $del_htac = $del_htac{"$in_user"};
|
| my $del_htac = $del_htac_hash{"$in_user"};
|
| 3257 | if (unlink join('/',$del_htac{"$in_user"},$htaccess)) {
|
| if (unlink join('/',$del_htac_hash{"$in_user"},$htaccess)) {
|
| 3258 | $comment .= qq(<div style="color:red"><strong>) . join('/',$del_htac{"$in_user"},$htaccess) . qq(</strong>を削除しました。</div>);
|
| $comment .= qq(<div style="color:red"><strong>) . join('/',$del_htac_hash{"$in_user"},$htaccess) . qq(</strong>を削除しました。</div>);
|
| 3260 | my $tmp = $del_htac{"$in_user"};
|
| my $tmp = $del_htac_hash{"$in_user"};
|
| 3270 | # @parent_user_list内のユーザーのルートディレクトリは $path{"$_"}。
|
| # @parent_user_list内のユーザーのルートディレクトリは $path_hash{"$_"}。
|
| 3271 | # パスワード保存ファイルは join('/',$passdir,$path{"$_"},'.htpasswd')となる。
|
| # パスワード保存ファイルは join('/',$passdir,$path_hash{"$_"},'.htpasswd')となる。
|
| 3276 | push(@pass_list, qq($user:$pass{"$user"})) if $user ne $in_user;
|
| push(@pass_list, qq($user:$pass_hash{"$user"})) if $user ne $in_user;
|
| 3324 | foreach my $line (@new_user) {
|
| foreach my $line (@new_user_list) {
|
| 3374 | my (@user, @raw_pass);
|
| my (@user, @raw_pass_list);
|
| 3375 | @user = &read_file("./user.cgi");
|
| @user_list = &read_file("./user.cgi");
|
| 3376 | @raw_pass = &read_file(join('/',$passdir,'raw_pass.cgi'));
|
| @raw_pass_list = &read_file(join('/',$passdir,'raw_pass.cgi'));
|
| 3438 | my ($time_sort, $name_sort, $dir_sort, $mail_sort,$acc_sort,%order,$tindx, %time, %host);
|
| my ($time_sort, $name_sort, $dir_sort, $mail_sort,$acc_sort,%order,$tindx, %time, %host_hash);
|
| 3483 | foreach (@user) {
|
| foreach (@user_list) {
|
| 3537 | my @perm = (' checked="checked"',' checked="checked"','','');
|
| my @perm_list = (' checked="checked"',' checked="checked"','','');
|
| 3542 | $perm[$j] = ' checked="checked"';
|
| $perm_list[$j] = ' checked="checked"';
|
| 3544 | $perm[$j] = '';
|
| $perm_list[$j] = '';
|
| 3569 | $perm[2] = ' checked="checked"' if param('permission');
|
| $perm_list[2] = ' checked="checked"' if param('permission');
|
| 3570 | $perm[3] = ' checked="checked"' if param('cgi');
|
| $perm_list[3] = ' checked="checked"' if param('cgi');
|
| 3580 | my %param = ('login_admin'=>$login_admin,'mode'=>$mode,'mode2'=>'user','in_tm'=>$ftm,'page'=>$page);
|
| my %param_hash = ('login_admin'=>$login_admin,'mode'=>$mode,'mode2'=>'user','in_tm'=>$ftm,'page'=>$page);
|
| 3581 | my $hidden = &hidden_param(%param);
|
| my $hidden = &hidden_param(%param_hash);
|
| 3599 | $usr_form .= qq(<input type="checkbox" name="upload" value="1"$perm[0] tabindex="$tindx" />作成<span style="font-size:80%"> \(ファイルのアップロード、ディレクトリの作成\)</span><br />\n); $tindx++;
|
| $usr_form .= qq(<input type="checkbox" name="upload" value="1"$perm_list[0] tabindex="$tindx" />作成<span style="font-size:80%"> \(ファイルのアップロード、ディレクトリの作成\)</span><br />\n); $tindx++;
|
| 3600 | $usr_form .= qq(<input type="checkbox" name="delete" value="1"$perm[1] tabindex="$tindx" />削除<span style="font-size:80%"> \(ファイル、ディレクトリの削除\)</span><br />\n); $tindx++;
|
| $usr_form .= qq(<input type="checkbox" name="delete" value="1"$perm_list[1] tabindex="$tindx" />削除<span style="font-size:80%"> \(ファイル、ディレクトリの削除\)</span><br />\n); $tindx++;
|
| 3601 | $usr_form .= qq(<input type="checkbox" name="permission" value="1"$perm[2] tabindex="$tindx" />属性の変更<br />\n); $tindx++;
|
| $usr_form .= qq(<input type="checkbox" name="permission" value="1"$perm_list[2] tabindex="$tindx" />属性の変更<br />\n); $tindx++;
|
| 3607 | $usr_form .= qq(<input type="checkbox" name="cgi" value="1"$perm[3] tabindex="$tindx" />禁止ファイル$pexの操作</td>\n </tr>\n); $tindx++;
|
| $usr_form .= qq(<input type="checkbox" name="cgi" value="1"$perm_list[3] tabindex="$tindx" />禁止ファイル$pexの操作</td>\n </tr>\n); $tindx++;
|
| 3611 | my @access = &read_file($access);
|
| my @access_list = &read_file($access);
|
| 3614 | foreach(@access){
|
| foreach(@access_list){
|
| 3616 | $time{"$reg_tm"} = $ac_time if !$time{"$reg_tm"};
|
| $time_hash{"$reg_tm"} = $ac_time if !$time_hash{"$reg_tm"};
|
| 3617 | $host{"$reg_tm"} = $ac_host if !$host{"$reg_tm"};
|
| $host_hash{"$reg_tm"} = $ac_host if !$host_hash{"$reg_tm"};
|
| 3627 | foreach (@user) {
|
| foreach (@user_list) {
|
| 3635 | my $usr_nmb = scalar(@user);
|
| my $usr_nmb = scalar(@user_list);
|
| 3650 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'user','sort'=>$sort,'page'=>$i);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'user','sort'=>$sort,'page'=>$i);
|
| 3651 | my $link = qq($script) . &url_param(%param) . qq(#user_index);
|
| my $link = qq($script) . &url_param(%param_hash) . qq(#user_index);
|
| 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>);
|
| $usr_nmb_com .= qq(<td><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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>);
|
| $usr_nmb_com .= qq(<td><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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>);
|
| $usr_nmb_com .= qq(<td><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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>);
|
| $usr_nmb_com .= qq(<td><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$start〜$end" /></form></td>);
|
| 3717 | if (scalar(@raw_pass)) {
|
| if (scalar(@raw_pass_list)) {
|
| 3718 | if (scalar(@raw_pass) < scalar(@user)) {
|
| if (scalar(@raw_pass_list) < scalar(@user_list)) {
|
| 3722 | if (! -e join('/',$passdir,'raw_pass.cgi') && scalar(@user) > 0) {
|
| if (! -e join('/',$passdir,'raw_pass.cgi') && scalar(@user_list) > 0) {
|
| 3724 | } elsif (scalar(@user) > 0) {
|
| } elsif (scalar(@user_list) > 0) {
|
| 3745 | undef %param;
|
| undef %param_hash;
|
| 3746 | %param = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$time_sort,'mode2'=>'user');
|
| %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$time_sort,'mode2'=>'user');
|
| 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);
|
| $html .= qq(<th rowspan="2"><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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>);
|
| $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="登録日時でソ\ート$order{'time'}">登録日時</a></th>);
|
| 3752 | $param{'sort'} = $name_sort;
|
| $param_hash{'sort'} = $name_sort;
|
| 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);
|
| $html .= qq(<th rowspan="2"><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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);
|
| $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="ユーザー名でソ\ート$order{'name'}">ユーザー名</a></th>\n);
|
| 3758 | $param{'sort'} = $dir_sort;
|
| $param_hash{'sort'} = $dir_sort;
|
| 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);
|
| $html .= qq(<th rowspan="2"><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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);
|
| $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="ディレクトリ名でソ\ート$order{'dir'}">ディレクトリ</a></th>\n);
|
| 3764 | $param{'sort'} = $mail_sort;
|
| $param_hash{'sort'} = $mail_sort;
|
| 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);
|
| $html .= qq(<th rowspan="2"><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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);
|
| $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="メールアドレスでソ\ート$order{'mail'}">メールアドレス</a></th>\n);
|
| 3770 | $param{'sort'} = $acc_sort;
|
| $param_hash{'sort'} = $acc_sort;
|
| 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);
|
| $colplus .= qq(<th rowspan="2"><form action="${script}#user_index" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="最終アクセス時間" title="最終アクセス時間でソ\ート$order{'acc'}" /></form></th>\n);
|
| 3775 | $colplus .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="最終アクセス時間でソ\ート$order{'mail'}">最終アクセス時間</a></th>\n);
|
| $colplus .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="最終アクセス時間でソ\ート$order{'mail'}">最終アクセス時間</a></th>\n);
|
| 3790 | my (@updir_list, %dir_user, %tm);
|
| my (@updir_list, %dir_user, %tm_hash);
|
| 3793 | @user = map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_, split /\,/]} @user_list;
|
| 3795 | @user = map {$_->[0]} sort {$b->[1] cmp $a->[1]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$b->[1] cmp $a->[1]} map {[$_, split /\,/]} @user_list;
|
| 3797 | @user = map {$_->[0]} sort {$a->[2] cmp $b->[2]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$a->[2] cmp $b->[2]} map {[$_, split /\,/]} @user_list;
|
| 3799 | @user = map {$_->[0]} sort {$b->[2] cmp $a->[2]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$b->[2] cmp $a->[2]} map {[$_, split /\,/]} @user_list;
|
| 3801 | @user = map {$_->[0]} sort {$a->[3] cmp $b->[3]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$a->[3] cmp $b->[3]} map {[$_, split /\,/]} @user_list;
|
| 3803 | @user = map {$_->[0]} sort {$b->[3] cmp $a->[3]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$b->[3] cmp $a->[3]} map {[$_, split /\,/]} @user_list;
|
| 3805 | @user = map {$_->[0]} sort {$a->[7] cmp $b->[7]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$a->[7] cmp $b->[7]} map {[$_, split /\,/]} @user_list;
|
| 3807 | @user = map {$_->[0]} sort {$b->[7] cmp $a->[7]} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$b->[7] cmp $a->[7]} map {[$_, split /\,/]} @user_list;
|
| 3809 | @user = map {$_->[0]} sort {$acc_ord{$a->[2]} <=> $acc_ord{$b->[2]}} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$acc_ord{$a->[2]} <=> $acc_ord{$b->[2]}} map {[$_, split /\,/]} @user_list;
|
| 3811 | @user = map {$_->[0]} sort {$acc_ord{$b->[2]} <=> $acc_ord{$a->[2]}} map {[$_, split /\,/]} @user;
|
| @user_list = map {$_->[0]} sort {$acc_ord{$b->[2]} <=> $acc_ord{$a->[2]}} map {[$_, split /\,/]} @user_list;
|
| 3817 | my %rpass;
|
| my %rpass_hash;
|
| 3818 | foreach (@raw_pass) {
|
| foreach (@raw_pass_list) {
|
| 3820 | $rpass{"$tm"} = $rpass;
|
| $rpass_hash{"$tm"} = $rpass;
|
| 3839 | foreach(@user){
|
| foreach(@user_list){
|
| 3865 | $dir_user{"$path"} .= qq($user,);
|
| $dir_user_hash{"$path"} .= qq($user,);
|
| 3866 | $tm{"$path"} = $tm;
|
| $tm_hash{"$path"} = $tm;
|
| 3894 | my %param = ('mode'=>'login','dptid'=>$user);
|
| my %param_hash = ('mode'=>'login','dptid'=>$user);
|
| 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);
|
| $msg .= qq(<td><table summary="ユーザーとしてログイン"><tr><td><form action="$script" method="post" style="margin:0;padding:0" target="_blank">) . &hidden_param(%param_hash) . 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);
|
| 3896 | undef %param;
|
| undef %param_hash;
|
| 3897 | %param = ('login_admin'=>$login_admin,'dir'=>$path);
|
| %param_hash = ('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);
|
| $msg .= qq(<td><table summary="ディレクトリ移動"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/dir.gif" alt="${user}${mr}のディレクトリに移動" /></form></td><td>) .&key_color($path,$key) . qq(</td></tr></table></td>\n);
|
| 3901 | my $url = qq($script) . &url_param(%param);
|
| my $url = qq($script) . &url_param(%param_hash);
|
| 3905 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$tm);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$tm);
|
| 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);
|
| $msg .= qq(<td><table summary="メール送信"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/mail.gif" alt="${user}${mr}にメールを送る" /></form></td><td>) .&key_color($mail,$key) . qq(</td></tr></table></td>\n);
|
| 3909 | my $url = qq($script) . &url_param(%param);
|
| my $url = qq($script) . &url_param(%param_hash);
|
| 3936 | my @perm = &perm_list($permit);
|
| my @perm_list = &perm_list($permit);
|
| 3937 | foreach (@perm) {
|
| foreach (@perm_list) {
|
| 3944 | if (! $time{"$tm"}) {
|
| if (! $time_hash{"$tm"}) {
|
| 3946 | $time{"$tm"} = ' ';
|
| $time_hash{"$tm"} = ' ';
|
| 3953 | $time{"$tm"} = $ac_time;
|
| $time_hash{"$tm"} = $ac_time;
|
| 3954 | $host{"$tm"} = $ac_host;
|
| $host_hash{"$tm"} = $ac_host;
|
| 3957 | if (! $host{"$tm"}) {
|
| if (! $host_hash{"$tm"}) {
|
| 3958 | $host{"$tm"} = ' ';
|
| $host_hash{"$tm"} = ' ';
|
| 3960 | if ($time{"$tm"} ne " ") {
|
| if ($time_hash{"$tm"} ne " ") {
|
| 3962 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>'user','show_log'=>$tm);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>'user','show_log'=>$tm);
|
| 3964 | $msg .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value=\"$time{"$tm"}\" style="font-size:80%" /></form></td>\n);
|
| $msg .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value=\"$time_hash{"$tm"}\" style="font-size:80%" /></form></td>\n);
|
| 3966 | $msg .= qq(<td><small><a href="$script) . &url_param(%param) . qq(">$time{"$tm"}</a></small></td>);
|
| $msg .= qq(<td><small><a href="$script) . &url_param(%param_hash) . qq(">$time_hash{"$tm"}</a></small></td>);
|
| 3968 | $msg .= qq(<td><small>$host{"$tm"}</small></td>\n);
|
| $msg .= qq(<td><small>$host_hash{"$tm"}</small></td>\n);
|
| 3970 | $msg .= qq(<td><small>$time{"$tm"}</small></td><td><small>$host{"$tm"}</small></td>\n);
|
| $msg .= qq(<td><small>$time_hash{"$tm"}</small></td><td><small>$host_hash{"$tm"}</small></td>\n);
|
| 3973 | if (! $rpass{"$tm"}) {
|
| if (! $rpass_hash{"$tm"}) {
|
| 3976 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'tm'=>$tm,'show_pass'=>'1');
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'tm'=>$tm,'show_pass'=>'1');
|
| 3978 | $alarm .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="******" /></form>\n);
|
| $alarm .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="******" /></form>\n);
|
| 3980 | $alarm .= qq(<a href="$script) . &url_param(%param) . qq(">******</a>);
|
| $alarm .= qq(<a href="$script) . &url_param(%param_hash) . qq(">******</a>);
|
| 4034 | my ($cont,@user);
|
| my ($cont,@user_list);
|
| 4036 | my @htac = <HTAC>;
|
| my @htac_list = <HTAC>;
|
| 4038 | foreach (@htac) {
|
| foreach (@htac_list) {
|
| 4070 | $dir_user{"$_"} =~ s/,$//;
|
| $dir_user_hash{"$_"} =~ s/,$//;
|
| 4071 | my @dir_user = split(/,/,$dir_user{"$_"});
|
| my @dir_user_list = split(/,/,$dir_user_hash{"$_"});
|
| 4073 | if (@dir_user) {
|
| if (@dir_user_list) {
|
| 4074 | if (scalar(@dir_user) > 1) {
|
| if (scalar(@dir_user_list) > 1) {
|
| 4075 | $com = qq(<span style="color:red">) . join('か',@dir_user) . qq(を再編集してください</span>);
|
| $com = qq(<span style="color:red">) . join('か',@dir_user_list) . qq(を再編集してください</span>);
|
| 4077 | $com = qq(<span style="color:red"><a href="$script?mode=admin&mode2=user&login_admin=$login_admin&$tm{"$_"}=) . &url_encode('再編集') . qq(#input">) . $dir_user[0] . qq(を再編集してください</a></span>);
|
| $com = qq(<span style="color:red"><a href="$script?mode=admin&mode2=user&login_admin=$login_admin&$tm_hash{"$_"}=) . &url_encode('再編集') . qq(#input">) . $dir_user_list[0] . qq(を再編集してください</a></span>);
|
| 4105 | $html = '' if ! scalar(@user);
|
| $html = '' if ! scalar(@user_list);
|
| 4107 | $html .= $htacc_table if $use_htaccess && scalar(@user);
|
| $html .= $htacc_table if $use_htaccess && scalar(@user_list);
|
| 4116 | my @access = &read_file($access);
|
| my @access_list = &read_file($access);
|
| 4118 | foreach(@access){
|
| foreach(@access_list){
|
| 4136 | my %param = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>$mode2,'line'=>$count);
|
| my %param_hash = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>$mode2,'line'=>$count);
|
| 4141 | $param{'show_log'} = $tm;
|
| $param_hash{'show_log'} = $tm;
|
| 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);
|
| $html .= qq(<td><form action="$script#line$count" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$ac_time_o" style="font-size:80%" /></form></td>\n);
|
| 4220 | @d = $_ =~ /\//g;
|
| @d_list = $_ =~ /\//g;
|
| 4221 | $d = scalar(@d) if $d < scalar(@d);
|
| $d = scalar(@d_list) if $d < scalar(@d_list);
|
| 4263 | my %param = ('mode'=>'admin','mode2'=>'file_manage','show_del_file'=>'1','login_admin'=>$login_admin);
|
| my %param_hash = ('mode'=>'admin','mode2'=>'file_manage','show_del_file'=>'1','login_admin'=>$login_admin);
|
| 4265 | $html .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="自動削除されたファイル" /></form></td>);
|
| $html .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="自動削除されたファイル" /></form></td>);
|
| 4267 | $html .= qq(<td> <a href="$script) . &url_param(%param) . qq(">自動削除されたファイル</a></td>);
|
| $html .= qq(<td> <a href="$script) . &url_param(%param_hash) . qq(">自動削除されたファイル</a></td>);
|
| 4273 | my %param = ('mode'=>'admin','mode2'=>'file_manage','login_admin'=>$login_admin,'show_all'=>$show_all);
|
| my %param_hash = ('mode'=>'admin','mode2'=>'file_manage','login_admin'=>$login_admin,'show_all'=>$show_all);
|
| 4276 | $reload = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="image" src="./img/reload.gif" alt="リロード" /><input type="submit" value="リロード" /></form>);
|
| $reload = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/reload.gif" alt="リロード" /><input type="submit" value="リロード" /></form>);
|
| 4278 | $reload = qq( <a href="$script) . &url_param(%param) . qq(">リロード</a>);
|
| $reload = qq( <a href="$script) . &url_param(%param_hash) . qq(">リロード</a>);
|
| 4282 | $param{'show_all'} = 0;
|
| $param_hash{'show_all'} = 0;
|
| 4284 | $show_all = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="隠しファイルを隠す" /></form>);
|
| $show_all = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="隠しファイルを隠す" /></form>);
|
| 4286 | $show_all = qq( <a href="$script) . &url_param(%param) . qq(">隠しファイルを隠す</a>);
|
| $show_all = qq( <a href="$script) . &url_param(%param_hash) . qq(">隠しファイルを隠す</a>);
|
| 4289 | $param{'show_all'} = 1;
|
| $param_hash{'show_all'} = 1;
|
| 4291 | $show_all = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="隠しファイルも表\示" /></form>);
|
| $show_all = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="隠しファイルも表\示" /></form>);
|
| 4293 | $show_all = qq( <a href="$script) . &url_param(%param) . qq(">隠しファイルも表\示</a>);
|
| $show_all = qq( <a href="$script) . &url_param(%param_hash) . qq(">隠しファイルも表\示</a>);
|
| 4305 | my @path = split(/\//);
|
| my @path_list = split(/\//);
|
| 4307 | if ($path[$i] ne $last[$i]) {
|
| if ($path_list[$i] ne $last[$i]) {
|
| 4308 | $last[$i] = $path[$i];
|
| $last[$i] = $path_list[$i];
|
| 4309 | if ($i == scalar(@path) - 1) {
|
| if ($i == scalar(@path_list) - 1) {
|
| 4318 | my %param = ('mode'=>'download','login_admin'=>$login_admin,'dir'=>$dir,'file'=>$file);
|
| my %param_hash = ('mode'=>'download','login_admin'=>$login_admin,'dir'=>$dir,'file'=>$file);
|
| 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);
|
| $tree .= qq(<table summary="ファイルを開く"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/$img" alt=") . &url_decode($path_list[$i]) . qq(を開く" /></form></td><td>) . &url_decode($path_list[$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>);
|
| $tree .= qq(<a href="$script) . &url_param(%param_hash) . qq(" title="$_"><span style="position:relative;top:4px;right:1px"><img src="./img/$img" style="border:0" alt="$img" /></span>) . &url_decode($path_list[$i]) . qq(</a>);
|
| 4328 | for (my $j=$i; $j < (scalar(@path) - 1); $j++) {
|
| for (my $j=$i; $j < (scalar(@path_list) - 1); $j++) {
|
| 4331 | my %param = ('login_admin'=>$login_admin,'dir'=>$dir);
|
| my %param_hash = ('login_admin'=>$login_admin,'dir'=>$dir);
|
| 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);
|
| $tree .= qq(<td><table summary="ディレクトリに移動"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="image" src="./img/dir.gif" alt="$path_list[$i]ディレクトリに移動" /></form></td><td>$path_list[$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);
|
| $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_hash) . qq(">$path_list[$i]</a></td>\n);
|
| 4339 | if ($i == scalar(@path) - 1) {
|
| if ($i == scalar(@path_list) - 1) {
|
| 4344 | my %param = ('mode'=>'download','login_admin'=>$login_admin,'file'=>$file);
|
| my %param_hash = ('mode'=>'download','login_admin'=>$login_admin,'file'=>$file);
|
| 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>);
|
| $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_hash) . qq(<input type="image" src="./img/$img" alt=") . &url_decode($path_list[$i]) . qq(を開く" /></form></td><td>) . &url_decode($path_list[$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);
|
| $tree .= qq(<td colspan="$colspan" style="text-align:right;"><a href="$script) . &url_param(%param_hash) . qq(" title="$_"><span style="position:relative;top:4px;right:1px"><img src="./img/$img" style="border:0" alt="$img" /></span>) . &url_decode($path_list[$i]) . qq(</a></td>\n);
|
| 4364 | my %param = ('mode'=>'admin','mode2'=>'file_manage','login_admin'=>$login_admin,'file_delete'=>'1');
|
| my %param_hash = ('mode'=>'admin','mode2'=>'file_manage','login_admin'=>$login_admin,'file_delete'=>'1');
|
| 4365 | $tree .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" name="$_" value="削除" /></form></td>\n);
|
| $tree .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" name="$_" value="削除" /></form></td>\n);
|
| 4408 | foreach (@user) {
|
| foreach (@user_list) {
|
| 4425 | my %param = ('login_admin'=>$login_admin,'dir'=>$dir);
|
| my %param_hash = ('login_admin'=>$login_admin,'dir'=>$dir);
|
| 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);
|
| $form .= qq(<tr><td><table summary="ディレクトリを移動"><tr><td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . 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);
|
| $form .= qq(<tr><td><a href="$script) . &url_param(%param_hash) . qq(" title="${dir}に移動">$dir</a> </td>\n);
|
| 4431 | undef %param;
|
| undef %param_hash;
|
| 4432 | %param = ('del_dir'=>'1','mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'dir_arrange');
|
| %param_hash = ('del_dir'=>'1','mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'dir_arrange');
|
| 4433 | $form .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" name="deldir_$dir" value="削除" tabindex="$tab_indx" /></form></td>\n);
|
| $form .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" name="deldir_$dir" value="削除" tabindex="$tab_indx" /></form></td>\n);
|
| 4448 | my %param = ('del_dir'=>1,'mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'dir_arrange');
|
| my %param_hash = ('del_dir'=>1,'mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'dir_arrange');
|
| 4450 | $html .= &hidden_param(%param);
|
| $html .= &hidden_param(%param_hash);
|
| 4481 | my @new_user = ();
|
| my @new_user_list = ();
|
| 4484 | my @user = &read_file('./user.cgi');
|
| my @user_list = &read_file('./user.cgi');
|
| 4485 | foreach (@user) {
|
| foreach (@user_list) {
|
| 4487 | if ($tm{"$id"} != $time || $id ne $name) {
|
| if ($tm_hash{"$id"} != $time || $id ne $name) {
|
| 4500 | print USR @new_user;
|
| print USR @new_user_list;
|
| 4511 | if ((split(/,/))[0] != $tm{"$id"}) {
|
| if ((split(/,/))[0] != $tm_hash{"$id"}) {
|
| 4518 | if ($mail_notify && @admin_mail) {
|
| if ($mail_notify && @admin_mail_list) {
|
| 4525 | @msg = &read_file('./mail_template/u2a_del.txt');
|
| @msg_list = &read_file('./mail_template/u2a_del.txt');
|
| 4526 | $msg = join('',@msg);
|
| $msg = join('',@msg_list);
|
| 4533 | foreach (@admin_mail) {
|
| foreach (@admin_mail_list) {
|
| 4554 | my @new_user = ();
|
| my @new_user_list = ();
|
| 4557 | my @user = &read_file('./user.cgi');
|
| my @user_list = &read_file('./user.cgi');
|
| 4558 | foreach (@user) {
|
| foreach (@user_list) {
|
| 4560 | if ($tm{"$id"} != $time) {
|
| if ($tm_hash{"$id"} != $time) {
|
| 4600 | if ($tm == $tm{"$id"}) {
|
| if ($tm == $tm_hash{"$id"}) {
|
| 4612 | if ($tm == $tm{"$id"}) {
|
| if ($tm == $tm_hash{"$id"}) {
|
| 4622 | push(@new_raw_pass_list,qq($tm{"$id"},$e_new_raw_pass,\n));
|
| push(@new_raw_pass_list,qq($tm_hash{"$id"},$e_new_raw_pass,\n));
|
| 4654 | if (param('max_day') != $max_day{"$id"}) {
|
| if (param('max_day') != $max_day_hash{"$id"}) {
|
| 4657 | if (param('max_down') != $max_down{"$id"}) {
|
| if (param('max_down') != $max_down_hash{"$id"}) {
|
| 4660 | if (param('dlmail') != $dlmail{"$id"}) {
|
| if (param('dlmail') != $dlmail_hash{"$id"}) {
|
| 4674 | print USR @new_user;
|
| print USR @new_user_list;
|
| 4678 | if ($mail_notify && @admin_mail) {
|
| if ($mail_notify && @admin_mail_list) {
|
| 4685 | @msg = &read_file('./mail_template/u2a_mod.txt');
|
| @msg_list = &read_file('./mail_template/u2a_mod.txt');
|
| 4686 | $msg = join('',@msg);
|
| $msg = join('',@msg_list);
|
| 4707 | foreach (@admin_mail) {
|
| foreach (@admin_mail_list) {
|
| 4721 | my %param = ('login_user'=>$login_user,'mode'=>'user');
|
| my %param_hash = ('login_user'=>$login_user,'mode'=>'user');
|
| 4722 | my $hidden = &hidden_param(%param);
|
| my $hidden = &hidden_param(%param_hash);
|
| 4738 | foreach (@user) {
|
| foreach (@user_list) {
|
| 4740 | if ($tm{"$id"} == $time) {
|
| if ($tm_hash{"$id"} == $time) {
|
| 4762 | my $old_mail = $mail{"$id"};
|
| my $old_mail = $mail_hash{"$id"};
|
| 4768 | chomp $max_day{"$id"};
|
| chomp $max_day_hash{"$id"};
|
| 4769 | $max_day{"$id"} = 0 if ! $max_day{"$id"};
|
| $max_day_hash{"$id"} = 0 if ! $max_day_hash{"$id"};
|
| 4770 | if ($max_day{"$id"} == $count || (!$max_day{"$id"} && $count == $auto_delete)) {
|
| if ($max_day_hash{"$id"} == $count || (!$max_day_hash{"$id"} && $count == $auto_delete)) {
|
| 4779 | if ($max_down{"$id"} == $count || (!$max_down{"$id"} && $count == $max_dl_count)) {
|
| if ($max_down_hash{"$id"} == $count || (!$max_down_hash{"$id"} && $count == $max_dl_count)) {
|
| 4794 | my %param = ('mode'=>'user','login_user'=>$login_user,'old_id'=>$id,'old_pass'=>$pass,'old_mail'=>$mail{"$id"});
|
| my %param_hash = ('mode'=>'user','login_user'=>$login_user,'old_id'=>$id,'old_pass'=>$pass,'old_mail'=>$mail_hash{"$id"});
|
| 4795 | $hidden = &hidden_param(%param) . $hidden;
|
| $hidden = &hidden_param(%param_hash) . $hidden;
|
| 4809 | <tr><td style="text-align:right;">メールアドレス</td><td align="left"><input type="text" name="new_mail" value="$mail{"$id"}" style="ime-mode:disabled; width:120px;height:16px" tabindex="7" /></td></tr>
|
| <tr><td style="text-align:right;">メールアドレス</td><td align="left"><input type="text" name="new_mail" value="$mail_hash{"$id"}" style="ime-mode:disabled; width:120px;height:16px" tabindex="7" /></td></tr>
|
| 4837 | my %param = %$param;
|
| my %param_hash = %$param;
|
| 4860 | foreach (keys %param) {
|
| foreach (keys %param_hash) {
|
| 4861 | print qq(<input type="hidden" name="$_" value=") . &url_decode($param{$_}) . qq(" />\n);
|
| print qq(<input type="hidden" name="$_" value=") . &url_decode($param_hash{$_}) . qq(" />\n);
|
| 4907 | my @oval = split(/=/,$frm);
|
| my @oval_list = split(/=/,$frm);
|
| 4908 | shift @oval;
|
| shift @oval_list;
|
| 4909 | $oval = join('=',@oval);
|
| $oval = join('=',@oval_list);
|
| 4923 | my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
|
| my @salt_list = ('a'..'z', 'A'..'Z', '0'..'9');
|
| 4926 | $passdir .= $salt[int(rand(@salt))];
|
| $passdir .= $salt_list[int(rand(@salt_list))];
|
| 4929 | my @tmp = split(/;/,$line);
|
| my @tmp_list = split(/;/,$line);
|
| 4930 | my $com = pop(@tmp);
|
| my $com = pop(@tmp_list);
|
| 4984 | @tmp = split(/;/,$line);
|
| @tmp_list = split(/;/,$line);
|
| 4985 | $com = pop(@tmp);
|
| $com = pop(@tmp_list);
|
| 4988 | ($name, $value) = split(/=/,$tmp[0]);
|
| ($name, $value) = split(/=/,$tmp_list[0]);
|
| 4989 | my @value = split(/=/,$tmp[0]);
|
| my @value_list = split(/=/,$tmp_list[0]);
|
| 4990 | shift @value;
|
| shift @value_list;
|
| 4991 | $value = join('=',@value);
|
| $value = join('=',@value_list);
|
| 5041 | my @history = split("\n",$history);
|
| my @history_list = split("\n",$history);
|
| 5044 | foreach (@history) {
|
| foreach (@history_list) {
|
| 5047 | $history[$j] .= $_;
|
| $history_list[$j] .= $_;
|
| 5048 | $history[$i] = '';
|
| $history_list[$i] = '';
|
| 5054 | @history = reverse @history;
|
| @history_list = reverse @history_list;
|
| 5057 | foreach (@history) {
|
| foreach (@history_list) {
|
| 5098 | my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
|
| my @salt_list = ('a'..'z', 'A'..'Z', '0'..'9');
|
| 5103 | $passdir .= $salt[int(rand(@salt))];
|
| $passdir .= $salt_list[int(rand(@salt_list))];
|
| 5180 | my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
|
| my @salt_list = ('a'..'z', 'A'..'Z', '0'..'9');
|
| 5183 | $passdir .= $salt[int(rand(@salt))];
|
| $passdir .= $salt_list[int(rand(@salt_list))];
|
| 5197 | my @tmp = split(/;/,$line);
|
| my @tmp_list = split(/;/,$line);
|
| 5198 | my $com = pop(@tmp);
|
| my $com = pop(@tmp_list);
|
| 5202 | my @tmp = split(/;/,$line);
|
| my @tmp_list = split(/;/,$line);
|
| 5203 | my $com = pop(@tmp);
|
| my $com = pop(@tmp_list);
|
| 5286 | my @user = <USR>;
|
| my @user_list = <USR>;
|
| 5288 | foreach (@user) {
|
| foreach (@user_list) {
|
| 5338 | print USR @user;
|
| print USR @user_list;
|
| 5396 | if ($mail_notify && @admin_mail) {
|
| if ($mail_notify && @admin_mail_list) {
|
| 5403 | @msg = &read_file('./mail_template/u2a_new.txt');
|
| @msg_list = &read_file('./mail_template/u2a_new.txt');
|
| 5404 | $msg = join('',@msg);
|
| $msg = join('',@msg_list);
|
| 5414 | foreach (@admin_mail) {
|
| foreach (@admin_mail_list) {
|
| 5549 | my @str = ('a' .. 'f', 0 .. 9);
|
| my @str_list = ('a' .. 'f', 0 .. 9);
|
| 5552 | $salt .= $str[int(rand(@str))];
|
| $salt .= $str_list[int(rand(@str_list))];
|
| 5625 | my @salt = ();
|
| my @salt_list = ();
|
| 5637 | $auto_pass .= $salt[int(rand(@salt))];
|
| $auto_pass .= $salt_list[int(rand(@salt_list))];
|
| 5772 | my @access = ();
|
| my @access_list = ();
|
| 5780 | @access = <ACCE>;
|
| @access_list = <ACCE>;
|
| 5785 | @access = splice(@access, 0, $save_num);
|
| @access_list = splice(@access, 0, $save_num);
|
| 5788 | print ACC @access;
|
| print ACC @access_list;
|
| 5834 | my(@cook) = @_;
|
| my(@cook_list) = @_;
|
| 5837 | @t = gmtime(time + 60*24*60*$c_val_term);
|
| @t_list = gmtime(time + 60*24*60*$c_val_term);
|
| 5843 | $w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);
|
| $w[$t_list[6]], $t_list[3], $m[$t_list[4]], $t_list[5]+1900, $t_list[2], $t_list[1], $t_list[0]);
|
| 5846 | my $save_cokkie = $cook[2];
|
| my $save_cokkie = $cook_list[2];
|
| 5848 | @cook = ();
|
| @cook_list = ();
|
| 5852 | foreach (@cook) {
|
| foreach (@cook_list) {
|
| 5865 | my($key, $val, %cook, $cook, @cook);
|
| my($key, $val, %cook, $cook, @cook_list);
|
| 5874 | $cook{$key} = $val;
|
| $cook_hash{$key} = $val;
|
| 5878 | foreach ( split(/<>/, $cook{"$cookname"}) ) {
|
| foreach ( split(/<>/, $cook_hash{"$cookname"}) ) {
|
| 5882 | return (@cook);
|
| return (@cook_list);
|
| 5949 | my %param = @_;
|
| my %param_hash = @_;
|
| 5952 | foreach (sort keys %param) {
|
| foreach (sort keys %param_hash) {
|
| 5953 | if ($param{"$_"}) {
|
| if ($param_hash{"$_"}) {
|
| 5955 | $url .= "?" . $_ . qq(=$param{"$_"});
|
| $url .= "?" . $_ . qq(=$param_hash{"$_"});
|
| 5958 | $url .= "&" . $_ . qq(=$param{"$_"});
|
| $url .= "&" . $_ . qq(=$param_hash{"$_"});
|
| 5967 | my %param = @_;
|
| my %param_hash = @_;
|
| 5969 | foreach (sort keys %param) {
|
| foreach (sort keys %param_hash) {
|
| 5970 | if ($param{"$_"}) {
|
| if ($param_hash{"$_"}) {
|
| 5971 | my $decode = &url_decode($param{"$_"});
|
| my $decode = &url_decode($param_hash{"$_"});
|
| 6066 | my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
|
| my @salt_list = ('a'..'z', 'A'..'Z', '0'..'9');
|
| 6070 | $login_id .= $salt[int(rand(@salt))];
|
| $login_id .= $salt_list[int(rand(@salt_list))];
|
