Friends,
The cgi below is at http://biblescramble.com/dns/textArea04.cgi.
If you type lines in the text box, it spits them back when you hit "Submit
Query".
However, I also want it to spit back a text file. What am I missing?
Thanks!
Jerry
##########
#!/usr//bin/perl -T
#use strict;
use CGI qw/:standard/;
print header;
if(param('textAreadomains')) {
print start_html('Hi'),
start_multipart_form,
h1, param('textAreadomains'),
p,
end_form,
hr;
}
elsif(param('fileDomains')) {
print start_html('Hi'),
start_multipart_form,
h1, param('fileDomains'),
p,
end_form,
hr;
}
else {
print start_html('Hi'),
start_multipart_form,
h1 "Enter domain names, one per line: ", textarea(-name,
'textAreadomains', -rows, "15", -cols, "75"),
p,
submit,
hr,
h1, "Or upload a text file: ",
filefield(-name, 'fileDomains'),
submit,
end_form,
p,
hr;
}
print end_html;
exit;
##########
_________________________________________________________________
Share your latest news with your friends with the Windows Live Spaces
friends module.
http://clk.atdmt.com/MSN/go/msnnkwsp0070000001msn/direct/01/?href=http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mk
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
