############################################################ # # shite_pages.pl # # Functions which are responsible for drawing a Shitespace page # ############################################################ #require "shite_html.pl"; require "shite_vote.pl"; use File::Basename; #sub sortbytitle { $shiteHash->{$a}->{title} cmp $shiteHash->{$b}->{title}; } sub sortbytitle { $a->{title} cmp $b->{title}; } ############################################################ sub shite_title # all Shitespace pages' HTML starts here { my ($title, $description) = @_; $title = "Shitespace: " . $title; $description = "The most puerile site on the internet" if ($description eq ""); print < $title
 
Home | The Bowels | The Authors | Index | Map

EOT } ############################################################ sub shite_menubar # the brown menubar at the bottom of every Shitespace page { print qq(
 
Home | The Bowels | The Authors | Index | Map    
); } ############################################################ sub shite_menubar_oldish # the brown menubar at the bottom of every Shitespace page { print <
Home Home   The Bowels | The Authors Index | Map   
EOT } ############################################################ sub shite_menubar_old # the brown menubar at the bottom of every Shitespace page { print <
Home Home   Authors | Archives   
EOT } ############################################################ sub multipage_menu # displays the "Title Page 1 2 3 4 5 Next" menu { my ($title, $baseId, $partName, $pageNum, $numPages) = @_; if ($pageNum > 0 && $numPages > 1) { print < $title
 $partName  EOT for ($i = 1; $i <= $numPages; $i++) { if ($i == $pageNum) { print " $i"; } else { print <$i EOT } } if ($pageNum < $numPages) { $next = $pageNum+1; print <Next Next EOT } print ""; } } ############################################################ sub cannot_find_shitem # displays "Oops!" message in place of a missing poem or short story { my ($shiteId, $title, $author) = @_; print < $margintext $title
($author)

Oops!
Cannot find shite file for this item. Please complain bitterly to shite\@shite.org quoting shite Id "$shiteId".
EOT } ############################################################ sub cannot_find_poem_of_the_day { my ($shiteId, $title, $author) = @_; print <Oops!
Cannot find shite file for this item. Please complain bitterly to shite\@shite.org quoting shite Id "$shiteId".
EOT } ############################################################ sub get_description { my ($category, $altTitle) = @_; my $description = ""; $category = uc($category); $description = ""; $description = "Not Released" if ($category eq "N"); $description = "An Anthology Of Poetry" if ($category eq "A"); $description = "The Shiterati" if ($category eq "R"); $description = "A Short Story" if ($category eq "S"); $description = "The Bible" if ($category eq "B"); $description = "A Shitespace Epic" if ($category eq "E"); $description = "Tales From Beyond The Enchanted Prong Hills" if ($category eq "H"); $description = "Parochial Plops" if ($category eq "L"); $description = "War Poetry" if ($category eq "W"); $description = "Crappalot's Page" if ($category eq "C"); $description = "Splashback! Behind The Scenes" if ($category eq "Y"); $description = "" if ($category eq "X"); if ($altTitle ne "") { if ($category eq "X" || $category eq "E") { $description = $altTitle; } } return $description; } ############################################################ sub get_image # gets the full pathname of an image for a shitem { my ($shiteId, $imageCode) = @_; my $imageFile = ""; my $foundImage = 0; $imageCode =~ s/\s+//g; my ($fname, $path, $suffix) = fileparse($imageCode, '\..*'); #print "FISH: imageFile=$imageFile fname=$fname path=$path suffix=$suffix\n"; my $id = $fname; $id =~ s/$suffix$//; $id =~ s/\.$//; # remove trailing . $path =~ s/\/$//; # remove trailing / $suffix =~ s/^\.//; # remove preceding . my $dir = basename($path); #print "FISH: path=$path dir=$dir id=$id suffix=$suffix\n"; if ($suffix ne "") { $id = $shiteId if ($id eq ""); if ($dir eq "" || $dir eq ".") { $dir = "$IMGSHITEDIR"; } else { $dir = "$IMGHOMEDIR/$dir"; } $imageFile = "${dir}/${id}.${suffix}"; } elsif ($imageCode ne "") # the imageCode hasn't parsed so assume that it is a suffix only { $imageFile = "$IMGSHITEDIR/${shiteId}.${imageCode}"; } # if ($id ne "" && $suffix ne "" && ($dir eq "" || $dir eq ".")) # filename is given but no dir (eg $imageFile="parsnip.jpg") # { # $imageFile = "$IMGSHITEDIR/$imageFile"; # ...so use default dir #print "FISH2\n"; # } # elsif ($imageFile ne "") # only the file extension (image type) is given (eg $imageFile="jpg") # { # $imageFile = "$IMGSHITEDIR/$shiteId.$imageFile"; # ...so use shiteId as filename #print "FISH3\n"; # } # else # assume full path is given (eg $imageFile="images1/horse.gif") # { # $imageFIle = "$IMGHOMEDIR/$imageFile"; #print "FISH1\n"; # } $foundImage = 1 if ($imageFile ne ""); if ($foundImage < 1) { # No image has been provided by the shite index table, but let's see if # we can find one anyway in $IMGSHITEDIR that matches the shite id. $imageFile = "$IMGSHITEDIR/$shiteId.gif" if (-s "$IMGSHITEDIR/$shiteId.gif" > 0); $imageFile = "$IMGSHITEDIR/$shiteId.jpg" if (-s "$IMGSHITEDIR/$shiteId.jpg" > 0); $foundImage = 1 if ($imageFile ne ""); } if ($foundImage < 1) # The -s file flag doesn't seem to work on titanhosts { # so let's try a messier approach... open (GIFFD, "$IMGSHITEDIR/$shiteId.gif") or $foundImage = 0; close (GIFFD); if ($foundImage > 0) { $imageFile = "$IMGSHITEDIR/$shiteId.gif"; } else { $foundImage = 1; open (JPGFD, "$IMGSHITEDIR/$shiteId.jpg") or $foundImage = 0; close (JPGFD); if ($foundImage > 0) { $imageFile = "$IMGSHITEDIR/$shiteId.jpg"; } } } return $imageFile; } ############################################################ sub show_shitem # generates HTML for a poem or short story within a page { my ($type, $shiteId, $title, $author, $imageCode, $marginwidth, $poemwidth, $rightcolwidth) = @_; $marginwidth = 195 if ($marginwidth eq "" || $marginwidth < 1); $poemwidth = 500 if ($poemwidth eq "" || $poemwidth < 1); $rightcolwidth = 105 if ($rightcolwidth eq "" || $rightcolwidth < 1); $border = 0; my $lines = 0; my $textlines = 0; # non-blank lines $margintext = ""; $rightcoltext = ""; my $dir = $POETRYDIR; $dir = $STORYDIR if ($type eq "S"); my $shitemFile = "$dir/$shiteId" . ".txt"; my $imageFile = get_image ($shiteId, $imageCode); my $imageText = ""; if ($imageFile ne "") { $imageText = qq( $title

); } # Now start reading shitem file open (SHITEM, $shitemFile) or cannot_find_shitem($shiteId, $title, $author); while () { chop; next if (/^#/); # comment line next if (/^\s*$/ && $textlines < 1); # blank line before start of text substitute_vars (\$_); add_date_args_to_link (\$_); if ($_ =~ /^\//) # It's a data formatter { $dataname = $_; $datatext = $_; $dataname =~ s/^\///; # cut preceding / $dataname =~ s/\s+.*$//; # cut all text after dataname $datatext =~ s/^\/\w+\s*//; # cut /dataname $$dataname = $datatext; next; } else { $textlines++; if ($textlines == 1) # It's the first line so print the title, author etc. { $displayAuthor = ""; $displayAuthor = "$author" if ($author ne ""); print <
$margintext $imageText
EOT if (lc($type) eq $type) # It's information about a page { print < EOT } else # It's a normal poem (or story) so show title { print <$title
$displayAuthor

EOT } } # Now print the line if (uc($type) eq "P") { print "$_
\n"; } elsif (uc($type) eq "S") { print qq(

) if ($_ =~ /^\s*$/); # blank line # print "  " if ($_ =~ /^\s+/); # indented start of paragraph if ($_ =~ /^\s+\S/) # indented start of paragraph { print <
EOT } print "$_\n"; } else { print "$_
\n"; } } } close (SHITEM); print "
" if ($type eq "S"); # print "" if (lc($type) eq $type); print <

EOT if ("$rightcoltext") { print < $rightcoltext EOT } print <   EOT } ############################################################ # should be renamed "single_author_page" sub anthology_page # generates an anthology or short stories page { my ($myPageId, $pageTitle, $altTitle, $date, $category, $pageNum, $numPages) = @_; my $pTitle = $pageTitle; $pTitle = $altTitle if ($altTitle ne ""); my $pDescription = get_description ($category, $altTitle); my $returnLink = ""; shite_title ("$pageTitle", "$pDescription"); print < EOT if (uc($category) eq "R") # Add link back to Shiterati homepage { $returnLink = qq( Shiterati HomeThe Shiterati ); $pTitle = "Shiterati: " . $pTitle; } if (uc($category) eq "L") # Add link back to Parochial Plops homepage { $returnLink = qq( Parochial Plops HomeParochial Plops ); } if (uc($category) eq "W") # Add link back to War Poetry homepage { $returnLink = qq( War Poetry HomeWar Poetry ); } print <
$pTitle
EOT if ($pageNum > 0 && $numPages > 0) # It's a multi-page anthology { print <Volume $pageNum EOT } print <   EOT open (SHITE, $SHITE_INDEX_FILE) or die "anthology_page: Cannot open SHITE_INDEX_FILE=$SHITE_INDEX_FILE\n"; while () { chop; next if (/^#/); # comment line next if (/^\s*$/); # blank line ($potd, $type, $shiteId, $shiteTitle, $author, $pageId, $imageCode) = split /;/, $_; $potd =~ s/\s+//g; $type =~ s/\s+//g; $shiteId =~ s/\s+//g; $pageId =~ s/\s+//g; $shiteTitle =~ s/^\s*//; $shiteTitle =~ s/\s*$//; $author =~ s/^\s*//; $author =~ s/\s*$//; $imageCode =~ s/^\s*//; $imageCode =~ s/\s*$//; if ($pageId eq $myPageId) # print this shitem { show_shitem ($type, $shiteId, $shiteTitle, $author, $imageCode); } } close (SHITE); my $baseId = $myPageId; $baseId =~ s/\d+$//; my $pubDate = ""; # Format the publication date if ($date =~ /\-/) # Range of dates { my ($date1, $date2) = split /-/, $date; my ($dow1, $day1, $month1, $year1) = split /;/, parse_date($date1); my ($dow2, $day2, $month2, $year2) = split /;/, parse_date($date2); $year1 = "" if ($year1 eq $year2); $pubDate = "$month1 $year1 - $month2 $year2"; } else # single date or list of comma separated dates { for $d (split /,/, $date) { my ($dow1, $day1, $month1, $year1) = split /;/, parse_date($d); $pubDate = $pubDate . ", " if ($pubDate ne ""); $pubDate .= "$month1 $year1"; } } print < $returnLink  
$pubDate
EOT multipage_menu ($pageTitle, $baseId, "Volume", $pageNum, $numPages); print <  

EOT shite_menubar(); } ############################################################ sub multiauthor_page # generates an epic page or bible page { my ($srcFile, $category) = @_; my ($fname, $path, $suffix) = fileparse($srcFile, '\..*'); my $pageId = $fname; $pageId =~ s/$suffix$//; my $baseId = $pageId; $baseId =~ s/\d+$//; $path =~ s/\/$//; my $type = basename($path); my $returnLink = ""; # Eg. srcFile="/data/multi/the_french2.txt" # fname="the_french2.txt", path="/data/multi", suffix=".txt", # pageId="the_french2", baseId="the_french", type="multi" # defaults $marginwidth = 150; $authorwidth = 50; $poemwidth = 500; $border = 0; $supertitle = ""; $title = ""; $subtitle = ""; $by = ""; $author = "AUTHOR"; $date = "MONTH YEAR"; $description = ""; $margintext = ""; $bottomleft = " "; $chapter = 0; $nchapters = 0; $linebreak = "
"; $part = ""; $partName = "Part"; $rowspan = 0; $rowspanTag = ""; $imageCode = ""; my $imageFile = ""; my $supertitleSize = 6; my $supertitleColour = "black"; # $image = "$IMGSHITEDIR/$pageId.gif" if (-s "$IMGSHITEDIR/$pageId.gif" > 0); # $image = "$IMGSHITEDIR/$pageId.jpg" if (-s "$IMGSHITEDIR/$pageId.jpg" > 0); if (uc($category) eq "B") { $partName = "Chapter"; } $partName = "Page" if ((uc($category) eq "S") || (uc($category) eq "H")); if (uc($category) eq "H") { $supertitleSize = 5; $supertitleColour = "gray"; } open (INFILE, $srcFile) or die "multiauthor_page: Cannot open srcFile=$srcFile\n"; $verseCount = 0; while () { chop; next if (/^#/); # comment line if ($_ =~ /^\/verse/) # new verse { s/\/verse//; # cut preceding /verse tag if ($verseCount == 0) # It's the first verse so print title stuff first { my $bracketSubtitle = ""; my $bracketBy = ""; my $keywords = "$author, $supertitle, $title, $subtitle"; my $tablewidth = $marginwidth + $authorwidth + $poemwidth; if ($supertitle ne "") { $supertitle = "" ."$supertitle

"; } if ($title ne "") { $titleFormat = #qq(

$title
); "$title"; } if ($subtitle ne "") { $bracketSubtitle = "(".$subtitle.")"; $subtitle = "

$subtitle"; } if ($chapter > 0) { $part = "

$partName $chapter"; } if ($rowspan > 0) { $rowspanTag = "rowspan=\"$rowspan\""; } if ($freetext > 0) { $linebreak = ""; } if ($imageCode ne "") { $imageFile = get_image ($pageId, $imageCode); } $bracketBy = $by if ($by ne ""); # archaic name - we don't bracket the authors' names anymore shite_title($title, $description); if (uc($category) eq "B") # Set return link for Bible { $returnLink = qq( BibleThe Bible ); } elsif (uc($category) eq "L") # Set return link for Parochial Plops { $returnLink = qq( Parochial PlopsParochial Plops ); } elsif (uc($category) eq "H") # Set return link for Prong Hills { $returnLink = qq( Prong Hills MenuMore Prong Hills Tales ); } print <

$returnLink EOT if (uc($category) eq "B") # Add bible picture to margin { print <
The Bible - Home Page
EOT } if ($imageFile ne "" || $margintext ne "") # Add imgshite picture to margin { $imagetext = ""; if ($imageFile ne "") { $imagetext = qq(); } if ($rowspan < 1) # Not using rowspan so we can add it to the margintext { $margintext .= "

" if ($margintext ne ""); $margintext .= $imagetext; } else # rowspan means next margin won't be drawn, so show picture here { substitute_vars (\$margintext); add_date_args_to_link (\$margintext); print <

$margintext

$imagetext EOT } } print <  
$supertitle $titleFormat $subtitle
$bracketBy
$part


EOT } $verseCount++; print < EOT $rowspan-- if ($rowspan > 0); if ($rowspan < 1) { substitute_vars (\$margintext); add_date_args_to_link (\$margintext); print < $margintext EOT } print < $_   EOT $margintext = ""; } elsif ($_ =~ /^\//) # It's a data formatter { $dataname = $_; $datatext = $_; $dataname =~ s/^\///; # cut preceding / $dataname =~ s/\s+.*$//; # cut all text after dataname $datatext =~ s/^\/\w+\s*//; # cut /dataname $$dataname = $datatext; } elsif ($verseCount > 0) # print line within same verse { if ($freetext < 1) # Poetry format { substitute_vars (\$_); add_date_args_to_link (\$_); print "$_
\n"; } elsif ($freetext == 2) # Story format { print "

" if ($_ =~ /^\s*$/); # blank line if ($_ =~ /^\s+\S/) # indented start of paragraph { print <
EOT } print "$_\n"; } else # Free format { if ($_ =~ /^\s*$/) { print "

\n"; } else { substitute_vars (\$_); add_date_args_to_link (\$_); print "$_\n"; } } } } close (INFILE); substitute_vars (\$margintext); add_date_args_to_link (\$margintext); print < $margintext

$returnLink   EOT # Author credits if ($chapter == $nchapters || uc($category) eq "B") { print < $author - $date EOT } # Index of links to other Parts multipage_menu ($title, $baseId, $partName, $chapter, $nchapters); print <

EOT shite_menubar(); } ############################################################ sub get_blob_image { my $authorCode = shift(@_); my $blob = "blob_grey.gif"; $blob = "blob_mike.gif" if ($authorCode eq "m"); $blob = "blob_kate.gif" if ($authorCode eq "k"); $blob = "blob_both.gif" if ($authorCode eq "b"); return $blob; } ############################################################ sub add_page_links # displays list of pages of a given category (with blobs) { my $myCategory = shift(@_); my ($authorCode, $pick, $category, $pageFormat, $date, $pageId, $title); my $blob; print < EOT open (FD, "$PAGE_INDEX_FILE") or print "add_page_links: Cannot open PAGE_INDEX_FILE=$PAGE_INDEX_FILE"; while () { chop; ($authorCode, $pick, $category, $pageFormat, $date, $pageId, $title) = split /;/, $_; $category = substr ($category, 0, 1); $pageId =~ s/^\s+//; $pageId =~ s/\s+$//; $title =~ s/^\s+//; $title =~ s/\s+$//; $title =~ s/\s1\s*$//; # cut trailing digit '1' if ($category eq $myCategory) { $blob = get_blob_image($authorCode); print < $title
EOT } } print < EOT } ############################################################ sub add_home_link # displays link back to Shitespace Home, in top left corner { my $arg = shift(@_); my $logofile = "$IMGDIR2/logo.gif"; $logofile = "$IMGDIR2/logoy.gif" if ($arg eq "yellow"); print <HomeShitespace Home EOT } ############################################################ sub add_poem_of_the_day # displays the Poem Of The Day on Shitespace homepage { my $startPoint = $arg1; $startPoint = 0 if (!$startPoint); my $poem_record = todays_poem($r_yyyymmdd); my $lineCount = 0; my $linesSoFar = 0; my $poemsSoFar = 0; my ($shiteId, $poemTitle, $poemAuthor, $poemType, $imageCode) = split /;/, $poem_record; my $shitemFile = "$POETRYDIR/$shiteId.txt"; my $imageFile = get_image ($shiteId, $imageCode); my $imageWidth = "150"; if ($imageFile eq "") { $imageFile = "${IMGSHITEDIR}/default_pic.jpg"; $imageWidth = "100"; } print < EOT if ($startPoint < 1) # Don't display Poem Of Day if we're on a second page, etc. { print < Poem Of The Day . . .

$poemTitle $poemTitle
($poemAuthor)

