EOT # pooclub_small_slogan(); my $menuCount = 0; my $membersOnly = 0; while (
EOT if ($membersOnly > 0) { print < EOT } print qq( ); # if ($priv > 1) # manager or above # { # my $logfile = $SCRIPT_ID . "_" . $YYYYMMDD . ".csv"; # print qq( #
# Today's Actions Log
# Post as...
#
#
# );
# }
print qq(
Join pooclub
);
pooclub_medium_slogan();
print < |
EOT } ############################################################ sub pooclub_menu # Old type - hardcoded menu { print <
EOT pooclub_small_slogan(); print <
|
pooboard
|
poostuff
|
*members only
Want to be a part of Pooclub? Subscribe here.
EOT } ############################################################ sub pooclub_event { # Displays todays event (beneath the calendar on the # welcome page). # Events are found either in the "events.dat" file # or in the "events" directory under filenames # "January01", "January02", ... , "December31". # All events matching the paramterised date are shown. # If no events are found, nothing is displayed. my $day = shift(@_); my $mday = $u_mday; my $month = $u_month; my $fname = ""; my $size = 2; my $hrwidth = "50%"; my $align = "center"; my $events = 0; if ($day) # Use arg's date instead of today's date { ($not_used1, $mday, $month, $not_used2) = split /;/, parse_date ($day); } else { $day = $u_yyyymmdd; } $fname = sprintf "%s%02d", $month, $mday; print <
\n";} $events++; print "$text\n"; } } close (EVENTFILE); } if (open DATEFILE, "$EVENTDIR/$fname") { if ($events > 0) {print "
\n";} while (
";}
my $forecast = random_line ("$LISTDIR/pooclubweather.list", $day);
print <
|
$dayOfWeek $u_mday $u_month $u_year |
EOT
}
############################################################
sub pooclub_medium_slogan
{
my ($r_sec,$r_min,$r_hour,$r_mday,$r_mon,$r_year,$r_wday,$r_yday,$r_isdst)
= localtime(time);
my $seed = $r_sec + $r_yday;
my $slogan = random_line ("$LISTDIR/pooclubslogans.list", $seed);
$slogan =~ s/\s+$//;
print < ";
}
else
{
print <
EOT
}
}
############################################################
sub pooclub_todays_poem
{
my $poem_record = todays_poem($u_yyyymmdd);
my ($shiteId, $poemTitle, $poemAuthor, $poemType, $imageCode) = split /;/, $poem_record;
print <
);
}
############################################################
# Old style 'Fake Ads' banner
sub pooclub_banner_fakeads
{
my ($r_sec,$r_min,$r_hour,$r_mday,$r_mon,$r_year,$r_wday,$r_yday,$r_isdst)
= localtime(time);
my $seed = $r_sec + $r_yday;
my @bgColourList = ("green", "green", "green", "green", "blue", "blue", "brown");
my $bgColour = $bgColourList[randy(0, scalar(@bgColourList)-1, $seed)];
my $r_month = $monthList[$r_mon];
my @bdayList = ();
# Find pooclubber's birthday
my $groupFile = "$GROUPDIR/pooclubbers.dat";
open (GROUPFILE, "$groupFile");
while (
pooclub
);
your_accounts();
print qq(
EOT
for $n (@bdayList)
{
print "
\n";
}
print <
proudly presents the
Poem Of The Day:
$poemTitle.
proudly presents the
Poem Of The Day:
$poemTitle.
Luxury Private Holiday Villas in Bodrum, Turkey
Cheap Holiday Villas To Rent
EOT
}
############################################################
sub copyright
{
my $names = shift (@_);
my $years = $r_year;
if ($names eq "") { $names = "Pooclub Ltd"; }
$years = "1995-$years" if ($names =~ /^Shitespace/);
$years = "2000-$years" if ($names =~ /^Pooclub/);
print <
Luxury Private Holiday Villas in Bodrum, Turkey
Cheap Holiday Villas To Rent