My problem, is getting the script to write a thread, to an htm,html,or even txt
document.
Question...Seeing what I have,which is suppose to work;
Do you see a problem with it, or know of another way to print a link to
a referanced page?
print "Pragma: no-cache\n";
if($redirect && ($redirect =~ /^http\:\/\//)) {
print "Location: $redirect\n\n";
} else {
print "Content-type: text/html\n\n";
print "<HEAD><TITLE>Upload Results</TITLE></HEAD><BODY><FONT
FACE=\"verdana,helvetica,arial\" SIZE=2><BR><BR><CENTER><B><H2>Upload
Results</H2></B><HR WIDTH=\"65%\"><BR><BR>\n";
if(@rejected) {print "<B>The following file(s) were not stored as they<BR>were already
on the server:<BR><BR>\n"; print join("<BR>", @rejected); print "<BR><BR>\n"}
if(@file_did_save) {print "<B>The following file(s) were saved:<BR><BR>\n"; print
join("<BR>", @file_did_save); print "<BR><BR>\n"}
#here is where we print the links to the file:
$DataURL = qq~http://www.tjjames.net/uploads/links.htm~;
print qq~<B>File Links:</B><BR><OL>\n~;
foreach(@file_did_save) {
print qq~<LI><A HREF="$DataURL/$_">$_</A>\n~;
}
print qq~</OL><BR><BR>~;
Thanks for any help.
T.J. James
Come See Me At "The Song Shop"
www.tjjames.netGet more from the Web. FREE MSN Explorer download :
http://explorer.msn.com