EOT open (SHITEM, $shitemFile) or cannot_find_poem_of_the_day($shiteId, $poemTitle, $poemAuthor); while () { next if (/^#/); next if (/^\//); substitute_vars (\$_); add_date_args_to_link (\$_); if ($lineCount > 0 || !/^\s*$/) { print "$_
\n"; $lineCount++; } } close (SHITEM); $linesSoFar += $lineCount; print <

EOT poems_opinion("whatisshite", "gray", 380, "$shiteId", "$poemTitle"); user_form("left"); print < EOT } print <
Shite Sniffer
Not quite what you're looking for? Use Shite Sniffer to find the perfect words for your mood right now.
  poemFactory
Trouble at t'mill? Well, it's nothing compared to the mayhem you can cause at poemfactory. Get your credit card out and send your loved one a really vulgar poem.


Or if like most readers you can't be arsed with all these fabulous features,
just browse through our selected poetry for today...
More Of Today's Poetry . . .

EOT # Now display random selection of poems my $i = 0; my $shiteHash = {}; my $shiteList = (); my $pageHash = {}; my $pageList = (); get_pages(\$pageHash, \@pageList, "a"); # get all pages get_shitems(\$shiteHash, \@shiteList, "d"); # get all shitems my $shiteListSize = scalar(@shiteList); my $pageListSize = scalar(@pageList); random_sort(\@shiteList, $r_yyyymmdd); $i = $startPoint; while ($linesSoFar < 200 && $poemsSoFar < 10) { $id = $shiteList[$i]; if ($id ne $shiteId) { # skip Poem Of Day 'cos we've already displayed it $poemTitle = $shiteHash->{$id}->{title}; $poemAuthor = $shiteHash->{$id}->{author}; $imageCode = $shiteHash->{$id}->{imageCode}; $shitemFile = "$POETRYDIR/$id.txt"; $imageFile = get_image ($id, $imageCode); $imageWidth = "150"; print < EOT if ($imageFile) { print qq($poemTitle); } else { print " "; } print < $poemTitle
($poemAuthor)

EOT $lineCount = 0; open (SHITEM, $shitemFile); while () { next if (/^#/); next if (/^\//); substitute_vars (\$_); add_date_args_to_link (\$_); if ($lineCount > 0 || !/^\s*$/) { print "$_
\n"; $lineCount++; } } close (SHITEM); print "

"; $poemsSoFar++; $linesSoFar += $lineCount; } $i++; $i -= $shiteListSize if ($i >= $shiteListSize); ##print "linesSoFar=$linesSoFar poemsSoFar=$poemsSoFar lineCount=$lineCount
\n"; } print < EOT if ($startPoint > 0) { print qq( Poem Of The Day); } print < More poems EOT } ############################################################ sub add_whatisshite_form { my $poem_record = todays_poem($r_yyyymmdd); my ($shiteId, $poemTitle, $poemAuthor, $poemType, $imageCode) = split /;/, $poem_record; poems_opinion('shite#todays_poem', "brown", 380, "$shiteId", "$poemTitle"); user_form("left"); } ############################################################ sub add_shitespace_slogan { my $myseed = random_seed(); my $slogan = random_line ("${DATADIR}/lists/shitespaceslogans.list", $myseed); print qq($slogan); } ############################################################ sub add_pick_of_the_day # displays links to today's selected anthologies { my @newList = (); my @anthList = (); my @storyList = (); my $titleHash = {}; my $authorHash = {}; my $categoryHash = {}; my $daysOld = -1; my $blob; my $id; my $i; open (PAGEFILE, "$PAGE_INDEX_FILE"); while () { chop; next if (/^#/ || /^\s*$/); ($authorCode, $pick, $category, $pageFormat, $date, $pageId, $title) = split /;/, $_; next if ($pick ne "d"); $date = substr ($date, -8, 8); $pageId =~ s/\s+//g; $title =~ s/^\s+//; $title =~ s/\s+$//; $daysOld = 999999; if ($date =~ /[1-2][0-9][0-9][0-9][0-1][0-9][0-3][0-9]/ && ($date % 100 > 0)) { $daysOld = date_calc("-c $date $r_yyyymmdd"); } if ($daysOld < 31) { push @newList, $pageId; } elsif ($category eq "S") { push @storyList, $pageId; } else { push @anthList, $pageId; } $titleHash->{$pageId} = $title; $authorHash->{$pageId} = $authorCode; $categoryHash->{$pageId} = $category; } random_sort(\@newList, $r_yyyymmdd); random_sort(\@storyList, $r_yyyymmdd); random_sort(\@anthList, $r_yyyymmdd); my $count = 0; for $id (@newList) # Show new stuff first { $blob = get_blob_image ($authorHash->{$id}); $title = $titleHash->{$id}; $title = "Shiterati: $title" if ($categoryHash->{$id} eq "R" || $id =~ /shiterati_/); $title =~ s/ 1$//; # Remove "1" from multiple page title print <$title $titleNew
EOT $count++; } for ($i = 0; $i < 5-$count; $i++) # Now use whatever space is left for random anthologies { $id = $anthList[$i]; $blob = get_blob_image ($authorHash->{$id}); $title = $titleHash->{$id}; $title = "Shiterati: $title" if ($categoryHash->{$id} eq "R" || $id =~ /shiterati_/); $title =~ s/ 1$//; # Remove "1" from multiple page title print <$title $title
EOT } $id = $storyList[0]; # Finally stick a random story at the bottom $blob = get_blob_image ($authorHash->{$id}); print < $titleHash->{$id} EOT } ############################################################ sub textformat_page # assumes most html formatting is in sourceFile { my ($sourceFile, $title, $description, $funcArg) = @_; open (TEXTFILE, "$sourceFile") or die "textformat_page: Cannot open sourceFile=$sourceFile\n"; shite_title($title, $description); while () { chop; next if (/^#/); if (/^\//) # It's a formatter { s/\s+/ /g; @formatter = split / /, $_; if ($formatter[0] eq "/function") { add_home_link($formatter[2]) if ($formatter[1] eq "add_home_link"); add_page_links($formatter[2]) if ($formatter[1] eq "add_page_links"); add_poem_of_the_day() if ($formatter[1] eq "add_poem_of_the_day"); add_pick_of_the_day() if ($formatter[1] eq "add_pick_of_the_day"); add_stuff_today_links() if ($formatter[1] eq "add_stuff_today_links"); add_pooclub_menu() if ($formatter[1] eq "add_pooclub_menu"); add_whatisshite_form() if ($formatter[1] eq "add_whatisshite_form"); add_shitespace_slogan() if ($formatter[1] eq "add_shitespace_slogan"); } else { $dataname = $_; $datatext = $_; $dataname =~ s/^\///; # cut preceding / $dataname =~ s/\s+.*$//; # cut all text after dataname $datatext =~ s/^\/\w+\s*//; # cut /dataname $$dataname = $datatext; } } else { substitute_vars (\$_); add_date_args_to_link (\$_); print $_, "\n"; } } close (TEXTFILE); shite_menubar(); } ############################################################ sub noformat_page # assumes all html formatting is in sourceFile { my $sourceFile = shift(@_); open (INFILE, "$sourceFile") or die "noformat_page: Cannot open sourceFile=$sourceFile\n"; while () { print $_; } close (INFILE); # Note no html title, menubar or copyright. Everything is in the sourceFile. # In fact, we even have to exit here to stop the copyright function being called. exit(0); } ############################################################ sub pages_table # for authors' use only { my ($authorCode, $pick, $category, $pageFormat, $date, $pageId, $title); my $pageType; my $pageCount = 0; shite_title("Pages Table", "The complete catalogue of Shitespace pages"); print <Table Of Shitespace Pages EOT open (INFILE, "$PAGE_INDEX_FILE"); while () { chop; next if (/^#/); next if (/^\s*$/); ($authorCode, $pick, $category, $pageFormat, $date, $pageId, $title) = split /;/, $_; $pageCount++; $category = substr ($category, 0, 1); $category = uc($category); # to upper case $pageId =~ s/^\s+//; $pageId =~ s/\s+$//; $title =~ s/^\s+//; $title =~ s/\s+$//; $pageType = ""; $pageType = "Not Released" if ($category eq "N"); $pageType = "Anthology Of Poetry" if ($category eq "A"); $pageType = "Shiterati Page" if ($category eq "R"); $pageType = "Short Story" if ($category eq "S"); $pageType = "Bible Page" if ($category eq "B"); $pageType = "Epic Page" if ($category eq "E"); $pageType = "Prong Hills Story" if ($category eq "H"); $pageType = "Parochial Plops Page" if ($category eq "L"); $pageType = "Crappalot's Page" if ($category eq "C"); $pageType = "Clagnuts" if ($category eq "X"); print < EOT } close (INFILE); print <
Page Type Page Id Page Title
$pageType  $pageId  $title


Total number of pages: $pageCount

EOT shite_menubar(); } ############################################################ sub write_shite # top level function for generating a Shitespace page - just give it the pageId { # actually, this function doesn't generate a page # but chooses which function is going to be used my $myPageId = shift(@_); my $found = 0; my ($authorCode, $pick, $category, $format, $date, $pageId, $title, $altTitle); my ($pageFormat, $pageNum, $numPages); # Redirect old-style pageIds # $myPageId = "rate" if ($myPageId eq "" || $myPageId eq "shitespace" || # $myPageId eq "home" || $myPageId eq "front" || # $myPageId eq "shite" || $myPageId eq "vote"); # $myPageId = "map" if ($myPageId eq "pages"); # $myPageId = "bowels" if ($myPageId eq "archives"); # $myPageId = "votes" if ($myPageId eq "viewlogs"); # $myPageId = "league" if ($myPageId eq "viewvotes"); # $myPageId = "hits" if ($myPageId eq "viewhits"); $myPageId = convert_pageId($myPageId); open (INFILE, $PAGE_INDEX_FILE) or print "write_shite: Cannot open PAGE_INDEX_FILE=$PAGE_INDEX_FILE

