\n";
print TABLEOUT "| \n";
print TABLEOUT "$Owner\n";
print TABLEOUT " | \n";
print TABLEOUT &GenerateNameLinks($BoyName,"B");
print TABLEOUT " | \n";
print TABLEOUT &GenerateNameLinks($GirlName,"G");
print TABLEOUT " | \n";
print TABLEOUT "$Sex\n";
print TABLEOUT " | \n";
print TABLEOUT "\n";
print TABLEOUT "$Month $Day, 2001\n";
print TABLEOUT " | \n";
print TABLEOUT "$Hour:$Minute $AMPM\n";
print TABLEOUT " | \n";
if ($Pounds) {
print TABLEOUT "$Pounds Pounds";
}
if ($Ounces) {
print TABLEOUT ", $Ounces Ounces";
}
print TABLEOUT "\n";
print TABLEOUT " | \n";
if ($Length) {
print TABLEOUT "$Length Inches\n";
}
print TABLEOUT " |
\n";
}
sub GenerateDateURL {
my ($WordMonth, $Day) = @_;
my ($URL) = "http://www.historychannel.com/cgi-bin/today_relocate.cgi?";
my ($TempMonth, $Month) = ();
my (@Months) = ("January", "February", "March", "April", "May", "June",
"July", "August", "September", "October", "November",
"December");
while ($TempMonth = shift(@Months)) {
$Month++;
if ($TempMonth eq $WordMonth) {
last;
}
}
$URL .= "month=";
if ($Month < 10) {
$URL .= "0";
}
$URL .= $Month;
$URL .= "&day=";
if ($Day < 10) {
$URL .= "0";
}
$URL .= $Day;
return $URL;
}
sub GenerateNameLinks {
my ($Name, $Sex) = @_;
my (@Names) = split(/\s+/,$Name);
my ($BaseNameURL) = "http://tools.oxygen.com/babynamer/TypeASearch.cfm?Gender=$Sex&Unique=1&TellMeAbout=";
my ($ReturnLinks) = ("");
for $Name (@Names) {
$ReturnLinks .= "\n";
print "\n";
print "| \n";
print "Your name:\n";
print " | \n";
print &textfield(-name=>"Owner",
-default=>$Owner);
print "\n";
print "\n";
print " |
\n";
print "| \n";
print "Boy name:\n";
print " | \n";
print &textfield(-name=>"BoyName",
-default=>$BoyName);
print "\n";
print "\n";
print " |
\n";
print "| \n";
print "Girl name:\n";
print " | \n";
print &textfield(-name=>"GirlName",
-default=>$GirlName);
print "\n";
print "\n";
print " |
\n";
print "| \n";
print "Sex:\n";
print " | \n";
print &radio_group(-name=>"Sex",
-values=>["Boy"],
-default=>$Sex,
-nolabels=>"Yes");
print " Boy\n";
print "
\n";
print &radio_group(-name=>"Sex",
-values=>["Girl"],
-default=>$Sex,
-nolabels=>"Yes");
print " Girl\n";
print "\n";
@Months = ("June","July","August");
@Days = ();
for my $Count (1..31) {
push(@Days,$Count);
}
print " |
\n";
print "| \n";
print "Birth Date:\n";
print " | \n";
print &popup_menu(-name=>"Month",
-values=>\@Months,
-default=>$Month);
print "\n";
print &popup_menu(-name=>"Day",
-values=>\@Days,
-default=>$Day);
print "\n";
print ", 2001\n";
print "\n";
@Hours = ();
for my $Count (1..12) {
push(@Hours,$Count);
}
@Minutes = ();
for my $Count (0..59) {
if ($Count < 10) {
push(@Minutes,"0".$Count);
} else {
push(@Minutes,$Count);
}
}
print " |
\n";
print "| \n";
print "Birth Time:\n";
print " | \n";
print &popup_menu(-name=>"Hour",
-values=>\@Hours,
-default=>$Hour);
print "\n";
print &popup_menu(-name=>"Minute",
-values=>\@Minutes,
-default=>$Minute);
print "\n";
print &popup_menu(-name=>"AMPM",
-values=>["AM","PM"],
-default=>$AMPM);
print "\n";
print "\n";
print " |
\n";
print "| \n";
print "Weight:\n";
print " | \n";
print &textfield(-name=>"Pounds",
-size=>3,
-maxlength=>2,
-default=>$Pounds);
print " Pounds, \n";
print &textfield(-name=>"Ounces",
-size=>3,
-maxlength=>2,
-default=>$Ounces);
print " Ounces\n";
print "\n";
print " |
\n";
print "| \n";
print "Length:\n";
print " | \n";
print &textfield(-name=>"Length",
-size=>6,
-maxlength=>5,
-default=>$Length);
print " Inches\n";
print "\n";
print " |
\n";
print "| \n";
print &submit(-name=>"Submit",
-label=>"Submit Predictions");
print "\n";
print " |
\n";
print "\n";
print &endform();
}