10/11/03 12:27:36
>>763
--- kaiten.cgi ---
#!/usr/bin/perl
use File::Copy;
unlink("main.jpg") ;
copy("kaiten.jpg", "main.jpg");
print "Content-type: text/html\n\nkaiten" ;
--- heiten.cgi ---
#!/usr/bin/perl
use File::Copy;
unlink("main.jpg") ;
copy("heiten.jpg", "main.jpg");
print "Content-type: text/html\n\nheiten" ;
あとはkaiten.cgiとheiten.cgiにhtaccess等で認証付ける