in reply to CGI and Submit

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.        
    
}

[download]

-Any sufficiently advanced technology is
indistinguishable from doubletalk.

Replies are listed 'Best First'.
Re: Re: CGI and Submit
by earthboundmisfit (Chaplain) on Sep 26, 2001 at 14:59 UTC
    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
     }

    [download]
    Taint for Win32
[reply]
[d/l]

In Section Seekers of Perl Wisdom