Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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
Node Status?
node history
Node Type: note [id://315191]
[1nickt]: ... sign I have seen ...
[1nickt]: Now that one made me hopeful! First time not angry in a long time when I saw that kid.
[Discipulus]: i propend for removing: why? because we are so few that we must find i minimal common divisor, this is certainly Perl not our (anyway private) thougths. And i say this still wondering because i love a lot freedom of expression. And i say this not for roho
[1nickt]: Discipulus that was the point of my story of taking the sticker off my truck. I know there are lots of people in the world who if I knw their private beliefs I might want to argue with them. And they with me. But life cannot all be arguments!
[1nickt]: This is less than perfect ... but demanding perfection (from people or from life) is a sure way to unhappiness.
[Discipulus]: and anyway we have CB where every (democratic) opinion can be expressed
erix eat the rich!
[1nickt]: I do think it is sad that roho has received 3 downvotes for his polite request, as did I when I objected to the profanity in stonecolddevin's sig. I upvoted both him and Karl for the discussion. Way too much downvoting for inappropriate reasons here!
Discipulus learn that 'argue' has a little negative sense, he thought was a neutral sense, 'vox media'
[1nickt]: argue == discuss && argue == be contentious

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2017-06-22 12:18 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (519 votes). Check out past polls.