File Upload

[Jerry Kassebaum]

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
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs