PriNet has asked for the wisdom of the Perl Monks concerning the following question:
ovid sent me an "off the top" example how to upload files a couple days ago, to which i have implemented, and obiously it's sending the files (judging by time from page to page). this has helped me get started real good... now... when i return to my program with the data from the form i can't seem to find the info (even the hidden stuff for direction). can someone clue me in to how i process these files (after the files have been selected and "submitted") on the 'return' loop?
thanx a gigabyte for everyones help learning here....print STDOUT "Content-Type: text/html\n\n"; print STDOUT "<HTML>\n"; print STDOUT "<HEAD>\n"; print STDOUT "</HEAD>\n"; print STDOUT "<BODY BACKGROUND=\"/Assets/Backdrop.gif\">\n"; print STDOUT "<FORM NAME=\"Recieve\" ENCTYPE=\"multipart/form-data\" A +CTION=\"_main.pl\" METHOD=POST TARGET=\"MAIN\">\n"; print STDOUT "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=345>\n +"; print STDOUT "<INPUT TYPE=\"hidden\" NAME=\"Function\" VALUE=\"Recieve +\">\n"; print STDOUT "<INPUT TYPE=\"hidden\" NAME=\"UserID\" VALUE=\"$gBuffer[ +1]\">\n"; print STDOUT "<INPUT TYPE=\"hidden\" NAME=\"Signature\" VALUE=\"gBuffe +r[2]\">\n"; print STDOUT "<INPUT TYPE=\"hidden\" NAME=\"Password\" VALUE=\"$gBuffe +r[3]\">\n"; print STDOUT "<INPUT TYPE=\"hidden\" NAME=\"Message\" VALUE=\"$gBuffer +[4]\">\n"; print STDOUT "<TR VALIGN=TOP ALIGN=LEFT><TD WIDTH=345><P ALIGN=CENTER> +\n"; print STDOUT "<IMG SRC=\"/Assets/clearpixel.gif\" BORDER=0>\n"; print STDOUT "</TD></TR>\n"; print STDOUT "<TR VALIGN=TOP ALIGN=LEFT><TD WIDTH=345><P ALIGN=CENTER> +\n"; print STDOUT "<FONT COLOR=\"#FFFF99\">The Full Sized (640x480) Picture +:</FONT>\n"; print STDOUT "</TD></TR>\n"; print STDOUT "<TR VALIGN=TOP ALIGN=LEFT><TD WIDTH=345><P ALIGN=CENTER> +\n"; print STDOUT "<INPUT TYPE=FILE NAME=\"AUT_File\" SIZE=25 MAXLENGTH=25> +\n"; print STDOUT "</TD></TR>\n"; print STDOUT "<TR VALIGN=TOP ALIGN=LEFT><TD WIDTH=345><P ALIGN=CENTER> +\n"; print STDOUT "<FONT COLOR=\"#FFFF99\">The Small Sized (80x60) Thumbnai +l:</FONT>\n"; print STDOUT "</TD></TR>\n"; print STDOUT "<TR VALIGN=TOP ALIGN=LEFT><TD WIDTH=345><P ALIGN=CENTER> +\n"; print STDOUT "<INPUT TYPE=FILE NAME=\"THM_File\" SIZE=25 MAXLENGTH=25> +\n"; print STDOUT "</TD></TR>\n"; print STDOUT "<TR VALIGN=TOP ALIGN=LEFT><TD WIDTH=345><P ALIGN=CENTER> +\n"; print STDOUT "<IMG SRC=\"/Assets/clearpixel.gif\" BORDER=0>\n"; print STDOUT "</TD></TR>\n"; print STDOUT "<TR VALIGN=TOP ALIGN=LEFT><TD WIDTH=345><P ALIGN=CENTER> +\n"; print STDOUT "<INPUT TYPE=\"submit\" VALUE=\"Upload\">\n"; print STDOUT "</TD></TR>\n"; print STDOUT "</TABLE>\n"; print STDOUT "</FORM>\n"; print STDOUT "</BODY>\n"; print STDOUT "</HTML>\n";
|
---|
Replies are listed 'Best First'. | |
---|---|
(Ovid - big security hole) Re: file uploads
by Ovid (Cardinal) on Feb 27, 2002 at 22:10 UTC | |
by PriNet (Monk) on Feb 27, 2002 at 22:23 UTC | |
by PriNet (Monk) on Feb 27, 2002 at 22:36 UTC |
Back to
Seekers of Perl Wisdom