/g;
return $return;
}
##########
sub filterhtml
{
local($return)=$_[0];
$return =~ s///g;
if ($allow_html != 1) {
$return =~ s/<([^>]|\n)*>//g;
$return =~ s/= 1)
{
return @Filename[--$y];
}
return "";
}
sub GetVar
{
$name=param("name");
$value=param("value");
$path=param("path") if(param("path") ne "");
$ViewFile=param("ViewFile");
$DelFile=param("DelFile");
# $spathfilename = param("spathfilename") if(param("spathfilename") ne "");
for($yy=1;$yy<=$file_to_upload_cnt;$yy++)
{
$tmpstr=param("file_to_upload_".$yy);
if($tmpstr)
{
@spathfilename=(@spathfilename,$tmpstr);
@dfilename=(@dfilename,&GetFileName($tmpstr));
}
}
##_##$y=1;
##_## $spathfilename=param("file_to_upload_".$y);
##_## print "\$spathfilename=$spathfilename
";
##_## $dfilename=&GetFileName($spathfilename);
##_## print "\$dfilename=$dfilename
";
}
sub upload
{
## use CGI qw(:standard);
## $CGI::POST_MAX=1024 * 25; # max 25K posts
$j=@spathfilename;
if($j<=0)
{
return "";
}
print "¤W¶Çµ²ªG\n";
use CGI qw(:standard);
$query = new CGI;
## $spathfilename = "C:\\AUTOEXEC.BAT";
$file_type = 'image/gif';
print "¦@¦³$jÓÀÉ®×±ý¤W¶Ç¡I
\n";
for($i=0;$i<$j;$i++)
{
print "
¡m@spathfilename[$i]¡n -> ¡m$path@dfilename[$i]¡n¡K¡K¡K";
&Print_Error if(@spathfilename[$i] eq "");
if (!open(OUTFILE, ">$path@dfilename[$i]"))
{
print <<__END_OF_HTML_CODE__;
¿ù»~: ¤å¥ó¡m$path@dfilename[$i]¡n¤W¶Ç¥¢±Ñ
¤å¥ó¤W¶Ç¥¢±Ñ
¥i¯àªºì¦]¬O:
1.»·ºÝ¥Ø¿ý¤£¦s¦b,½Ð¥ý«Ø¥ß¥Ø¿ý
2.¸ôµ{¥Ø¿ý¸T¤î¼g¦p,½Ðקï¥Ø¿ýÄÝ©Ê
3.»·ºÝ¤å¥ó¸T¤î¼gÂл\,½Ðקï¤å¥óÄÝ©Ê
ÂIÀ»³oùتð¦^
__END_OF_HTML_CODE__
exit;
}
binmode OUTFILE;
undef $BytesRead;
undef $Buffer;
while ($Bytes = read(@spathfilename[$i],$Buffer,1024))
{
$BytesRead += $Bytes;
print OUTFILE $Buffer;
# print $Buffer;
}
print "¶Ç°eÀÉ®× $BytesRead Bytes§¹¦¨¡I\n";
push(@Files_Written, "$path@dfilename[$i]");
$TOTAL_BYTES += $BytesRead;
$Confirmation{@spathfilename[$i]} = $BytesRead;
close($File_Handle);
close(OUTFILE);
}
print "
¦^¥Ø«e¥Ø¿ý¡m$path¡n";
exit;
}
sub Print_Error
{
print "Content-type: text/html\n\n";
print "Field 'File Name' must be filled in for
this script to work properly. $_[0]
\n" ;
exit 0;
}
#######################################################################