Thanks#!/usr/bin/perl require("cgi-lib.pl") print &PrintHeader; &ReadParse(*form_data); print qq|<HTML><HEAD><TITLE>Reverse Script</TITLE></HEAD> <BODY BGCOLOR="FFFFFF" TEXT="000000"> <!--start of data-->\n|; $original = $form_data{'originalstring'}; $reverse = "$original"; $original2 = $form_data{'originalstring2'}; $reverse2 = "$original2"; $original3 = $form_data{'originalstring3'}; $reverse3 = "originalstring3"; } if ($form_data{'javacgibridge'} eq "on") { print "$reverse~|~$reverse2~|~$reverse3~|~~|~\n"; } else { # javacgibridge is not on print "This is the original string:<P>"; print "$original\n"; print "<P>"; print "This is the reversed string:<P>"; print "$reverse"; print "<P>"; } print "<!--end of data--> </BODY></HTML>\n";
In reply to Re^2: cgi-lib.pl
by Anonymous Monk
in thread cgi-lib.pl
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |