############################################################ # # stuff_html.pl # # Functions which generate HTML for parts of pages # ############################################################ require "stuff_funcs.pl"; ############################################################ sub write_debug { my $m = join /,/, @memberList; print < page="$page" arg1="$arg1" u_yyyymmdd="$yyyymmdd" b_yyyymmdd="$b_yyyymmdd" date_seed="$date_seed" birth_seed="$birth_seed" groups_size="$groups_size" memberList="$m"
EOT } sub write_debug_orig { print < DEBUG="$DEBUG" SCRIPT="$SCRIPT" PID="$PID" CGI_BIN="$CGI_BIN" DATADIR="$DATADIR" LISTDIR="$LISTDIR" POEMDIR="$POEMDIR" page="$page" r_sec="$r_sec" r_min="$r_min" r_hour="$r_hour" r_mday="$r_mday" r_mon="$r_mon" r_year="$r_year" r_wday="$r_wday" r_yday="$r_yday" r_isdst="$isdst" u_dayOfWeek="$u_dayOfWeek" u_mday="$u_mday" u_month="$u_month" u_mon="$u_mon" u_year="$u_year" b_dayOfWeek="$b_dayOfWeek" b_mday="$b_mday" b_month="$b_month" b_mon="$b_mon" b_year="$b_year" r_now="$r_now" u_format="$u_format" r_yyyymmdd="$r_yyyymmdd" u_yyyymmdd="$u_yyyymmdd" b_yyyymmdd="$b_yyyymmdd" dayList[$u_wday]="$dayList[$u_wday]" u_mday="$u_mday" monthList[$u_mon]="$monthList[$u_mon]" u_year="$u_year" date_seed="$date_seed" fish_seed="$fish_seed" random_fish="$random_fish" todays_fish="$todays_fish" fish_lizard="$fish_lizard" fish_mollusc="$fish_mollusc" poem_yyyymmdd="$poem_yyyymmdd" poem_line="$poem_line" poem_file="$poem_file" poem_title="$poem_title" poem_author="$poem_author"
EOT } ############################################################ sub shite_title_toberemoved # Special title for the default front page { my ($title, $description) = @_; my $colour0 = "brown"; my $colour1 = "#f0f0d0"; $colour0 = "blue"; $colour1 = "brown"; $title = "www.shite.org - Shite Space, Stuff Today and Pooclub" if ($title eq ""); $description = "The internet's most trifurcated URL" if ($description eq ""); print < $title EOT } ############################################################ sub stuff_title # Stuff Today HTML page starts getting written here # including the Stuff Today title and menu bar { my ($title, $description) = @_; my ($not_used, $u_day) = split / /, date_calc("-s $u_yyyymmdd"); my $dayOfWeek = $u_day; my $ts = substr($timezone, 0, 1); # + or - bit of timezone my $tz = substr($timezone, 1, 4); # numeric part of timezone $title = "Stuff Today: " . $title if (! ($title =~ /^Stuff Today:/)); $description = "Everything you need to know to cope with today" if ($description eq ""); print < $title
Stuff Today!

  Home | Prospects | k-Day | Events | Help $r_now $ts$tz 

$dayOfWeek
$u_mday
$u_month
$u_year

EOT } ############################################################ sub user_form # This form allows the user to change # today's date and enter a date of birth { my $align = shift(@_); $align = "center" if ($align eq ""); print <
EOT # Only show the k-day count on a k-day page if ($page eq "kday") { if ($arg1 eq "" || $arg1 < 1 || $arg1 > 99) {$arg1 = 30;} print <
Show up to k-days
EOT } print < EOT if ($page ne "whatisshite") # Don't allow user to change actual date { # on "What Is Shite?" page print < Today's Date: EOT for ($i = 0; $i < 12; $i++) { if ($monthList[$i] eq $u_month) { print "

#EOT #} ############################################################ sub show_users_date { print < $u_format
 $r_now (London) EOT } ############################################################ sub show_stock_days { my $s = ""; # stock ref my $itis = "It is"; my $b_mmdd = substr ($b_yyyymmdd, 4, 4); my $u_mmdd = substr ($u_yyyymmdd, 4, 4); my $celebrations = 0; if (scalar (@stock_days) > 0) { print < Congratulations!
 EOT print "
" if (scalar (@stock_days) > 1); for $s (@stock_days) { $celebrations++; print <$itis your $stockHash->{$s}->{singular} day!
EOT $itis = "and"; } print "
"; } if ($b_mmdd eq $u_mmdd) # Birthday! { if ($celebrations == 0) { print "

"; } $celebrations++; print < Happy Birthday!

