Ad:

Perl Discussion Thread
Unsolved
Views: 1939

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Jul 29th, 2008

Proper Setup?

Expand Post »

I'm trying to access a cgi script when a form is submitted. With that script, I want to display a page that basically says, "Is this info correct?" and show them what they entered. Then, if they hit "Yes", I want to send an email to myself with their info. If no, I want it to go back to the previous page. I'm not sure how to do this. I'm stuck after creating the confirmation page. Here's what I have so far:

Perl Syntax (Toggle Plain Text)
#!/usr/bin/perl
#confirmSubscribe.cgi
 
 
print "Content-type: text/html\n\n";
use CGI qw(:standard);
use Mail::Sendmail;
use strict;
 
 
#var declarations
my ($firstName, $lastName, $email, $street, $city, $state, $zip, $msg, %mail);
 
 
#var values
$firstName = param('firstName');
$lastName = param('lastName');
$email = param('email');
$street = param('street');
$city = param('city');
$state = param('state');
$zip = param('zip');
 
 
#create page
sub send
print header;
print <<endHtml;
<html>
<head>
<title>Please confirm your information</title>
<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center" /><h2>Please confirm your information:</h2></p>
<p><font size="4" face="Arial">$firstName $lastName<br />
$email<br />
$street<br />
$city, $state  $zip</font></p><br /><br />
<form method="post" action="http://www.sgnscoops.com/Magazines/magazineMain.html">
<input type="submit" value="Yes, it's correct.">
</form><form method="link" action="http://www.sgnscoops.com/cgi-bin/subscriptionSent.cgi">
<input type="button" value="No, I made a mistake.">
</form>
</body>
</html>
endHtml
#!/usr/bin/perl
#confirmSubscribe.cgi


print "Content-type: text/html\n\n";
use CGI qw(:standard);
use Mail::Sendmail;
use strict;


#var declarations
my ($firstName, $lastName, $email, $street, $city, $state, $zip, $msg, %mail);


#var values
$firstName = param('firstName');
$lastName = param('lastName');
$email = param('email');
$street = param('street');
$city = param('city');
$state = param('state');
$zip = param('zip');


#create page
sub send
print header;
print <<endHtml;
<html>
<head>
<title>Please confirm your information</title>
<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center" /><h2>Please confirm your information:</h2></p>
<p><font size="4" face="Arial">$firstName $lastName<br />
$email<br />
$street<br />
$city, $state  $zip</font></p><br /><br />
<form method="post" action="http://www.sgnscoops.com/Magazines/magazineMain.html">
<input type="submit" value="Yes, it's correct.">
</form><form method="link" action="http://www.sgnscoops.com/cgi-bin/subscriptionSent.cgi">
<input type="button" value="No, I made a mistake.">
</form>
</body>
</html>
endHtml

Similar Threads

Won't load Windows Setup in Windows NT / 2000 / XP
Page not giving proper output in Perl
Suse 10.2 fails to boot after proper installation of ndiswrapper and drivers in Linux Kernel and Hardware Setup
Computer, Router, Cable Modem communication (noob network setup problems) in Networking
Linux and Windows networking together... is it a pipedream? in Getting Started and Choosing a Distro

kahaj

Reputation Points: 10

Solved Threads: 0

Junior Poster

Offline

193 posts
since Sep 2005

Permalink

Jul 29th, 2008

Re: Proper Setup?

And... what? You want us to write the rest for you?

chaosprime

Reputation Points: 18

Solved Threads: 4

Light Poster

Offline

46 posts
since Jul 2008

Permalink

Jul 29th, 2008

Re: Proper Setup?

Click to Expand / Collapse Quote originally posted by kahaj ...

Perl Syntax (Toggle Plain Text)
sub send
print header;
print <<endHtml;
sub send print header; print <<endHtml;

no curly braces after sub send.

Perl Syntax (Toggle Plain Text)
sub send()
{
#code
}
sub send()
{
#code
}

send() is never called in the main body of the cgi.

Last edited by Major Major; Jul 29th, 2008 at 4:48 pm. Reason: typo

Major Major

Reputation Points: 16

Solved Threads: 2

Light Poster

Offline

46 posts
since May 2008

Permalink

Jul 29th, 2008

Re: Proper Setup?

...well, okay. If we're actually going to try to critique. Um... nothing whatsoever in the script actually attempts to send an email.

That's kinda the root of my earlier comment. The whole thing isn't even a framework of what's described as the objective; it's a non-functional beginning of some of it. So it seems like the OP isn't asking for debugging assistance or critique so much as to have the rest of his script (his homework?) written for him.

chaosprime

Reputation Points: 18

Solved Threads: 4

Light Poster

Offline

46 posts
since Jul 2008

Permalink

Jul 29th, 2008

Re: Proper Setup?

Click to Expand / Collapse Quote originally posted by chaosprime ...

...well, okay. If we're actually going to try to critique. Um... nothing whatsoever in the script actually attempts to send an email.

That's kinda the root of my earlier comment. The whole thing isn't even a framework of what's described as the objective; it's a non-functional beginning of some of it. So it seems like the OP isn't asking for debugging assistance or critique so much as to have the rest of his script (his homework?) written for him.

Yeah but notice that in the <form> action, different pages are being called as the action, likely the email is being dealt with there. Although I think that the actions are reversed. It makes more sense that Yes should go to the subscriptionSent.cgi and No should go back to the HTML page where the info was entered to begin with.

Perl Syntax (Toggle Plain Text)
<form method="post" action="http://www.sgnscoops.com/Magazines/magazineMain.html">
<input type="submit" value="Yes, it's correct.">
</form><form method="link" action="http://www.sgnscoops.com/cgi-bin/subscriptionSent.cgi">
<input type="button" value="No, I made a mistake.">
</form>
<form method="post" action="http://www.sgnscoops.com/Magazines/magazineMain.html">
<input type="submit" value="Yes, it's correct.">
</form><form method="link" action="http://www.sgnscoops.com/cgi-bin/subscriptionSent.cgi">
<input type="button" value="No, I made a mistake.">
</form>

Major Major

Reputation Points: 16

Solved Threads: 2

Light Poster

Offline

46 posts
since May 2008

Permalink

Jul 29th, 2008

Re: Proper Setup?

Okay, fair enough.

OP, would you care to post the other scripts this one is referring to?

chaosprime

Reputation Points: 18

Solved Threads: 4

Light Poster

Offline

46 posts
since Jul 2008

Permalink

Jul 29th, 2008

Re: Proper Setup?

You should use one script to handle the entire process. But, writing CGI scripts is not a good idea for a person that seems to not have any experience and probably does not understand even the basics of writing secure CGI scripts. I suggest you hire a programmer, one that can demonstrate that they can write a secure CGI script. A script like this should not cost very much. You can post jobs on many websites and take bids from programmers.

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Jul 29th, 2008

Re: Proper Setup?

I agree that processes like this should be written in one script. People always get too hung up on the 'page' paradigm and break processes across scripts in a way that just doesn't help anything.

But, erm, not for nothin'... but how would this guy actually know if a programmer had demonstrated an ability to write a secure CGI script or not?

chaosprime

Reputation Points: 18

Solved Threads: 4

Light Poster

Offline

46 posts
since Jul 2008

Permalink

Jul 29th, 2008

Re: Proper Setup?

Ask for references, read comments from previous customers, have their work reviewed by a third party. It would still be possible to be fooled but many of the hire-a-programmer sites do a good job of hooking up customers with good programmers.

They can always try and hack/crack the script to see what happens under various conditions, which is the acid test of any CGI script.

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Jul 30th, 2008

Re: Proper Setup?

First of all, it is not homework. I'm trying to learn Perl. No one is an ace when they first start learning something. I don't want anyone to write the script for me: I wouldn't learn anything that way.

Major, I did accidentaly have the links switched around for the buttons. Also, the "sub send" I forgot to delete before I posted the code.

Chaos, I didn't attempt the email portion yet because I want to make sure that I set it up correctly before doing so.

When "Yes" is clicked, can I just send an email then, or do I need to have another CGI script perform this?

kahaj

Reputation Points: 10

Solved Threads: 0

Junior Poster

Offline

193 posts
since Sep 2005

Page 1
2
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: Script to Remove duplicate lines from a text file.

Next Thread in Perl Forum Timeline: What's wrong with this perl error

DaniWeb Message

Cancel Changes

User Name
Password