#!usr/bin/perl if ($ENV{'REQUEST_METHOD'} eq 'GET') { #Check to see which one it is $Good_Stuff = $ENV{'QUERY_STRING'}; #Split up the information } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $Good_Stuff, $ENV{'CONTENT_LENGTH'}); } ($Name, $Image) = split(/=/, $Good_Stuff); #Split up more stuff @Stuff = split(/%2F/, $Image); #This will split up the file into to parts $Final = join('/', @Stuff); #Join it together for something that is whole #Print out lots of stuff (this never works, though). print "Content-type: text/html\n\n"; print "\n"; print < Animetion Station > Webcomic > $Name ENDMETA print "\n"; print <
Web Comics
ENDHTML print "\n";