\n"; while () { chop; next if (/^#/); next if (/^\s*$/); ($authorCode, $pick, $category, $format, $date, $pageId, $title, $altTitle) = split /;/, $_; ($pageFormat, $pageNum, $numPages) = split /,/, $format; $pageId =~ s/^\s+//; $pageId =~ s/\s+$//; if ($myPageId eq $pageId) { $found++; last; } } close (INFILE); # strip preceding and trailing whitespace $date =~ s/^\s+//; $date =~ s/\s+$//; $title =~ s/^\s+//; $title =~ s/\s+$//; $altTitle =~ s/^\s+//; $altTitle =~ s/\s+$//; if ($found < 1) { shite_title("Bad Page Id", "$pageId"); print < Please complain to bollocks\@shite.org quoting the above error message.

Links which might work:

EOT return; } # $remote_addr = $ENV{'REMOTE_ADDR'}; # $remote_host = $ENV{'REMOTE_HOST'}; # $remote_user = $ENV{'REMOTE_USER'}; # $http_from = $ENV{'HTTP_FROM'}; # Write to pages log file write_log(); # my $month = substr ($r_yyyymmdd, 0, 6); # $LOG_FILE = "${WRITEDIR}/pages_${month}.log"; # # open (PAGELOG, ">>$LOG_FILE"); # Record hit in log file # print PAGELOG "${r_yyyymmdd};${r_now};${pageId};${target};${remote_addr};${name};${b_yyyymmdd};${u_sex};\n"; # close (PAGELOG); $pageId = "shite" if ($pageId eq "old"); # Finds text/shite.html for old-style front page $pageId = "archives" if ($pageId eq "bowels"); # TODO: Can we add login to view the Shite in production? #if ($UBERACC{'USERNAME'} eq "") # if not logged into poopages if ($siteHost ne "dev") # Only allow the Shite to be accessed in dev environment { my $title = 'CANCELLED'; my $description = "We're not in the nineties anymore"; textformat_page ("$DATADIR/text/cancelled.html", $title, $description); } elsif ($pageId eq "drawing_board" || $pageId eq "drawingboard") { drawing_board(); } elsif ($pageId eq "pages_table") { pages_table(); } elsif ($pageId eq "map") { pages_page(); } elsif ($pageId eq "index") { index_page(); } elsif ($pageId eq "rate") { voting_page(); } elsif ($pageId eq "hits") { view_pagelogs(); } elsif ($pageId eq "votes") { view_logs(); } elsif ($pageId eq "league") { view_votes(); } elsif ($pageFormat eq "M") { multiauthor_page ("$MULTIDIR/${pageId}.txt", $category); } elsif ($pageFormat eq "B") { multiauthor_page ("$BIBLEDIR/${pageId}.txt", $category); } elsif ($pageFormat eq "P" || $pageFormat eq "S") { anthology_page ($pageId, $title, $altTitle, $date, $category, $pageNum, $numPages); } elsif ($pageFormat eq "T") { $description = get_description($category, $altTitle); textformat_page ("$DATADIR/text/${pageId}.html", $title, $description); } elsif ($pageFormat eq "C") { # textformat_page ("$DATADIR/text/crappalots_page.html", "Crappalot's Page", $title, $pageId); crappalots_page ($pageId, $title); } else # unknown format so just read it from a file { my $dir = ""; $category = uc($category); # to upper case $dir = "main" if ($category eq "X"); $dir = "crappalot" if ($category eq "C"); $dir = "par" if ($category eq "L"); $dir = "rat" if ($category eq "R"); $dir = "sto" if ($category eq "H"); $dir = "sto" if ($category eq "S"); $dir = "epics" if ($category eq "E"); $dir = "bible" if ($category eq "B"); $dir = "ant" if ($category eq "A"); if ($dir eq "") { print "write_shite: Cannot find format or sourceFile for pageId=$pageId format=$format category=$category

