![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
#!/usr/bin/perl
use CGI; # for "multipart/form-data" #
# #
# #
# #
# #
# #
# #
#/URL Decode **************************************************## #
# #
# #
$ENV{'HTTP_USER_AGENT'} =~ /win/ ) # #
} # #
{ # #
} # #
# #
$filename = pop( @path ); # #
$filename = "./attach/" . $filename; # #
# #
) # #
} # #
!index( $ENV{'HTTP_REFERER'}, "http://www.bj006.com/cgi/dfh" ) ) # #
} # #
else # #
#/ERR Check ***************************************************## #
# #
$year,$mon,$day,$weeka[$weeko],$hour,$min,$sec ); # #
#/Get Time ****************************************************## #
# #
} # #
else # #
} # #
#/Get ID ******************************************************## #
# #
#/GET IP and Host *********************************************## #
# #
# #
} # #
# #
# #
# #
} # #
# #
} # #
{ # #
} # #
# #
"$url#@#$mystr#@#$time#@#$ipaddr#@#$host#@#\n"; # #
# Set Cookie **************************************************## #
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); # #
# #
# #
$weeka[$gweeko], $gday, $gmona[$gmon], # #
$gyear, $ghour, $gmin, $gsec ); # #
# #
# #
#/Set Cookie **************************************************## #
} # #
#/Write Log File then Move ************************************## #
write_f_r2.cgi.txt 388件
[詳細]
write.cgi.txt 395件
[詳細]
#attach(): No such page