EOT } if ($celebrations > 0) { print "
\n"; } } ############################################################ sub show_stock_list { # Get big long stock list for left-hand column my $stock_id = shift(@_); my $stock_list_file = "$LISTDIR/$stockHash->{$stock_id}->{filename}"; my $stock_list_type = lc($stockHash->{$stock_id}->{plural}); my @stock_list = (); my $stock_list_count = all_lines ($stock_list_file, \@stock_list); my $stock = ""; print < $stock_list_count top quality
$stock_list_type

EOT for $stock (@stock_list) { print "- $stock
\n"; } print "\n"; } ############################################################ sub show_event { # Displays todays event (beneath the calendar on the # main page). # Events are found either in the "events.dat" file # or in the "events" directory under filenames # "January01", "January02", ... , "December31". # All events matching the parameterised date are shown. # If no events are found, nothing is displayed. my ($day, $size, $align, $hrwidth) = @_; # parameter defaults: $day = $u_yyyymmdd if ($day eq ""); $size = 2 if ($size eq ""); $hrwidth = "25%" if ($hrwidth eq ""); $align = "center" if ($hrwidth eq ""); my ($not_used1, $mday, $month, $year) = split /;/, parse_date ($day); my $fname = sprintf "%s%02d", $month, $mday; my $events = 0; print < EOT if (open (EVENTFILE, "$EVENTS_FILE")) { while () { chop; ($eYear, $monthDD, $text) = split /;/, $_, 3; $eYear =~ s/\s+//g; if ($monthDD eq $fname && ($eYear eq "Y" || $eYear eq "" || $eYear eq $year)) { if ($events > 0) {print "

\n";} $events++; print "
$text
\n"; } } close (EVENTFILE); } if (open DATEFILE, "$EVENTDIR/$fname") { if ($events > 0) {print "
\n";} while () { print $_; } close (DATEFILE); } print < EOT } ############################################################ sub passage { my $i = 0; my $fname = random_line ("$PASSAGES_FILE", $u_yyyymmdd); $fname = "$PASSDIR/$fname"; print < EOT open (INFILE, "$fname") || print "No file: $fname

"; while () { if ($i == 0) { $author = $_; } else { if (/^\s*$/) { print "

"; } else { print "$_"; } } $i++; } close (INFILE); print < $author
EOT } ############################################################ sub new_word # Today's New Word { $newword_line = random_line ("$NEWWORD_FILE", $u_yyyymmdd); ($dic, $word, $definition) = split /;/, $newword_line; if ($dic eq "o") { $dic = "Today's New Word
(from the Oxtail English Dictionary)

"; } elsif ($dic eq "y") { $dic = "The Colourful World Of Yiddish"; } elsif ($dic eq "t") { $dic = "Thought For The Day"; } else { $dic = "Did You Know ...?"; } print <
$dic

$word - $definition


EOT } ############################################################ sub quotation # Today's Quote { my $quote_line = random_line ("$QUOTES_FILE", $u_yyyymmdd); my ($quote, $author) = split /;/, $quote_line; print < EOT if ($author ne "") # Show author { print < EOT } print "
"$quote"
- $author


"; } ############################################################ sub poo_club { my @lt = localtime(time); my $randomSecond = $lt[0]; my ($member, $sex, $name, $trooperFile) = split /;/, random_line ("$TROOP_FILE", $randomSecond); $trooperFile = "$IMGTROOPDIR/" . $trooperFile; my $altTag = "foul-mouth fun at pooclub"; if ($member eq "C") { $altTag = "Join " . $name . " for " . $altTag; } else { $altTag = "Join in the " . $altTag; } print <
$altTag pooclub
This fast action furious free-for-all forum has more f-words in it than you can fit in your fridge.
pooclub

EOT } ############################################################ sub shite_space # Shite Space and Today's Poem { my $poem_record = todays_poem($r_yyyymmdd); my ($shiteId, $poemTitle, $poemAuthor, $poemType, $imageCode) = split /;/, $poem_record; print <
Shitespace www.shite.org

Branded the biggest pile of arse on the net by its own authors, Shitespace proudly presents Today's Poem: $poemTitle.

EOT } ############################################################ sub thecull { print <
ArseEnders
Celebrities, royalty, the senseless killing of innocent people. It's all here at The Cull.

EOT } ############################################################ sub notnearmyhouse { print <
Not Near My House
You've got to get it to set it!
Join this gripping play-by-mail global "hide and seek" game by finding a location that's Not Near My House.

EOT } ############################################################ sub arseenders { print <
ArseEnders
Be A Soap Star!
Join, or just follow, our exciting online, interactive soap opera, ArseEnders.

EOT } ############################################################ sub zigzagzoo { print <
Zig Zag Zoo The ultimate amalgamation of animal husbandry, stock market speculation and fun. It's all happening at Zig Zag Zoo, and you can win prizes too!

EOT } ############################################################ sub user_info { my $primary = $greatList[0]; my $prim = $stockHash->{$primary}; my $stock_name = $prim->{singular}; my $stock_file = $prim->{filename}; my $todays_stock = random_line ("$LISTDIR/$stock_file", $date_seed); my $birth_stock = ""; my $The = lc($prim->{article}); print < Today's $stock_name is $The $todays_stock

