#!/usr/bin/perl $0 =~ /^(.*)[\/\\].*/ && chdir ($1); $| = 1; use CGI; use CGI::Carp qw(fatalsToBrowser); use vars qw($mailprog,$picpath); use strict; my $mailprog = "/usr/sbin/sendmail -t"; my $picpath = "/images"; my $captchadir = "../captcha"; my $caplog = "../cgi-bin/caplog"; my $wwwadr = "http://www.dolzianer.de/cgi-bin/publicbook.pl"; my $title = "Gästebuch"; my $eintraege = 10; my $zeichen = 500; my $woerter = 50; my $lock = 0; my $zeitstd = 0; my $query = new CGI; my %PARA = &parse_para(); my $bookdat = "publicbook.dat"; my $bookpath = "../gaestebuch/"; my $bookpl = "publicbook.pl"; my $htmmain = "gaestebuch_main_public.html"; my $htminst = "gaestebuch_eintrag.html"; if ($PARA{'func'} eq "captcha") { &get_captcha(); exit; } elsif ($PARA{'func'} eq "form") { &sign_form(); } elsif ($PARA{'func'} eq "new") { &new(); } else { &show(); } sub show { my ($GUESTAMOUNT,$GUESTDATA)=&read_data(); $PARA{'action'} =~ s/\D//g; $PARA{'action'} ||= 0; $PARA{'action'} = 0 if ($PARA{'action'}>$GUESTAMOUNT); my $anzeige_von = $PARA{'action'}; my $anzan = $eintraege; my $nocache = time; my ($out); open (HTML, "< $bookpath/$htminst") || die "Kann die Datei -$bookpath/$htminst- nicht öffnen : $! "; my @html=; close(HTML); my $html=join('',@html); for my $x ($anzeige_von .. $anzeige_von+$anzan-1) { last if ($x>=$GUESTAMOUNT); my $html_tmp = $html; my $hp = "keine Homepage"; my $em = "keine E-Mail"; if ($GUESTDATA->[$x][4] =~ /http:\/\/.*\./) { $hp="[$x][4]\" target=\"new\">$GUESTDATA->[$x][4]"; } if ($GUESTDATA->[$x][2] =~ /.*\@.*\..*/) { $em="[$x][2]\">$GUESTDATA->[$x][2]"; } if ($GUESTDATA->[$x][6]) { $GUESTDATA->[$x][6]="
$GUESTDATA->[$x][6]
"; } $html_tmp =~ s//$GUESTDATA->[$x][6]/ig; $html_tmp =~ s//$GUESTDATA->[$x][1]/ig; $html_tmp =~ s//$GUESTDATA->[$x][3]/ig; $html_tmp =~ s//$em/ig; $html_tmp =~ s//$hp/ig; $html_tmp =~ s//$GUESTDATA->[$x][5]/ig; $html_tmp =~ s//$picpath/ig; $out .= $html_tmp; } my $anzeige_zurueck = $anzeige_von-$anzan; my $anzeige_weiter = $anzeige_von+$anzan; my $anzeige_von = $anzeige_von+1; my $anzeige_bis = $anzeige_von+$anzan; $out .= qq(
); if($anzeige_zurueck >= 0) { $out .= qq(Vorherige $anzan ...); } else { $out .= qq( ); } if ($anzeige_weiter>$GUESTAMOUNT) { $anzeige_bis=$GUESTAMOUNT; } $out .= qq~ $anzeige_von-$anzeige_bis \| $GUESTAMOUNT Einträge ~; if($anzeige_weiter<$GUESTAMOUNT) { $out .= qq(Nächste $anzan ...) ; } else { $out .= qq( ) ; } $out .= qq(
) ; print $query->header('text/html'); print &parse_tmpl($out,$GUESTAMOUNT) ; } sub new { my %FM=&parse_form() ; if (!$FM{'name'} || !$FM{'com'} || (length($FM{'com'})>$zeichen && $zeichen>0 ) ) { &er_form(\%FM); } my $errcode = &check_captcha($FM{'capback'}); if ($errcode) { &er_captcha($FM{'capback'}); } $FM{'com'} =~ s//gi; foreach my $key (keys %FM) { $FM{$key} =~ s/\&/\&\;/g; $FM{$key} =~ s/"/\"\;/g; $FM{$key} =~ s/\cM\n/
/g; $FM{$key} =~ s/\n\cM/
/g; $FM{$key} =~ s/\cM/
/g; $FM{$key} =~ s/\n/
/g; $FM{$key} =~ s/\|/\//g; my @text=split(/\s+/,$FM{$key}); my $textok ; foreach my $word (@text){ if ( length($word) > $woerter ) { my @chars=split(//,$word); my $wordout=""; for(my $i=0; $i<= $#chars/$woerter; $i++) { $wordout=$wordout." ".substr($word,$i*$woerter,$woerter); } $textok .= "$wordout " if ($wordout); } else { $textok .= "$word " if ($word); } } $FM{$key} = $textok; $FM{$key} =~ s/\s+/ /g; $FM{$key} =~ s/\s+/ /g; $FM{$key} =~ s/^\s+//g; $FM{$key} =~ s/\s+$//g; } my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+(3600*$zeitstd)); my $datum = sprintf "%02d.%02d.%04d - %02d:%02d" , $mday , $mon+=1 ,$year+=1900 , $hour , $min; open (DATNEW , ">> $bookpath/$bookdat") || die "Kann die Datei -$bookpath/$bookdat- nicht öffnen: $! "; flock(DATNEW,2) if ($lock==1); print DATNEW time."\|$FM{'name'}\|$FM{'email'}\|$FM{'com'}\|$FM{'url'}\|$datum\|\|$ENV{'REMOTE_ADDR'}\|\n"; close (DATNEW); print $query->redirect("$wwwadr?func=show&action=0&nocache=".time); } sub er_captcha { my $errcap = shift ; my $errmark = " X<\/b><\/font> "; my $x_hinweis = "Die Buchstabenkombination $errcap ist falsch!"; &sign_form($x_hinweis,,,); exit; } sub er_form { my $FM = shift ; my $errmark = " X<\/b><\/font> "; my $x_hinweis = "Ihr müßt mindestens den Namem und einen Kommentar eintragen."; my $x_name=$errmark if (!$FM->{'name'}); my $x_text=$errmark if (!$FM->{'com'}); my ($x_mail,$x_url); if ( $zeichen>0 && length($FM->{'com'})>$zeichen ) { $x_hinweis=qq(Maximal zulässige Länge von $zeichen Zeichen überschritten!
 
); } &sign_form($x_hinweis,$x_name,$x_mail,$x_url,$x_text); exit; } sub sign_form { my ($x_hinweis,$x_name,$x_mail,$x_url,$x_text) = @_; my ($GUESTAMOUNT) = &read_data(); my %FM = &parse_form(); my ($out); $FM{'url'}="http://" unless ($FM{'url'}) ; $FM{'com'} =~ s/\n//g ; $out = qq~
~; if ($x_hinweis) { $out .= qq~ ~; } $out .= qq~

 Fehler:
 
   $x_hinweis
 Name: $x_name
 Email: $x_mail
 Kommentar:
 $x_text
 
   Code eingeben:
 

~; print $query->header('text/html'); print &parse_tmpl($out,$GUESTAMOUNT); } sub read_data { my @guest; my $guests=0; open (DAT , "< $bookpath/$bookdat") || die "Kann die Datei -$bookpath/$bookdat- nicht öffnen: $! "; while ( my @data=split(/\|/,) ) { push ( @guest , [@data] ); } close(DAT); @guest = reverse @guest; $guests = $#guest+1; return($guests,\@guest); } sub parse_tmpl { my ($in,$dd)=@_; my ($ix2,$ix3); my $nocache=time; open (HTML , "< $bookpath/$htmmain") || die "Kann die Datei -$bookpath/$htmmain- nicht öffnen : $! "; my @tmpl=; close(HTML); my $tmpl = join('',@tmpl); my $ddout=qq~