Uploader

#!/usr/bin/perl use vars qw(%set %in); use strict; $set{'log_file'} = './log.cgi'; #ログファイル名 $set{'max_log'} = 30; #保持件数 $set{'max_size'} = 1*1024; #最大投稿容量(KB) $set{'min_flag'} = 0; #最小容量制限を使用する=1 $set{'min_size'} = 100; #最小投稿容量(KB) $set{'max_all_flag'} = 0; #総容量制限を使用する=1 $set{'max_all_size'} = 20*1024; #総制限容量(KB) $set{'file_pre'} = 'up'; #ファイル接頭辞 $set{'pagelog'} = 10; #1ページに表示するファイル数 $set{'base_html'} = 'upload.html'; #1ページ目のファイル名 $set{'interval'} = 0; #同一IP投稿間隔秒数 $set{'deny_host'} = ''; #投稿禁止IP/HOST ,で区切る ex.(bbtec.net,219.119.66,ac.jp) $set{'admin_name'} = 'admin'; #管理者ログインID $set{'admin_pass'} = '1234'; #管理者パスワード # 以下5項目を再設定する際にはPATH，ディレクトリは / で終わること # $set{'html_dir'},$set{'base_cgi'}を ./ 以外に設定する場合, # またはDLkeyを使用しなおかつHTMLキャッシュ($set{'dummy_html'} = 2 or 3)を使用する場合は # $set{'base_cgi'} , $set{'http_html_path'} , $set{'http_src_path'} をフルパス(http://～～ or /～～)で記述する $set{'html_dir'} = './'; # 内部HTML保存ディレクトリ $set{'src_dir'} = './src/'; # 内部ファイル保存ディレクトリ $set{'base_cgi'} = './upload.cgi'; # このスクリプト名 http://～の指定可能 $set{'http_html_path'} = './'; # html参照 httpPATH http://～の指定可能 $set{'http_src_path'} = './src/'; # file参照 httpPATH http://～の指定可能 $set{'dlkey'} = 0; # DLKeyを使用する=1,DLkey必須=2 $set{'up_ext'} = 'txt,lzh,zip,rar,gca,mpg,mp3,avi,swf,bmp,jpg,gif,png'; #アップロードできる基本拡張子半角英数小文字 ,で区切る $set{'up_all'} = 0; #登録以外のものもUPさせられるようにする=1 $set{'ext_org'} = 0; #$set{'up_all'}が1の時オリジナルの拡張子にする=1 $set{'deny_ext'} = 'php,php3,phtml,rb,sh,bat,dll'; #投稿禁止の拡張子半角英数小文字 ,で区切る $set{'change_ext'} = 'cgi->txt,pl->txt,log->txt,jpeg->jpg,mpeg->mpg'; #拡張子変換前->後半角英数小文字 ,で区切る $set{'home_url'} = ''; #[HOME]のリンク先相対パス又は http://から始まる絶対パス $set{'html_all'} = 1; #[ALL]を出す=1 $set{'dummy_html'} = 0; #ファイル個別HTMLを作成する通常ファイルのみ=1,DLKey設定ファイルのみ=2,すべて=3 $set{'find_crypt'} = 1; #暗号化ZIPを検出する=1 $set{'binary_compare'} = 0; #既存ファイルとバイナリ比較する=1 $set{'post_flag'} = 0; #PostKeyを使用する=1 $set{'post_key'} = 'postkey'; #PostKey ,で区切ると複数指定 ex.(postkey1,postkey2) $set{'disp_error'} = 1; #ユーザーにエラーを表示する=1 $set{'error_level'} = 1; #エラーログを記録する=1 $set{'error_log'} = './error.cgi'; #エラーログファイル名 $set{'error_size'} = 1024; # エラーログ最大容量(KB) 制限なし=0 $set{'zero_clear'} = 1; #ファイルが見つからない場合ログから削除する=1 $set{'disp_comment'} = 1; #コメントを表示する=1 $set{'disp_date'} = 1; #日付を表示する=1 $set{'disp_size'} = 1; #サイズを表示する=1 $set{'disp_mime'} = 1; #MIMETYPEを表示する=1 $set{'disp_orgname'} = 1; #オリジナルファイル名を表示する=1 $set{'per_upfile'} = 0666; #アップロードファイルのパーミッション suexec=0604,other=0666 $set{'per_dir'} = 0777; #ソースアップディレクトリのパーミッション suexec=0701,other=0777 $set{'per_logfile'} = 0666; #ログファイルのパーミッション　suexec=0600,other=0666 $set{'link_target'} = ''; #target属性 #------ $set{'ver'} = '2005/10/10e'; $set{'char_delname'} = 'D'; $in{'time'} = time(); $in{'date'} = conv_date($in{'time'}); $in{'addr'} = $ENV{'REMOTE_ADDR'}; $in{'host'} = gethostbyaddr(pack('C4',split(/\./, $in{'addr'})), 2) || $ENV{'REMOTE_HOST'} || '(none)'; if($in{'addr'} eq $in{'host'}){ $in{'host'} = '(none)'; } $set{'html_head'} =<<"EOM"; Uploader EOM $set{'html_css'} =<<"EOM"; EOM unless(-e $set{'log_file'}){ &init; } unless(-e $set{'base_html'}){ &makehtml; } { #デコード my $readbuffsize = 1024*8; if ($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i){ if ($ENV{'CONTENT_LENGTH'} > ($set{'max_size'} * 1024 + 1024)){ if($ENV{'SERVER_SOFTWARE'} =~ /IIS/){ while(read(STDIN,my $buff,$readbuffsize)){} } &error(106,$ENV{'CONTENT_LENGTH'});} }else{ if ($ENV{'CONTENT_LENGTH'} > 1024*100){ error(98); } } my %ck; foreach(split(/;/,$ENV{'HTTP_COOKIE'})){ my($key,$val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val;} my @ck = split(/<>/,$ck{'SN_USER'}); if(length($ck[0]) < 5){ my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand; my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))]; $in{'user'} = crypt($in{'addr'}.$in{'time'}, $salt); }else{ $in{'user'} = $ck[0]; } if($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i){ my %FORM; my $subbuff; my $filename; my $valuename; my $upflag; my $valueflag; my $bound; my $mime; my $readlength = 0; my $random = int(rand(900000)) + 100000; my $endflag = 0; binmode(STDIN); while(){ $readlength += length($_); if(/(--.*)\r\n$/){ $bound = $1; last; }} if(-e "$set{'src_dir'}$random.temporary"){ $random++; } if(-e "$set{'src_dir'}$random.temporary"){ $random++; } if(-e "$set{'src_dir'}$random.temporary"){ &error(204); } open(OUT,">$set{'src_dir'}$random.temporary"); binmode(OUT); my $formbuff; while(my $buff = ){ $readlength += length($buff); if($upflag == 1){ if($buff =~ /Content-Type:\s(.*)\r\n$/i){ $mime = $1; } $upflag++; next;} if($upflag == 2){ while(1){ my $readblen; my $filebuff; if($ENV{'CONTENT_LENGTH'} - $readlength < $readbuffsize){ $readblen = $ENV{'CONTENT_LENGTH'} - $readlength; } else{ $readblen = $readbuffsize; } if(!read(STDIN,$filebuff,$readblen)){ last }; $readlength += length($filebuff); if($ENV{'CONTENT_LENGTH'} - $readlength < $readbuffsize){ my $readblen = $ENV{'CONTENT_LENGTH'} - $readlength; read(STDIN,my $subbuff,$readblen); $readlength += length($subbuff); $filebuff .= $subbuff; $endflag = 1; } my $offset = index($filebuff,$bound); if($offset >= 0){ $buff = substr($filebuff,0,$offset-2); my $subbuff = substr($filebuff,$offset); print OUT $buff; $upflag = 0; $formbuff .= $subbuff; last; }else{ print OUT $filebuff; } } if($endflag){ last; } next; } if($buff =~ /^Content-Disposition:\sform-data;\sname=\"upfile\";\sfilename=\"(.*)\"\r\n$/i){ $filename = $1; $upflag = 1; next; } $formbuff .= $buff; } close(OUT); chmod($set{'per_upfile'},"$set{'src_dir'}$random.temporary"); { my $value; foreach my $buff(split(/\r\n/,$formbuff)){ $buff .= "\r\n"; if($buff =~ /^$bound\-\-/){ $FORM{$value} =~ s/\r\n$//; $valueflag = 0; last;} if($buff =~ /^$bound/){ $FORM{$value} =~ s/\r\n$//; $valueflag = 0; next;} if($valueflag == 1){ $valueflag++; next; } if($valueflag == 2){ $FORM{$value} .= $buff; } if($buff =~ /^Content-Disposition: form-data; name=\"(.+)\"\r\n$/){ $value = $1; $valueflag++; } } } if($upflag || $valueflag){ unlink("$set{'src_dir'}$random.temporary"); &error(108);} $in{'postname'} = $FORM{'postname'}; $in{'org_pass'} = $in{'pass'} = $FORM{'pass'}; $in{'dlkey'} = $FORM{'dlkey'}; $in{'comment'} = $FORM{'comment'}; $in{'jcode'} = $FORM{'jcode'}; $in{'postkey'} = $FORM{'postkey'}; $in{'upfile'} = $filename; $in{'type'} = $mime; $in{'tmpfile'} = "$set{'src_dir'}$random.temporary"; $in{'orgname'} = $in{'upfile'}; if(-s "$in{'tmpfile'}" == 0){ unlink("$in{'tmpfile'}"); &error(99) } if($set{'min_flag'} && ((-s "$in{'tmpfile'}") < $set{'min_size'} * 1024)){ &error(107,(-s "$in{'tmpfile'}"));} if((-s "$in{'tmpfile'}") > $set{'max_size'} * 1024){ &error(106,(-s "$in{'tmpfile'}"));} if($set{'post_flag'} && !check_postkey($in{'postkey'})){ &error(109); } if($set{'dlkey'} == 2 && !$in{'dlkey'}){ unlink("$in{'tmpfile'}"); &error(61); } }else{ my ($buffer,%FORM,@admin_delno); if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});} else { $buffer = $ENV{'QUERY_STRING'}; } my @pairs = split(/&/,$buffer); foreach my $pair (@pairs) { my ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if($name eq 'admin_delno'){ push(@admin_delno,$value); }else{ $FORM{$name} = $value; } } $in{'delpass'} = $FORM{'delpass'}; $in{'delno'} = $FORM{'delno'}; $in{'file'} = $FORM{'file'}; $in{'dlkey'} = $FORM{'dlkey'}; $in{'mode'} = $FORM{'mode'}; $in{'checkmode'} = $FORM{'checkmode'}; $in{'admin_delno'} = join(',',@admin_delno); if($in{'delno'} eq $set{'admin_name'} && $in{'delpass'} eq $set{'admin_pass'}){ &admin_mode(); } if(!$in{'delno'} && $in{'delpass'} eq $set{'admin_pass'}){ &makehtml; &quit; } } my @denyhost = split(/,/,$set{'deny_host'}); foreach my $value (@denyhost){ if ($in{'addr'} =~ /$value/ || $in{'host'} =~ /$value/){ &error(101);} } my @form = ($in{'postname'},$in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'}); foreach my $value (@form) { if (length($value) > 128) { $value = substr($value,0,128).'...'; } # $value =~ s/&/&/g; $value =~ s/"/"/g; $value =~ s//>/g; $value =~ s/\r//g; $value =~ s/\n//g; $value =~ s/\t//g; $value =~ s/\0//g; } ($in{'postname'},$in{'comment'},$in{'orgname'},$in{'type'},$in{'dlkey'}) = @form; } if($in{'mode'} eq 'delete'){ &delete(); &quit(); } if($in{'mode'} eq 'dl'){ &dlfile;} #DL if(!$in{'upfile'}){ &error(99); } {#メイン処理 open(IN,$set{'log_file'})||&error(303); my @log = ; close(IN); my ($no,$lastip,$lasttime) = split(/<>/,$log[0]); if($set{'interval'} && $in{'time'} <= ($lasttime + $set{'interval'}) && $in{'addr'} eq $lastip){ &error(203);} $in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'}){ &error(202); } my $orgname; if(split(/\//,$in{'orgname'}) > split(/\\/,$in{'orgname'})){ my @name = split(/\//,$in{'orgname'}); $orgname = $name[$#name]; } else{ my @name = split(/\\/,$in{'orgname'}); $orgname = $name[$#name];} my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand; my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))]; $in{'pass'} = crypt($in{'pass'}, $salt); if($set{'binary_compare'}){ my @files = globfile("$set{'src_dir'}",".*"); my @dir = globdir("$set{'src_dir'}",".*"); foreach my $dir (@dir){ push(@files,globfile($dir."/",".*")); } foreach my $value (@files){ next if($value =~ /\.temporary$/); if(binarycmp($in{'tmpfile'},$value)){ unlink($in{'tmpfile'}); &error(205,$value);} } } if($set{'find_crypt'}){ open(FILE,$in{'tmpfile'}); binmode(FILE); seek(FILE,0,0); read(FILE,my $buff,4); my $crypt_flag = 0; if($buff =~ /^\x50\x4b\x03\x04$/){ seek(FILE,6,0); read(FILE,my $buff,1); $crypt_flag = 1 if(($buff & "\x01") eq "\x01"); } close(FILE); $in{'comment'} = '*'.$in{'comment'} if($crypt_flag); } open(IN,$set{'log_file'})||&error(303); @log = ; close(IN); ($no,$lastip,$lasttime) = split(/<>/,$log[0]); shift(@log); $no++; my $tmpno = sprintf("%04d",$no); my $dlsalt; my $filedir; my $allsize = (-s $in{'tmpfile'}); if($set{'dlkey'} && $in{'dlkey'}){ my @salt = ('a'..'z', 'A'..'Z', '0'..'9'); srand; for (my $c = 1; $c <= 20; ++$c) { $dlsalt .= $salt[int(rand(@salt))]; } $filedir = "$set{'src_dir'}$set{'file_pre'}${tmpno}.$in{'ext'}_$dlsalt/"; mkdir($filedir,$set{'per_dir'}); rename("$in{'tmpfile'}","$filedir$set{'file_pre'}$tmpno.$in{'ext'}"); open(OUT,">${filedir}index.html"); close(OUT); chmod($set{'per_upfile'},"${filedir}index.html"); $in{'comment'} = '[DLKey] '.$in{'comment'}; }else{ undef $in{'dlkey'}; rename("$in{'tmpfile'}","$set{'src_dir'}$set{'file_pre'}$tmpno.$in{'ext'}"); } if (length($orgname) > 128) { $orgname = substr($orgname,0,128).'...'; } my @note; if($set{'post_flag'} && $set{'post_key'}){ push(@note,'PostKey:'.$in{'postkey'}); } if($ENV{'SERVER_SOFTWARE'} =~ /Apache|IIS/){ my $disptime; my $time = time() - $in{'time'}; my @str = ('Upload:','秒'); my $disptime = $time.$str[1]; push(@note,$str[0].$disptime); } if($in{'dlkey'}){ my @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand; my $salt = $salt[int(rand(@salt))] . $salt[int(rand(@salt))]; my $crypt_dlkey = crypt($in{'dlkey'}, $salt); push(@note,"DLKey"); } my $note = join(',',@note); my $usersalt = substr($in{'user'},0,2); my $userid = crypt($in{'user'},$usersalt); $in{'time'} = time(); # $in{'date'} = conv_date(time()); my @new; $new[0] = "$no<>$in{'addr'}<>$in{'time'}<>1\n"; my $addlog = "$no<>$in{'postname'}<>$in{'ext'}<>$in{'date'}<>$in{'comment'}<>$in{'type'}<>$orgname<>$in{'addr'}<>$in{'host'}<>$in{'pass'},$userid<>$set{'file_pre'}<>$note<>1\n"; $new[1] = $addlog; # open(OUT,">>./alllog.cgi"); print OUT $addlog; close(OUT); my $i = 2; foreach my $value (@log){ my ($no,$postname,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value); if(!$dummy){ $filepre = $set{'file_pre'};} $no = sprintf("%04d",$no); my $filename; my $filedir; if($note =~ /DLpath:(.+)\s/){ my $dlpath = $1; $filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext"; $filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/"; }else{ $filename = "$set{'src_dir'}$filepre$no.$ext"; } $allsize += (-s $filename); if($i <= $set{'max_log'} && !($set{'max_all_flag'} && $set{'max_all_size'}*1024 < $allsize)){ if((-e $filename)||!$set{'zero_clear'}){ push(@new,$value); $i++; } }else{ if(unlink($filename)){ unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir); }elsif(unlink($filename)){ unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir); }elsif(-e $filename){ push(@new,$value); }else{ unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } } rmdir($filedir); } } } logwrite(@new); if($in{'dlkey'} && ( $set{'dummy_html'} == 2 || $set{'dummy_html'} == 3)){ &makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}",$in{'comment'},"$set{'file_pre'}$tmpno.$in{'ext'}",$dlsalt,$in{'date'},$in{'type'},$orgname,$no); }elsif(!$in{'dlkey'} && ($set{'dummy_html'} == 1 || $set{'dummy_html'} == 3)){ &makedummyhtml("$set{'file_pre'}$tmpno.$in{'ext'}"); } &makehtml(); &quit(); } sub makehtml{ my ($buff,$init,$postval,$dlkey); my $page = 0; my $i = 1; open(IN,$set{'log_file'})||&error(303); my $log = my @log = ; close(IN); if($log == 1){ $log++; $init++;} my $lastpage = int(($log - 2)/$set{'pagelog'}) + 1; $postval = ' obj.postkey.value = unescape(p[2]);' if($set{'post_flag'}); my $header =<<"EOM"; $set{'html_head'} $set{'html_css'}

