$bezeichnung_kommentar"; $error = "1"; } }
@days = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
@months = ('1','2','3','4','5','6','7','8','9','10','11','12');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$hour2=$hour+$timediff;
$time = sprintf("%02d:%02d:%02d",$hour2,$min,$sec);
$year += 1900;
$FORM{'date'} = "$mday.$months[$mon].$year";
$comments = "$FORM{'message'}";
$comments =~ s/\n/\
/g;
#$comments =~ s/\>/>/g;
#$comments =~ s/\Kommentar enthält ein zu langes Wort!";
&missingfields;
}
if ($error eq "1") {
$pr = "";
$pr .= "
Es wurden ein oder mehrere Felder nicht ausgefüllt, die benötigt werden (s.unten).
Bitte drücke den 'Back'-Button Deines Browsers, um das nachzuholen.";
$pr2 = "$output";
$output = "$pr";
$output .= "$pr2";
&missingfields;
}
$ext = '.guestlog';
#Wie viele Eingabefelder ?
open(LOG,"<$messagepath"."eingabefelder.txt") || &adminerror("File wurde nicht gefunden:
'eingabefelder.txt'");
$log=;
close(LOG);
@fields = split(/\|\%\%\|/, $log);
$FieldsCount=0;
foreach (@fields)
{
$FieldsCount++;
}
print "Content-Type: text/html\n\n";
&header;
print "$font Vorschau:
";
print "";
&footer;
exit;
}
###############################################
# Subroutine: ADMIN
sub admin {
&adminheader;
print "
";
&adminfooter;
}
###############################################
# Subroutine: VIEW
sub view {
$ext = '.guestlog';
#Wie viele Eingabefelder ?
open(LOG,"<$messagepath"."eingabefelder.txt") || &adminerror("File wurde nicht gefunden:
'eingabefelder.txt'");
$log=;
close(LOG);
@fields = split(/\|\%\%\|/, $log);
$FieldsCount=0;
foreach (@fields)
{
$FieldsCount++;
}
#Wie viele Zeilen ?
$howmanylines = 0;
$displayzaehler=0;
open (INFO, "$messagepath"."entrylogs.txt");
@slammie = ;
close(INFO);
foreach $slammie (@slammie)
{
$msnname = "$slammie";
$msnname =~ s/\n//g;
open(GUEST,"<$messagepath$msnname$ext") || &adminerror("Kann Nachricht nicht öffnen: \"$msnname\".");
$guest=;
close(GUEST);
($name, $email, $city, $URL, $homepage, $street, $plz, $bundesland, $country, $phone, $sex, $icq, $cust1, $cust2, $cust3, $cust4, $cust5, $comment,$uploadfile,$date,$ip,$banner,$status) = split(/\|\%\%\|/, $guest);
if ($status ne "OFF") {
$display[$displayzaehler]=$slammie;
$displayzaehler++;
}
$howmanylines++;
}
print "Content-Type: text/html\n\n";
&header;
&header2;
#Welche Seite, Eintrag ?
$linecount = 0;
$howmanylines=$displayzaehler;
@information = @display;
$StartLine = ($ViewPage * $entriesperpage) - $entriesperpage;
$EndLine = $StartLine + $entriesperpage;
#Quickjump?
if ($quickjump) {
&quickjump;
} else {
print "
$font2
";
print "
";
}
if ($ViewPage > 1)
{
foreach $information (@information)
{
if ($linecount < $StartLine)
{
$linecount++;
next;
}
elsif ($linecount < $EndLine)
{
&GetEntry;
$linecount++;
}
}
}
{
foreach $information (@information)
{
if ($linecount < $entriesperpage)
{
&GetEntry;
$linecount++;
}
}
}
&GenerateRemaining;
&footer;
exit;
}
###############################################
# Subroutine: ACCESSCONTROL
sub accesscontrol {
open(LOG,"<$messagepath"."accessallowed.txt");
@allowed=;
close(LOG);
open(CONTROL,"<$messagepath"."accesscontrol.txt") || &adminerror("File wurde nicht gefunden:
'accesscontrol.txt' ");
$controlparams=;
close(CONTROL);
print "Content-Type: text/html\n\n";
print "";
print "";
print "$scriptname - Administration von $website_title (Access-Restriktionen)";
print "";
print "";
print "";
print "";
print "
![\"Guestzilla-Logo\"](\"$imageurl/guestzillaadminlogo.jpg\")
";
print "
";
print "![\"Eingabefelder\"](\"$imageurl/inputfield.gif\")
";
print "
";
print "![\"Allgemeine](\"$imageurl/generalopts.gif\")
";
print "
";
print "![\"Ausgabeoptionen\"](\"$imageurl/outputopts.gif\")
";
print "
";
print "![\"Einträge](\"$imageurl/delposting.gif\")
";
print "
";
print "![\"Einträge](\"$imageurl/editposting.gif\")
";
print "";
print "![\"Badword-Liste\"](\"$imageurl/badword.gif\")
";
print "
";
print "![\"Bild-Upload\"](\"$imageurl/picopts.gif\")
";
print "
";
print "![\"EMail-Optionen\"](\"$imageurl/mailprops.gif\")
";
print "
";
print "![\"Access-Restriktionen\"](\"$imageurl/accesscontrol.gif\")
";
print "
";
print "![\"Emoticon-Übersetzer\"](\"$imageurl/smileytranslate.gif\")
";
($usedomaincheck) = split(/\|\%\%\|/, $controlparams);
open(BAN,"<$messagepath"."bannedip.txt");
@bannedip=
;
close(BAN);
if ($usedomaincheck eq "1") { $radio_checkdomain_0 = "checked";
} elsif ($usedomaincheck eq "0") { $radio_checkdomain_1 = "checked";
} else { $radio_checkdomain_1 = "checked";
}
print "$font Domain-Check durchführen?";
print "";
print "
$font$font Diese IP-Adressen sind gebanned:";
print "
$font2 (Wildcards sind erlaubt (*))
";
print "";
&adminfooter;
}
###############################################
# Subroutine: Accesscontrol2
sub accesscontrol2 {
print "Content-Type: text/html\n\n";
print "";
print "";
print "$scriptname - Administration von $website_title (Access-Restriktionen)";
print "";
print "";
print "";
print "";
print "
";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
open(LOG,">$messagepath"."accesscontrol.txt") || &adminerror("File wurde nicht gefunden:
'accesscontrol.txt'");
print LOG "$FORM{'domaincheck'}|%%|";
close(LOG);
open(LOG,">$messagepath"."accessallowed.txt");
print LOG "$FORM{'allowed'}";
close(LOG);
print "$font
Update der erlaubten Domains erfolgreich.";
&adminfooter;
}
###############################################
# Subroutine: Accesscontrol3
sub accesscontrol3 {
print "Content-Type: text/html\n\n";
print "";
print "";
print "
$scriptname - Administration von $website_title (Access-Restriktionen)";
print "
";
print "";
print "";
print "
";
print "
";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
print "
";
print "";
open(LOG,">$messagepath"."bannedip.txt");
print LOG "$FORM{'bannedip'}";
close(LOG);
print "$font
Update der gesperrten IPs erfolgreich.";
&adminfooter;
}
###############################################
# Subroutine: ADMINHEADER
sub adminheader {
print "Content-Type: text/html\n\n";
print <<"EOM";
$scriptname - Administration
EOM
}
###############################################
# Subroutine: ADMINFOOTER
sub adminfooter {
print <<"EOM";
EOM
}
###############################################
# Subroutine: ADMINERROR
sub adminerror {
local($e) = @_;
&adminheader;
print "
$website_title - Error ";
print "
$e";
&adminfooter;
exit;
}
###############################################
# Subroutine: ADMINERROR2
sub adminerror2 {
local($e) = @_;
print "
$website_title - Error ";
print "
$e";
&adminfooter;
exit;
}
###############################################
# Subroutine: Codehelp
sub codehelp {
print "Content-Type: text/html\n\n";
open(SITEHEAD,"$messagepath"."$codehelp")|| &adminerror2("File wurde nicht gefunden:
'$codehelp'");
@Sitehead=
;
close(SITEHEAD);
foreach $Sitehead (@Sitehead)
{
print "$Sitehead\n";
}
}
###############################################
# Subroutine: Smileyhelp
sub smileyhelp {
print "Content-Type: text/html\n\n";
open(SITEHEAD,"$messagepath"."$smileyhelp")|| &adminerror2("File wurde nicht gefunden:
'$smileyhelp'");
open(EMOTE,"<$messagepath"."emoticons.txt");
@emoticons=;
close(EMOTE);
$smileyout="";
$smileyout .="";
foreach $emoticon (@emoticons) {
($real, $changed) = split(/=/, $emoticon);
$smileyout .="| $font $real | $font ergibt: ![](\"$changed\") |
";
}
$smileyout .="
";
@Sitehead=;
close(SITEHEAD);
foreach $Sitehead (@Sitehead)
{
$Sitehead =~ s/\[SMILEYS\]/$font $smileyout/g;
print "$Sitehead\n";
}
}
###############################################
# Subroutine: HEADER
sub header {
if ($header)
{
open(SITEHEAD,"$messagepath"."$header")|| &adminerror("File wurde nicht gefunden:
'$header'");
@Sitehead=;
close(SITEHEAD);
foreach $Sitehead (@Sitehead)
{
print "$Sitehead\n";
}
}
}
###############################################
# Subroutine: HEADER2
sub header2 {
open(SITEHEAD2,"$messagepath"."$header2")|| &adminerror("File wurde nicht gefunden:
'$header'");
@Sitehead2=;
close(SITEHEAD2);
foreach $Sitehead2 (@Sitehead2)
{
print "$Sitehead2\n";
}
}
###############################################
# Subroutine: FOOTER
sub footer {
if ($footer)
{
open(SITEFOOT,"$messagepath"."$footer")|| &adminerror("File wurde nicht gefunden:
'$footer'");
@Sitefoot=;
close(SITEFOOT);
foreach $Sitefoot (@Sitefoot)
{
print "$Sitefoot";
}
}
}
###############################################
# Subroutine: GET ENTRY
sub GetEntry
{
if ($information ne "") {
$msnname = "$information";
$msnname =~ s/\n//g;
}
open(GUEST,"<$messagepath$msnname$ext") || &adminerror("impossible to open message \"$msnname\".");
$guest=;
close(GUEST);
@TheEntry= split(/\|\%\%\|/, $guest);
for ($i = 0; $i < $FieldsCount; $i++)
{
$entry{$fields[$i]} = $TheEntry[$i];
}
&HtmlMiddle;
}
###############################################
# Subroutine: HTML MIDDLE
sub HtmlMiddle
{
open(LOG,"<$messagepath"."badword.txt");
@banned=;
close(LOG);
open(EMOTE,"<$messagepath"."emoticons.txt");
@emoticons=;
close(EMOTE);
open(GUEST,"<$messagepath$msnname$ext") || &adminerror("Kann Nachricht nicht öffnen: \"$msnname\".");
$guest=;
close(GUEST);
($name, $email, $city, $URL, $homepage, $street, $plz, $bundesland, $country, $phone, $sex, $icq, $cust1, $cust2, $cust3, $cust4, $cust5, $comment,$uploadfile,$date,$ip,$banner,$status) = split(/\|\%\%\|/, $guest);
$comment2 = "";
$comment3 = "";
if ($badwordfilter eq "1") {
foreach $line ($comment) {
foreach $ban (@banned) {
($word1, $word2) = split(/\=/, $ban);
$word1 =~ s/\n//g;
$word2 =~ s/\n//g;
$word1 =~ tr/[A-Z]/[a-z]/;
$word2 =~ tr/[A-Z]/[a-z]/;
$templine=$line;
$templine =~ tr/[A-Z]/[a-z]/;
if ($templine =~ /$word1/) {
#$line =~ tr/[A-Z]/[a-z]/;
$line =~ s/$word1/$word2/gi;
}
}
$comment2 .= "$line";
}
} else {
$comment2 = "";
foreach $line ($comment) {
$comment2 .= "$line";
}
$comment2 .= "$line";
}
if ($allowhtml eq "0") {
$comment2 =~ s/\&/&/g;
$comment2 =~ s/\>/>/g;
$comment2 =~ s/\/LINEBREAK/g;
$comment2 =~ s/\&/&/g;
$comment2 =~ s/\"/"/g;
$comment2 =~ s/\<(.+?)\>//gmi;
$comment2 =~ s/LINEBREAK/
/g;
}
$comment2 =~ s/\n/
/;
$comment2 =~ s/\<br>/\
/g;
$comment2 =~ s/\<BR>/\
/g;
if ($translateemote eq "1") {
########## EMOTICONS ÜBERSETZEN
foreach $emoticon (@emoticons) {
$changed2="";
$changed2.= " = split(/=/, $emoticon);
$changed2.=)
";
$comment2 =~ s/\Q$real\E/$changed2/g;
}
}
###########Guestzilla-Code
if ($code eq "1") {
$comment2 =~ s/\[b\](.+?)\[\/b\]/\$1\<\/B\>/gmi;
$comment2 =~ s/\[i\](.+?)\[\/i\]/\$1\<\/I\>/gmi;
$comment2 =~ s/\[u\](.+?)\[\/u\]/\$1\<\/u\>/gmi;
$comment2 =~ s/\[url\]www.(.+?)\[\/url\]/www.$1<\/a>/gmi;
$comment2 =~ s/\[url=www.(.+?)\]//gmi;
$comment2 =~ s/\[url\]http:\/\/www.(.+?)\[\/url\]/www.$1<\/a>/gmi;
$comment2 =~ s/\[url=http:\/\/www.(.+?)\]//gmi;
$comment2 =~ s/\[url=(.+?)\]//gmi;
$comment2 =~ s/\[url\]http:\/\/(.+?)\[\/url\]/$1<\/a>/gmi;
$comment2 =~ s/\[\/url\]/<\/a>/gmi;
$comment2 =~ s/\[email\](.+?)\@(.+?)\[\/email\]/$1\@$2<\/a>/gmi;
$comment2 =~ s/\[email=(.+?)\]//gmi;
$comment2 =~ s/\[\/email\]/<\/a>/gmi;
}
if ($badwordfilter eq "1"){
$entry{$fields[17]}="$comment2";
}
if ($allowhtml ne "1") {
$entry{$fields[17]}="$comment2";
}
#ICQ
if ($entry{$fields[11]} ne "") {
if ($icqonline eq "0") {
$entry{$fields[11]}="#"."$entry{$fields[11]}";
} elsif ($icqonline eq "1") {
$entry{$fields[11]}="![\"$name](\"http://wwp.icq.com/scripts/online.dll?icq=$entry{$fields[11]}\&img=5\")
"."#$entry{$fields[11]}";
}
}
if ($entry{$fields[21]} ne "") {
$entry{$fields[21]}="![](\"$entry{$fields[21]}\")
";
}
#KEINE URL ?
if ($entry{$fields[3]} eq "") {
$entry{$fields[4]}=$nohomepage;
}
#URL als Homepagename ?
if (($entry{$fields[3]} ne "") &&($urlashomepage eq "1")){
$entry{$fields[4]}=$entry{$fields[3]};
}
open (HELPER,"$messagepath"."$template") || &adminerror("File wurde nicht gefunden:
'$template'");
@TMPLT=;
close (HELPER);
foreach $templ (@TMPLT)
{
for ($i = 0; $i < $FieldsCount; $i++)
{
$platzhalter[$i]=$entry{$fields[$i]};
#Mail-Adresse vorhanden ?
if ($platzhalter[1] ne ""){
#wenn ja, Mailprefix,Mailsuffix hinzufuegen
$templ =~ s/\[$fields[$i]\]/$mailprefix$entry{$fields[$i]}$mailsuffix/gi;
$platzhalter[1]="";
#URL ?
} elsif ($platzhalter[3] ne ""){
#wenn ja, URLprefix,URLsuffix hinzufuegen
$templ =~ s/\[$fields[$i]\]/$URLprefix$entry{$fields[$i]}$URLsuffix/gi;
$platzhalter[3]="";
$URLVORHANDEN="1"
#URL ohne Namen ?
} elsif (($platzhalter[4] eq "") & ($URLVORHANDEN eq "1")){
#Homepagename auf Ausdruck fuer "Kein Homepagename angegeben setzen."
$templ =~ s/\[$fields[$i]\]/$nohomepagename/gi;
$platzhalter[4]="";
$URLVORHANDEN="0"
}
else {
#normal schreiben
$templ =~ s/\[$fields[$i]\]/$entry{$fields[$i]}/gi;
$templ =~ s/\[DELETE\]/![Löschen](\"$deletegif\")
<\/a>/gi;
$templ =~ s/\[MODIFY\]/![Editieren](\"$editgif\")
<\/a>/gi;
}
}
print "$templ";
}
}
###############################################
# Subroutine: GENERATE REMAINING
sub GenerateRemaining
{
$Remaining = ($howmanylines - $linecount) / $entriesperpage;
#if that integer is 1 or greater
if ($Remaining >= 1)
{
($PagesRemain,$TheDecimal) = split(/\./,$Remaining);
if ($TheDecimal)
{
$PagesRemain++;
}
}
elsif (($Remaining > 0) && ($Remaining < 1))
{
$PagesRemain = 1;
}
else
{
$PagesRemain = 0;
}
$TotalPages = ($PagesRemain + $ViewPage);
print "$font2 \n";
if ($ViewPage > 1)
{
$BackPage = $ViewPage - 1;
print "Zur Seite $BackPage\n";
}
if (($ViewPage > 1) && ($PagesRemain > 0))
{
print " \| \n";
}
if ($PagesRemain > 0)
{
$NextPage = $ViewPage + 1;
print "Zur Seite $NextPage.\n";
}
print "\n";
}
###############################################
# Subroutine: GENERATE QUICKJUMP
sub quickjump
{
$Remaining = ($howmanylines - $linecount) / $entriesperpage;
#if that integer is 1 or greater
if ($Remaining >= 1)
{
($PagesRemain,$TheDecimal) = split(/\./,$Remaining);
if ($TheDecimal)
{
$PagesRemain++;
}
}
if ($PagesRemain>0) {
print "
";
for ($i=1;$i <=$PagesRemain;$i++) {
if ($ViewPage eq $i) {
print "$i ";
}else {
print "$i ";
}
}
print "
";
}
elsif ($PagesRemain<=0) {
print "
$font2 Nur eine Seite vorhanden.
";
print "
";
}
}