#!/usr/bin/perl -Tw # form3.cgi use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); print header; my ($F_Name, $L_Name, $review, $Address, $Eye_Group, $Eye_Color, $City, $State, $Zip, $Page_Title, $Buttons, $Butt_Val, $Hidden); Initialize_Values(); Print_Form(); sub Initialize_Values{ $Butt_Val = param('sendit'); $review = param('review'); $F_Name = param('f_name'); $L_Name = param('l_name'); $Address = param('address'); $City = param('city'); $State = param('state'); $Zip = param('zip'); $Eye_Color = param('eyecolor'); if($Butt_Val =~ /Edit Data/){ $review = ""; } if(($Butt_Val =~ /Submit Data/) && ($review > 0)){ &Print_Thanks; } $F_Name = Text_Field("f_name", 20, 20, $F_Name); $L_Name = Text_Field("l_name", 20, 20, $L_Name); $Address = Text_Field("address", 20, 20, $Address); $City = Text_Field("city", 20, 20, $City); $State = Text_Field("state", 2, 3, $State); $Zip = Text_Field("zip", 10, 12, $Zip); if(!$review){ $Eye_Group = radio_group( -name => 'eyecolor', -default => $Eye_Color, -values => ['blue','green', 'brown','grey','red'], ); $Buttons = submit( -name => "sendit", -value => "Submit My Data"); $Hidden = ""; # Clear $Hidden $Page_Title = "Enter Your Data"; } else{ $Eye_Group = $Eye_Color; $Hidden .= hidden(-name =>"eyecolor", -value=>$Eye_Color); $Buttons = submit(-name => "sendit", -value => "Edit Data"); $Buttons .= submit( -name => "sendit", -value => "Submit Data"); $Page_Title = "Edit Data or press 'Submit Data'"; } } sub Print_Thanks{ print<Thanks!
Thank you $F_Name!!!

Your data is very important to us!

HTML exit; } sub Print_Form{ print< $Page_Title
$Hidden
$Page_Title
First Name:$F_Name
Last Name:$L_Name
Address:$Address
City:$City
State/Zip:$State $Zip
Eye Color:$Eye_Group
$Buttons

HTML } sub Text_Field{ my($name, $max, $size, $value) = @_; my $field; $Hidden .= hidden( -name=>$name, -value=>$value ); if(!$review){ $field = textfield( -name => $name, -maxlength => $max, -size => $size, -value => $value); } else{ $field = $value; } return($field); }