Hello,
Is anyone out there..
Can anyone write an example of perl code which will append the contents of
the below URL
to then be displayed via HTML to stdout...
URL =
candidate=Juan+Amore&position=Technician&education=Professional+Certificatio
n&RESULT_FileUpload-7=&RESULT_TextArea-8=&Submit=Submit>
I have the below example;ie
Will this create an HTML and send the data contained within this $form_name
to STDOUT via an HTML format or file.
$form_name > dataform.html
# Send back to the user a confirmation.
print << "END_OF_REPLY";
<Content-type: text/html>
END_OF_REPLY
<HTML>
<HEAD>
<TITLE>Confirmation Mesg</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=5>Thanks $first!
We'll send you your: $status.</FONT></P>
</BODY>
</HTML>
END_OF_REPLY
> #!/usr/bin/perl -w
> # Copy form data from the environment variable
>
> $form_data = $ENV{'QUERY_STRING'};
>
> $form_data =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C",hex ($1))/eg;
>
> # Replace the + char with space char.
>
> $form_data =~ s/\+/ /g;
>
> # Split $form_data into name/value pairs
> @fields = split (/&/, $form_data);
>
> # Init script variables with form data values
> # $form_name is the name from the form.
> # from the text fields...
>
> ($form_name, $candidate) = split (/=/, $fields[0]);
> ($form_name, $position) = split (/=/, $fields[1]);
> ($form_name, $education) = split (/=/, $fields[2]);
>
> $form_name > dataform.html
>
>
> # Send back to the user a confirmation.
>
> print << "END_OF_REPLY";
> <Content-type: text/html>
> END_OF_REPLY
>
> <HTML>
> <HEAD>
> <TITLE>Confirmation Mesg</TITLE>
> </HEAD>
> <BODY>
> <P><FONT SIZE=5>Thanks $first!
> We'll send you your: $status.</FONT></P>
> </BODY>
> </HTML>
> END_OF_REPLY
>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
