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(">?B?オ?t?@?C?????\\?ヲ</a>);
|
print qq( <a href="$script) . &url_param(%param_hash) . qq(">?B?オ?t?@?C?????\\?ヲ</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(">?B?オ?t?@?C?????\\?ヲ?オ?ネ?「</a>);
|
print qq( <a href="$script) . &url_param(%param_hash) . qq(">?B?オ?t?@?C?????\\?ヲ?オ?ネ?「</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="???[?????M" /></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="???[?????M" /></form></td>);
|
914 | print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="???[?????M" /></form>\n);
|
print qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="???[?????M" /></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(?ノ???M) if $mail[$guest_count];
|
$mail_list[$guest_count] .= qq(?ノ???M) 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(?Q?X?g?A?J?E???g$guest_list[$count]\n) . &presenttime($kigen[$count]) . qq(?ワ?ナ?L??);
|
my $com = qq(?Q?X?g?A?J?E???g$guest_list[$count]\n) . &presenttime($kigen_list[$count]) . qq(?ワ?ナ?L??);
|
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="?f?B???N?g???フ?e?ハ???\\?ヲ" /></form> );
|
print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?f?B???N?g???フ?e?ハ???\\?ヲ" /></form> );
|
992 | print qq(<a href="$script) . &url_param(%param) . qq(" title="?f?B???N?g?????フ?t?@?C?????ェ?ス?「?ニ?\\?ヲ?ノ???ヤ?ェ?ゥ?ゥ???????ェ?????ワ?キ">?f?B???N?g???フ?e?ハ???\\?ヲ</a> );
|
print qq(<a href="$script) . &url_param(%param_hash) . qq(" title="?f?B???N?g?????フ?t?@?C?????ェ?ス?「?ニ?\\?ヲ?ノ???ヤ?ェ?ゥ?ゥ???????ェ?????ワ?キ">?f?B???N?g???フ?e?ハ???\\?ヲ</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="?f?B???N?g???フ?e?ハ?????\\?ヲ" /></form> );
|
print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?f?B???N?g???フ?e?ハ?????\\?ヲ" /></form> );
|
999 | print qq(<a href="$script) . &url_param(%param) . qq(">?f?B???N?g???フ?e?ハ?????\\?ヲ</a> );
|
print qq(<a href="$script) . &url_param(%param_hash) . qq(">?f?B???N?g???フ?e?ハ?????\\?ヲ</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="???フ?f?B???N?g???ヨ" /></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="???フ?f?B???N?g???ヨ" /></form>\n);
|
1043 | print qq(<a href="$script) . &url_param(%param) . qq(" title="???フ?f?B???N?g???ヨ"><span style="position:relative;top:4px;"><img src="./img/up.gif" style="border-width:0" alt="???フ?f?B???N?g???ヨ" /></span></a>\n);
|
print qq(<a href="$script) . &url_param(%param_hash) . qq(" title="???フ?f?B???N?g???ヨ"><span style="position:relative;top:4px;"><img src="./img/up.gif" style="border-width:0" alt="???フ?f?B???N?g???ヨ" /></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="?C???f?b?N?X?\\?[?g" colspan="2"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="?t?@?C???シ" title="?t?@?C???シ?ナ?\\?[?g$order{'name'}" /></form></th>\n);
|
print qq(<tr>\n<th abbr="?C???f?b?N?X?\\?[?g" colspan="2"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?t?@?C???シ" title="?t?@?C???シ?ナ?\\?[?g$order{'name'}" /></form></th>\n);
|
1148 | print qq(<tr>\n<th abbr="?C???f?b?N?X?\\?[?g" colspan="2"><a href="$script) . &url_param(%param) . qq(" title="?t?@?C???シ?ナ?\\?[?g$order{'name'}">?t?@?C???シ</a></th>\n);
|
print qq(<tr>\n<th abbr="?C???f?b?N?X?\\?[?g" colspan="2"><a href="$script) . &url_param(%param_hash) . qq(" title="?t?@?C???シ?ナ?\\?[?g$order{'name'}">?t?@?C???シ</a></th>\n);
|
1150 | $param{'sort'} = $sort{'time'};
|
$param_hash{'sort'} = $sort_hash{'time'};
|
1152 | print qq(<th abbr="?C???f?b?N?X?\\?[?g"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="?X?V????" title="?X?V?????ナ?\\?[?g$order{'time'}" /></form></th>\n);
|
print qq(<th abbr="?C???f?b?N?X?\\?[?g"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?X?V????" title="?X?V?????ナ?\\?[?g$order{'time'}" /></form></th>\n);
|
1154 | print qq(<th abbr="?C???f?b?N?X?\\?[?g"><a href="$script) . &url_param(%param) . qq(" title="?X?V?????ナ?\\?[?g$order{'time'}">?X?V????</a></th>\n);
|
print qq(<th abbr="?C???f?b?N?X?\\?[?g"><a href="$script) . &url_param(%param_hash) . qq(" title="?X?V?????ナ?\\?[?g$order{'time'}">?X?V????</a></th>\n);
|
1156 | $param{'sort'} = $sort{'size'};
|
$param_hash{'sort'} = $sort_hash{'size'};
|
1158 | print qq(<th abbr="?C???f?b?N?X?\\?[?g"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="?T?C?Y" title="?T?C?Y?ナ?\\?[?g$order{'size'}" /></form></th>\n);
|
print qq(<th abbr="?C???f?b?N?X?\\?[?g"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?T?C?Y" title="?T?C?Y?ナ?\\?[?g$order{'size'}" /></form></th>\n);
|
1160 | print qq(<th abbr="?C???f?b?N?X?\\?[?g"><a href="$script) . &url_param(%param) . qq(" title="?T?C?Y?ナ?\\?[?g$order{'size'}">?T?C?Y</a></th>\n);
|
print qq(<th abbr="?C???f?b?N?X?\\?[?g"><a href="$script) . &url_param(%param_hash) . qq(" title="?T?C?Y?ナ?\\?[?g$order{'size'}">?T?C?Y</a></th>\n);
|
1162 | $param{'sort'} = $sort{'dl'};
|
$param_hash{'sort'} = $sort_hash{'dl'};
|
1164 | print qq(<th abbr="?C???f?b?N?X?\\?[?g"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="DL" title="DL???ナ?\\?[?g$order{'dl'}" /></form></th>\n) if $show_dl_count;
|
print qq(<th abbr="?C???f?b?N?X?\\?[?g"><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="DL" title="DL???ナ?\\?[?g$order{'dl'}" /></form></th>\n) if $show_dl_count;
|
1166 | print qq(<th abbr="?C???f?b?N?X?\\?[?g"><a href="$script) . &url_param(%param) . qq(" title="DL???ナ?\\?[?g$order{'dl'}">DL</a></th>) if $show_dl_count;
|
print qq(<th abbr="?C???f?b?N?X?\\?[?g"><a href="$script) . &url_param(%param_hash) . qq(" title="DL???ナ?\\?[?g$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}???_?E?????[?h" /></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}???_?E?????[?h" /></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">?ト?ム?o?オ(4)</label><br />
|
<input type="checkbox" name="o_r" id="o_r" value="256"$mode_hash{'o_r'} tabindex="1" /><label for="o_r">?ト?ム?o?オ(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">?タ?s(1)</label>
|
<input type="checkbox" name="o_x" id="o_x" value="64"$mode_hash{'o_x'} tabindex="3" /><label for="o_x">?タ?s(1)</label>
|
1726 | <input type="checkbox" name="g_r" id="g_r" value="32"$mode{'g_r'} tabindex="4" /><label for="g_r">?ト?ム?o?オ(4)</label><br />
|
<input type="checkbox" name="g_r" id="g_r" value="32"$mode_hash{'g_r'} tabindex="4" /><label for="g_r">?ト?ム?o?オ(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">?タ?s(1)</label>
|
<input type="checkbox" name="g_x" id="g_x" value="8"$mode_hash{'g_x'} tabindex="6" /><label for="g_x">?タ?s(1)</label>
|
1731 | <input type="checkbox" name="u_r" id="u_r" value="4"$mode{'u_r'} tabindex="7" /><label for="u_r">?ト?ム?o?オ(4)</label><br />
|
<input type="checkbox" name="u_r" id="u_r" value="4"$mode_hash{'u_r'} tabindex="7" /><label for="u_r">?ト?ム?o?オ(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">?タ?s(1)</label>
|
<input type="checkbox" name="u_x" id="u_x" value="1"$mode_hash{'u_x'} tabindex="9" /><label for="u_x">?タ?s(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( ?t?@?C???ロ?カ???? <strong>$max_day{"$dir_owner"}??</strong>);
|
print qq( ?t?@?C???ロ?カ???? <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( ?ナ???_?E?????[?h???? <strong>$max_down{"$dir_owner"}??</strong>) if $show_dl_count;
|
print qq( ?ナ???_?E?????[?h???? <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="???[?U?[?ン??" /></form>);
|
$html .= qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="???[?U?[?ン??" /></form>);
|
2035 | $html .= qq(<a href="$script) . &url_param(%param) . qq(" style="color:$text_color;text-decoration:none;">???[?U?[?ン??</a>\n);
|
$html .= qq(<a href="$script) . &url_param(%param_hash) . qq(" style="color:$text_color;text-decoration:none;">???[?U?[?ン??</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="?X?V????">ver.$ver</a></td>\n);
|
print qq(<td><a href="$script) . &url_param(%param_hash) . qq(" title="?X?V????">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="?f?B???N?g???ノ?゚??" /></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="?f?B???N?g???ノ?゚??" /></form></div>\n);
|
2259 | print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param) . qq(">?f?B???N?g???ノ?゚??</a></div>\n);
|
print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param_hash) . qq(">?f?B???N?g???ノ?゚??</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="?f?B???N?g???ノ?゚??" /></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="?f?B???N?g???ノ?゚??" /></form></div>\n);
|
2393 | print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param) . qq(">?f?B???N?g???ノ?゚??</a></div>\n);
|
print qq(<div style="margin:1em;text-align:center;"><a href="$script) . &url_param(%param_hash) . qq(">?f?B???N?g???ノ?゚??</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="?f?B???N?g???ノ?゚??" /></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="?f?B???N?g???ノ?゚??" /></form></div>\n);
|
2425 | print qq(<div><a href="$script) . &url_param(%param) . qq(">?f?B???N?g???ノ?゚??</a></div>\n);
|
print qq(<div><a href="$script) . &url_param(%param_hash) . qq(">?f?B???N?g???ノ?゚??</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?f?B???N?g???ノ?゚??" /></form>);
|
print qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="$root?f?B???N?g???ノ?゚??" /></form>);
|
2761 | print qq(<a href="$script) . &url_param(%param) . qq(">$root?f?B???N?g???ノ?゚??</a>);
|
print qq(<a href="$script) . &url_param(%param_hash) . qq(">$root?f?B???N?g???ノ?゚??</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="?A?N?Z?X???O"$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="?A?N?Z?X???O"$st5 /></form>\n);
|
2779 | $acc_log_link = qq([<a href="$script) . &url_param(%param) . qq("$st5>?A?N?Z?X???O</a>] \n);
|
$acc_log_link = qq([<a href="$script) . &url_param(%param_hash) . qq("$st5>?A?N?Z?X???O</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="???[?U?[?ヌ??"$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="???[?U?[?ヌ??"$st1 /></form></td>\n);
|
2788 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st1>???[?U?[?ヌ??</a>]</td>\n);
|
print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st1>???[?U?[?ヌ??</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="?X?N???v?g?フ?ン??"$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="?X?N???v?g?フ?ン??"$st2 /></form></td>\n);
|
2794 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st2>?X?N???v?g?フ?ン??</a>]</td>\n\n);
|
print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st2>?X?N???v?g?フ?ン??</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="?f?B???N?g???ヌ??"$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="?f?B???N?g???ヌ??"$st3 /></form></td>\n);
|
2800 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st3>?f?B???N?g???ヌ??</a>]</td>\n\n);
|
print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st3>?f?B???N?g???ヌ??</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="?t?@?C???ヌ??"$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="?t?@?C???ヌ??"$st4 /></form></td>\n);
|
2806 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st4>?t?@?C???ヌ??</a>]</td>\n\n);
|
print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st4>?t?@?C???ヌ??</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="?ヌ???メ?p?X???[?h?マ?X"$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="?ヌ???メ?p?X???[?h?マ?X"$st6 /></form></td>\n);
|
2813 | print qq(<td>[<a href="$script) . &url_param(%param) . qq("$st6>?ヌ???メ?p?X???[?h?マ?X</a>]</td>\n\n);
|
print qq(<td>[<a href="$script) . &url_param(%param_hash) . qq("$st6>?ヌ???メ?p?X???[?h?マ?X</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???????キ???f?B???N?g???フ????
|
$del_htac_hash{"$user"} = $path; # .htaccess???????キ???f?B???N?g???フ????
|
3098 | $del_htac{"$user"} = $path; # ?f?B???N?g???ェ?マ?X?ウ???ス???????A???f?B???N?g????.htaccess???????キ???f?B???N?g???フ?????ノ
|
$del_htac_hash{"$user"} = $path; # ?f?B???N?g???ェ?マ?X?ウ???ス???????A???f?B???N?g????.htaccess???????キ???f?B???N?g???フ?????ノ
|
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>???????オ?ワ?オ?ス?B</div>);
|
$comment .= qq(<div style="color:red"><strong>) . join('/',$del_htac_hash{"$in_user"},$htaccess) . qq(</strong>???????オ?ワ?オ?ス?B</div>);
|
3260 | my $tmp = $del_htac{"$in_user"};
|
my $tmp = $del_htac_hash{"$in_user"};
|
3270 | # @parent_user_list???フ???[?U?[?フ???[?g?f?B???N?g???ヘ $path{"$_"}?B
|
# @parent_user_list???フ???[?U?[?フ???[?g?f?B???N?g???ヘ $path_hash{"$_"}?B
|
3271 | # ?p?X???[?h?ロ?カ?t?@?C???ヘ join('/',$passdir,$path{"$_"},'.htpasswd')?ニ?ネ???B
|
# ?p?X???[?h?ロ?カ?t?@?C???ヘ join('/',$passdir,$path_hash{"$_"},'.htpasswd')?ニ?ネ???B
|
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%"> \(?t?@?C???フ?A?b?v???[?h?A?f?B???N?g???フ???ャ\)</span><br />\n); $tindx++;
|
$usr_form .= qq(<input type="checkbox" name="upload" value="1"$perm_list[0] tabindex="$tindx" />???ャ<span style="font-size:80%"> \(?t?@?C???フ?A?b?v???[?h?A?f?B???N?g???フ???ャ\)</span><br />\n); $tindx++;
|
3600 | $usr_form .= qq(<input type="checkbox" name="delete" value="1"$perm[1] tabindex="$tindx" />????<span style="font-size:80%"> \(?t?@?C???A?f?B???N?g???フ????\)</span><br />\n); $tindx++;
|
$usr_form .= qq(<input type="checkbox" name="delete" value="1"$perm_list[1] tabindex="$tindx" />????<span style="font-size:80%"> \(?t?@?C???A?f?B???N?g???フ????\)</span><br />\n); $tindx++;
|
3601 | $usr_form .= qq(<input type="checkbox" name="permission" value="1"$perm[2] tabindex="$tindx" />?ョ?ォ?フ?マ?X<br />\n); $tindx++;
|
$usr_form .= qq(<input type="checkbox" name="permission" value="1"$perm_list[2] tabindex="$tindx" />?ョ?ォ?フ?マ?X<br />\n); $tindx++;
|
3607 | $usr_form .= qq(<input type="checkbox" name="cgi" value="1"$perm[3] tabindex="$tindx" />?ヨ?~?t?@?C??$pex?フ????</td>\n </tr>\n); $tindx++;
|
$usr_form .= qq(<input type="checkbox" name="cgi" value="1"$perm_list[3] tabindex="$tindx" />?ヨ?~?t?@?C??$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="?o?^????" title="?o?^?????ナ?\\?[?g$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="?o?^????" title="?o?^?????ナ?\\?[?g$order{'time'}" /></form></th>\n);
|
3750 | $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="?o?^?????ナ?\\?[?g$order{'time'}">?o?^????</a></th>);
|
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="?o?^?????ナ?\\?[?g$order{'time'}">?o?^????</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="???[?U?[?シ" title="???[?U?[?シ?ナ?\\?[?g$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="???[?U?[?シ" title="???[?U?[?シ?ナ?\\?[?g$order{'name'}" /></form></th>\n);
|
3756 | $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="???[?U?[?シ?ナ?\\?[?g$order{'name'}">???[?U?[?シ</a></th>\n);
|
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="???[?U?[?シ?ナ?\\?[?g$order{'name'}">???[?U?[?シ</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="?f?B???N?g??" title="?f?B???N?g???シ?ナ?\\?[?g$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="?f?B???N?g??" title="?f?B???N?g???シ?ナ?\\?[?g$order{'dir'}" /></form></th>\n);
|
3762 | $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="?f?B???N?g???シ?ナ?\\?[?g$order{'dir'}">?f?B???N?g??</a></th>\n);
|
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="?f?B???N?g???シ?ナ?\\?[?g$order{'dir'}">?f?B???N?g??</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="???[???A?h???X" title="???[???A?h???X?ナ?\\?[?g$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="???[???A?h???X" title="???[???A?h???X?ナ?\\?[?g$order{'mail'}" /></form></th>\n);
|
3768 | $html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="???[???A?h???X?ナ?\\?[?g$order{'mail'}">???[???A?h???X</a></th>\n);
|
$html .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="???[???A?h???X?ナ?\\?[?g$order{'mail'}">???[???A?h???X</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="?ナ?I?A?N?Z?X???ヤ" title="?ナ?I?A?N?Z?X???ヤ?ナ?\\?[?g$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="?ナ?I?A?N?Z?X???ヤ" title="?ナ?I?A?N?Z?X???ヤ?ナ?\\?[?g$order{'acc'}" /></form></th>\n);
|
3775 | $colplus .= qq(<th rowspan="2"><a href="$script) . &url_param(%param) . qq(#user_index" title="?ナ?I?A?N?Z?X???ヤ?ナ?\\?[?g$order{'mail'}">?ナ?I?A?N?Z?X???ヤ</a></th>\n);
|
$colplus .= qq(<th rowspan="2"><a href="$script) . &url_param(%param_hash) . qq(#user_index" title="?ナ?I?A?N?Z?X???ヤ?ナ?\\?[?g$order{'mail'}">?ナ?I?A?N?Z?X???ヤ</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="???[?U?[?ニ?オ?ト???O?C??"><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}?ニ?オ?ト???O?C??" /></form></td><td>) . &key_color($user,$key) . qq($login</td></tr></table></td>\n);
|
$msg .= qq(<td><table summary="???[?U?[?ニ?オ?ト???O?C??"><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}?ニ?オ?ト???O?C??" /></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="?f?B???N?g???レ?ョ"><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}?フ?f?B???N?g???ノ?レ?ョ" /></form></td><td>) .&key_color($path,$key) . qq(</td></tr></table></td>\n);
|
$msg .= qq(<td><table summary="?f?B???N?g???レ?ョ"><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}?フ?f?B???N?g???ノ?レ?ョ" /></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="???[?????M"><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="???[?????M"><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(???ト?メ?W?オ?ト?ュ?セ?ウ?「</span>);
|
$com = qq(<span style="color:red">) . join('?ゥ',@dir_user_list) . qq(???ト?メ?W?オ?ト?ュ?セ?ウ?「</span>);
|
4077 | $com = qq(<span style="color:red"><a href="$script?mode=admin&mode2=user&login_admin=$login_admin&$tm{"$_"}=) . &url_encode('?ト?メ?W') . qq(#input">) . $dir_user[0] . qq(???ト?メ?W?オ?ト?ュ?セ?ウ?「</a></span>);
|
$com = qq(<span style="color:red"><a href="$script?mode=admin&mode2=user&login_admin=$login_admin&$tm_hash{"$_"}=) . &url_encode('?ト?メ?W') . qq(#input">) . $dir_user_list[0] . qq(???ト?メ?W?オ?ト?ュ?セ?ウ?「</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="?ゥ?ョ?????ウ???ス?t?@?C??" /></form></td>);
|
$html .= qq(<td><form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?ゥ?ョ?????ウ???ス?t?@?C??" /></form></td>);
|
4267 | $html .= qq(<td> <a href="$script) . &url_param(%param) . qq(">?ゥ?ョ?????ウ???ス?t?@?C??</a></td>);
|
$html .= qq(<td> <a href="$script) . &url_param(%param_hash) . qq(">?ゥ?ョ?????ウ???ス?t?@?C??</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="?????[?h" /><input type="submit" value="?????[?h" /></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="?????[?h" /><input type="submit" value="?????[?h" /></form>);
|
4278 | $reload = qq( <a href="$script) . &url_param(%param) . qq(">?????[?h</a>);
|
$reload = qq( <a href="$script) . &url_param(%param_hash) . qq(">?????[?h</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="?B?オ?t?@?C?????B?キ" /></form>);
|
$show_all = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?B?オ?t?@?C?????B?キ" /></form>);
|
4286 | $show_all = qq( <a href="$script) . &url_param(%param) . qq(">?B?オ?t?@?C?????B?キ</a>);
|
$show_all = qq( <a href="$script) . &url_param(%param_hash) . qq(">?B?オ?t?@?C?????B?キ</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="?B?オ?t?@?C?????\\?ヲ" /></form>);
|
$show_all = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param_hash) . qq(<input type="submit" value="?B?オ?t?@?C?????\\?ヲ" /></form>);
|
4293 | $show_all = qq( <a href="$script) . &url_param(%param) . qq(">?B?オ?t?@?C?????\\?ヲ</a>);
|
$show_all = qq( <a href="$script) . &url_param(%param_hash) . qq(">?B?オ?t?@?C?????\\?ヲ</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="?t?@?C?????J?ュ"><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(???J?ュ" /></form></td><td>) . &url_decode($path[$i]) . qq(</td></tr></table>\n);
|
$tree .= qq(<table summary="?t?@?C?????J?ュ"><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(???J?ュ" /></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="?f?B???N?g???ノ?レ?ョ"><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]?f?B???N?g???ノ?レ?ョ" /></form></td><td>$path[$i]</td></tr></table></td>\n);
|
$tree .= qq(<td><table summary="?f?B???N?g???ノ?レ?ョ"><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]?f?B???N?g???ノ?レ?ョ" /></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="?t?@?C?????J?ュ"><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(???J?ュ" /></form></td><td>) . &url_decode($path[$i]) . qq(</td></tr></table></td>);
|
$tree .= qq(<td colspan="$colspan" style="text-align:right;"><table summary="?t?@?C?????J?ュ"><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(???J?ュ" /></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="?f?B???N?g?????レ?ョ"><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="?f?B???N?g?????レ?ョ"><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;">???[???A?h???X</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;">???[???A?h???X</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))];
|