#!/usr/bin/perl # rgbook.pl singleuser guestbook #usage: rgbook.pl?page=[page (1=first)] # By Niklas Andersson, Epsilon dev. require "formparse.pl"; print "Content-type: text/html", "\n\n"; print < --==HAREM.NU==-- Guestbook -- \n\n
[ABOUT] [MEMBERS] [CHALLENGE] [GREETINGS] [STUFF] [GUESTBOOK] [LOG IN]
\n"; print " \n"; print " \n \n"; print " \n"; print " \n"; print " \n"; print " \n
\n \n


Name:
E-Mail:
Location:
Homepage:


     

End_of_HTML $datafile = "gbook.gbd"; $cntfile = "gbook.gbc"; @posts; @newposts; $postcnt = 0; $i = 0; if($FORM{'page'} eq ""){$FORM{'page'} = 1;} if(!open(DATA, "$cntfile")){print "Problems with accessing guestbook-file on server cnt1\n";&finnishhtml;exit(1);} $postcnt = ; close(DATA); $pages = int(($postcnt)/15)+1; srand(time); if(!open(DATA, "$datafile")){print "Problems with accessing guestbook-file on server data1\n";&finnishhtml;exit(1);} &getposts; close(DATA); &pageout; #print "Pages: " . $pages . "
Posts on the last page: " . ($postcnt%15); &printnavbar; &finnishhtml; exit(0); sub getposts { if($FORM{'page'}>$pages) { $FORM{'page'} = $pages; } if($FORM{'page'}<$pages) { $away = ($postcnt%15); $away += ($pages-$FORM{'page'}-1)*15; $take = 15; } else { $away = 0; $take = ($postcnt%15); } for($i=0;$i<$away;$i++) { $temp = ; } for($i=0;$i<$take;$i++) { $posts[$i] = ; } @posts = reverse @posts; } sub pageout { $i = $postcnt - (($FORM{'page'}-1)*15); foreach $input(@posts) { if($input eq "") { next; } &postout($input); $i--; } } sub postout { @fields = split(/\|/, $_[0]); foreach $field(@fields) { $field =~ s/%pipe%/\|/g; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print " \n[\n"; if($fields[2] eq "") { print " $fields[1]"; } else { print " $fields[1]"; } print "]\n"; if($fields[0] eq "") { print " "; } else { print "from $fields[0]"; } print "  \n"; if(($fields[3] eq "") || ($fields[3] eq "HTTP://") || ($fields[3] eq "http://")) { print " "; } else { print "-homepage-\n"; } print "\n"; print "
\n"; print "\n"; print "
$fields[4]
\n"; print "\n"; print "
\n

"; } sub printnavbar { print "\n"; print " \n"; print " \n"; print "
\n"; print "
"; if($FORM{'page'}>1) { print "<< Nyare "; } for($i=1;$i<$FORM{'page'};$i++) { print "$i "; } print "$FORM{'page'} "; $i++; for($i;$i<=$pages;$i++) { print "$i "; } if($FORM{'page'}<$pages) { print "Äldre >>"; } print "\n
"; print "

\n"; } sub finnishhtml { print "\n \n"; print "

 
\n"; print "
\n
\n\n\n"; }