#!/usr/bin/perl use CGI qw/:standard :cgi-lib/; use POSIX qw(strftime); #open(DEBUG, ">>debug.txt"); $scriptpath = 'gb.pl'; # ex '../cgi-bin/gb.pl' $gbfilepath = 'gb'; # ex '../cgi-data/gb' $dagar_att_spara = 60; %args = Vars; print "Content-Type: text/html\n\n"; #foreach $key (keys %args) { # $value = $args{$key}; # print "$key = $value
"; #} $linenumber = 0; if($args{'name'} ne "") { open(GBFILE, "<$gbfilepath"); while($line = ) { @elements = split(/\|/, $line); next if($elements[3] eq $lastmessage); # print DEBUG "$elements[3], $lastmessage\n"; $lastmessage = $elements[3]; last if($elements[0] < (time - 86400 * $dagar_att_spara)); $tmp[$linenumber++] = $line; } close(GBFILE); @old = @tmp; open(GBFILE, ">$gbfilepath"); $message = substr($args{message}, 0, 2000); $message =~ s/\r//g; $message =~ s/\n/\/g; $message =~ s/\"; print "

Olas gästbok

"; print "Hej alla goa...
"; print "Snälla, sluta med skitsnacket, känns sådär kul. Det är ingen som gillar detta.
"; print "Max storlek på inläggen är 2000 tecken, och det går ej att lägga in fungerande HTML
"; print "Alla IP loggas
"; print "
"; print "Jahå, nu fungerar det inte längre, idioter, spam och reklam har förstört sidan.
"; print "Tyvärr finns det inte så mycket jag kan göra, förslag emottages tacksamt...
"; print "Tack för den tid som varit. Jag kommer inte att ta bort sidan, hoppas att den skall självsaneras...
"; print "¤Ola
"; print "
"; print "

På äldre dagar:
1996-2002
Januari 2003
Februari 2003
Mars 2003
April 2003
Maj - Juni 2003
Juli 2003
Augusti-September 2003
Oktober-November 2003
December 2003 - Januari 2004
Februari 2004 - 15 Maj 2004
16 Maj - 26 juli 2004
27 juli - 5 september 2004

"; print "

"; print "Jag heter:
"; print "Text:


"; print ""; print "

Ladda om sidan...

"; print "
"; open(GBFILE, "<$gbfilepath"); while($line = ) { @elements = split(/\|/, $line); $elements[3] =~ s/\<\;br\>/\/g; $time_string = strftime "%Y-%m-%d %H:%M:%S", localtime($elements[0]); print "Mottaget $time_string från $elements[2]"; print ":

$elements[3]


"; } close(GBFILE); print ""; #close(DEBUG);