Not sure exactly what you mean...
I edited my script like this and it's still not working. If I move my print "Content-type: text/html\n\n"; things will not work correctly. Also I have no idea how to use CGI.pm's header and redirect methods. This book doesn't go into depth nearly enough to complete these assignments. This is frustrating for me
Any help? I am a novice. This is my first Perl Class.
Thanks,
#!c:\phpdev\perl\bin\perl.exe
#c12ex3.cgi - Location Header
print "Content-type: text/html\n\n";
use CGI qw(:standard -debug);
#prevent Perl from creating undeclared variables
use strict;
#declare variables
my ($Salesperson, $Sales, $Size, $Rate, $Percentage, @records, @errors
+, $errors, $bonus);
#assign input items to variables
$Salesperson = param('Salesperson');
$Sales = param('Sales');
$Rate = param('Rate');
$Percentage = param('Percentage');
#calculate bonus rates
$bonus = $Rate * $Sales;
if ($Salesperson eq "") {
print "Location:
http://localhost/cgi-bin/c12ex3b.html\n\n";
}
elsif ($Sales == "") {
print "Location:
http://localhost/cgi-bin/c12ex3b.html\n\n";
}
elsif ($Rate == "") {
print "Location:
http://localhost/cgi-bin/c12ex3b.html\n\n";
}
else {
print "<HTML>\n";
print "<HEAD><TITLE>Patton Industries</TITLE><BASEFONT SIZE=5></HEAD>\
+n";
print "<H1>Bonus Calculation</H1>\n";
print "<BODY>\n";
print "Salesperson: $Salesperson<BR>\n";
printf "Your bonus is: \$%.2f<BR><BR>\n", $bonus;
printf "You entered a sales amount of \$%.2f and a \n", $Sales;
printf "bonus rate of %.1f%%.<BR>\n", $Rate * 100;
print "</BODY>\n";
print "</HTML>\n";
print "</BODY></HTML>\n";
}
|