\n"; return; } my $sourceFile = "$HOMEDIR/$dir/${pageId}.html"; noformat_page($sourceFile); } } ############################################################ sub add_stuff_today_links { my $lightBlue = "#e0f0ff"; my $myBlue1 = "#d0e8ff"; my $myBlue2 = "#b0d8ff"; my $myBlue3 = "#a0c0ff"; my $myBlue4 = "#90b0ff"; my $myBlue5 = "#80a0ff"; my $mediumBlue = "#80a0ff"; $myBlue2 = "#d0e8ff"; $myBlue1 = "#ffffff"; $myBlue2 = "#ffffff"; # Write Calendar print qq(
$u_dayOfWeek
$u_mday
$u_month
$u_year
); show_event ($r_yyyymmdd, 1, "50%", "center"); # Write Stuff Today links print qq(
Home | Prospects | K-days | Events | Welcome
); } ############################################################ sub add_pooclub_menu # a cut down version of pooclub_menus (shows only poopages menu) { my $menuFile = "$POO_MENUS_FILE"; unless (open (MENUFILE, "$menuFile")) { return; } print < pooclub EOT require "pooclub_html.pl"; pooclub_small_slogan(); print < poopages
EOT while () { chop; next if (!/^A;/); next if (/^#/); next if (/^\s*$/); ($recType, $link, $title, $format) = split /;/, $_; $endlink = ""; $asterisk = ""; $indentation = ""; $link = "$POO_CGI?" . $link; $link = ""; $endlink = ""; print < EOT } close (MENUFILE); print <
  $indentation$link$title$endlink  


EOT } ############################################################ sub crappalots_page { my ($pageId, $title) = @_; my $pageHash = {}; my @pageList = (); get_pages(\$pageHash, \@pageList, "c"); # get "Crappalot's Page" list my $listSize = scalar(@pageList); my $pageNo = -1; my $prev = 3; my $next = 3; for ($i = 0; $i < $listSize; $i++) { if ($pageList[$i] eq $pageId) { $pageNo = $i; $i = $listSize; } } if ($pageNo >= 0) { $prev = $pageNo - 1; $next = $pageNo + 1; $prev = $listSize - 1 if ($prev < 0); $next = 0 if ($next >= $listSize); } $prevPageId = $pageList[$prev]; $nextPageId = $pageList[$next]; $prevTitle = $pageHash->{$prevPageId}->{title}; $nextTitle = $pageHash->{$nextPageId}->{title}; shite_title ("Crappalot's Page", "$title"); print <
$nextPageId

Crappalot's Page

$title

EOT # Add specific page text open (CRAPPAGE, "$DATADIR/text/${pageId}.html"); while () { substitute_vars(\$_); print $_; } close (CRAPPAGE); print <

 <-- Previous Page
$prevTitle

Next Page -->
$nextTitle


Crappalot appears 
courtesy of
 ShiteSpace

EOT } ############################################################ sub index_page { my $i; my $shiteHash = {}; my $shiteList = (); my $pageHash = {}; my $pageList = (); get_pages(\$pageHash, \@pageList, "a"); # get all pages get_shitems(\$shiteHash, \@shiteList, "a"); # get all shitems my $shiteListSize = scalar(@shiteList); my $pageListSize = scalar(@pageList); my $shiteCount = 0; for $shiteId (@shiteList) { $shiteId->{title} = $shiteHash->{$shiteId}->{title}; # if ($shiteId->{title} =~ /^A /) {$shiteId->{title} = substr($shiteId->{title}, 2) . ", A";} } shite_title("Index", "Index of Shite Titles"); print < EOT add_home_link (yellow); print <   Index Of Shite

