)) {
last;
}
chop $email;
if (!($birthdayCount)) {
print "Birthdays for: ",
($month+1), "/", $day, "
\n";
}
$birthdayCount++;
print "";
if ($url ne "") {
print "";
}
print $day, " ", $monthNames[$month], ": ";
print "", $name, " ";
if ($email ne "") {
print "", $email, "";
}
if ($url ne "") {
print "";
}
print "\n";
}
if ($birthdayCount) {
print "\n";
print "Remember, the Birthday Server";
print "runs on Greenwich Mean Time.\n";
}
}
sub OutputMonth {
local($month) = @_;
print "
World Birthday Web (WBW): ", $monthNames[$month],
"\n";
print "\n";
print "World Birthday Web (WBW): ", $monthNames[$month],
"
\n";
print "Please select a day of the month.
\n";
print "
\n";
for ($i=1; ($i < 32); $i++) {
print "", $i, "\n";
}
}