Uploader

Now.. Testing..

EOM my $maxsize = 'Max '.dispsize($set{'max_size'}*1024); my ($minsize,$total); if($set{'min_flag'}){ $minsize = 'Min '.dispsize($set{'min_size'}*1024).' - '; } if($set{'max_all_flag'}){ $total .= ' Total '.dispsize($set{'max_all_size'}*1024);} $header .= qq|'; my $allsize = 0; my @files = globfile("$set{'src_dir'}",".*"); my @dir = globdir("$set{'src_dir'}",".*"); foreach my $dir (@dir){ push(@files,globfile($dir."/",".*")); } foreach my $value (@files){ $allsize += (-s "$value"); } $allsize = dispsize($allsize); my $footer = "

Used ${allsize}\n
"; if($set{'up_all'} && !$set{'ext_org'}){ $footer .= $set{'up_ext'}.' +'; } elsif(!$set{'up_all'}){ $footer .= $set{'up_ext'}; } $footer .= "\n

\n"; $footer .= "

Sn Uploader

\n\n"; my $info_title = "\n"; if($set{'disp_comment'}){ $info_title .= ""; } if($set{'disp_size'}){ $info_title .= ""; } if($set{'disp_date'}){ $info_title .= ""; } if($set{'disp_mime'}){ $info_title .= ""; } if($set{'disp_orgname'}){ $info_title .= ""; } $info_title .= "\n"; my $home_url_link; if($set{'home_url'}){ $home_url_link = qq|[HOME] |;} if($set{'html_all'}){ my $buff; my $no = 1; my $time = time; my $subheader; foreach my $value (@log){ my ($no,$postname,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$dummy) = split(/<>/,$value); if(!$dummy){ next; } $buff .= makeitem($value); } $subheader .= "[ALL] "; while($no <= $lastpage){ if($no == $page) { $subheader .= "\[$no\] ";} else{ if($no == 1){ $subheader .= "\[$no\] "} else{$subheader .= "\[$no\] ";} } $no++; } $subheader .= $info_title; open(OUT,">$set{'html_dir'}all.html")||&error(306,"$set{'html_dir'}all.html"); print OUT $header."

