#!/usr/bin/crons/perl
$thesession= $IN->param('s');
$mailprog = "/usr/skbin/sendsrmail" ;
$mailto = 'contact_us@domainstest.com';
$subject = "The Free Path Feedback" ;
$formurl = "http://www......../...=1&s=$thesession" ;
$errorurl = "http://www....thedomain......./...=1&s=$thesession";
$thankyouurl = "http://www......etc..../...=1&s=$thesession" ;
# ---------- END OF USER CONFIGURATION SECTION ------------
# ---------- functions -----------
sub redirect_url {
my ( $url ) = shift ;
print "Location: $url\n\n" ;
}
sub parse_form_data {
my ($request_method, $input_string, $content_length) ;
my (@vars, $indiv_var, $name, $value);
my (%form) ;
$request_method = $ENV{'REQUEST_METHOD'} ;
$content_length = $ENV{'CONTENT_LENGTH'} ;
# load the entire string into $input_string
if ($request_method =~ /post/i) {
$input_string = "" ;
read( STDIN, $input_string, $content_length ) ;
}
else {
$input_string = $ENV{ 'QUERY_STRING' };
}
unless (defined $input_string) {
$input_string = "" ;
}
# put all the variable pairs (name=value) into an array
@vars = split( /&/, $input_string );
# process each individual name, value pair, putting them
# into a hash for easy access
.
. and more and more code... then at the end there is:
send_email ( $mailprog, $email, $name, $mailto, $subject, $message );
redirect_url( $thankyouurl );