#!/usr/bin/perl ############################################################################## # gisBOOK v1.3 # # # Last Modified 16.07.2001 # # http://www.gismoo.de # # webmaster@gismoo.de # ############################################################################## # COPYRIGHT Bestimmungen # # Copyright 2001 gismoo.de All Rights Reserved. # # # # Dieser Script darf frei benutzt werden, solange dieser # # Copyrights Hinweis und alle anderen inerhalb des Scripts bestehen bleibt. # # Auf eine Mail von Euch würde ich mich freuen und ich würde Eure Seite # # bei mir auf gismoo.de als Beispielseite linken! # # Euch gefällt dieses Programm, dann baut, als ein kleines Dankeschön, # # einen Link zu gismoo.de auf Eurer Seite ein. # # # ############################################################################## do ("vars"); print "Content-type: text/html\n\n" ; read(STDIN, my $data, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $data); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///gmi; $value =~ s/;/\;/gmi; $value =~ s/
/\n/gmi; $value =~ s//\>\;/gmi; $value =~ s/\x0d?\n/
/sgmi; $value =~ s/\"/\\"/gmi; $value =~ s/\|/lnm/g; $field{$name} = $value; } my $gbuf = $ENV{'QUERY_STRING'}; for(split/&/,$gbuf){($key , $val) = split/=/;$param{$key} .= $val;} $von = $param{'from'}; $bis = $param{'to'}; &datum; &neuerEintrag if $param{'action'} eq 'neu'; &check if $param{'action'} eq 'admin'; &eintrag if $param{'action'} eq 'eintragen'; &admineintrag if $param{'action'} eq 'admineintrag'; &pwcheck if $param{'action'} eq 'pwcheck'; &lesen if $param{'action'} eq ''; &lesen if $param{'action'} eq 'lesen'; sub eintrag { $name = $field{'name'} ; $email = $field{'email'} ; $homepage = $field{'homepage'} ; $icq = $field{'icq'} ; $aim = $field{'aim'} ; $R1 = $field{'R1'} ; $kommentar = $field{'kommentar'} ; if ($mailcheck==1) { &email_fehlt unless ($field{'email'}); } if ($homepage eq "") { } else { unless ($homepage =~ /http:\/\//i) {$homepagetemp = "http://".$homepage; $homepage=$homepagetemp;} } open (DATA, ">>$datafile") || die "$!"; print DATA "$name|$email|$homepage|$icq|$aim|$R1|$kommentar|$date|$localtime\n" ; close (DATA) ; if($mailadmin==1) { $kommentar =~ s/
/\n/g ; $kommentar =~ s/lnm/\|/g; &send_mail_admin } &lesen; exit; } sub lesen { open(DATA,"<$datafile") || die "Kann $datafile nicht öffnen: $!"; @gaestebuch = ; $count = scalar(@gaestebuch); if ($sort == 1) { @gaestebuch = reverse(@gaestebuch); } close(DATA); if ($count > 0) { &ausgabe; } else { &keinDS; } } sub keinDS { print "$titel"; if ($showbanner==1) { print "

"; } print <

$beschreibung



Eintrag schreiben EINTRAG SCHREIBEN




Noch kein Eintrag im Gästebuch vorhanden !


html print "zurück zur Homepage"; if ($linkadmin eq "1") { print "

Admincenter"; } print "
  

© FREE gisBOOK v1.3 - www.gismoo.de

"; } sub neuerEintrag { print "Gästebuch
     
    

Gästebuch anzeigen

 

 Tragen Sie sich in mein Gästebuch ein:
 Name:
 Email:
 Homepage:
 Bewertung der Homepage:
 Kommentar:

© FREE gisBOOK v1.3 - www.gismoo.de

html exit; } sub ausgabe{ if ($count <= $schrittmacher) { print "$titel"; print ""; if ($showbanner==1) { print "

"; } print "

$beschreibung

"; print "

"; print "Einträge im Gästebuch: $count"; print "

Eintrag schreiben EINTRAG SCHREIBEN"; print "



"; open (DATA, "<$datafile"); foreach (@gaestebuch) { ($name, $email, $homepage, $icq, $aim, ,$R1, $kommentar, $datum_eingabe, $zeit_eingabe) = split(/\|/); $name =~ s/lnm/\|/g; $kommentar =~ s/lnm/\|/g; print ""; print "
"; print ""; print "
"; print "
Am $datum_eingabe um $zeit_eingabe Uhr schrieb $name"; if ($email eq '') { } else { print "  $name"; } if ($homepage eq '') { } else { print "  $homepage"; } if ($icq eq '') { } else { print "  ICQ: ".$icq.""; } if ($aim eq '') { } else { print "  AIM"; } print "  Bewertung:  "; } elsif ($R1 eq 'V2') { print "gut.gif' border='0'>"; } elsif ($R1 eq 'V3') { print "cool.gif' border='0'>"; } elsif ($R1 eq 'V4') { print "naja.gif' border='0'>"; } elsif ($R1 eq 'V5') { print "druecken_auge.gif' border='0'>"; } elsif ($R1 eq 'V6') { print "erstaunt.gif' border='0'>"; } elsif ($R1 eq 'V7') { print "welche_hp.gif' border='0'>"; } elsif ($R1 eq 'V8') { print "schlecht.gif' border='0'>"; } elsif ($R1 eq 'V9') { print "wuetend.gif' border='0'>"; } print "
"; print "$kommentar
"; print "
  

"; } print "

"; print "zurück zur Homepage"; if ($linkadmin eq "1") { print "

Admincenter"; } print "
  

© FREE gisBOOK v1.3 - www.gismoo.de

"; } else { print "$titel"; if ($showbanner==1) { print "

"; } print <

$beschreibung

Einträge im Gästebuch: $count

Eintrag schreiben EINTRAG SCHREIBEN



html if($bis > scalar(@gaestebuch)){$bis = scalar(@gaestebuch);} if($von > scalar(@gaestebuch)){$von = scalar(@gaestebuch)-$schrittmacher;} if($bis <= 0){$bis = $schrittmacher;} if($von <= 0){$von = 0;} for($i=$von;$i<$bis;$i++){ ($name, $email, $homepage, $icq, $aim, $R1, $kommentar, $datum_eingabe, $zeit_eingabe) = split(/\|/,$gaestebuch[$i]); $name =~ s/lnm/\|/g; $kommentar =~ s/lnm/\|/g; $neuvon_plus = $bis ; $neubis_plus = $bis + $schrittmacher; $neuvon_minus = $von - $schrittmacher; $neubis_minus = $von; $ist = scalar(@gaestebuch)-$schrittmacher; if($neuvon_minus+1 > $ist){$neuvon_minus = scalar(@gaestebuch) - $schrittmacher;} print <
Am $datum_eingabe um $zeit_eingabe Uhr schrieb $name html if ($email eq '') { } else { print "  $name"; } if ($homepage eq '') { } else { print "  $homepage"; } if ($icq eq '') { } else { print "  ICQ: ".$icq.""; } if ($aim eq '') { } else { print "  AIM"; } print "  Bewertung:  "; } elsif ($R1 eq 'V2') { print "gut.gif' border='0'>"; } elsif ($R1 eq 'V3') { print "cool.gif' border='0'>"; } elsif ($R1 eq 'V4') { print "naja.gif' border='0'>"; } elsif ($R1 eq 'V5') { print "druecken_auge.gif' border='0'>"; } elsif ($R1 eq 'V6') { print "erstaunt.gif' border='0'>"; } elsif ($R1 eq 'V7') { print "welche_hp.gif' border='0'>"; } elsif ($R1 eq 'V8') { print "schlecht.gif' border='0'>"; } elsif ($R1 eq 'V9') { print "wuetend.gif' border='0'>"; } print "
"; print "$kommentar
"; print "
  

"; } if ($neuvon_minus < 0) { } else { print "\<\< Zurück"; } print " | "; if ($neubis_plus - $schrittmacher >= $count) { } else { print "Vor \>\>"; } print "

"; print "zurück zur Homepage"; if ($linkadmin eq "1") { print "

Admincenter"; } print "
  

© FREE gisBOOK v1.3 - www.gismoo.de

"; } } sub datum { ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @months = ("Januar","Februar","März","April","Mai","Juni","July","August","September","Oktober","November","Dezember"); $localtime = sprintf("%2d:%2d",$hour,$min); $year = $year + 1900; $date = "$mday\. "."$months[$mon]"." $year"; } sub send_mail_admin { open(MAIL,"|$mail_prog -t") ; print MAIL "To: $ihre_email\n"; print MAIL "From: $email\n"; print MAIL "Subject: neuer Eintrag ins Gaestebuch\n\n"; print MAIL "---------------------------------------------------------------------------\n"; print MAIL "Name: $name\n"; print MAIL "Email: $email\n"; if ($homepage eq '') { } else { print MAIL "Homepage: $homepage\n"; } if ($icq eq '') { } else { print MAIL "ICQ: $icq\n"; } if ($aim eq '') { } else { print MAIL "AIM: $aim\n\n"; } print MAIL "Kommentar:\n$kommentar\n"; print MAIL "---------------------------------------------------------------------------\n"; print MAIL "Eingetragen am: ".$date." um: ".$localtime; print MAIL "\n---------------------------------------------------------------------------\n"; print MAIL "Der verwendete Browser: $ENV{'HTTP_USER_AGENT'}"; print MAIL "\n---------------------------------------------------------------------------\n"; close (MAIL); } sub check { print "Gästebuch
     
    

Gästebuch anzeigen

 

 Admincenter Login:

Adminpasswort:


© FREE gisBOOK v1.3 - www.gismoo.de

html } sub falsch { print "Gästebuch
     
    

Gästebuch anzeigen

 

 Admincenter Login:

Falsches Passwort, bitte erneut versuchen !

Adminpasswort:


© FREE gisBOOK v1.3 - www.gismoo.de

html } sub adminedit { $beschreibung =~ s/
/\n/g ; print qq~ Gästebuch
     
    

Gästebuch anzeigen

 

~; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
 Admincenter:
 Pfad zu Ihrem Sendmail Programm: 
 (Nur UNIX Server !!!)
 Pfad zum Bildervereichnis:
 (ohne Backslash (/) am Ende)
 Ihr Name:
 Ihre Homepage:
 Gästebuch Titel:
 Soll ihr Banner im Gästebuch angezeigt werden ?"; print "
 Pfad zum Banner:"; print "
 Möchten sie ein Hintergrundbild verwenden ?"; print "
 Pfad zum Hintergrundbild:"; print "
 Einleitungstext:
 (erscheint zwischen Banner und Gästebuch)		"; print "
 Ihre Email Adresse:"; print "
 Welche Einträge sollen ganz oben angezeigt werden ?"; print "
 Hintergrundfarbe der Seite ?"; print " (z.B. #FFFFFF)
 Farbe für Tabellenrahmen ?"; print "
 Schriftfarbe ausserhalb von Tabellen ?"; print "
 Hintergrundfarbe für die obere Tabellenzeile ?"; print " (z.B. #FFCE9D)
 Schriftfarbe für die obere Tabellenzeile ?"; print "
 Hintergrundfarbe für die untere Tabellenzeile"; print " (z.B. #CCCCCC)
 Schriftfarbe für die untere Tabellenzeile ?"; print "
 Mail bei Eintrag"; print " an Admin senden ?
 (Nur UNIX Server !!!)
 Anzahl Beiträge auf einer Seite"; print "
 Gast muss Email angeben um sich eintragen zu können ?"; print "
 Name ihrer Data Datei
"; print " (ACHTUNG!!! Datei muss auf dem"; print " Server vorhanden sein !!!)
 Link zum Adminbereich anzeigen ?"; print "
 Adminpasswort"; print "
  
  
"; print "

"; print "

© FREE gisBOOK v1.3 - www.gismoo.de

"; } sub pwcheck { $pass = $field{'adminpasswd'}; if ($pass eq $passwd) { &adminedit; } else { &falsch; } exit; } sub admineintrag { $field{'adminbeschreibung'} =~ s/\r\n/
/g ; open (VARS, ">vars"); print VARS "# Pfad zu Ihrem Sendmail Programm\n"; print VARS "\$mail_prog = '".$field{'adminsendmail'}."'\;\n"; print VARS "# Ihr Name\n"; print VARS "\$ihr_name = '".$field{'adminname'}."'\;\n"; print VARS "# Pfad zu den Images\n"; print VARS "\$imagepath = '".$field{'imagepath'}."'\;\n"; print VARS "# Ihre Homepage\n"; print VARS "\$ihre_homepage = '".$field{'adminhomepage'}."'\;\n"; print VARS "# Gaestebuch Titel\n"; print VARS "\$titel = '".$field{'admingaestebuchtitel'}."'\;\n"; print VARS "# Beschreibung des Gästebuchs\n"; print VARS "\$beschreibung = '".$field{'adminbeschreibung'}."'\;\n"; print VARS "# Ihre Email Adresse\n"; print VARS "\$ihre_email = '".$field{'adminmail'}."'\;\n"; print VARS "# Neueste Einträge zuerst = 1 / Älteste Einträge zuerst = 0\n"; print VARS "\$sort = ".$field{'adminsort'}."\;\n"; print VARS "# Hintergrundfarbe der Seite\n"; print VARS "\$bgcolor = '".$field{'adminhintergrundpage'}."'\;\n"; print VARS "# Hintergrundfarbe für die obere Tabellenzeile\n"; print VARS "\$background_1 = '".$field{'adminhintergrundtab1'}."'\;\n"; print VARS "# Hintergrundfarbe für die untere Tabellenzeile\n"; print VARS "\$background_2 = '".$field{'adminhintergrundtab2'}."'\;\n"; print VARS "# Mail bei Eintrag an Admin = 1 / keine Mail an Admin = 0\n"; print VARS "\$mailadmin = ".$field{'adminmailbestaetigung'}."\;\n"; print VARS "# Anzahl Beiträge auf einer Seite\n"; print VARS "\$schrittmacher = ".$field{'adminanzahlbeitraege'}."\;\n"; print VARS "# Name ihrer Data Datei (muss nicht geändert werden)\n"; print VARS "\$datafile = '".$field{'admindatadatei'}."'\;\n"; print VARS "# Link zum Adminbereich anzeigen ?\n"; print VARS "\$linkadmin = ".$field{'adminlink'}."\;\n"; print VARS "# Gast muss Email Adresse angeben ? 1 = Ja / 0 = Nein\n"; print VARS "\$mailcheck = ".$field{'adminmailcheck'}."\;\n"; print VARS "# Passwort für Adminbereich\n"; print VARS "\$passwd = '".$field{'adminpasswort'}."'\;\n"; print VARS "# Schriftfarbe ausserhalb von Tabellen\n"; print VARS "\$fontpage = '".$field{'fontpage'}."'\;\n"; print VARS "# Schriftfarbe erste Tabellenzeile\n"; print VARS "\$fontfirstline = '".$field{'fontfirstline'}."'\;\n"; print VARS "# Schriftfarbe zweite Tabellenzeile\n"; print VARS "\$fontsecondline = '".$field{'fontsecondline'}."'\;\n"; print VARS "# Farbe für den Tabellenrahmen\n"; print VARS "\$tablecolor = '".$field{'tablecolor'}."'\;\n"; print VARS "# Pfad zum Banner\n"; print VARS "\$banner = '".$field{'banner'}."'\;\n"; print VARS "# Soll ein Banner angezeigt werden ?\n"; print VARS "\$showbanner = ".$field{'showbanner'}."\;\n"; print VARS "# Soll eine Hintergrundgrafik angezeigt werden ?\n"; print VARS "\$showbimage = ".$field{'showbimage'}."\;\n"; print VARS "# Pfad zu Ihrer Hintergrundgrafik\n"; print VARS "\$backimage = '".$field{'backimage'}."'\;\n"; close (VARS); print < ... sie werden weitergeleitet


Die Einstellungen wurden erfolgreich gespeichert !

Falls Sie nicht automatisch weitergeleitet werden, bitte hier klicken
html exit; } sub email_fehlt { print <Fehlende Email Adresse

    

      

     

Sie haben Ihre Email Adresse nicht angegeben !

    
Ohne Angabe Ihrer Email Adresse ist kein Eintrag in´s Gästebuch möglich !
   
mit dem ZURÜCK Button Ihres Browsers kommen Sie zur vorherigen Seite.

 

© FREE gisBOOK v1.3 - www.gismoo.de

html exit; }