EOT if ($b_yyyymmdd) # User has given date of birth { $birth_stock = random_line ("$LISTDIR/$stock_file", $birth_seed); print <$birth_stock

Your date of birth:
$b_format

You are $age days old.
EOT if ($age % 1000 == 0) { print "Congratulations!
"; print "It is your k-day!"; } else { print "When is your next k-day?"; } } print <

EOT } ############################################################ sub stocks_menu { my $nGreat = scalar(@greatList) - 1; # Ignore Guest stock for display my $nLesser = scalar(@lesserList); my $i = 0; my $s = ""; # stock id my $guest = $lesserList[0]; my $num = $nGreat; $num = "Seven" if ($num == 7); print <
The $num Great Stocks

EOT for ($i = 0; $i < $nGreat; $i++) { $s = $stockHash->{$greatList[$i]}; print $i + 1; print ". {id}&$date_args\">"; print "$s->{singular}
\n"; } $i++; print < Today's Guest Stock

$i. $stockHash->{$guest}->{singular}

The $nLesser Lesser Stocks

Prospects Groups
    Add my group

EOT } ############################################################ sub groups_menu { my $group; print <

Prospects Groups
    Add my group
EOT } ############################################################ sub poems_opinion # What the poem thinks of its reader { my ($link, $textColour, $tableWidth, $shiteId, $shiteTitle) = @_; $textColour = "black" if ($textColour eq ""); $tableWidth = 350 if ($tableWidth eq ""); $link = "whatisshite" if ($link eq ""); $link .= "&a=poem" if ($link eq "help"); my $shiteFile = $poem_file; # archaic $shiteFile = "$POETRYDIR/$shiteId.txt" if ($shiteId ne ""); $shiteTitle = $poem_title if ($shiteTitle eq ""); my $linkName = "[what's this all about?]"; my $linkSize = 1; my $breakifnarrow = ""; $breakifnarrow = "
" if ($tableWidth < 300); print < EOT if ($b_yyyymmdd > 0) { my $seed = get_seed($shiteId) + $b_yyyymmdd; my $opinion = random_line ("$LISTDIR/opinions.list", $seed); print <$shiteTitle" thinks ${opinion}. EOT } else # No DoB so don't know opinion { print <$shiteTitle" thinks of you! EOT } if ($link eq "" || $link =~ /poem/ || $link =~ /todayspoem/ || $link =~ /front/) { $linkName = "Read The Poem"; $linkSize = 2; print "
"; } print < $linkName
EOT } ############################################################ sub about_poem { my $lightYellow = "#ffffc0"; print <
EOT poems_opinion("whatisshite", "brown", 380); user_form("left"); print <

EOT } ############################################################ sub goodday { my $seed = $u_yyyymmdd + $b_yyyymmdd; my $goodies = ""; my $baddies = ""; my @gooddayList = (); open (INFILE, "$LISTDIR/goodday.list"); while () { chop; next if (/^\s*$/); # ignore blank lines next if (/^#/); # ignore commented lines push @gooddayList, $_; } close (INFILE); random_sort(\@gooddayList, $seed); for ($i=0; $i<4; $i++) { $goodies .= "- $gooddayList[$i]
"; $baddies .= "- $gooddayList[$i + 4]
"; } print <
Today is a good day to:
$goodies
Today is a bad day to:
$baddies
EOT } ############################################################ # Displays each date in k-day table sub formatDate { my ($theDate, $bold) = @_; my $yyyy = substr($theDate, 0, 4); my $mm = substr($theDate, 4, 2); my $dd = substr($theDate, 6, 2); my $mon = substr($monthList[$mm - 1], 0, 3); my $font = ""; my $endFont = ""; my $bg = ""; if ($bold eq "b") { $font = $font . ""; $endFont = "" . $endFont; $bg = "bgcolor=\"$colour[5]\""; # print "$dd $mon $yyyy"; # } # else # { # print "$dd $mon $yyyy"; } print < $font $mon $endFont $font $yyyy $endFont EOT } ############################################################ sub shite_search { print <
Shite Search
Not quite what you're looking for? Use Shite Search to find the perfect words for your mood right now.
EOT } ############################################################ sub shitespace_menubar { print <
Home Shite Space   Authors | Archives   
EOT } ############################################################ sub header # redundant { print < Stuff Today! Sod Yesterday! And Bollocks To Tomorrow! EOT } ############################################################ sub copyright { my ($names, $hr) = @_; my $years = $r_year; my $ref="ss"; if ($names eq "") { $names = "Stuff Today Ltd"; } $years = "1995-$years" if ($names =~ /^Shitespace/); $years = "2000-$years" if ($names =~ /^Pooclub/); print <
Luxury Private Holiday Villas in Bodrum Turkey pooclub | poowiki | subscribe Cheap Holiday Villas To Rent
$hr
Copyright © $years $names. All rights reserved.

EOT } ############################################################ 1; ############################################################ # END OF FILE ############################################################