$WELCOME

\n"; print '

Sendepause

'; exit 0; $new = CGI->new(); # get request $URL = 'http://www.verunsicherung.de/gaestebuch'; # capture script URL print '

Herzlich willkommen in meinem Gästebuch! Hier könnt '; print 'Ihr Eure Meinung über die Website kundtun, Kommentare zur '; print 'EAV oder zu Gott und die Welt ablassen oder ganz einfach Euer Herz '; print 'ausschütten. Echte Helden wissen: Die EAV hat auf jede Frage eine '; print 'Antwort! Also keine Scheu und in das Gästebuch eintragen:

'; spam_blacklist($new->param("name")); if (($new->param("name") ne "") && (int($new->param("rfield")) <= 1)) { # Robots Abwehr bail("Es muss leider Javascript aktiviert sein!"); } if ($CAPITALIZE) { # capatalize visitors name my $name = $new->param("name"); $name =~ s/([a-zA-Z0-9üÜöÖäÄß]+)/\u$1/g; $new->param("name",$name); } if ($new->param("message") =~ m/\S/) { # new (non-null) message if ($BLOCKIMAGES && $new->param("message") =~ m/<\s*IMG\s*.*SRC\s*=/i) { $sorry = 'Bitte keine Bilder einfügen!'; } elsif ((uc($new->param("name")) eq "WEBMASTER") && ($new->param("message") =~ m/^\#\#\#ADD$DoNt_LeTmE17$ /)) { $add = $new->param("message"); $add =~ s/\#\#\#ADD$DoNt_LeTmE17$ //; $modified = 1; system("/bin/cp $GUESTFILE \"$GUESTFILE.\`/bin/date\`\""); } elsif ($new->param("message") =~ m/<\/?[a-zA-Z][^>]*>/i || $new->param("message") =~ m/\[url.*\]/) { $sorry = 'Bitte keinen HTML-Code einfügen!'; } elsif (!($new->param("name") =~ m/\S/)) { $sorry = 'Du musst einen Namen eingeben.'. ' [Kreativität ist gefragt!]'; } else { my $message = $new->param("message"); $message =~ s/[\n\r]+$//; $new->param("message", $message); $timestamp = get_time(); $new->param("date", $timestamp); # set the current date/time $new->param("agent",$ENV{'HTTP_USER_AGENT'}); # save remote agent $ip = $ENV{'REMOTE_ADDR'}; # save remote host address $remotehost = hostname($ip) || $ip; $new->param("host", $remotehost); @entries = ($new); # save message to array $modified = 1; system("/usr/sbin/sendmail morn < guestbk_new_entry.txt"); }; }; if ($new->param("delete") eq "DoNt_LeTmE17") { $delete_pos = $new->param("pos"); $modified = 1; system("/bin/cp $GUESTFILE \"$GUESTFILE.`/bin/date`\""); } if ($new->param("showemails") eq "yes") { $showemails = -1; } # open the file for read-write (preserving old contents) if (-e $GUESTFILE) { open(CHANDLE, "+< $GUESTFILE") || bail("cannot open $GUESTFILE: $!"); } else { open(CHANDLE, "+> $GUESTFILE") || bail("cannot open $GUESTFILE: $!"); } # get exclusive lock on the guestbook open (LOCKHANDLE, ">/tmp/gbl314159265"); #flock(CHANDLE, LOCK_EX) || bail("cannot flock $GUESTFILE: $!"); flock(LOCKHANDLE, LOCK_EX) || bail("cannot flock lockfile: $!"); $count = 0; # grab up to $MAXSAVE old entries, newset first while (!eof(CHANDLE) && @entries < $MAXSAVE) { $entry = CGI->new(\*CHANDLE); # pass the filehandle by reference if ($delete_pos != $count) { if (($count == 0) && ($add ne "")) { $entry->param("message", $entry->param("message") . "

Antwort: " . $add . ""); }; push @entries, $entry; }; $count++; } if ($modified) { seek(CHANDLE, 0, 0) || bail("cannot rewind $GUESTFILE: !"); foreach $entry (@entries) { $entry->save(\*CHANDLE); # pass the filehandle by reference } truncate(CHANDLE, tell(CHANDLE)) || bail("cannot truncate $GUESTFILE: $!"); } close(CHANDLE) || bail("cannot close $GUESTFILE: $!"); close(LOCKHANDLE) || bail("cannot close lockfile: $!"); print "

\n"; print start_form(-onSubmit=>'return spamclock();', -name=>'rform', '-accept-charset'=>'utf-8'); print $new->hidden( -NAME => "rfield", -DEFAULT => ""); print "

Name:	", $new->textfield( # sticky name field -NAME => "name", -SIZE => 30); print "
Mail/Website:	\n", $new->textfield( # sticky email field -NAME => "email", -SIZE => 30), " (optional, Mail wird nicht veröffentlicht)

\n"; print "

Nachricht:

\n", $new->textarea( -NAME => "message", -OVERRIDE => 1, # clears previous message -ROWS => 5, -COLUMNS => 60), "

\n"; print submit("Abschicken"); print end_form; print "

\n"; print "

$sorry

", hr if ($sorry); # display user entry error message $page = $new->param("page") || 1; # get page to be displayed if ($page > 1) { # print "go back" message if needed $newpage = $page-1; print "

vorherige $PERPAGE Einträge

\n"; } $number=0; foreach $entry (@entries) { if (($page-1)*$PERPAGE <= $number) { # display only the proper if ($number < $page*$PERPAGE) { # number of messages for each page $formatted_message = $entry->param("message"); $formatted_message =~ s/(.+)\n/$1
/g; # preserve line breaks $link = $entry->param("email"); printf ("

"); if ($link) { if ($link =~ m/@/) { if ($showemails) { printf ("%s\n", $link, $entry->param("name")); } else { printf ("%s\n", $entry->param("name")); } } else { $link =~ s/^http:(\/\/|\\)//; printf ("%s\n", $link, $entry->param("name")); }; } else { printf ("%s\n", $entry->param("name")); }; printf (" %s

%s\n", $entry->param("date"), $formatted_message ); }; }; $number++; } $remaining = $count-$PERPAGE*$page; # number of older messages $max = $count; if ($remaining > 0) { if ($remaining < $PERPAGE) { # determine number on next page $next = $remaining; } else { $next = $PERPAGE; }; $newpage = $page + 1 ; # next page number print "

insgesamt $max Einträge, $remaining verbleibend
"; print " nächste $PERPAGE Einträge

\n"; }; print'

[zum Seitenanfang] [zurück zur Homepage] [Impressum]

$WELCOME

aufgeschnappt

gesammelt

geschrieben

kommuniziert

$WELCOME