#!/usr/local/bin/perl -T
require("./Library/cgi-lib.pl");
print &PrintHeader;
&ReadParse(*form_data);
print qq|
Reverse Script
\n|;
$original = $form_data{'originalstring'};
$reverse = "";
for ($i = 1; $i <= length($original); $i++) {
$reverse .= substr($original, length($original) - $i, 1);
}
if ($form_data{'javacgibridge'} eq "on") {
print "$reverse\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";