".$home_url_link.$subheader."

".$buff.$footer; close(OUT); chmod($set{'per_upfile'},"$set{'html_dir'}all.html"); }else{ unlink("$set{'html_dir'}all.html"); } while($log > $i){ $buff .= makeitem($log[$i]) unless($init); if(($i % $set{'pagelog'}) == 0||$i == $log -1){ $page++; my $subheader; my $no = 1; my $time = time; if($set{'html_all'}){ $subheader .= "[ALL] "; } while($no <= $lastpage){ if($no == $page) { $subheader .= "\[$no\] ";} else{ if($no == 1){ $subheader .= "\[$no\] "} else{$subheader .= "\[$no\] ";} } $no++; } $subheader .= $info_title; my $loghtml; if($page == 1){ $loghtml = "$set{'html_dir'}$set{'base_html'}"; } else{ $loghtml = "$set{'html_dir'}$page.html"; } open(OUT,">$loghtml") || &error(306,"$loghtml"); print OUT $header."

".$home_url_link.$subheader."

".$buff.$footer; close(OUT); chmod($set{'per_upfile'},$loghtml); undef $buff; } $i++; } while($page < 1000){ $page ++; if(-e "$set{'html_dir'}$page.html"){ unlink("$set{'html_dir'}$page.html"); }else{ last; } } } sub delete{ my $mode = $_[0]; my @delno = split(/,/,$_[1]); my $delno; my $flag = 0; my $tmpaddr; my $delnote; if($in{'delno'} =~ /(\d+)/){ $delno = $1; } if($mode ne 'admin' && !$in{'delno'}){ return; } elsif($mode ne 'admin' && !$delno){ &error(401,$in{'delno'}); } open(IN,$set{'log_file'})|| &error(303); my @log = ; close(IN); if($in{'addr'} =~ /(\d+).(\d+).(\d+).(\d+)/){ $tmpaddr = "$1.$2.$3."; } my $findflag = 0; foreach my $value (@log){ my ($no,$postname,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value); $delnote = $note; my $delflag = 0; if(!$addr){ next; } if($mode eq 'admin'){ foreach my $delno (@delno){ if($no == $delno){ $delflag = 1; last; } } }elsif($no == $delno){ $findflag = 1; unless ($addr =~ /^$tmpaddr/){ my ($pass,$id) = split(/,/,$pass); my $delpass = $in{'delpass'} || $in{'addr'}.time(); my $salt = substr($pass, 0, 2); $delpass = crypt($delpass,$salt); my $usersalt = substr($in{'user'},0,2); my $userid = crypt($in{'user'},$usersalt); if ($in{'delpass'} ne $set{'admin_pass'} && $delpass ne $pass && $userid ne $id){ if($mode ne 'admin'){ if(!$dummy){ $filepre = $set{'file_pre'};} $no = sprintf("%04d",$no); &error(404,"$filepre$no.$ext");} } } $delflag = 1; } if($delflag){ # open(OUT,">>./del.cgi"); print OUT $value; close(OUT); $flag = 1; if(!$dummy){ $filepre = $set{'file_pre'};} $no = sprintf("%04d",$no); my $filename; my ($dlpath,$filedir); if($delnote =~ /DLpath:(.+)\s/){ $dlpath = $1; $filename = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext"; $filedir = "$set{'src_dir'}$filepre$no.${ext}_$dlpath/"; }else{ $filename = "$set{'src_dir'}$filepre$no.$ext"; } if(unlink($filename)){ unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value; }elsif(unlink($filename)){ unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value; }elsif(!(-e $filename)){ unlink("$set{'src_dir'}$filepre$no.$ext.html"); if($filedir){ foreach(globfile($filedir,".*")){ unlink; } rmdir($filedir);} undef $value; }else{ if($mode ne 'admin'){ &error(403,"$filepre$no.$ext");} } } } if($mode ne 'admin' && !$findflag){ &error(402,$delno); } if($flag){ logwrite(@log); &makehtml(); } } sub quit{ my ($cookiename,$buff); my $flag = 0; my @tmpfiles = globfile("$set{'src_dir'}","\.temporary"); foreach my $value (@tmpfiles){ if((stat($value))[10] < time - 60*60){ unlink("$value"); $flag++; } } &makehtml() if($flag); $buff =<<"EOM"; $set{'html_head'} EOM if($in{'jcode'} || $in{'mode'} eq 'delete'){ $buff .=<<"EOM"; \n|; } $buff .=<<"EOM";

click here!

EOM print "Content-type: text/html\n\n"; print $buff; exit; } sub admin_mode{ &errorclear() if($in{'mode'} eq 'errorclear'); &delete('admin',$in{'admin_delno'}) if($in{'mode'} eq 'delete'); open(IN,$set{'log_file'})||error(303); my @log = ; close(IN); my ($header,$buff,$footer,$value); $buff =<<"EOM"; $set{'html_head'}$set{'html_css'} EOM $buff .= leaddisp(0,1,1).'

NAME

FILE

COMMENT

SIZE

DATE

MIME

ORIG

Upload Info

'; $buff .= qq|

\n

'; if($set{'error_level'}){ $buff .= leaddisp(-1,0,1).'

Error Info

'; $buff .= qq||; $buff .= "\n\n"; if(open(IN,$set{'error_log'})){ @log = reverse(); close(IN); foreach (@log){ my ($date,$no,$note,$addr,$host) = split(/<>/); $buff .= "\n"; }} $buff .= "

DATE	ADDR	HOST	NOTE
$date	$addr	$host	$note

\n"; } $buff .= leaddisp(-1,-1,0); $buff .= '

Setting Info

'."\n\n"; $buff .= tablestr('スクリプトVer',$set{'ver'}); $buff .= tablestr('メインログファイル',$set{'log_file'}); if($set{'error_level'}){ $buff .= tablestr('エラーログファイル',$set{'error_log'}); if($set{'error_size'}){ $buff .= tablestr('エラーログ最大容量',dispsize($set{'error_size'}*1024).' '.($set{'error_size'}*1024).'Bytes'); } else{ $buff .= tablestr('エラーログ最大容量制限','無'); } }else{ $buff .= tablestr('エラーログ記録','無'); } $buff .= tablestr('保持件数',$set{'max_log'}); $buff .= tablestr('最大投稿容量',dispsize($set{'max_size'}*1024).' '.($set{'max_size'}*1024).'Bytes'); if($set{'min_flag'}){ $buff .= tablestr('最小制限容量',dispsize($set{'min_size'}*1024).' '.($set{'min_size'}*1024).'Bytes'); } else{ $buff .= tablestr('最小制限容量',"無"); } if($set{'max_all_flag'}){ $buff .= tablestr('総容量制限',dispsize($set{'max_all_size'}*1024).' '.($set{'max_all_size'}*1024).'Bytes'); } else{ $buff .= tablestr('総容量制限',"無"); } $buff .= tablestr("ファイル接頭辞",$set{'file_pre'}); $buff .= tablestr("HTML保存ディレクトリ",$set{'html_dir'}); $buff .= tablestr("ファイル保存ディレクトリ",$set{'src_dir'}); if($set{'http_html_path'} && $set{'html_dir'} ne $set{'http_html_path'}){ $buff .= "\n";} if($set{'http_src_path'} && $set{'src_dir'} ne $set{'http_src_path'}){ $buff .= "\n";} $buff .= tablestr('1ページに表示するファイル数',$set{'pagelog'}); if($set{'interval'} > 0){ $value = $set{'interval'}.'秒'; }else{ $value = '無'; } $buff .= tablestr('同一IP投稿間隔秒数制限',$value); if($set{'up_ext'}){ $set{'up_ext'} =~ s/,/ /g; $buff .= tablestr('投稿可能基本拡張子',$set{'up_ext'}); } if($set{'deny_ext'}){ $set{'deny_ext'} =~ s/,/ /g; $buff .= tablestr('投稿禁止拡張子',$set{'deny_ext'}); } if($set{'change_ext'}){ $set{'change_ext'} =~ s/,/ /g; $set{'change_ext'} =~ s/>/>/g; $buff .= tablestr('拡張子変換',$set{'change_ext'}); } if($set{'up_all'}){ $buff .= tablestr('指定外拡張子アップロード許可','有'); if($set{'ext_org'}){ $buff .= tablestr('指定外ファイル拡張子','オリジナル'); }else{ $buff .= tablestr('指定外ファイル拡張子','bin'); }} else{$buff .= tablestr('指定外拡張子アップロード許可','無');} if($set{'find_crypt'}){ $value = '有'; }else{ $value = '無';} $buff .= tablestr('暗号化アーカイブ検出(ZIP)',$value); if($set{'binary_compare'}){ $value = '有'; }else{ $value = '無';} $buff .= tablestr('バイナリ比較',$value); if($set{'post_flag'}){ $value = '有'; }else{ $value = '無';} $buff .= tablestr('PostKey投稿制限',$value); if($set{'dlkey'}){ if($set{'dlkey'} == 2){$value = '必須'}else{$value = '任意';}}else{ $value = '無';} $buff .= tablestr('DLkey',$value); if($set{'dummy_html'}){ if($set{'dummy_html'} == 3){$value = 'ALL'}elsif($set{'dummy_html'} == 2){$value = 'DLKeyのみ';}else{$value = '通常ファイルのみ';}}else{ $value = '無';} $buff .= tablestr('個別HTMLキャッシュ',$value); if($set{'disp_error'}){ $value = '有'; }else{ $value = '無';} $buff .= tablestr('ユーザエラー表示',$value); if($set{'zero_clear'}){ $value = '有'; }else{ $value = '無';} $buff .= tablestr('削除済ファイルリスト自動消去',$value); if($set{'home_url'}){ $buff .= "\n";} $buff .= '

HTTP_HTML_PATH	$set{'http_html_path'}
HTTP_SRC_PATH	$set{'http_src_path'}
HOMEURL	$set{'home_url'}

'; print "Content-type: text/html\n\n"; print $buff; exit; } sub extfind{ my $orgname = @_[0]; my @filename = split(/\./,$orgname); my $ext = $filename[$#filename]; $ext =~ tr/[A-Z]/[a-z]/; foreach my $value (split(/,/,$set{'change_ext'})){ my ($src,$dst) = split(/->/,$value); if($ext eq $src){ $ext = $dst; last; }} foreach my $value (split(/,/,$set{'deny_ext'})){ if($ext eq $value){ &error(206,$ext); }} foreach my $value (split(/,/,$set{'up_ext'})){ if ($ext eq $value) { return $value; } } if(length($ext) >= 5 || length($ext) == 0){ $ext = 'bin'; } unless ($ext =~ /^[A-Za-z0-9]+$/){ $ext = 'bin'; } if($set{'up_all'} && $set{'ext_org'}){ return $ext;} elsif($set{'up_all'}){ return 'bin'; } return 0; } sub conv_date{ my @date = gmtime($_[0] + 9*60*60); $date[5] -= 100; $date[4]++; if ($date[5] < 10) { $date[5] = "0$date[5]" ; } if ($date[4] < 10) { $date[4] = "0$date[4]" ; } if ($date[3] < 10) { $date[3] = "0$date[3]" ; } if ($date[2] < 10) { $date[2] = "0$date[2]" ; } if ($date[1] < 10) { $date[1] = "0$date[1]" ; } if ($date[0] < 10) { $date[0] = "0$date[0]" ; } my @w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); return ("$date[5]/$date[4]/$date[3]($w[$date[6]]),$date[2]:$date[1]:$date[0]"); } sub dispsize{ my $size = $_[0]; if($size >= 1024*1024*1024*100){ $size = int($size/1024/1024/1024).'GB';} elsif($size >= 1024*1024*1024*10){ $size = sprintf("%.1fGB",$size/1024/1024/1024);} elsif($size > 1024*1024*1024){ $size = sprintf("%.2fGB",$size/1024/1024/1024);} elsif($size >= 1024*1024*100){ $size = int($size/1024/1024).'MB'; } elsif($size > 1024*1024){ $size = sprintf("%.1fMB",$size/1024/1024); } elsif($size > 1024){ $size = int($size/1024).'KB'; } else{ $size = int($size).'B';} return $size; } sub makeitem{ my ($src,$mode) = @_; my ($buff,$check,$target); my ($no,$postname,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$src); if(!$dummy){ $filepre = $set{'file_pre'}; } my $orgno = $no; $no = sprintf("%04d",$no); my $size = 0; my $dlpath = 0; if($note =~ /DLpath:(.+)\s/){ $dlpath = $1; $size = dispsize(-s "$set{'src_dir'}$filepre$no.${ext}_$dlpath/$filepre$no.$ext"); }else{ $size = dispsize(-s "$set{'src_dir'}$filepre$no.$ext"); } my $path = $set{'http_src_path'} || $set{'src_dir'}; if($set{'link_target'}){ $target = qq| target="$set{'link_target'}"|; } if($mode eq 'admin'){ if($dlpath){ $path .= "$filepre$no.${ext}_$dlpath/"; } if($addr eq $host){ undef $host; } if($in{'checkmode'} eq 'allcheck'){$check = ' checked';} $buff = "$postname$filepre$no.$ext$comment$size$addr$host$date$note$mime$orgname\n"; }else{ my($d_com,$d_date,$d_size,$d_mime,$d_org); if($set{'disp_comment'}){ $d_com = "$comment"; } if($set{'disp_size'}){ $d_size = "$size"; } if($set{'disp_date'}){ $d_date= "$date"; } if($set{'disp_mime'}){ $d_mime = "$mime"; } if($set{'disp_orgname'}){ $d_org = "$orgname"; } if(-e "$set{'src_dir'}$filepre$no.$ext.html"){$buff = "$postname$filepre$no.$ext$d_com$d_size$d_date$d_mime$d_org\n";} elsif($dlpath){$buff = "$postname$filepre$no.$ext$d_com$d_size$d_date$d_mime$d_org\n";} else{ $buff = "$postname$filepre$no.$ext$d_com$d_size$d_date$d_mime$d_org\n";} } return $buff; } sub makedummyhtml{ my ($filename,$com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_; my $buff; if(!$no){ $buff = "$filename"; $buff .= qq|Download $filename|; $buff .= ''; }else{ $buff = cryptfiledl($com,$file,$orgdlpath,$date,$mime,$orgname,$no); } open(OUT,">$set{'src_dir'}$filename.html")||&error(307,"$set{'src_dir'}$filename.html"); print OUT $buff; close(OUT); chmod($set{'per_upfile'},"$set{'src_dir'}$filename.html"); return 1; } sub logwrite{ my @log = @_; open(OUT,"+>$set{'log_file'}")||&error(304); eval{ flock(OUT, 2);}; eval{ truncate(OUT, 0);}; seek(OUT, 0, 0); print OUT @log; eval{ flock(OUT, 8);}; close(OUT); chmod($set{'per_upfile'},$set{'log_file'}); return 1; } sub binarycmp{ my ($src,$dst) = @_; return 0 if (-s $src != -s $dst); open(SRC,$src)||return 0; open(DST,$dst)||return 0; my ($buff,$buff2); binmode(SRC); binmode(DST); seek(SRC,0,0); seek(DST,0,0); while(read(SRC,$buff,8192)){ read(DST,$buff2,8192); if($buff ne $buff2){ close(SRC); close(DST); return 0; } } close(SRC); close(DST); return 1; } sub init{ my $buff; if(open(OUT,">$set{'log_file'}")){ print OUT "0<>0<>0<>1\n"; close(OUT); chmod($set{'per_logfile'},$set{'log_file'}); }else{ $buff = "メインログの作成に失敗しました"; } unless (-d "$set{'src_dir'}"){ if(mkdir("$set{'src_dir'}",$set{'per_dir'})){ chmod($set{'per_dir'},"$set{'src_dir'}"); open(OUT,">$set{'src_dir'}index.html"); close(OUT); chmod($set{'per_upfile'},"$set{'src_dir'}index.html"); }else{ $buff .= "Source保存ディレクトリの作成に失敗しました"; } } unless (-d "$set{'html_dir'}"){ if(mkdir("$set{'html_dir'}",$set{'per_dir'})){ chmod($set{'per_dir'},"$set{'html_dir'}"); }else{ $buff .= "HTML保存ディレクトリの作成に失敗しました"; } } if($buff){ $buff .= "ディレクトリに書き込み権限があるか確認してください"; &error_disp($buff,'init'); } } sub check_postkey{ my $inputkey = @_[0]; my @key = split(/,/,$set{'post_key'}); foreach my $key (@key){ if($inputkey eq $key){ return 1; } } return 0; } sub leaddisp{ my @src = @_; my ($str,$count); foreach my $value (@src){ my ($mark,$name,$link); $count++; if($count == 1){ $name = 'Upload Info'; $link = 'up'; } elsif($count == 2){ $name = 'Error Info'; $link = 'error'; next if(!$set{'error_level'}); } elsif($count == 3){ $name = 'Setting Info'; $link = 'set'; } if($value){ if($value > 0){ $mark = '▼'; }else{ $mark = '▲'; } $str .= qq|${mark}${name} |; } else{ $str .= qq|[$name] |; } } return $str; } sub errorclear{ open(OUT,">$set{'error_log'}")||return 0; eval{ flock(OUT, 2);}; eval{ truncate(OUT, 0);}; seek(OUT, 0, 0); eval{ flock(OUT, 8);}; close(OUT); chmod($set{'per_upfile'},$set{'log_file'}); return 1; } sub tablestr{ my ($value1,$value2) = @_; return ("$value1$value2\n"); } sub globfile{ my ($src_dir,$filename) = @_; opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR); my @new = (); foreach my $value (@dir){ push(@new,"$src_dir$value") if($value =~ /$filename/ && !(-d "$src_dir$value")); } return @new; } sub globdir{ my ($src_dir,$dir) = @_; opendir(DIR,$src_dir)||return 0; my @dir = readdir(DIR); closedir(DIR); my @new = (); foreach my $value (@dir){ if($value eq '.' ||$value eq '..' ){ next; } push(@new,"$src_dir$value") if($value =~ /$dir/ && (-d "$src_dir$value")); } return @new; } sub error_disp{ my ($message,$mode) = @_; my $url; if($mode eq 'init'){ $url = qq|[リロード]|; }else{ $url = qq|[戻る]|; } my $buff =<<"EOM"; $set{'html_head'}$set{'html_css'}

$message

$url

DATE	$in{'date'}
ADDR	$in{'addr'}
HOST	$in{'host'}

EOM print "Content-type: text/html\n\n"; print $buff; exit; } sub error{ my ($no,$note) = @_; if (length($note) > 64) { $note = substr($note,0,64).'...'; } $note =~ s/&/&/g; $note =~ s/\"/"/g; $note =~ s//>/g; $note =~ s/\r//g; $note =~ s/\n//g; $note =~ s/\t//g; $note =~ s/\0//g; my ($message,$dispmsg,$flag); if($no == 98){ $message = ""; } elsif($no == 99){ $message = "UpFileなし"; } elsif($no == 101){ $message = "投稿禁止HOST"; } elsif($no == 106){ $flag = 1; $message = "POSTサイズ超過"; $note = dispsize($note); $dispmsg= 'ファイルをアップロードできませんでしたアップロードファイル('.$note.')は最大容量設定('.dispsize($set{'max_size'}*1024).')を越えています';} elsif($no == 107){ $flag = 1; $message = "POSTサイズ過小"; $note = dispsize($note); $dispmsg= 'ファイルをアップロードできませんでしたアップロードファイル('.$note.')は最小容量設定('.dispsize($set{'min_size'}*1024).')未満です';} elsif($no == 108){ $flag = 1; $message = "POSTデータ不完全"; $dispmsg = 'ファイルをアップロードできませんでしたPOSTデータが不完全です';} elsif($no == 109){ $flag = 1; $message = "POSTKey不一致"; $dispmsg = 'ファイルをアップロードできませんでしたPOSTKeyが一致しません';} elsif($no == 202){ $flag = 1; $message = "拡張子合わず"; $dispmsg = 'ファイルをアップロードできませんでした投稿できる拡張子は'.$set{'up_ext'}.'です';} elsif($no == 203){ $flag = 1; $message = "投稿早すぎ"; $dispmsg = 'ファイルをアップロードできませんでした同一IPアドレスから'.$set{'interval'}.'秒以内に再投稿できません';} elsif($no == 204){ $flag = 1; $message = "一時ファイル書き込めず"; $dispmsg = 'ファイルをアップロードできませんでした一時ファイルの作成に失敗しました';} elsif($no == 205){ $flag = 1; $message = "同一ファイル存在"; $note =~ /([^\/]+)$/; my $filename = $1; $dispmsg = 'ファイルをアップロードできませんでした同一ファイルが '.$filename.' に存在します';} elsif($no == 206){ $flag = 1; $message = "禁止拡張子"; $dispmsg = 'ファイルをアップロードできませんでした拡張子 '.$note.' はアップロードできません';} elsif($no == 303){ $flag = 1; $message = "ログファイルに読み込めず"; $dispmsg = 'メインログの読み込みに失敗しました';} elsif($no == 304){ $flag = 1; $message = "ログファイルに書き込めず"; $dispmsg = 'メインログの書き込みに失敗しました';} elsif($no == 306){ $message = "ファイルリストHTML書き込めず";} elsif($no == 307){ $message = "ファイルHTMLファイル書き込めず";} elsif($no == 401){ $flag = 1; $message = "削除No.検出できず"; $dispmsg = 'ファイルを削除できませんでした'.$note.' から削除No.を検出できませんでした'.$set{'file_pre'}.'0774.zipの場合 No.には 774 を入力します';} elsif($no == 402){ $flag = 1; $note = sprintf("%04d",int($note)); $message = "削除No.存在せず"; $dispmsg = 'ファイルを削除できませんでした'.$set{'file_pre'}.$note.'.*** はメインログに存在しません';} elsif($no == 403){ $flag = 1; $message = "削除アクセス拒否"; $dispmsg = 'ファイルを削除できませんでしたファイル削除条件は満たしていますが '.$note.' のファイルの削除が拒否されましたアクセスが過剰な場合等は時間を置いて再操作すると削除できることがあります';} elsif($no == 404){ $flag = 1; $message = "削除Key不一致"; $dispmsg = 'ファイルを削除できませんでした'.$note.' 削除Keyが一致しませんでした';} elsif($no == 51){ $flag = 1; $message = "[DLMode] No.見つからず"; $dispmsg = '[DLMode] ファイルが見つかりませんでした'.$note.' からファイルNo.を検出できませんでした'; } elsif($no == 52){ $flag = 1; $message = "[DLMode] File見つからず"; $dispmsg = '[DLMode] ファイルが見つかりませんでした'.$set{'file_pre'}.$note.'.*** はメインログに存在しません'; } elsif($no == 53){ $flag = 1; $message = "[DLMode] DLkey未設定"; $dispmsg = '[DLMode] orgDLkeyError'.$note.' DLKeyが未設定です'; } elsif($no == 54){ $flag = 1; $message = "[DLMode] DLkey不一致"; $dispmsg = '[DLMode] orgDLkeyError'.$note.' DLKeyが一致しませんでした'; } elsif($no == 55){ $flag = 1; $message = "[DLMode] File Oepn Error"; $dispmsg = '[DLMode] Open Error'.$note.' ファイルの読み込みに失敗しました'; } elsif($no == 56){ $flag = 1; $message = "[DLMode] File Not Found"; $dispmsg = '[DLMode] Not Found'.$note.' ファイルが存在しません'; } elsif($no == 61){ $flag = 1; $message = "DLkey未設定"; $dispmsg = 'DLKeyが未設定です'; } unlink($in{'tmpfile'}); if($note){$message .= ' ';} if($set{'error_level'} && $no > 100){ unless(-e $set{'error_log'}){ open(OUT,">$set{'error_log'}"); close(OUT); chmod($set{'per_logfile'},$set{'error_log'}); } if($set{'error_size'} && ((-s $set{'error_log'}) > $set{'error_size'} * 1024)){ my $err_bkup = "$set{'error_log'}.bak.cgi"; unlink($err_bkup); rename($set{'error_log'},$err_bkup); open(OUT,">$set{'error_log'}"); close(OUT); chmod($set{'per_logfile'},$set{'error_log'}); } open(OUT,">>$set{'error_log'}"); print OUT "$in{'date'}<>$no<>$message$note<>$in{'addr'}<>$in{'host'}<>1\n"; close(OUT); } &error_disp($dispmsg) if($flag && $set{'disp_error'}); &quit(); } sub dlfile{ my $msg; my ($orgdlkey,$orgdlpath); my ($dlext,$dlfilepre); my ($dl_date,$dl_comment,$dl_size,$dl_mime,,$dl_orgname); my $dlno = 0; my $findflag; open(IN,$set{'log_file'})||&error(303); my @log = ; close(IN); shift(@log); if($in{'file'} =~ /(\d+)/){ $dlno = $1; } if($dlno == 0) { &error(51,$in{'file'}); } foreach my $value (@log){ my ($no,$postname,$ext,$date,$comment,$mime,$orgname,$addr,$host,$pass,$filepre,$note,$dummy) = split(/<>/,$value); my @note = split(/,/,$note); if(int($dlno) == $no){ $dl_comment = $comment; $dl_mime = $mime; $dl_date = $date; $dl_orgname = $orgname; $dlext = $ext; $dlfilepre = $filepre; foreach my $tmpnote (@note){ if($tmpnote =~ /\!--\sDLKey:(.+)\s--.*\!--\sDLpath:(.+)\s--/){ $orgdlkey = $1; $orgdlpath = $2; last; } } $findflag = 1; last; } } my $dlfile = $dlfilepre.sprintf("%04d",int($dlno)).'.'.$dlext; if(!(-e "$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile")){ &error(56,"$dlfile----$set{'src_dir'}${dlfile}_$orgdlpath/$dlfile"); } if($in{'dlkey'}){ my $dlsalt = substr($orgdlkey,0,2); my $dlkey = crypt($in{'dlkey'},$dlsalt); if($findflag == 0){ &error(52,$dlfile); } elsif(!$orgdlkey){ &error(53,$dlfile); } elsif($orgdlkey ne $dlkey && $set{'admin_pass'} ne $in{'dlkey'}){ &error(54,$dlfile); } #print "Location: $set{'http_src_path'}${dlfile}_$orgdlpath/$dlfile\n\n"; my $buff =<<"EOM"; $set{'html_head'}$set{'html_css'}

飛ばない場合はこちらから

EOM print "Content-type: text/html\n\n"; print $buff; }else{ my $buff = cryptfiledl($dl_comment,$dlfile,$orgdlpath,$dl_date,$dl_mime,$dl_orgname,$dlno); print "Content-type: text/html\n\n"; print $buff; } exit; } sub cryptfiledl{ my($com,$file,$orgdlpath,$date,$mime,$orgname,$no) = @_; my($d_com,$d_date,$d_size,$d_mime,$d_org); if($set{'disp_comment'}){ $d_com = "COMMENT$com"; } if($set{'disp_size'}){ $d_size = "SIZE".dispsize(-s "$set{'src_dir'}${file}_$orgdlpath/$file")." (".(-s "$set{'src_dir'}${file}_$orgdlpath/$file")."bytes)".""; } if($set{'disp_date'}){ $d_date= "DATE$date"; } if($set{'disp_mime'}){ $d_mime = "ORGMIME$mime"; } if($set{'disp_orgname'}){ $d_org = "ORGNAME$orgname"; } my $buff =<<"EOM"; $set{'html_head'}$set{'html_css'}

$file にはDLKeyが設定されています $d_com$d_date$d_size$d_mime$d_org

DLKey:

EOM return $buff; }