Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

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 CGI.pm form usage. my $query = new CGI; print $query->header; print $query->start_html("CGI.pm 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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://315191]
help
Chatterbox?
[SuicideJunkie]: Just wait; someday soon, you'll be given a DB with unicode emojis in the column names.
[Corion]: marinersk: Well, I have done select statements like select sum(foo) as "Total Amount", ..., but to have a table like that makes me shudder
[Corion]: SuicideJunkie: :-D
[marinersk]: SuicideJunkie LOL
[choroba]: Woohoo! Fixed a test that hasn't run for 3 years.
[marinersk]: Corion Yes, sometimes whitespace in column headers is acceptable, but I still consider it be less than desireable if that query might get revectored for an ETL-esque process...
[marinersk]: choroba++
[choroba]: it's a long running test, so it's normally skipped unless an env var is set
[choroba]: nobody has been bothered to set the variable in the last 3 years

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (10)
As of 2017-05-25 15:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?