#!/usr/bin/perl -wT use CGI::Carp qw(fatalsToBrowser); use strict; use CGI; my $cgi = CGI->new(); # Create new CGI object. my $AuthorID; #Make $AuthorID global my $AuthorName; #Make $AuthorName global my $LocationLongitude; #Location longitude global my $LocationLatitude; #Location latitude global my $WarningLongitude; my $WarningLatitude; my @warningPoints; if ($cgi->param("LocationLongitude") && $cgi->param("LocationLatitude")) { # If Lat/Long present, add your warning points $LocationLongitude = $cgi->param("LocationLongitude"); $LocationLatitude = $cgi->param("LocationLatitude"); $AuthorID = $cgi->param("AuthorID"); $AuthorName = $cgi->param("AuthorName"); &print_warning_page; exit; } if ($cgi->param("AuthorID")) { #If author is passed back to the script, save the author info and goto the location page $AuthorID = $cgi->param("AuthorID"); &print_location_page; exit; } else {&print_author_page;} sub print_author_page { &print_header; print $cgi->start_form; print $cgi->popup_menu(-name=>'AuthorID', -values=>[qw/bob cecil/], -labels=>{'1'=>'bob', '2'=>'cecil'}, -default=>'bob'); print "
"; print $cgi->submit('Go'); print $cgi->end_form; } sub print_location_page { &print_header; print $cgi->start_form; print $cgi->hidden('AuthorID',"$AuthorID"); $LocationLatitude = $cgi->textfield(-name=>'LocationLatitude',-size=>10,-maxlength=>10); $LocationLongitude = $cgi->textfield(-name=>'LocationLongitude',-size=>10,-maxlength=>10); print < AuthorID:  $AuthorID Location Longitude:  $LocationLongitude ( X Coord ) Location Latitude:  $LocationLatitude ( Y Coord ) EOF print "
"; print $cgi->submit('Go'); print $cgi->end_form; } sub print_warning_page { &print_header; print $cgi->start_form; print $cgi->hidden('AuthorID',"$AuthorID"); print $cgi->hidden("LocationLongitude","$LocationLatitude"); print $cgi->hidden("LocationLatitude","$LocationLatitude"); $WarningLatitude = $cgi->textfield(-name=>'Latitude',-size=>10,-maxlength=>10); $WarningLongitude = $cgi->textfield(-name=>'Longitude',-size=>10,-maxlength=>10); print < AuthorID:  $AuthorID Location Longitude:  $LocationLongitude ( X Coord ) Location Latitude:  $LocationLatitude ( Y Coord ) EOF my $point = 1; foreach (@warningPoints) { my $WPLong = shift @warningPoints; my $WPLat = shift @warningPoints; print < Warning Longitude $point:  $WPLong ( X Coord ) Warning Latitude $point:  $WPLat ( Y Coord ) EOF print $cgi->hidden("WPLong$point","$WPLong"); print $cgi->hidden("WPLat$point","$WPLat"); $point++; } print < Warning Longitude:  $WarningLongitude ( X Coord ) Warning Latitude:  $WarningLatitude ( Y Coord ) EOF print $cgi->checkbox(-name=>'checkbox_name', -checked=>1, -value=>'ON', -label=>'This is the last warning point.'); print "
"; print $cgi->submit('Go'); print $cgi->end_form; } sub print_header { print $cgi->header; }