#!/usr/bin/perl
require("cgi-lib.pl")
print &PrintHeader;
&ReadParse(*form_data);
print qq|Reverse Script
\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:";
print "$original\n";
print "
";
print "This is the reversed string:
";
print "$reverse";
print "
";
}
print "
\n";