Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

CGI and Submit

by muzakfetch (Scribe)
on Sep 26, 2001 at 07:37 UTC ( [id://114736]=perlquestion: print w/replies, xml ) Need Help??

muzakfetch has asked for the wisdom of the Perl Monks concerning the following question:

Hi everyone, I made a simple CGI form for our users to submit HelpDesk requests.
What I am trying to figure out is how to render a new page that will say thank you after the user submits his/her data to the script.

humbly,
muzakfetch

Replies are listed 'Best First'.
Re: CGI and Submit
by Hero Zzyzzx (Curate) on Sep 26, 2001 at 07:48 UTC

    Probably the easiest way is to check for the existence of a submitted parameter, and then print the thank you page if it exists. If not, print your CGI form for user issue submission.

    ### Psuedocode, mostly #!/usr/bin/perl -wT use strict; use CGI; my $q=CGI->new(); if($q->param('submit')){ #The "submit" param would come from a default submit button #Use some other parameter if it makes sense to you, like "problem +description". #Any field that's submitted by your form should work. #Print thank you page, however you want. } else { #No parameter was submitted, so that must mean this #is a new request. #print your page for submitting the help desk request. #and do your post-processing. }

    -Any sufficiently advanced technology is
    indistinguishable from doubletalk.

      Assuming you don't have a lot of experience with the CGI module and you're having trouble getting the page to display, I'll just add that a common cause for troubles is the content type set incorrectly. You need to call the header() function to set this. Also, you don't say what OS you use, but since the *nix way is covered above I thought I'd throw in the Windoze equivalent.
      #! C:/Perl -w # too late to run Taint on Win32. See node link at bottom use strict; use CGI qw/:standard/; #for form based applications, you'll need mos +t of the functions #and it's a bit less typing over the function + oriented way. #See CGI.pm docs for more on that. if (param('submit')){ print header, start_html('Thanks for your request'), h2("Submission accepted"), h4("Thank you"), end_html; } else { # do whatever needs doing # most likely you'll be building your form }
      Taint for Win32

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://114736]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (4)
As of 2024-03-29 12:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found