EOT for $shiteId (sort sortbytitle @shiteList) { $shiteTitle = $shiteId->{title}; $author = $shiteHash->{$shiteId}->{author}; $pageId = $shiteHash->{$shiteId}->{pageId}; $pageTitle = $pageHash->{$pageId}->{title}; $pageCategory = $pageHash->{$pageId}->{category}; $initial = substr($shiteTitle, 0, 1); next if (($pageHash->{$pageId}->{category} eq "n") || ($pageHash->{$pageId}->{category} eq "")); # Don't include hidden pages next if ($shiteId eq "washing_up_nude_s"); # Ignore duplicate of this if ($pageId =~ /^shiterati/) {$pageTitle = "Shiterati: ". $pageTitle;} if ($shiteHash->{$shiteId}->{type} eq "B") {$pageTitle = "The Bible";} if ($shiteHash->{$shiteId}->{type} eq "H") {$pageTitle = "Tales From Beyond The Enchanted Prong Hills";} # print qq(shiteId=$shiteId shiteTitle=$shiteTitle author=$author pageId=$pageId pageTitle=$pageTitle # ); if ($initial ne $prevInitial) # Blank line on initial letter change { print qq(); } print qq(); $prevInitial = $initial; $shiteCount++; } print <

Shite Count: $shiteCount
Title Author Page
 
$shiteTitle $author $pageTitle

EOT shite_menubar(); } ############################################################ sub pages_page # site map { my $i; my $pageHash = {}; my $pageList = (); get_pages(\$pageHash, \@pageList, "a"); # get all pages my $pageListSize = scalar(@pageList); my $shiteCount = 0; my $pageType = { X => 'Miscellaneous Pages', A => "Anthologies", E => "Epic Poetry", S => "Short Stories", H => "Tales From Beyond The Enchanted Prong Hills", B => "The Bible", R => "The Shiterati", L => "Parochial Plops", C => "Crappalot's Page", Y => "Splashback - Behind The Scenes", N => "Hidden Pages", W => "War Poetry", U => "Unfinished Shite" }; shite_title("Site Map", "List Of Shitespace Pages"); print < EOT add_home_link (yellow); print <   Shite Map
- Shitespace Pages by Category

EOT for $pageId (@pageList) { $pageTitle = $pageHash->{$pageId}->{title}; $pageCategory = uc($pageHash->{$pageId}->{category}); $pageFormat = uc($pageHash->{$pageId}->{pageFormat}); ($formatCode, $pageNum, $numPages) = split /,/, $pageFormat; next if (($pageCategory eq "N") || ($pageCategory eq "")); # Don't include hidden pages if ($pageId =~ /^shiterati_/) {$pageTitle = "Shiterati: ". $pageTitle;} if ($pageCategory ne $prevPageCategory) # Blank line on change of category { print qq(); } print qq(); $prevPageCategory = $pageCategory; $pageCount++; } print <

Page Count: $pageCount

$pageType->{$pageCategory}
$pageTitle $pageNum  

EOT shite_menubar(); } ############################################################ sub drawing_board { my $i; my $pageHash = {}; my $pageList = (); get_pages(\$pageHash, \@pageList, "n"); # get hidden pages my $pageListSize = scalar(@pageList); my $shiteCount = 0; shite_title("The Drawing Board", "Pages awaiting completion"); print < EOT add_home_link (yellow); print <   The Drawing Board

Welcome to the Shitespace workshop. Those of you who have made it to this page are immensely privileged as we have set up no links here and so you are either here by pure chance or you have been invited to take a look behind the scenes by the authors. If you're not supposed to be here, please leave now.

This page lists all the pages which are still under construction or for some reason we've decided not to give our readers a link to. Apologies if it's a bit messy... hell, no, why should we apologise? It's supposed to be messy! We'll give you an official link to these pages when they're not messy anymore... EOT for $pageId (@pageList) { $pageTitle = $pageHash->{$pageId}->{title}; $pageAltTitle = $pageHash->{$pageId}->{alternativeTitle}; $pageCategory = uc($pageHash->{$pageId}->{category}); $pageFormat = uc($pageHash->{$pageId}->{pageFormat}); ($formatCode, $pageNum, $numPages) = split /,/, $pageFormat; if ($pageId =~ /^shiterati_/) {$pageTitle = "Shiterati: ". $pageTitle;} if ($pageCategory ne $prevPageCategory) # Blank line on change of category { print qq(); } print qq(); $prevPageCategory = $pageCategory; $pageCount++; } print <

Page Count: $pageCount

$pageType->{$pageCategory}
$pageTitle $pageNum $pageAltTitle

EOT shite_menubar(); } ############################################################ 1; ############################################################ # END OF FILE ############################################################