#!/usr/bin/perl
# Michael Tartaglia - Fake Travel Co. page
# Program reads in a "secret password" that displays various
#    travel packages


use warnings;
use strict;
use CGI qw ( :standard );
require template;


# READ IN NAME AND PASSKEY
my $name = param("name") eq "" ? "Anonymous" : param("name");
   $name = "\L\u$name";
my $pass = param("pass");
   $pass = "\L$pass\E";

# IF NO ENTRY WAS MADE, HEAD BACK TO THE FORM PAGE
print redirect ("../travel.html") if ($ENV{QUERY_STRING} eq "");



template::startHTML("Program # 4","Fake Travel Co.");

print "<TABLE CLASS=\"noBr\" CELLSPACING=5>",
      "<TR><TH VALIGN=\"top\">Hello, $name!</TH>",
      "<TD width=250 align=left>";


if ($pass eq "drinks") {	# IF "DRINKS" AS PASSKEY WAS ENTERED
 pass1();
} elsif ($pass eq "cakes") {	# IF "CAKES" WAS ENTERED
 pass2();
} elsif ($pass eq "fish") {	# IF "FISH" WAS ENTERED
 pass3();
} elsif ($pass ne "") {		# IF SOMETHING ELSE WAS ENTERED AS PASSKEY
 print "Please enter the correct password to see the great deals!",
       "<BR><BR>";
} else {			# IF NOTHING WAS ENTERED, TELL USER
 print "** Become a member today! **<BR><BR>";
}

print i("Coach Specials"), br(),	# DEFAULT "SPECIALS" TO PRINT
      "Lancaster to Westchester: ", 7+int(rand(100)), " quilts", 
      "</TD></TR></TABLE>";

template::endHTML();



########################################
# The following subroutines funtion similarly,
# simply printing out "specials" for the user,
# accompanied by "prices" generated by the
# random number generator.
########################################
sub pass1
{
 print i("Beer & Coffee Specials"), br(),
       "Boston MA to Bogota COL: \$", 100+int(rand(15000))/100, br(),
       "Milwalkee WI to Munich GER: \$", 150+int(rand(20000))/100, br(),
       "New York City to Dublin IRE: \$", 
       75+int(rand(12500))/100, br(), br();
 srand();
 pass2();
}

sub pass2
{
 print i("Let \'em Eat Cake Specials"), br(),
       "Hershey PA to Vienna AUT: \$", 100+int(rand(15000))/100, br(),
       "Philadelphia PA to Bern SWI: \$",
       150+int(rand(20000))/100, br(), br();
 srand();
 pass3();
}
sub pass3
{
 print i("Something\'s Fishy Specials"), br(),
       "Baltimore MA to Oslo NOR: \$", 100+int(rand(15000))/100, br(),
       "Seattle WA to Sapporo JPN: \$", 150+int(rand(20000))/100, br(),
       "Olympia WA to London GBR: \$", 75+int(rand(12500))/100, br(), 
       br();
 srand();
}