Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Hand-rolled CGI mailto

by defyance (Curate)
on Dec 17, 2003 at 00:51 UTC ( #315191=note: print w/replies, xml ) Need Help??

in reply to Hand-rolled CGI mailto

Looks like you are trying to get %formdata from a form on a webpage, yes? You might want to first, use CGI; and then try building an html form to get your users input, then your form values will be available in $query->param('value'). Example below:
#!perl -wT use strict; use CGI; # Basic form usage. my $query = new CGI; print $query->header; print $query->start_html(" Basic form."); print $query->start_form; print "<b>To:</b>"; print $query->textfield('to'); print "<b>From:</b>"; print $query->textfield('from'); print "<b>Message:</b>"; print $query->textfield('body'); print "<p>",$query->reset; print $query->submit('Action','Stumbit'); print $query->endform; print "<hr>"; print "YOUR potential business is VERY IMPORTANT .... etc"; print $query->end_html; # Later on parse your $to $from etc from $query->param('nameofvalues') + instead of $formdata{'nameofvalues'} # and do your mailing, prefferably with a module from CPAN
There is much, much more that needs to be done to make sure that CGI script is secure and functional. You may want to consider checking out Ovid's CGI Course located here: Ovids CGI Course, and some of merlyn's colums located here: WT Colums by Randal.

A conclusion is simply the place where someone got tired of thinking.

UPDATE:Just a note, that code is un-tested.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://315191]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2021-10-15 20:14 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (68 votes). Check out past polls.