SnUploader/snup_051010e/uploader+cgipm/upload.cgi

   1 #!/usr/bin/perl\r
   2 use CGI;\r
   3 use vars qw(%set %in);\r
   4 use strict;\r
   5 $set{'log_file'} = './log.cgi';         #\83\8d\83O\83t\83@\83C\83\8b\96¼\r
   6 $set{'max_log'} = 30;           #\95Û\8e\9d\8c\8f\90\94\r
   7 $set{'max_size'} = 1*1024;              #\8dÅ\91å\93\8a\8de\97e\97Ê(KB)\r
   8 $set{'min_flag'} = 0;           #\8dÅ\8f¬\97e\97Ê\90§\8cÀ\82ð\8eg\97p\82·\82é=1\r
   9 $set{'min_size'} = 100;         #\8dÅ\8f¬\93\8a\8de\97e\97Ê(KB)\r
  10 $set{'max_all_flag'} = 0;               #\91\8d\97e\97Ê\90§\8cÀ\82ð\8eg\97p\82·\82é=1\r
  11 $set{'max_all_size'} = 20*1024;         #\91\8d\90§\8cÀ\97e\97Ê(KB)\r
  12 $set{'file_pre'} = 'up';                #\83t\83@\83C\83\8b\90Ú\93ª\8e«\r
  13 $set{'pagelog'} = 10;           #1\83y\81[\83W\82É\95\\8e¦\82·\82é\83t\83@\83C\83\8b\90\94\r
  14 $set{'base_html'} = 'upload.html';              #1\83y\81[\83W\96Ú\82Ì\83t\83@\83C\83\8b\96¼\r
  15 $set{'interval'} = 0;           #\93¯\88êIP\93\8a\8de\8aÔ\8au\95b\90\94\r
  16 $set{'deny_host'} = '';         #\93\8a\8de\8bÖ\8e~IP/HOST ,\82Å\8bæ\90Ø\82é ex.(bbtec.net,219.119.66,ac.jp)\r
  17 $set{'admin_name'} = 'admin';           #\8aÇ\97\9d\8eÒ\83\8d\83O\83C\83\93ID\r
  18 $set{'admin_pass'} = '1234';            #\8aÇ\97\9d\8eÒ\83p\83X\83\8f\81[\83h\r
  19 \r
  20 # \88È\89º5\8d\80\96Ú\82ð\8dÄ\90Ý\92è\82·\82é\8dÛ\82É\82ÍPATH\81C\83f\83B\83\8c\83N\83g\83\8a\82Í / \82Å\8fI\82í\82é\82±\82Æ\r
  21 # $set{'html_dir'},$set{'base_cgi'}\82ð ./ \88È\8aO\82É\90Ý\92è\82·\82é\8fê\8d\87,\r
  22 # \82Ü\82½\82ÍDLkey\82ð\8eg\97p\82µ \82È\82¨\82©\82ÂHTML\83L\83\83\83b\83V\83\85($set{'dummy_html'} = 2 or 3)\82ð\8eg\97p\82·\82é\8fê\8d\87\82Í\r
  23 # $set{'base_cgi'} , $set{'http_html_path'} , $set{'http_src_path'} \82ð\83t\83\8b\83p\83X(http://\81`\81` or /\81`\81`)\82Å\8bL\8fq\82·\82é\r
  24 $set{'html_dir'} = './';                # \93à\95\94HTML\95Û\91¶\83f\83B\83\8c\83N\83g\83\8a\r
  25 $set{'src_dir'} = './src/';             # \93à\95\94\83t\83@\83C\83\8b\95Û\91¶\83f\83B\83\8c\83N\83g\83\8a\r
  26 $set{'base_cgi'} = './upload.cgi'; # \82±\82Ì\83X\83N\83\8a\83v\83g\96¼ http://\81`\82Ì\8ew\92è\89Â\94\\r
  27 $set{'http_html_path'} = './';          # html\8eQ\8fÆ httpPATH http://\81`\82Ì\8ew\92è\89Â\94\\r
  28 $set{'http_src_path'} = './src/';               # file\8eQ\8fÆ httpPATH http://\81`\82Ì\8ew\92è\89Â\94\\r
  29 \r
  30 $set{'dlkey'} = 0;              # DLKey\82ð\8eg\97p\82·\82é=1,DLkey\95K\90{=2\r
  31 $set{'up_ext'} = 'txt,lzh,zip,rar,gca,mpg,mp3,avi,swf,bmp,jpg,gif,png'; #\83A\83b\83v\83\8d\81[\83h\82Å\82«\82é\8aî\96{\8ag\92£\8eq \94¼\8ap\89p\90\94\8f¬\95¶\8e\9a ,\82Å\8bæ\90Ø\82é\r
  32 $set{'up_all'} = 0;             #\93o\98^\88È\8aO\82Ì\82à\82Ì\82àUP\82³\82¹\82ç\82ê\82é\82æ\82¤\82É\82·\82é=1\r
  33 $set{'ext_org'} = 0;    #$set{'up_all'}\82ª1\82Ì\8e\9e\83I\83\8a\83W\83i\83\8b\82Ì\8ag\92£\8eq\82É\82·\82é=1\r
  34 $set{'deny_ext'} = 'php,php3,phtml,rb,sh,bat,dll';      #\93\8a\8de\8bÖ\8e~\82Ì\8ag\92£\8eq \94¼\8ap\89p\90\94\8f¬\95¶\8e\9a ,\82Å\8bæ\90Ø\82é\r
  35 $set{'change_ext'} = 'cgi->txt,pl->txt,log->txt,jpeg->jpg,mpeg->mpg';           #\8ag\92£\8eq\95Ï\8a· \91O->\8cã \94¼\8ap\89p\90\94\8f¬\95¶\8e\9a ,\82Å\8bæ\90Ø\82é\r
  36 \r
  37 $set{'home_url'} = '';          #[HOME]\82Ì\83\8a\83\93\83N\90æ \91\8a\91Î\83p\83X\96\94\82Í http://\82©\82ç\8en\82Ü\82é\90â\91Î\83p\83X\r
  38 $set{'html_all'} = 1;           #[ALL]\82ð\8fo\82·=1\r
  39 $set{'dummy_html'} = 0;         #\83t\83@\83C\83\8b\8cÂ\95ÊHTML\82ð\8dì\90¬\82·\82é \92Ê\8fí\83t\83@\83C\83\8b\82Ì\82Ý=1,DLKey\90Ý\92è\83t\83@\83C\83\8b\82Ì\82Ý=2,\82·\82×\82Ä=3\r
  40 $set{'find_crypt'} = 1;         #\88Ã\8d\86\89»ZIP\82ð\8c\9f\8fo\82·\82é=1\r
  41 $set{'binary_compare'} = 0;             #\8aù\91¶\83t\83@\83C\83\8b\82Æ\83o\83C\83i\83\8a\94ä\8ar\82·\82é=1\r
  42 $set{'post_flag'} = 0;          #PostKey\82ð\8eg\97p\82·\82é=1\r
  43 $set{'post_key'} = 'postkey';           #PostKey ,\82Å\8bæ\90Ø\82é\82Æ\95¡\90\94\8ew\92è ex.(postkey1,postkey2)\r
  44 $set{'disp_error'} = 1;         #\83\86\81[\83U\81[\82É\83G\83\89\81[\82ð\95\\8e¦\82·\82é=1\r
  45 $set{'error_level'} = 1;                #\83G\83\89\81[\83\8d\83O\82ð\8bL\98^\82·\82é=1\r
  46 $set{'error_log'} = './error.cgi';              #\83G\83\89\81[\83\8d\83O\83t\83@\83C\83\8b\96¼\r
  47 $set{'error_size'} = 1024;      # \83G\83\89\81[\83\8d\83O\8dÅ\91å\97e\97Ê(KB) \90§\8cÀ\82È\82µ=0\r
  48 $set{'zero_clear'} = 1;         #\83t\83@\83C\83\8b\82ª\8c©\82Â\82©\82ç\82È\82¢\8fê\8d\87\83\8d\83O\82©\82ç\8dí\8f\9c\82·\82é=1\r
  49 \r
  50 $set{'disp_comment'} = 1;       #\83R\83\81\83\93\83g\82ð\95\\8e¦\82·\82é=1\r
  51 $set{'disp_date'} = 1;          #\93ú\95t\82ð\95\\8e¦\82·\82é=1\r
  52 $set{'disp_size'} = 1;          #\83T\83C\83Y\82ð\95\\8e¦\82·\82é=1\r
  53 $set{'disp_mime'} = 1;          #MIMETYPE\82ð\95\\8e¦\82·\82é=1\r
  54 $set{'disp_orgname'} = 1;       #\83I\83\8a\83W\83i\83\8b\83t\83@\83C\83\8b\96¼\82ð\95\\8e¦\82·\82é=1\r
  55 \r
  56 $set{'per_upfile'} = 0666;              #\83A\83b\83v\83\8d\81[\83h\83t\83@\83C\83\8b\82Ì\83p\81[\83~\83b\83V\83\87\83\93 suexec=0604,other=0666\r
  57 $set{'per_dir'} = 0777;         #\83\\81[\83X\83A\83b\83v\83f\83B\83\8c\83N\83g\83\8a\82Ì\83p\81[\83~\83b\83V\83\87\83\93 suexec=0701,other=0777\r
  58 $set{'per_logfile'} = 0666;             #\83\8d\83O\83t\83@\83C\83\8b\82Ì\83p\81[\83~\83b\83V\83\87\83\93\81@suexec=0600,other=0666\r
  59 $set{'link_target'} = '';               #target\91®\90«\r
  60 \r
  61 #------\r
  62 $set{'ver'} = '2005/10/10e CGI.pm';\r
  63 $set{'char_delname'} = 'D';\r
  64 \r
  65 $in{'time'} = time(); $in{'date'} = conv_date($in{'time'});\r
  66 $in{'addr'} = $ENV{'REMOTE_ADDR'};\r
  67 $in{'host'} = gethostbyaddr(pack('C4',split(/\./, $in{'addr'})), 2) || $ENV{'REMOTE_HOST'} || '(none)';\r
  68 if($in{'addr'} eq $in{'host'}){ $in{'host'} = '(none)'; }\r
  69 \r
  70 $set{'html_head'} =<<"EOM";\r
  71 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">\r
  72 <html lang="ja">\r
  73 <HEAD>\r
  74 <META name="robots" content="noindex,nofollow">\r
  75 <META name="ROBOTS" content="NOINDEX,NOFOLLOW">\r
  76 <META http-equiv="Content-type" content="text/html; charset=Shift_JIS">\r
  77 <META http-equiv="Pragma" content="no-cache">\r
  78 <META http-equiv="Cache-Control" content="no-cache">\r
  79 <META http-equiv="Expires" content="0">\r
  80 <TITLE>Uploader</TITLE>\r
  81 EOM\r
  82 \r
  83 $set{'html_css'} =<<"EOM";\r
  84 <META http-equiv="Content-Style-Type" content="text/css">\r
  85 <STYLE type="text/css"><!--\r
  86 input,td{ font-size: 10pt;font-family:Chicago,Verdana,Arial,sans-serif,"\82l\82r \82o\83S\83V\83b\83N"; }\r
  87 a:hover { background-color:#EECCCC; }\r
  88 input,textarea{ border-top : 1px solid ; border-bottom : 1px solid ; border-left : 1px solid ; border-right : 1px solid ;font-size:10pt;background-color:#FFFFFF; }\r
  89 -->\r
  90 </STYLE>\r
  91 EOM\r
  92 \r
  93 unless(-e $set{'log_file'}){ &init; }\r
  94 unless(-e $set{'base_html'}){ &makehtml; }\r
  95 \r
  96 { #\83f\83R\81[\83h\r
  97         if ($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i){\r
  98                 if ($ENV{'CONTENT_LENGTH'} > ($set{'max_size'} * 1024 + 1024)){ if($ENV{'SERVER_SOFTWARE'} =~ /IIS/){ while(read(STDIN,my $buff,8192)){} } &error(106,$ENV{'CONTENT_LENGTH'});}\r
  99         }else{\r
 100                 if ($ENV{'CONTENT_LENGTH'} > 1024*100){ error(98); }\r
 101         }\r
 102         my %ck; foreach(split(/;/,$ENV{'HTTP_COOKIE'})){ my($key,$val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val;}\r
 103         my @ck = split(/<>/,$ck{'SN_USER'});\r
 104         if(length($ck[0]) < 5){ \r
 105                 my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand;\r
 106                 my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];\r
 107                 $in{'user'} = crypt($in{'addr'}.$in{'time'}, $salt);\r
 108         }else{ $in{'user'} = $ck[0]; }\r
 109         \r
 110         my $q = new CGI;\r
 111         $in{'upfile'} = $q->param('upfile');\r
 112         $in{'tmpfile'} = $q->tmpFileName($in{'upfile'});\r
 113         $in{'type'} = $q->uploadInfo($in{'upfile'})->{'Content-Type'} if ($in{'upfile'});\r
 114         $in{'pass'} = $q->param('pass');        $in{'mode'} = $q->param('mode');        \r
 115         $in{'delno'} = $q->param('delno');      $in{'comment'} = $q->param('comment');\r
 116         $in{'jcode'} = $q->param('jcode');      $in{'delpass'} = $q->param('delpass');\r
 117         $in{'orgname'} = $in{'upfile'}; $in{'postkey'} = $q->param('postkey');\r
 118         $in{'org_pass'} = $in{'pass'};\r
 119         $in{'checkmode'} = $q->param('checkmode');\r
 120         $in{'file'} = $q->param('file');        $in{'dlkey'} = $q->param('dlkey');\r
 121         $in{'admin_delno'} = join(',',$q->param('admin_delno'));\r
 122         my @denyhost = split(/,/,$set{'deny_host'});\r
 123         foreach my $value (@denyhost){\r
 124                 if ($in{'addr'} =~ /$value/ || $in{'host'} =~ /$value/){ &error(101);}\r
 125         }\r
 126 \r
 127         my @form = ($in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'});\r
 128         foreach my $value (@form) {\r
 129                 if (length($value) > 128) { $value = substr($value,0,128).'...'; }\r
 130 #               $value =~ s/&/&amp;/g;\r
 131                 $value =~ s/"/&quot;/g;\r
 132                 $value =~ s/</&lt;/g;\r
 133                 $value =~ s/>/&gt;/g;\r
 134                 $value =~ s/\r//g;\r
 135                 $value =~ s/\n//g;\r
 136                 $value =~ s/\t//g;\r
 137                 $value =~ s/\0//g;\r
 138         }\r
 139         ($in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'}) = @form;\r
 140          $in{'tmpfile2'} = &filewrite() if ($in{'upfile'});\r
 141 }\r
 142 \r
 143 if($in{'delno'} eq $set{'admin_name'} && $in{'delpass'} eq $set{'admin_pass'}){ &admin_mode(); }\r
 144 if(!$in{'delno'} && $in{'delpass'} eq $set{'admin_pass'}){ &makehtml(); &quit(); }\r
 145 if($in{'mode'} eq 'dl'){ &dlfile;} #DL\r
 146 if($in{'mode'} eq 'delete'){ &delete(); &quit(); }\r
 147 \r
 148 {#\83\81\83C\83\93\8f\88\97\9d\r
 149         if(!$in{'upfile'}){ &error(99); }\r
 150         if($set{'post_flag'} && !check_postkey($in{'postkey'})){ error(109); }\r
 151         if($set{'dlkey'} == 2 && !$in{'dlkey'}){ unlink("$in{'tmpfile2'}"); &error(61); }\r
 152         open(IN,$set{'log_file'})||&error(303);\r
 153         my @log = <IN>;\r
 154         close(IN);\r
 155         my ($no,$lastip,$lasttime) = split(/<>/,$log[0]);\r
 156 \r
 157         if($set{'interval'} && $set{'interval'} && $in{'time'} <= ($lasttime + $set{'interval'}) && $in{'addr'} eq $lastip){ &error(203);}\r
 158         $in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }\r
 159 \r
 160         my $orgname;\r
 161         if(split(/\//,$in{'orgname'}) > split(/\\/,$in{'orgname'})){    my @name = split(/\//,$in{'orgname'}); $orgname = $name[$#name]; }\r
 162         else{ my @name = split(/\\/,$in{'orgname'}); $orgname = $name[$#name];}\r
 163         \r
 164         my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');\r
 165         srand;\r
 166         my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];\r
 167         $in{'pass'} = crypt($in{'pass'}, $salt);\r
 168 \r
 169         if($set{'binary_compare'}){\r
 170                 my @files = globfile("$set{'src_dir'}",".*");\r
 171                 my @dir = globdir("$set{'src_dir'}",".*");\r
 172                 foreach my $dir (@dir){ push(@files,globfile($dir."/",".*")); }\r
 173                 foreach my $value (@files){\r
 174                         next if($value =~ /\.temporary$/);\r
 175                         if(binarycmp($in{'tmpfile2'},$value)){ unlink($in{'tmpfile2'}); &error(205,$value);}\r
 176                 }\r
 177         }\r
 178 \r
 179         if($set{'find_crypt'}){\r
 180                 open(FILE,$in{'tmpfile'}); binmode(FILE); seek(FILE,0,0); read(FILE,my $buff,4); my $crypt_flag = 0;\r
 181                 if($buff =~ /^\x50\x4b\x03\x04$/){ seek(FILE,6,0); read(FILE,my $buff,1); $crypt_flag = 1 if(($buff & "\x01") eq "\x01"); }\r
 182                 close(FILE);\r
 183                 $in{'comment'} = '<font color="#FF0000">*</font>'.$in{'comment'} if($crypt_flag);\r
 184         }\r
 185 \r
 186         open(IN,$set{'log_file'})||&error(303);\r
 187         @log = <IN>;\r
 188         close(IN);\r
 189         ($no,$lastip,$lasttime) = split(/<>/,$log[0]);\r
 190         shift(@log);\r
 191         $no++;\r
 192         my $tmpno = sprintf("%04d",$no);\r
 193 \r
 194         my $dlsalt;\r
 195         my $filedir;\r
 196         my $allsize = (-s $in{'tmpfile2'});\r
 197 \r
 198         if($set{'dlkey'} && $in{'dlkey'}){\r
 199                 my @salt = ('a'..'z', 'A'..'Z', '0'..'9'); srand;\r
 200                 for (my $c = 1; $c <= 20; ++$c) { $dlsalt .= $salt[int(rand(@salt))]; }\r
 201                 $filedir = "$set{'src_dir'}$set{'file_pre'}${tmpno}.$in{'ext'}_$dlsalt/";\r
 202                 mkdir($filedir,$set{'per_dir'});\r
 203                 rename("$in{'tmpfile2'}","$filedir$set{'file_pre'}$tmpno.$in{'ext'}");\r
 204                 open(OUT,">${filedir}index.html");\r
 205                 close(OUT);\r
 206                 chmod($set{'per_upfile'},"${filedir}index.html");\r
 207                 $in{'comment'} = '<font color="#FF0000">[DLKey] </font>'.$in{'comment'};\r
 208         }else{\r
 209                 undef $in{'dlkey'};\r
 210                 rename("$in{'tmpfile2'}","$set{'src_dir'}$set{'file_pre'}$tmpno.$in{'ext'}");\r
 211         }\r
 212 \r
 213         if (length($orgname) > 128) { $orgname = substr($orgname,0,128).'...'; }\r
 214 \r
 215         my @note;\r
 216         if($set{'post_flag'} && $set{'post_key'}){\r
 217                 push(@note,'PostKey:'.$in{'postkey'});\r
 218         }\r
 219         if($ENV{'SERVER_SOFTWARE'} =~ /Apache|IIS/){\r
 220                 my $disptime;\r
 221                 my $time = time() - $in{'time'};\r
 222                 my @str = ('Upload:','\95b');\r
 223                 my $disptime = $time.$str[1];\r
 224                 push(@note,$str[0].$disptime);\r
 225         }\r
 226         if($in{'dlkey'}){\r
 227                 my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand;\r
 228                 my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))];\r
 229                 my $crypt_dlkey  = crypt($in{'dlkey'}, $salt);\r
 230                 push(@note,"DLKey<!-- DLKey:".$crypt_dlkey." --><!-- DLpath:".$dlsalt." -->");\r
 231         }\r
 232         my $note = join(',',@note);\r
 233         my $usersalt = substr($in{'user'},0,2);\r
 234         my $userid = crypt($in{'user'},$usersalt);\r
 235         $in{'time'} = time();\r
 236 #       $in{'date'} = conv_date(time());\r
 237         my @new;\r
 238         $new[0] = "$no<>$in{'addr'}<>$in{'time'}<>1\n";\r
 239         my $addlog = "$no<>$in{'ext'}<>$in{'date'}<>$in{'comment'}<>$in{'type'}<>$orgname<>$in{'addr'}<>$in{'host'}<>$in{'pass'},$userid<>$set{'file_pre'}<>$note<>1\n";\r
 240         $new[1] = $addlog;\r
 241 \r
 242 #       open(OUT,">>./alllog.cgi"); print OUT $addlog; close(OUT);\r
 243 \r
 244         my $i = 2;\r
 245 \r
 246         foreach my $value (@log){\r
 247                 my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);\r
 248                 if(!$dummy){ $filepre = $set{'file_pre'};}\r
 249                 $no = sprintf("%04d",$no);\r
 250 \r
 251                 my $filename;\r
 252                 my $filedir;\r
 253                 if($note =~ /DLpath:(.+)\s/){\r
 254                         my $dlpath = $1;\r
 255                         $filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext";\r
 256                         $filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/";\r
 257                 }else{\r
 258                         $filename = "$set{'src_dir'}$filepre$no.$ext";\r
 259                 }\r
 260                 $allsize += (-s $filename);\r
 261                 \r
 262                 if($i <= $set{'max_log'} && !($set{'max_all_flag'} && $set{'max_all_size'}*1024 < $allsize)){ \r
 263                         if((-e $filename)||!$set{'zero_clear'}){ push(@new,$value); $i++; }\r
 264                 }else{\r
 265                         if(unlink($filename)){\r
 266                                 unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);\r
 267                         }elsif(unlink($filename)){\r
 268                                 unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);\r
 269                         }elsif(-e $filename){\r
 270                                 push(@new,$value);\r
 271                         }else{\r
 272                                 unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir);\r
 273                         }\r
 274                 }\r
 275         }\r
 276         logwrite(@new);\r
 277         if($in{'dlkey'} && ( $set{'dummy_html'} == 2 || $set{'dummy_html'} == 3)){\r
 278                 &makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}",$in{'comment'},"$set{'file_pre'}$tmpno.$in{'ext'}",$dlsalt,$in{'date'},$in{'type'},$orgname,$no);\r
 279         }elsif(!$in{'dlkey'} && ($set{'dummy_html'} == 1 || $set{'dummy_html'} == 3)){\r
 280                 &makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}");\r
 281         }\r
 282         &makehtml(); &quit();\r
 283 }\r
 284 \r
 285 sub makehtml{\r
 286 \r
 287         my ($buff,$init,$postval,$dlkey);\r
 288         my $page = 0; my $i = 1;\r
 289         \r
 290         open(IN,$set{'log_file'})||&error(303);\r
 291         my $log = my @log = <IN>;\r
 292         close(IN);\r
 293         \r
 294         if($log == 1){ $log++; $init++;}\r
 295         my $lastpage = int(($log - 2)/$set{'pagelog'}) + 1;\r
 296         $postval = ' obj.postkey.value =  unescape(p[1]);' if($set{'post_flag'});\r
 297         my $header =<<"EOM";\r
 298 $set{'html_head'}<META http-equiv="Content-Script-Type" content="text/javascript">\r
 299 <script type="text/javascript">\r
 300 <!--\r
 301 function getCookie(obj,cookiename){\r
 302         var i,str; c = new Array(); p = new Array("",""); str = document.cookie;c = str.split(";");\r
 303         for (i = 0; i < c.length; i++) { if (c[i].indexOf(cookiename+"=") >= 0) { p = (c[i].substr(c[i].indexOf("=")+1)).split("<>"); break; }}\r
 304         if(cookiename == "SN_UPLOAD"){ obj.pass.value =  unescape(p[0]);$postval }\r
 305         else if(cookiename == "SN_DEL"){ obj.delpass.value =  unescape(p[0]);}\r
 306         return true;\r
 307 }\r
 308 function delnoin(no){\r
 309         document.Del.delno.value = no;\r
 310         document.Del.del.focus();\r
 311 }\r
 312 //-->\r
 313 </script>\r
 314 $set{'html_css'}</HEAD>\r
 315 <body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF" onload="getCookie(document.Form,'SN_UPLOAD');getCookie(document.Del,'SN_DEL');">\r
 316 <table summary="title" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Uploader</font></strong></td></tr></table>\r
 317 <p>\r
 318 Now.. Testing..\r
 319 </p>\r
 320 EOM\r
 321         my $maxsize = 'Max '.dispsize($set{'max_size'}*1024);\r
 322         my ($minsize,$total);\r
 323         if($set{'min_flag'}){ $minsize = 'Min '.dispsize($set{'min_size'}*1024).' - '; }\r
 324         if($set{'max_all_flag'}){ $total .= ' Total '.dispsize($set{'max_all_size'}*1024);}\r
 325         $header .= qq|<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="$set{'base_cgi'}" name="Form">FILE $minsize$maxsize (*$set{'max_log'}Files$total)<br>|;\r
 326         $header .='<INPUT TYPE=file  SIZE="40" NAME="upfile">';\r
 327         $header .= ' DLKey: <INPUT TYPE=text SIZE="8" NAME="dlkey" maxlength="8">' if($set{'dlkey'});\r
 328         $header .= '\r
 329 DELKey: <INPUT TYPE=password SIZE="10" NAME="pass" maxlength="8"><br>\r
 330 COMMENT<br>\r
 331 <INPUT TYPE=text SIZE="45" NAME="comment">\r
 332 <INPUT TYPE=hidden NAME="jcode" VALUE="\8a¿\8e\9a">\r
 333 <INPUT TYPE=submit VALUE="Upload"><INPUT TYPE=reset VALUE="Cancel"><br>\r
 334 ';\r
 335         if($set{'post_flag'}){ $header .= 'PostKey<br><INPUT TYPE=password SIZE="10" NAME="postkey" maxlength="10">'; }\r
 336         $header .= '</FORM>';\r
 337 \r
 338         my $allsize = 0;\r
 339         my @files = globfile("$set{'src_dir'}",".*");\r
 340         my @dir = globdir("$set{'src_dir'}",".*");\r
 341         foreach my $dir (@dir){ push(@files,globfile($dir."/",".*")); }\r
 342         foreach my $value (@files){ $allsize += (-s "$value"); }\r
 343 \r
 344         $allsize = dispsize($allsize);\r
 345 \r
 346         my $footer = "</table><HR size=1>Used ${allsize}\n<br>";\r
 347         if($set{'up_all'} && !$set{'ext_org'}){ $footer .= $set{'up_ext'}.' +'; }\r
 348         elsif(!$set{'up_all'}){ $footer .= $set{'up_ext'}; }\r
 349         $footer .= "\n<table summary=\"footer\" width=\"100%\"><tr><td><div align=left><FORM METHOD=POST ACTION=\"$set{'base_cgi'}\" name=\"Del\"><span style='font-size:9pt'><input type=hidden name=mode value=delete>No.<input type=text size=4 name=delno> key<input type=password size=4 name=delpass> <input type=submit value=\"del\" name=del></span></form></div>\n";\r
 350         $footer .= "</td><td><div align=right><!-- $set{'ver'} --><a href=\"http://sugachan.dip.jp/download/\" target=\"_blank\"><small>Sn Uploader</small></a></div></td></tr></table>\n</body>\n</html>";\r
 351 \r
 352         my $info_title = "<table summary=\"upinfo\" width=\"100%\">\n<tr><td></td><td>NAME</td>";\r
 353         if($set{'disp_comment'}){ $info_title .= "<td>COMMENT</td>"; } if($set{'disp_size'}){ $info_title .= "<td>SIZE</td>"; } if($set{'disp_date'}){ $info_title .= "<td>DATE</td>"; }\r
 354         if($set{'disp_mime'}){ $info_title .= "<td>MIME</td>"; } if($set{'disp_orgname'}){ $info_title .= "<td>ORIG</td>"; }\r
 355         $info_title .= "</tr>\n";\r
 356 \r
 357         my $home_url_link;\r
 358         if($set{'home_url'}){ $home_url_link = qq|<a href="$set{'home_url'}">[HOME]</a> |;}\r
 359         if($set{'html_all'}){\r
 360                 my $buff; my $no = 1; my $time = time; my $subheader;\r
 361                 foreach my $value (@log){\r
 362                         my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$dummy) = split(/<>/,$value);\r
 363                         if(!$dummy){ next; }\r
 364                         $buff .= makeitem($value);\r
 365                 }\r
 366                 $subheader .= "[ALL] ";\r
 367                 while($no <= $lastpage){\r
 368                         if($no == $page) { $subheader .= "\[$no\] ";}\r
 369                         else{   if($no == 1){ $subheader .= "<a href=\"$set{'http_html_path'}$set{'base_html'}?$time\">\[$no\]</a> "}\r
 370                                         else{$subheader .= "<a href=\"$set{'http_html_path'}$no.html?$time\">\[$no\]</a> ";}    }\r
 371                         $no++;\r
 372                 }\r
 373                 $subheader .= $info_title;\r
 374                 open(OUT,">$set{'html_dir'}all.html")||&error(306,"$set{'html_dir'}all.html");\r
 375                 print OUT $header."<hr size=1>".$home_url_link.$subheader."<hr size=1>".$buff.$footer;\r
 376                 close(OUT);\r
 377                 chmod($set{'per_upfile'},"$set{'html_dir'}all.html");\r
 378         }else{ unlink("$set{'html_dir'}all.html"); }\r
 379         \r
 380         while($log > $i){\r
 381                 $buff .= makeitem($log[$i]) unless($init);\r
 382                 if(($i % $set{'pagelog'}) == 0||$i == $log -1){\r
 383                         $page++; my $subheader; my $no = 1;     my $time = time;\r
 384                         if($set{'html_all'}){ $subheader .= "<a href=\"./all.html?$time\">[ALL]</a> "; }\r
 385                         while($no <= $lastpage){\r
 386                                 if($no == $page) { $subheader .= "\[$no\] ";}\r
 387                                 else{   if($no == 1){ $subheader .= "<a href=\"$set{'http_html_path'}$set{'base_html'}?$time\">\[$no\]</a> "}\r
 388                                                 else{$subheader .= "<a href=\"$set{'http_html_path'}$no.html?$time\">\[$no\]</a> ";}\r
 389                                 }\r
 390                                 $no++;\r
 391                         }\r
 392                         $subheader .= $info_title;\r
 393                         my $loghtml;\r
 394                         if($page == 1){ $loghtml = "$set{'html_dir'}$set{'base_html'}"; }\r
 395                         else{ $loghtml = "$set{'html_dir'}$page.html"; }\r
 396 \r
 397                         open(OUT,">$loghtml") || &error(306,"$loghtml");\r
 398                         print OUT $header."<hr size=1>".$home_url_link.$subheader."<hr size=1>".$buff.$footer;\r
 399                         close(OUT);\r
 400                         chmod($set{'per_upfile'},$loghtml);\r
 401                         undef $buff;\r
 402                 }\r
 403                 $i++;\r
 404         }\r
 405 \r
 406         while($page < 1000){\r
 407                 $page ++;\r
 408                 if(-e "$set{'html_dir'}$page.html"){ unlink("$set{'html_dir'}$page.html"); }else{ last; }\r
 409         }\r
 410 }\r
 411 \r
 412 sub filewrite{\r
 413         my $random = int(rand(900000)) + 100000;\r
 414         if(-e "$set{'src_dir'}$random.temporary"){ $random++; }\r
 415         if(-e "$set{'src_dir'}$random.temporary"){ &error(204); }\r
 416         open (FILE,">$set{'src_dir'}$random.temporary") || &error(204);\r
 417         binmode(FILE);\r
 418         eval{ while(my $read = read($in{'upfile'}, my $buff, 8192)){ print FILE $buff; }};\r
 419         close(FILE);\r
 420         chmod($set{'per_upfile'},"$set{'src_dir'}$random.temporary");\r
 421         if((-s "$set{'src_dir'}$random.temporary") == 0){ unlink("$set{'src_dir'}$random.temporary"); &error(99); }\r
 422         my $size = (-s "$set{'src_dir'}$random.temporary");\r
 423         if($set{'min_flag'} && ($size < $set{'min_size'} * 1024)){ unlink("$set{'src_dir'}$random.temporary"); &error(107,$size);}\r
 424         if($size > $set{'max_size'} * 1024){ unlink("$set{'src_dir'}$random.temporary"); &error(106,$size);}\r
 425         eval { close($in{'upfile'});};\r
 426         unlink($in{'tmpfile'});\r
 427         return("$set{'src_dir'}$random.temporary");\r
 428 }\r
 429 \r
 430 sub delete{\r
 431         my $mode = $_[0];\r
 432         my @delno = split(/,/,$_[1]);\r
 433         my $delno; my $flag = 0; my $tmpaddr;\r
 434         my $delnote;\r
 435 \r
 436         if($in{'delno'} =~ /(\d+)/){ $delno = $1; }\r
 437         if($mode ne 'admin' && !$in{'delno'}){ return; }\r
 438         elsif($mode ne 'admin' && !$delno){ &error(401,$in{'delno'}); }\r
 439 \r
 440         open(IN,$set{'log_file'})|| &error(303);\r
 441         my @log = <IN>;\r
 442         close(IN);\r
 443 \r
 444         if($in{'addr'} =~ /(\d+).(\d+).(\d+).(\d+)/){ $tmpaddr = "$1.$2.$3."; }\r
 445         my $findflag = 0;\r
 446         foreach my $value (@log){\r
 447                 my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);\r
 448                 $delnote = $note;\r
 449                 my $delflag = 0;\r
 450                 if(!$addr){ next; }\r
 451                 if($mode eq 'admin'){\r
 452                         foreach my $delno (@delno){ if($no == $delno){ $delflag = 1; last; } }\r
 453                 }elsif($no == $delno){\r
 454                         $findflag = 1;\r
 455                         unless ($addr =~ /^$tmpaddr/){\r
 456                                 my ($pass,$id) = split(/,/,$pass);\r
 457                                 my $delpass = $in{'delpass'} || $in{'addr'}.time();\r
 458                                 my $salt = substr($pass, 0, 2); $delpass = crypt($delpass,$salt);\r
 459                                 my $usersalt = substr($in{'user'},0,2); my $userid = crypt($in{'user'},$usersalt);\r
 460                                 if ($in{'delpass'} ne $set{'admin_pass'} && $delpass ne $pass && $userid ne $id){ \r
 461                                         if($mode ne 'admin'){ if(!$dummy){ $filepre = $set{'file_pre'};} $no = sprintf("%04d",$no); &error(404,"$filepre$no.$ext");}\r
 462                                 }\r
 463                         }\r
 464                         $delflag = 1;\r
 465                 }\r
 466                 if($delflag){\r
 467 #                       open(OUT,">>./del.cgi"); print OUT $value; close(OUT);\r
 468                         $flag = 1;\r
 469                         if(!$dummy){ $filepre = $set{'file_pre'};}\r
 470                         $no = sprintf("%04d",$no);\r
 471                         my $filename;\r
 472                         my ($dlpath,$filedir);\r
 473                         if($delnote =~ /DLpath:(.+)\s/){\r
 474                                 $dlpath = $1;\r
 475                                 $filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext";\r
 476                                 $filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/";\r
 477                         }else{\r
 478                                 $filename = "$set{'src_dir'}$filepre$no.$ext";\r
 479                         }\r
 480                         \r
 481                         if(unlink($filename)){\r
 482                                 unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;\r
 483                         }elsif(unlink($filename)){\r
 484                                 unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;\r
 485                         }elsif(!(-e $filename)){\r
 486                                 unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value;\r
 487                         }else{\r
 488                                 if($mode ne 'admin'){ &error(403,"$filepre$no.$ext");}\r
 489                         }\r
 490                 }\r
 491         }\r
 492         if($mode ne 'admin' && !$findflag){ &error(402,$delno); }\r
 493         if($flag){\r
 494                 logwrite(@log);\r
 495                 &makehtml();\r
 496         }\r
 497 }\r
 498 \r
 499 sub quit{\r
 500         my ($cookiename,$buff);\r
 501         my $flag = 0;\r
 502         my @tmpfiles = globfile("$set{'src_dir'}","\.temporary");\r
 503         foreach my $value (@tmpfiles){ if((stat($value))[10] < time - 60*60){ unlink("$value"); $flag++; } }\r
 504         &makehtml() if($flag);\r
 505         $buff =<<"EOM";\r
 506 $set{'html_head'}<META HTTP-EQUIV="Refresh" CONTENT="1;URL=$set{'http_html_path'}$set{'base_html'}">\r
 507 EOM\r
 508         if($in{'jcode'} || $in{'mode'} eq 'delete'){\r
 509                 $buff .=<<"EOM";\r
 510 <META HTTP-EQUIV="Set-Cookie" content="SN_USER=$in{'user'}&lt;&gt;1; path=/; expires=Tue, 31-Dec-2030 23:59:59 GMT">\r
 511 <META HTTP-EQUIV="CONTENT-SCRIPT-TYPE" CONTENT="text/javascript">\r
 512 <script type="text/javascript">\r
 513 <!--\r
 514 setCookie();\r
 515 function setCookie() {\r
 516         var key1,key2;\r
 517         var tmp = "path=/; expires=Tue, 31-Dec-2030 23:59:59; ";\r
 518 EOM\r
 519                 if($in{'jcode'}){\r
 520                         my %ck; foreach(split(/;/,$ENV{'HTTP_COOKIE'})){ my($key,$val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val;}\r
 521                         my @ck = split(/<>/,$ck{'SN_DEL'});\r
 522                         if(!$ck[0] && $in{'org_pass'}){ $buff .= qq|\tdocument.cookie = "SN_DEL="+escape('$in{'org_pass'}')+"<>;"+ tmp;\n|;}\r
 523                         $cookiename = 'SN_UPLOAD'; $buff .= "\tkey1 = escape('$in{'org_pass'}'); key2 = escape('$in{'postkey'}');\n";}\r
 524                 else{ $cookiename = 'SN_DEL'; $buff .= "\tkey1 = escape('$in{'delpass'}'); key2 = '';\n"; }\r
 525                 $buff .= qq|\tdocument.cookie = "$cookiename="+key1+"<>"+key2+"; "+ tmp;\n}\n//-->\n</script>\n|;\r
 526         }\r
 527         $buff .=<<"EOM";\r
 528 <body>\r
 529 <br><br><div align=center><font size="+1"><br><br>\r
 530 <a href="$set{'http_html_path'}$set{'base_html'}?$in{'time'}">click here!</a></font><br>\r
 531 </div>\r
 532 </body></html>\r
 533 EOM\r
 534         print "Content-type: text/html\n\n";\r
 535         print $buff;\r
 536         exit;\r
 537 }\r
 538 \r
 539 sub admin_mode{\r
 540         &errorclear() if($in{'mode'} eq 'errorclear');\r
 541         &delete('admin',$in{'admin_delno'}) if($in{'mode'} eq 'delete');\r
 542 \r
 543         open(IN,$set{'log_file'})||error(303);\r
 544         my @log = <IN>;\r
 545         close(IN);\r
 546 \r
 547         my ($header,$buff,$footer,$value);\r
 548         $buff =<<"EOM";\r
 549 $set{'html_head'}$set{'html_css'}</HEAD>\r
 550 <body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">\r
 551 EOM\r
 552 \r
 553         $buff .= leaddisp(0,1,1).'<a name="up"></a><table summary="title" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Upload Info</font></strong></td></tr></table>';\r
 554         $buff .= qq|<table summary="check"><tr><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name="checkmode" value="allcheck"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="\82·\82×\82Ä\83`\83F\83b\83N"></form></td><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name="checkmode" value="nocheck"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="\82·\82×\82Ä\8aO\82·"></form></td><td><form action="$set{'base_cgi'}" method="POST"><input type=hidden name=delpass value="$set{'admin_pass'}"><input type=submit value="HTML\82ð\8dX\90V\82·\82é/\83\8d\83O\83A\83E\83g"></form></td></tr></table>\n<form action="$set{'base_cgi'}" method="POST"><input type=hidden name="mode" value="delete"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="\83`\83F\83b\83N\82µ\82½\82à\82Ì\82ð\8dí\8f\9c"><br>\n|."<table summary=\"upinfo\" width=\"100%\">\n<tr><td>DEL</td><td>NAME</td><td>COMMENT</td><td>SIZE</td><td>ADDR</td><td>HOST</td><td>DATE</td><td>NOTE</td><td>MIME</td><td>ORIG</td></tr>\n";\r
 555         shift(@log);\r
 556         foreach (@log){ $buff .= makeitem($_,'admin'); }\r
 557         $buff .= '</table></form><br><br>';\r
 558 \r
 559         if($set{'error_level'}){\r
 560                 $buff .= leaddisp(-1,0,1).'<a name="error"></a><table summary="errortitle" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Error Info</font></strong></td></tr></table>';\r
 561                 $buff .= qq|<form action="$set{'base_cgi'}" method="POST"><input type=hidden name=mode value="errorclear"><input type=hidden name=delno value="$in{'delno'}"><input type=hidden name=delpass value="$in{'delpass'}"><input type=submit value="\83G\83\89\81[\83\8d\83O\83N\83\8a\83A"></form>|;\r
 562                 $buff .= "<table summary=\"errorinfo\" width=\"100%\">\n<tr><td>DATE</td><td>ADDR</td><td>HOST</td><td>NOTE</td></tr>\n";\r
 563                 if(open(IN,$set{'error_log'})){ @log = reverse(<IN>); close(IN); foreach (@log){ my ($date,$no,$note,$addr,$host) = split(/<>/); $buff .= "<tr><td>$date</td><td>$addr</td><td>$host</td><td>$note</td></tr>\n"; }}\r
 564                 $buff .= "</table><br><br>\n";\r
 565         }\r
 566 \r
 567         $buff .= leaddisp(-1,-1,0);\r
 568         $buff .= '<a name="set"></a><table summary="settitle" width="100%"><tr><td bgcolor="#caccff"><strong><font size="4" color="#3366cc">Setting Info</font></strong></td></tr></table>'."\n<table summary=\"setting\">\n";\r
 569         $buff .= tablestr('\83X\83N\83\8a\83v\83gVer',$set{'ver'});\r
 570         $buff .= tablestr('\83\81\83C\83\93\83\8d\83O\83t\83@\83C\83\8b',$set{'log_file'});\r
 571         if($set{'error_level'}){\r
 572                 $buff .= tablestr('\83G\83\89\81[\83\8d\83O\83t\83@\83C\83\8b',$set{'error_log'});\r
 573                 if($set{'error_size'}){ $buff .= tablestr('\83G\83\89\81[\83\8d\83O\8dÅ\91å\97e\97Ê',dispsize($set{'error_size'}*1024).' '.($set{'error_size'}*1024).'Bytes'); }\r
 574                 else{ $buff .= tablestr('\83G\83\89\81[\83\8d\83O\8dÅ\91å\97e\97Ê\90§\8cÀ','\96³'); }\r
 575         }else{ $buff .= tablestr('\83G\83\89\81[\83\8d\83O\8bL\98^','\96³'); }\r
 576         $buff .= tablestr('\95Û\8e\9d\8c\8f\90\94',$set{'max_log'});\r
 577         $buff .= tablestr('\8dÅ\91å\93\8a\8de\97e\97Ê',dispsize($set{'max_size'}*1024).' '.($set{'max_size'}*1024).'Bytes');\r
 578 \r
 579         if($set{'min_flag'}){ $buff .= tablestr('\8dÅ\8f¬\90§\8cÀ\97e\97Ê',dispsize($set{'min_size'}*1024).' '.($set{'min_size'}*1024).'Bytes'); }\r
 580         else{ $buff .= tablestr('\8dÅ\8f¬\90§\8cÀ\97e\97Ê',"\96³"); }\r
 581         if($set{'max_all_flag'}){ $buff .= tablestr('\91\8d\97e\97Ê\90§\8cÀ',dispsize($set{'max_all_size'}*1024).' '.($set{'max_all_size'}*1024).'Bytes'); }\r
 582         else{ $buff .= tablestr('\91\8d\97e\97Ê\90§\8cÀ',"\96³"); }\r
 583 \r
 584         $buff .= tablestr("\83t\83@\83C\83\8b\90Ú\93ª\8e«",$set{'file_pre'});\r
 585         $buff .= tablestr("HTML\95Û\91¶\83f\83B\83\8c\83N\83g\83\8a",$set{'html_dir'});\r
 586         $buff .= tablestr("\83t\83@\83C\83\8b\95Û\91¶\83f\83B\83\8c\83N\83g\83\8a",$set{'src_dir'});\r
 587         if($set{'http_html_path'} && $set{'html_dir'} ne $set{'http_html_path'}){ $buff .= "<tr><td>HTTP_HTML_PATH</td><td>$set{'http_html_path'}</td></tr>\n";}\r
 588         if($set{'http_src_path'} && $set{'src_dir'} ne $set{'http_src_path'}){ $buff .= "<tr><td>HTTP_SRC_PATH</td><td>$set{'http_src_path'}</td></tr>\n";}\r
 589         $buff .= tablestr('1\83y\81[\83W\82É\95\\8e¦\82·\82é\83t\83@\83C\83\8b\90\94',$set{'pagelog'});\r
 590         if($set{'interval'} > 0){ $value = $set{'interval'}.'\95b'; }else{ $value = '\96³'; }\r
 591         $buff .= tablestr('\93¯\88êIP\93\8a\8de\8aÔ\8au\95b\90\94\90§\8cÀ',$value);\r
 592         if($set{'up_ext'}){     $set{'up_ext'} =~ s/,/ /g; $buff .= tablestr('\93\8a\8de\89Â\94\\8aî\96{\8ag\92£\8eq',$set{'up_ext'}); }\r
 593         if($set{'deny_ext'}){ $set{'deny_ext'} =~ s/,/ /g; $buff .= tablestr('\93\8a\8de\8bÖ\8e~\8ag\92£\8eq',$set{'deny_ext'}); }\r
 594         if($set{'change_ext'}){ $set{'change_ext'} =~ s/,/ /g; $set{'change_ext'} =~ s/>/&gt;/g; $buff .= tablestr('\8ag\92£\8eq\95Ï\8a·',$set{'change_ext'});    }\r
 595 \r
 596         if($set{'up_all'}){     $buff .= tablestr('\8ew\92è\8aO\8ag\92£\8eq\83A\83b\83v\83\8d\81[\83h\8b\96\89Â','\97L'); if($set{'ext_org'}){ $buff .= tablestr('\8ew\92è\8aO\83t\83@\83C\83\8b\8ag\92£\8eq','\83I\83\8a\83W\83i\83\8b'); }else{ $buff .= tablestr('\8ew\92è\8aO\83t\83@\83C\83\8b\8ag\92£\8eq','bin'); }}\r
 597         else{$buff .= tablestr('\8ew\92è\8aO\8ag\92£\8eq\83A\83b\83v\83\8d\81[\83h\8b\96\89Â','\96³');}\r
 598 \r
 599         if($set{'find_crypt'}){ $value = '\97L'; }else{ $value = '\96³';}\r
 600         $buff .= tablestr('\88Ã\8d\86\89»\83A\81[\83J\83C\83u\8c\9f\8fo(ZIP)',$value);\r
 601         if($set{'binary_compare'}){ $value = '\97L'; }else{ $value = '\96³';}\r
 602         $buff .= tablestr('\83o\83C\83i\83\8a\94ä\8ar',$value);\r
 603         if($set{'post_flag'}){ $value = '\97L'; }else{ $value = '\96³';}\r
 604         $buff .= tablestr('PostKey\93\8a\8de\90§\8cÀ',$value);\r
 605         if($set{'dlkey'}){ if($set{'dlkey'} == 2){$value = '\95K\90{'}else{$value = '\94C\88Ó';}}else{ $value = '\96³';}\r
 606         $buff .= tablestr('DLkey',$value);\r
 607         if($set{'dummy_html'}){ if($set{'dummy_html'} == 3){$value = 'ALL'}elsif($set{'dummy_html'} == 2){$value = 'DLKey\82Ì\82Ý';}else{$value = '\92Ê\8fí\83t\83@\83C\83\8b\82Ì\82Ý';}}else{ $value = '\96³';}\r
 608         $buff .= tablestr('\8cÂ\95ÊHTML\83L\83\83\83b\83V\83\85',$value);\r
 609         if($set{'disp_error'}){ $value = '\97L'; }else{ $value = '\96³';}\r
 610         $buff .= tablestr('\83\86\81[\83U\83G\83\89\81[\95\\8e¦',$value);\r
 611         if($set{'zero_clear'}){ $value = '\97L'; }else{ $value = '\96³';}\r
 612         $buff .= tablestr('\8dí\8f\9c\8dÏ\83t\83@\83C\83\8b\83\8a\83X\83g\8e©\93®\8fÁ\8b\8e',$value);\r
 613         if($set{'home_url'}){ $buff .= "<tr><td>HOMEURL</td><td>$set{'home_url'}</td></tr>\n";}\r
 614 \r
 615         $buff .= '</table></body></html>';\r
 616 \r
 617         print "Content-type: text/html\n\n";\r
 618         print $buff;\r
 619         exit;\r
 620 }\r
 621 \r
 622 sub extfind{\r
 623         my $orgname = @_[0];\r
 624         my @filename = split(/\./,$orgname);\r
 625         my $ext = $filename[$#filename];\r
 626         $ext =~ tr/[A-Z]/[a-z]/;\r
 627         foreach my $value (split(/,/,$set{'change_ext'})){ my ($src,$dst) = split(/->/,$value); if($ext eq $src){ $ext = $dst; last; }}\r
 628         foreach my $value (split(/,/,$set{'deny_ext'})){ if($ext eq $value){ &error(206,$ext); }}\r
 629         foreach my $value (split(/,/,$set{'up_ext'})){ if ($ext eq $value) { return $value; } }\r
 630         if(length($ext) >= 5 || length($ext) == 0){ $ext = 'bin'; }\r
 631         unless ($ext =~ /^[A-Za-z0-9]+$/){ $ext = 'bin'; }\r
 632         if($set{'up_all'} && $set{'ext_org'}){ return $ext;}\r
 633         elsif($set{'up_all'}){ return 'bin'; }\r
 634         return 0;\r
 635 }\r
 636 \r
 637 sub conv_date{\r
 638         my @date = gmtime($_[0] + 9*60*60);\r
 639         $date[5] -= 100; $date[4]++;\r
 640         if ($date[5] < 10) { $date[5] = "0$date[5]" ; } if ($date[4] < 10) { $date[4] = "0$date[4]" ; }\r
 641         if ($date[3] < 10) { $date[3] = "0$date[3]" ; } if ($date[2] < 10) { $date[2] = "0$date[2]" ; }\r
 642         if ($date[1] < 10) { $date[1] = "0$date[1]" ; } if ($date[0] < 10) { $date[0] = "0$date[0]" ; }\r
 643         my @w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');\r
 644         return ("$date[5]/$date[4]/$date[3]($w[$date[6]]),$date[2]:$date[1]:$date[0]");\r
 645 }\r
 646 \r
 647 sub dispsize{\r
 648         my $size = $_[0];\r
 649         if($size >= 1024*1024*1024*100){ $size = int($size/1024/1024/1024).'GB';}\r
 650         elsif($size >= 1024*1024*1024*10){ $size = sprintf("%.1fGB",$size/1024/1024/1024);}\r
 651         elsif($size > 1024*1024*1024){ $size = sprintf("%.2fGB",$size/1024/1024/1024);}\r
 652         elsif($size >= 1024*1024*100){ $size = int($size/1024/1024).'MB'; }\r
 653         elsif($size > 1024*1024){ $size =  sprintf("%.1fMB",$size/1024/1024); }\r
 654         elsif($size > 1024){ $size = int($size/1024).'KB'; }\r
 655         else{ $size = int($size).'B';}\r
 656         return $size;\r
 657 }\r
 658 \r
 659 sub makeitem{\r
 660         my ($src,$mode) = @_; my ($buff,$check,$target);\r
 661         my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$src);\r
 662         if(!$dummy){ $filepre = $set{'file_pre'}; }\r
 663         my $orgno = $no;\r
 664         $no = sprintf("%04d",$no);\r
 665         my $size = 0;\r
 666         my $dlpath = 0;\r
 667 \r
 668         if($note =~ /DLpath:(.+)\s/){\r
 669                 $dlpath = $1;\r
 670                 $size = dispsize(-s "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext");\r
 671         }else{\r
 672                 $size = dispsize(-s "$set{'src_dir'}$filepre$no.$ext");\r
 673         }\r
 674 \r
 675         my $path = $set{'http_src_path'} || $set{'src_dir'};\r
 676         if($set{'link_target'}){ $target = qq| target="$set{'link_target'}"|; }\r
 677         if($mode eq 'admin'){\r
 678                 if($dlpath){ $path .= "$filepre$no.${ext}_$dlpath/"; }\r
 679                 if($addr eq $host){ undef $host; }\r
 680                 if($in{'checkmode'} eq 'allcheck'){$check = ' checked';}\r
 681                 $buff = "<tr><td><INPUT TYPE=checkbox NAME=\"admin_delno\" VALUE=\"$no\"$check></td><td><a href=\"$path$filepre$no.$ext\"$target>$filepre$no.$ext</a></td><td>$comment</td><td>$size</td><td>$addr</td><td>$host</td><td>$date</td><td>$note</td><td>$mime</td><td>$orgname</td></tr>\n";\r
 682         }else{\r
 683                 my($d_com,$d_date,$d_size,$d_mime,$d_org);\r
 684                 if($set{'disp_comment'}){ $d_com = "<td>$comment</td>"; } if($set{'disp_size'}){ $d_size = "<td>$size</td>"; } if($set{'disp_date'}){ $d_date= "<td>$date</td>"; }\r
 685                 if($set{'disp_mime'}){ $d_mime = "<td>$mime</td>"; } if($set{'disp_orgname'}){ $d_org = "<td>$orgname</td>"; }\r
 686                 if(-e "$set{'src_dir'}$filepre$no.$ext.html"){$buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$path$filepre$no.$ext.html\"$target>$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}\r
 687                 elsif($dlpath){$buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$set{'base_cgi'}?mode=dl&file=$orgno\">$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}\r
 688                 else{ $buff = "<tr><td><SCRIPT type=\"text/javascript\" Language=\"JavaScript\"><!--\ndocument.write(\"<a href=\\\"javascript:delnoin($orgno)\\\">$set{'char_delname'}<\\/a>\");\n// --></SCRIPT></td><td><a href=\"$path$filepre$no.$ext\"$target>$filepre$no.$ext</a></td>$d_com$d_size$d_date$d_mime$d_org</tr>\n";}\r
 689         }\r
 690         return $buff;\r
 691 }\r
 692 \r
 693 sub makedummyhtml{\r
 694         my ($filename,$com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_;\r
 695         my $buff;\r
 696 \r
 697         if(!$no){\r
 698                 $buff = "<html><head><title>$filename</title></head><body>";\r
 699                 $buff .= qq|Download <a href="./$filename">$filename</a>|;\r
 700                 $buff .= '</body></html>';\r
 701         }else{\r
 702                 $buff = cryptfiledl($com,$file,$orgdlpath,$date,$mime,$orgname,$no);\r
 703         }\r
 704 \r
 705         open(OUT,">$set{'src_dir'}$filename.html")||&error(307,"$set{'src_dir'}$filename.html");\r
 706         print OUT $buff;\r
 707         close(OUT);\r
 708         chmod($set{'per_upfile'},"$set{'src_dir'}$filename.html");\r
 709         return 1;\r
 710 }\r
 711 \r
 712 sub logwrite{\r
 713         my @log = @_;\r
 714         open(OUT,"+>$set{'log_file'}")||&error(304);\r
 715         eval{ flock(OUT, 2);};\r
 716         eval{ truncate(OUT, 0);};\r
 717         seek(OUT, 0, 0);\r
 718         print OUT @log;\r
 719         eval{ flock(OUT, 8);};\r
 720         close(OUT);\r
 721         chmod($set{'per_upfile'},$set{'log_file'});\r
 722         return 1;\r
 723 }\r
 724 \r
 725 sub binarycmp{\r
 726         my ($src,$dst) = @_;\r
 727         return 0 if (-s $src != -s $dst);\r
 728         open(SRC,$src)||return 0; open(DST,$dst)||return 0;\r
 729         my ($buff,$buff2);\r
 730         binmode(SRC); binmode(DST); seek(SRC,0,0); seek(DST,0,0); \r
 731         while(read(SRC,$buff,8192)){ read(DST,$buff2,8192); if($buff ne $buff2){ close(SRC); close(DST); return 0; } }\r
 732         close(SRC); close(DST);\r
 733         return 1;\r
 734 }\r
 735 \r
 736 sub init{\r
 737         my $buff;\r
 738         if(open(OUT,">$set{'log_file'}")){\r
 739                 print OUT "0<>0<>0<>1\n";\r
 740                 close(OUT);\r
 741                 chmod($set{'per_logfile'},$set{'log_file'});\r
 742         }else{\r
 743                 $buff = "<tr><td>\83\81\83C\83\93\83\8d\83O\82Ì\8dì\90¬\82É\8e¸\94s\82µ\82Ü\82µ\82½</td></tr>";\r
 744         }\r
 745         \r
 746         unless (-d "$set{'src_dir'}"){\r
 747                 if(mkdir("$set{'src_dir'}",$set{'per_dir'})){\r
 748                         chmod($set{'per_dir'},"$set{'src_dir'}");\r
 749                         open(OUT,">$set{'src_dir'}index.html");\r
 750                         close(OUT);\r
 751                         chmod($set{'per_upfile'},"$set{'src_dir'}index.html");\r
 752                 }else{\r
 753                         $buff .= "<tr><td>Source\95Û\91¶\83f\83B\83\8c\83N\83g\83\8a\82Ì\8dì\90¬\82É\8e¸\94s\82µ\82Ü\82µ\82½</td></tr>";\r
 754                 }\r
 755         }\r
 756 \r
 757         unless (-d "$set{'html_dir'}"){\r
 758                 if(mkdir("$set{'html_dir'}",$set{'per_dir'})){\r
 759                         chmod($set{'per_dir'},"$set{'html_dir'}");\r
 760                 }else{\r
 761                         $buff .= "<tr><td>HTML\95Û\91¶\83f\83B\83\8c\83N\83g\83\8a\82Ì\8dì\90¬\82É\8e¸\94s\82µ\82Ü\82µ\82½</td></tr>";\r
 762                 }\r
 763         }\r
 764 \r
 765         if($buff){\r
 766                 $buff .= "<tr><td>\83f\83B\83\8c\83N\83g\83\8a\82É\8f\91\82«\8d\9e\82Ý\8c \8cÀ\82ª\82 \82é\82©\8am\94F\82µ\82Ä\82\82¾\82³\82¢</td></tr>";\r
 767                 &error_disp($buff,'init');\r
 768         }\r
 769 }\r
 770 \r
 771 sub check_postkey{\r
 772         my $inputkey = @_[0];\r
 773         my @key = split(/,/,$set{'post_key'});\r
 774         foreach my $key (@key){ if($inputkey eq $key){ return 1; } }\r
 775         return 0;\r
 776 }\r
 777 \r
 778 sub leaddisp{\r
 779         my @src = @_;\r
 780         my ($str,$count);\r
 781         foreach my $value (@src){\r
 782                 my ($mark,$name,$link); $count++;\r
 783                 if($count == 1){ $name = 'Upload Info'; $link = 'up'; }\r
 784                 elsif($count == 2){ $name = 'Error Info'; $link = 'error'; next if(!$set{'error_level'}); }\r
 785                 elsif($count == 3){ $name = 'Setting Info'; $link = 'set'; }\r
 786                 if($value){ if($value > 0){ $mark = '\81¥'; }else{ $mark = '\81£'; } $str .= qq|<a href="#$link">${mark}${name}</a> |; }\r
 787                 else{ $str .= qq|[$name] |; }\r
 788         }\r
 789         return $str;\r
 790 }\r
 791 \r
 792 sub errorclear{\r
 793         open(OUT,">$set{'error_log'}")||return 0;\r
 794         eval{ flock(OUT, 2);}; eval{ truncate(OUT, 0);}; seek(OUT, 0, 0); eval{ flock(OUT, 8);}; close(OUT);\r
 795         chmod($set{'per_upfile'},$set{'log_file'});\r
 796         return 1;\r
 797 }\r
 798 \r
 799 sub tablestr{\r
 800         my ($value1,$value2) = @_;\r
 801         return ("<tr><td>$value1</td><td>$value2</td></tr>\n");\r
 802 }\r
 803 \r
 804 sub globfile{\r
 805         my ($src_dir,$filename) = @_;\r
 806         opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR);\r
 807         my @new = (); foreach my $value (@dir){ push(@new,"$src_dir$value") if($value =~ /$filename/ && !(-d "$src_dir$value")); }\r
 808         return @new;\r
 809 }\r
 810 \r
 811 sub globdir{\r
 812         my ($src_dir,$dir) = @_;\r
 813         opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR);\r
 814         my @new = (); foreach my $value (@dir){ if($value eq '.' ||$value eq '..' ){ next; } push(@new,"$src_dir$value") if($value =~ /$dir/ && (-d "$src_dir$value")); }\r
 815         return @new;\r
 816 }\r
 817 \r
 818 sub error_disp{\r
 819         my ($message,$mode) = @_;\r
 820         my $url;\r
 821         if($mode eq 'init'){ $url = qq|<a href="$set{'base_cgi'}">[\83\8a\83\8d\81[\83h]</a>|; }else{ $url = qq|<a href="$set{'http_html_path'}$set{'base_html'}">[\96ß\82é]</a>|; }\r
 822         my $buff =<<"EOM";\r
 823 $set{'html_head'}$set{'html_css'}</HEAD>\r
 824 <body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">\r
 825 <div align="center">\r
 826 <table summary="error">\r
 827 $message\r
 828 <tr><td></td></tr>\r
 829 <tr><td><div align="center">$url</div></td></tr>\r
 830 </table>\r
 831 <br><br>\r
 832 <table summary="info">\r
 833 <tr>\r
 834 <td>DATE</td><td>$in{'date'}</td></tr>\r
 835 <tr><td>ADDR</td><td>$in{'addr'}</td></tr>\r
 836 <tr><td>HOST</td><td>$in{'host'}</td></tr>\r
 837 </table>\r
 838 </div>\r
 839 </body></html>\r
 840 EOM\r
 841         print "Content-type: text/html\n\n";\r
 842         print $buff;\r
 843         exit;\r
 844 }\r
 845 \r
 846 sub error{\r
 847         my ($no,$note) = @_;\r
 848         if (length($note) > 64) { $note = substr($note,0,64).'...'; }\r
 849         $note =~ s/&/&amp;/g; $note =~ s/\"/&quot;/g; $note =~ s/</&lt;/g; $note =~ s/>/&gt;/g; $note =~ s/\r//g; $note =~ s/\n//g; $note =~ s/\t//g; $note =~ s/\0//g;\r
 850         my ($message,$dispmsg,$flag);\r
 851         if($no == 98){ $message = ""; }\r
 852         elsif($no == 99){ $message = "UpFile\82È\82µ"; }\r
 853         elsif($no == 101){ $message = "\93\8a\8de\8bÖ\8e~HOST"; }\r
 854         elsif($no == 106){ $flag = 1; $message = "POST\83T\83C\83Y\92´\89ß"; $note = dispsize($note); $dispmsg= '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\83A\83b\83v\83\8d\81[\83h\83t\83@\83C\83\8b('.$note.')\82Í \8dÅ\91å\97e\97Ê\90Ý\92è('.dispsize($set{'max_size'}*1024).')\82ð\89z\82¦\82Ä\82¢\82Ü\82·</td></tr>';}\r
 855         elsif($no == 107){ $flag = 1; $message = "POST\83T\83C\83Y\89ß\8f¬"; $note = dispsize($note); $dispmsg= '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\83A\83b\83v\83\8d\81[\83h\83t\83@\83C\83\8b('.$note.')\82Í \8dÅ\8f¬\97e\97Ê\90Ý\92è('.dispsize($set{'min_size'}*1024).')\96¢\96\9e\82Å\82·</td></tr>';}\r
 856 #       elsif($no == 108){ $flag = 1; $message = "POST\83f\81[\83^\95s\8a®\91S"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>POST\83f\81[\83^\82ª\95s\8a®\91S\82Å\82·</td></tr>';}\r
 857         elsif($no == 109){ $flag = 1; $message = "POSTKey\95s\88ê\92v"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>POSTKey\82ª\88ê\92v\82µ\82Ü\82¹\82ñ</td></tr>';}\r
 858         elsif($no == 202){ $flag = 1; $message = "\8ag\92£\8eq\8d\87\82í\82¸"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\93\8a\8de\82Å\82«\82é\8ag\92£\8eq\82Í'.$set{'up_ext'}.'\82Å\82·</td></tr>';}\r
 859         elsif($no == 203){ $flag = 1; $message = "\93\8a\8de\91\81\82·\82¬"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\93¯\88êIP\83A\83h\83\8c\83X\82©\82ç'.$set{'interval'}.'\95b\88È\93à\82É\8dÄ\93\8a\8de\82Å\82«\82Ü\82¹\82ñ</td></tr>';}\r
 860         elsif($no == 204){ $flag = 1; $message = "\88ê\8e\9e\83t\83@\83C\83\8b\8f\91\82«\8d\9e\82ß\82¸"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\88ê\8e\9e\83t\83@\83C\83\8b\82Ì\8dì\90¬\82É\8e¸\94s\82µ\82Ü\82µ\82½</td></tr>';}\r
 861         elsif($no == 205){ $flag = 1; $message = "\93¯\88ê\83t\83@\83C\83\8b\91¶\8dÝ"; $note =~ /([^\/]+)$/; my $filename = $1; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\93¯\88ê\83t\83@\83C\83\8b\82ª '.$filename.' \82É\91¶\8dÝ\82µ\82Ü\82·</td></tr>';}\r
 862         elsif($no == 206){ $flag = 1; $message = "\8bÖ\8e~\8ag\92£\8eq"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\8ag\92£\8eq '.$note.' \82Í\83A\83b\83v\83\8d\81[\83h\82Å\82«\82Ü\82¹\82ñ</td></tr>';}\r
 863         elsif($no == 303){ $flag = 1; $message = "\83\8d\83O\83t\83@\83C\83\8b\82É\93Ç\82Ý\8d\9e\82ß\82¸"; $dispmsg = '<tr><td>\83\81\83C\83\93\83\8d\83O\82Ì\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½</td></tr>';}\r
 864         elsif($no == 304){ $flag = 1; $message = "\83\8d\83O\83t\83@\83C\83\8b\82É\8f\91\82«\8d\9e\82ß\82¸"; $dispmsg = '<tr><td>\83\81\83C\83\93\83\8d\83O\82Ì\8f\91\82«\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½</td></tr>';}\r
 865         elsif($no == 306){ $message = "\83t\83@\83C\83\8b\83\8a\83X\83gHTML\8f\91\82«\8d\9e\82ß\82¸";}\r
 866         elsif($no == 307){ $message = "\83t\83@\83C\83\8bHTML\83t\83@\83C\83\8b\8f\91\82«\8d\9e\82ß\82¸";}\r
 867         elsif($no == 401){ $flag = 1; $message = "\8dí\8f\9cNo.\8c\9f\8fo\82Å\82«\82¸"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\8dí\8f\9c\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>'.$note.' \82©\82ç\8dí\8f\9cNo.\82ð\8c\9f\8fo\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>'.$set{'file_pre'}.'0774.zip\82Ì\8fê\8d\87 No.\82É\82Í 774 \82ð\93ü\97Í\82µ\82Ü\82·</td></tr>';}\r
 868         elsif($no == 402){ $flag = 1; $note = sprintf("%04d",int($note)); $message = "\8dí\8f\9cNo.\91¶\8dÝ\82¹\82¸"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\8dí\8f\9c\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>'.$set{'file_pre'}.$note.'.*** \82Í\83\81\83C\83\93\83\8d\83O\82É\91¶\8dÝ\82µ\82Ü\82¹\82ñ</td></tr>';}\r
 869         elsif($no == 403){ $flag = 1; $message = "\8dí\8f\9c\83A\83N\83Z\83X\8b\91\94Û"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\8dí\8f\9c\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>\83t\83@\83C\83\8b\8dí\8f\9c\8fð\8c\8f\82Í\96\9e\82½\82µ\82Ä\82¢\82Ü\82·\82ª '.$note.' \82Ì\83t\83@\83C\83\8b\82Ì\8dí\8f\9c\82ª\8b\91\94Û\82³\82ê\82Ü\82µ\82½</td></tr><tr><td>\83A\83N\83Z\83X\82ª\89ß\8fè\82È\8fê\8d\87\93\99\82Í\8e\9e\8aÔ\82ð\92u\82¢\82Ä\8dÄ\91\80\8dì\82·\82é\82Æ\8dí\8f\9c\82Å\82«\82é\82±\82Æ\82ª\82 \82è\82Ü\82·</td></tr>';}\r
 870         elsif($no == 404){ $flag = 1; $message = "\8dí\8f\9cKey\95s\88ê\92v"; $dispmsg = '<tr><td>\83t\83@\83C\83\8b\82ð\8dí\8f\9c\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>'.$note.' \8dí\8f\9cKey\82ª\88ê\92v\82µ\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr>';}\r
 871 \r
 872         elsif($no == 51){ $flag = 1; $message = "[DLMode] No.\8c©\82Â\82©\82ç\82¸";  $dispmsg = '<tr><td>[DLMode] \83t\83@\83C\83\8b\82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>'.$note.' \82©\82ç\83t\83@\83C\83\8bNo.\82ð\8c\9f\8fo\82Å\82«\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr>'; }\r
 873         elsif($no == 52){ $flag = 1; $message = "[DLMode] File\8c©\82Â\82©\82ç\82¸";  $dispmsg = '<tr><td>[DLMode] \83t\83@\83C\83\8b\82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr><tr><td>'.$set{'file_pre'}.$note.'.*** \82Í\83\81\83C\83\93\83\8d\83O\82É\91¶\8dÝ\82µ\82Ü\82¹\82ñ</td></tr>'; }\r
 874         elsif($no == 53){ $flag = 1; $message = "[DLMode] DLkey\96¢\90Ý\92è";  $dispmsg = '<tr><td>[DLMode] orgDLkeyError</td></tr><tr><td>'.$note.' DLKey\82ª\96¢\90Ý\92è\82Å\82·</td></tr>'; }\r
 875         elsif($no == 54){ $flag = 1; $message = "[DLMode] DLkey\95s\88ê\92v";  $dispmsg = '<tr><td>[DLMode] orgDLkeyError</td></tr><tr><td>'.$note.' DLKey\82ª\88ê\92v\82µ\82Ü\82¹\82ñ\82Å\82µ\82½</td></tr>'; }\r
 876         elsif($no == 55){ $flag = 1; $message = "[DLMode] File Oepn Error";  $dispmsg = '<tr><td>[DLMode] Open Error</td></tr><tr><td>'.$note.' \83t\83@\83C\83\8b\82Ì\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½</td></tr>'; }\r
 877         elsif($no == 56){ $flag = 1; $message = "[DLMode] File Not Found";  $dispmsg = '<tr><td>[DLMode] Not Found</td></tr><tr><td>'.$note.' \83t\83@\83C\83\8b\82ª\91¶\8dÝ\82µ\82Ü\82¹\82ñ</td></tr>'; }\r
 878 \r
 879         elsif($no == 61){ $flag = 1; $message = "DLkey\96¢\90Ý\92è";  $dispmsg = '<tr><td>DLKey\82ª\96¢\90Ý\92è\82Å\82·</td></tr>'; }\r
 880 \r
 881         if($note){$message .= ' ';}\r
 882         eval { close($in{'upfile'}); };\r
 883         unlink($in{'tmpfile'});\r
 884         if($set{'error_level'} && $no > 100){\r
 885                 unless(-e $set{'error_log'}){\r
 886                         open(OUT,">$set{'error_log'}");\r
 887                         close(OUT);\r
 888                         chmod($set{'per_logfile'},$set{'error_log'});\r
 889                 }\r
 890                 if($set{'error_size'} && ((-s $set{'error_log'}) > $set{'error_size'} * 1024)){\r
 891                         my $err_bkup = "$set{'error_log'}.bak.cgi";\r
 892                         unlink($err_bkup);\r
 893                         rename($set{'error_log'},$err_bkup);\r
 894                         open(OUT,">$set{'error_log'}");\r
 895                         close(OUT);\r
 896                         chmod($set{'per_logfile'},$set{'error_log'});\r
 897                 }\r
 898                 open(OUT,">>$set{'error_log'}");\r
 899                 print OUT "$in{'date'}<>$no<>$message$note<>$in{'addr'}<>$in{'host'}<>1\n";\r
 900                 close(OUT);\r
 901         }\r
 902         &error_disp($dispmsg) if($flag && $set{'disp_error'});\r
 903         &quit();\r
 904 }\r
 905 \r
 906 sub dlfile{\r
 907         my $msg;\r
 908         my ($orgdlkey,$orgdlpath);\r
 909         my ($dlext,$dlfilepre);\r
 910         my ($dl_date,$dl_comment,$dl_size,$dl_mime,,$dl_orgname);\r
 911         my $dlno = 0;\r
 912         my $findflag;\r
 913 \r
 914         open(IN,$set{'log_file'})||&error(303);\r
 915         my @log = <IN>;\r
 916         close(IN);\r
 917         shift(@log);\r
 918 \r
 919         if($in{'file'} =~ /(\d+)/){ $dlno = $1; }\r
 920         if($dlno == 0) { &error(51,$in{'file'}); }\r
 921 \r
 922         foreach my $value (@log){\r
 923                 my ($no,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value);\r
 924                         my @note = split(/,/,$note);\r
 925                         if(int($dlno) == $no){\r
 926                                 $dl_comment = $comment;\r
 927                                 $dl_mime = $mime;\r
 928                                 $dl_date = $date;\r
 929                                 $dl_orgname = $orgname;\r
 930                                 $dlext = $ext;\r
 931                                 $dlfilepre = $filepre;\r
 932                                 foreach my $tmpnote (@note){\r
 933                                         if($tmpnote =~ /\!--\sDLKey:(.+)\s--.*\!--\sDLpath:(.+)\s--/){\r
 934                                                 $orgdlkey = $1;\r
 935                                                 $orgdlpath = $2;\r
 936                                                 last;\r
 937                                         }\r
 938                                 }\r
 939                                 $findflag = 1;\r
 940                                 last;\r
 941                         }\r
 942         }\r
 943 \r
 944         my $dlfile = $dlfilepre.sprintf("%04d",int($dlno)).'.'.$dlext;\r
 945         if(!(-e "$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile")){ &error(56,"$dlfile----$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile"); }\r
 946 \r
 947         if($in{'dlkey'}){\r
 948                 my $dlsalt = substr($orgdlkey,0,2);\r
 949                 my $dlkey = crypt($in{'dlkey'},$dlsalt);\r
 950 \r
 951                 if($findflag == 0){ &error(52,$dlfile); }\r
 952                 elsif(!$orgdlkey){ &error(53,$dlfile); }\r
 953                 elsif($orgdlkey ne $dlkey && $set{'admin_pass'} ne $in{'dlkey'}){ &error(54,$dlfile); }\r
 954                 #print "Location: $set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile\n\n";\r
 955                 my $buff =<<"EOM";\r
 956 $set{'html_head'}$set{'html_css'}\r
 957 <META HTTP-EQUIV="Refresh" CONTENT="1;URL=$set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile">\r
 958 </HEAD>\r
 959 <body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">\r
 960 <div align="center">\r
 961 <br>\r
 962 <table summary="dlfrom">\r
 963 <tr><td>\94ò\82Î\82È\82¢\8fê\8d\87\82Í <a href="$set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile">\82±\82¿\82ç</a> \82©\82ç</td></tr>\r
 964 </table>\r
 965 </div>\r
 966 </body></html>\r
 967 EOM\r
 968                 print "Content-type: text/html\n\n";\r
 969                 print $buff;\r
 970         }else{\r
 971                 my $buff = cryptfiledl($dl_comment,$dlfile,$orgdlpath,$dl_date,$dl_mime,$dl_orgname,$dlno);\r
 972                 print "Content-type: text/html\n\n";\r
 973                 print $buff;\r
 974         }\r
 975         exit;\r
 976 }\r
 977 \r
 978 sub cryptfiledl{\r
 979                 my($com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_;\r
 980                 my($d_com,$d_date,$d_size,$d_mime,$d_org);\r
 981 \r
 982                 if($set{'disp_comment'}){ $d_com = "<tr><td>COMMENT</td><td>$com</td></td>"; } if($set{'disp_size'}){ $d_size = "<tr><td>SIZE</td><td>".dispsize(-s "$set{'src_dir'}${file}_$orgdlpath/$file")." (".(-s "$set{'src_dir'}${file}_$orgdlpath/$file")."bytes)"."</td></tr>"; } if($set{'disp_date'}){ $d_date= "<tr><td>DATE</td><td>$date</td></tr>"; }\r
 983                 if($set{'disp_mime'}){ $d_mime = "<tr><td>ORGMIME</td><td>$mime</td></tr>"; } if($set{'disp_orgname'}){ $d_org = "<tr><td>ORGNAME</td><td>$orgname</td></tr>"; }\r
 984 \r
 985                 my $buff =<<"EOM";\r
 986 $set{'html_head'}$set{'html_css'}</HEAD>\r
 987 <body bgcolor="#ffffff" text="#000000" LINK="#6060FF" VLINK="#6060FF" ALINK="#6060FF">\r
 988 <div align="center">\r
 989 <br>\r
 990 $file \82É\82ÍDLKey\82ª\90Ý\92è\82³\82ê\82Ä\82¢\82Ü\82·\r
 991 <table summary="dlform">\r
 992 <tr><td></td></tr>\r
 993 <FORM METHOD=POST ACTION="$set{'base_cgi'}" name="DL">\r
 994 <tr><td>\r
 995 <input type=hidden name=file value=$no>\r
 996 <input type=hidden name=jcode value="\8a¿\8e\9a">\r
 997 <input type=hidden name=mode value=dl></td></tr>\r
 998 $d_com$d_date$d_size$d_mime$d_org\r
 999 <tr><td>DLKey:<input type=text size=8 name="dlkey"></td></tr>\r
1000 <tr><td><input type=submit value="DownLoad"></td></tr>\r
1001 </FORM>\r
1002 </table>\r
1003 </div>\r
1004 </body></html>\r
1005 EOM\r
1006 \r
1007         return $buff;\r
1008 }