#!/usr/bin/perl
###########################################################################################
# gbook.cgi
# GEOs G”stebuch V. 2.9 - 17. April 2000
#
# GEOsWEB
# http://www.geosweb.de
# admin@geosweb.de
#__________________________________________________________________________________________
#
# Copyright (C) 1999 GEOsWEB - Georg Bartsch, J–rg von Livonius
# ALLE RECHTE VORBEHALTEN
#
# GEOs G”stebuch ist f¸r private Nutzer kostenlos. Gewerbliche Nutzer bitten wir um R¸cksprache (admin@geosweb.de).
# Das Kopieren und Weitergeben des Dokuments ist NICHT erlaubt.
# Das Ÿndern des Skriptes ist NICHT erlaubt, mit Ausnahme des Suffix (anstelle .cgi z.B. .pl).
# Die Konfigurationsdatei darf mit Ausnahme dieser Passage ge”ndert werden.
# Das w–rtliche Ðbernehmen von einzelnen Passagen aus diesem Dokument in eigene Projekte ist NICHT erlaubt.
# Die Copyright-Angaben und Hinweise zu GEOsWEB d¸rfen aus keiner Datei entfernt werden und m¸þen stets lesbar sein.
#
# Bei Ver–ffentlichung dieses Dokuments ist es eine feine Geste, uns eine Nachricht zukommen zu lassen.
###########################################################################################

BEGIN {
  $usemod = 0;
  if (eval("require LWP::Simple")) {
    import LWP::Simple;
    $usemod = 1;
  }
}

$VER = "V. 2.9 - 17. April 2000";
$time = time;
print "Content-type: text/html\n\n";
get_input();
require "gbook.cfg";
if ($time_zone !~ /\d/) { $time_zone = 0; }
if ($show_time !~ /0|1/) { $show_time = 1; }
if ($maxentries !~ /\d+?/) { $maxentries = 25; }
if ($show_search !~ /\d+?/) { $show_search = 25; }
if ($autodel !~ /\d+?/) { $autodel = 0; }
if ($html !~ /0|1/) { $html = 0; }
if ($check_bw !~ /0|1/) { $check_bw = 1; }
if ($check_ip !~ /0|1/) { $check_ip = 0; }
if ($print_log !~ /0|1/) { $print_log = 1; }
if ($max_word !~ /\d+?/) { $max_word = 50; }
if ($post_break !~ /\d+?/) { $post_break = 3; }
if ($check_host !~ /0|1/) { $check_host = 1; }
action();

###########################################################################################

sub action {
  if ($query{'action'} eq "preview") { preview(); }
  elsif ($query{'action'} eq "newpost") { newpost(); }
  elsif ($query{'action'} eq "submit") { submit(); }
  elsif ($query{'action'} eq "search") { search(); }
  elsif ($query{'action'} eq "admin") { admin(); }
  elsif ($query{'action'} eq "alogin") { alogin(); }
  elsif ($query{'action'} eq "edit_entry") { edit_entry(); }
  elsif ($query{'action'} eq "change_entry") { change_entry(); }
  elsif ($query{'action'} eq "adelete") { adelete(); }
  elsif ($query{'action'} eq "delbytime") { delbytime(); }
  elsif ($query{'action'} eq "asearch") { asearch(); }
  elsif ($query{'action'} eq "badword") { badword(); }
  elsif ($query{'action'} eq "delbw") { delbw(); }
  elsif ($query{'action'} eq "addbw") { addbw(); }
  elsif ($query{'action'} eq "ipblock") { ipblock(); }
  elsif ($query{'action'} eq "delip") { delip(); }
  elsif ($query{'action'} eq "addip") { addip(); }
  elsif ($query{'action'} eq "setup") { setup(); }
  elsif ($query{'action'} eq "save_setup") { save_setup(); }
  elsif ($query{'action'} eq "bugrep") { bugrep(); }
  elsif ($query{'action'} eq "sendbug") { sendbug(); }
  elsif ($query{'action'} eq "chpasswd") { chpasswd(); }
  elsif ($query{'action'} eq "change_login") { change_login(); }
  elsif ($query{'action'} eq "logfile") { logfile(); }
  elsif ($query{'action'} eq "del_log") { del_log(); }
  elsif ($query{'action'} eq "about") { about(); }
  elsif ($query{'action'} eq "set_passwd") { set_passwd(); }
  else { view(); }
}

###########################################################################################

sub view {
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);

  print "$html_header\n$html_body\n";
  print "$post_text\n";
  unless ($show_search == 0) {
        if ($show_search == 1 || $#BOOK > $show_search) {
          print <<EOF;
          <p><table align=center border=0 cellspacing=0 cellpadding=3>
          <form method=POST action="$cgi_url">
          <input type=hidden name="action" value="search">
          <tr><td>$searcht</td><td><input type=text name="searchv" size=20 maxlength=50 class="form1"></td>
          <td><input type=submit value="$searchb" class="form2"></td></tr>
          </form></table>
EOF
        }
  }
  print "<p>\n";
  if ($maxentries > 0) {
        unless ($linkup) { $linkup = 1; }
        if (!$query{'next'}) { $nexts = 10; } else { $nexts = $query{'next'}; }
        $dmax = $#BOOK;
        $nextp = $nexts + 10;
        $nextm = $nexts - 10;
        $linkupm = $nexts - 19;
        $linkupp = $nexts + 1;
        $countlink = $#BOOK / $maxentries;
        $#BOOK = $maxentries * $linkup;
        $splita = ($maxentries * $linkup) - $maxentries + 1;
        splice(@BOOK, 0, $splita);
        for ($i = $nextm; $i < $countlink; $i++) {
          $linku = $i;
          $linku++;
          while ($linku <= $nexts && $dmax > $maxentries) {
                if ($linku >= $countlink && $linkup == $linku) { print "[ <span style=\"color:$acolor\">$linku</span> ]"; }
                elsif ($linku >= $countlink && $linkup != $linku) { print "<a href=\"$cgi_url?next=$nexts&linkup=$linku\" onMouseover=\"status='SEITE $linku'; return true\" onMouseout=\"status=''; return true\">[ <strong>$linku</strong> ]</a>"; }
                elsif ($linku == $nexts && $linkup == $linku) { print "[ <span style=\"color:$acolor\">$linku</span> ]"; }
                elsif ($linku == $nexts) { print "<a href=\"$cgi_url?next=$nexts&linkup=$linku\" onMouseover=\"status='SEITE $linku'; return true\" onMouseout=\"status=''; return true\">[ <strong>$linku</strong> ]</a>"; }
                elsif ($linku == $linkup) { print "[ <span style=\"color:$acolor\">$linku</span> ] - "; }
                else { print "<a href=\"$cgi_url?next=$nexts&linkup=$linku\" onMouseover=\"status='SEITE $linku'; return true\" onMouseout=\"status=''; return true\">[ <strong>$linku</strong> ]</a> - "; }
                last;
          }
        }
        if ($linku > 10) {
          print "<br>\n";
          $nexte = $linku;
          while ($nexte !~ /\d+?0$/) { $nexte++; }
          if ($nexts > 20) { print "<a href=\"$cgi_url?action=view&next=0&linkup=0\" onMouseover=\"status='FIRST SITE'; return true\" onMouseout=\"status=''; return true\"><strong>[ &lt;&lt; ]</strong></a> - "; }
          else { print "[ &lt;&lt; ] - "; }
          if ($nexts > 10) { print "<a href=\"$cgi_url?action=view&next=$nextm&linkup=$linkupm\" onMouseover=\"status='BACK'; return true\" onMouseout=\"status=''; return true\"><strong>[ &lt; ]</strong></a> - "; }
          else { print "[ &lt; ] - "; }
          if ($linku > $nexts) { print "<a href=\"$cgi_url?action=view&next=$nextp&linkup=$linkupp\" onMouseover=\"status='NEXT'; return true\" onMouseout=\"status=''; return true\"><strong>[ &gt; ]</strong></a> - "; }
          else { print "[ &gt; ] - "; }
          if ($linku > ($nexts + 10)) { print "<a href=\"$cgi_url?action=view&next=$nexte&linkup=$linku\" onMouseover=\"status='LAST SITE'; return true\" onMouseout=\"status=''; return true\"><strong>[ &gt;&gt; ]</strong></a>"; }
          else { print "[ &gt;&gt; ]"; }
        }
        unless ($dmax <= 1) { print "<p>$dmax $show_count"; if ($dmax > $maxentries) { print " - Seite $linkup von $linku\n<p>\n"; } }
  }

  else { unless ($#BOOK <= 1) { print "$#BOOK $show_count\n<p>\n" } }

  foreach $line (@BOOK) {
        if ($line =~ /^\d+?\|/) {
          chomp($line);
          $line =~ s/\s$//g;
          ($numb, $timeb, $nameb, $emailb, $dateb, $commentb, $urlb, $titleurlb) = split(/\|/,$line);
          $tcheck = substr($dateb, 0, 10);
          print "<p>$book_table\n<tr bgcolor=\"$bgc\">\n<td align=$alignrow1>";
          if ($tcheck eq "$mday.$mon.$year" && $today ne "0") { print "$today "; }
          if ($emailb) { print "<a href=\"mailto:$emailb\"><strong>$nameb</strong></a>"; }
          else { print "<strong>$nameb</strong>"; }
          print " - $dateb";
          print "</td></tr><tr><td>$commentb</td></tr>";
          if ($urlb && $titleurlb) { print "<tr><td><li><a href=\"$urlb\" target=\"_blank\">$titleurlb</a></li></td></tr>"; }
          if ($urlb && !$titleurlb) { print "<tr><td><li><a href=\"$urlb\" target=\"_blank\">$urlb</a></li></td></tr>"; }
          print "</table>\n";
          unless ($hrentry eq "0") { print "<p>$hrentry\n"; }
        }
  }
  print "$html_footer2";
  exit;
}

###########################################################################################

sub newpost {
  if ($ENV{'HTTP_USER_AGENT'} !~ /msie/i) { $tcols = 23; $tsize = 20;}
  else { $tcols = 41; $tsize = 30; }
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function chkFORM1() {
        if(document.FORM1.name.value == "") { alert("Sie haben keinen Namen eingegeben!"); { document.FORM1.name.focus(); return false; } }
        if(document.FORM1.email.value != "" && document.FORM1.email.value.indexOf('\@') == -1) {
          alert("FEHLER:\\nSie haben keine g¸ltige eMail angegeben!"); {
                document.FORM1.email.focus(); return false;
          }
        }
        if(document.FORM1.comment.value == "") { alert("Sie haben keinen Kommentar eingegeben!"); { document.FORM1.comment.focus(); return false; } }
        if(document.FORM1.url.value == "" && document.FORM1.titleurl.value != "") {
          alert("FEHLER:\\nWenn Sie einen Linktitel angeben, sollten Sie auch eine URL eintragen!"); {
                document.FORM1.url.focus(); return false;
          }
        }
  }
  //-->
  </script>
  $html_body
  <h4>new message</h4>
  <table align=center border=0 cellspacing=2 cellpadding=2>
  <form method=POST action="$cgi_url" name="FORM1" onSubmit="return chkFORM1()">
  <input type=hidden name="action" value="preview">
  <tr><td bgcolor="$bgc">name:</td><td><input type=text name="name" size=$tsize maxlength=20 class="form1"></td></tr>
  <tr><td bgcolor="$bgc">email:</td><td><input type=text name="email" size=$tsize maxlength=40 class="form1"></td></tr>
  <tr><td bgcolor="$bgc">message:</td><td><textarea cols=$tcols rows=10 name="comment" wrap="soft" class="form1"></textarea></td></tr>
  <tr><td bgcolor="$bgc">Link-URL:</td><td><input type=text name="url" size=$tsize maxlength=50 class="form1"></td></tr>
  <tr><td bgcolor="$bgc">title of link:</td><td><input type=text name="titleurl" size=$tsize maxlength=50 class="form1"></td></tr>
  <tr bgcolor="$bgc"><th colspan=2><input type=submit value="&nbsp;&nbsp;&nbsp;&nbsp;preview&nbsp;&nbsp;&nbsp;&nbsp;" class="form2">
  <input type=submit name="direkt" value="&nbsp;&nbsp;&nbsp;send&nbsp;&nbsp;&nbsp;" class="form2">
  <input type=reset value="reset" class="form2"></th></tr>
  </form>
  </table>
  <SCRIPT TYPE="text/javascript">
  <!--
  document.forms[0].name.focus()
  //-->
  </SCRIPT>
  $html_footer
EOF
  exit;
}

###########################################################################################

sub preview {
  if ($query{'direkt'} && !$query{'npreview'}) { submit(); exit; }
  check_form();
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function chkFORM1() {
        if(document.FORM1.name.value == "") { alert("FEHLER:\\nSie haben keinen Namen eingegeben!"); { document.FORM1.name.focus(); return false; } }
        if(document.FORM1.email.value != "" && document.FORM1.email.value.indexOf('\@') == -1) {
          alert("FEHLER:\\nSie haben keine g¸ltige eMail angegeben!"); {
                document.FORM1.email.focus(); return false;
          }
        }
        if(document.FORM1.comment.value == "") { alert("FEHLER:\\nSie haben keinen Kommentar eingegeben!"); { document.FORM1.comment.focus(); return false; } }
        if(document.FORM1.url.value == "" && document.FORM1.titleurl.value != "") {
          alert("FEHLER:\\nWenn Sie einen Linktitel angeben, sollten Sie auch eine URL eintragen!"); {
                document.FORM1.url.focus(); return false;
          }
        }
  }
  //-->
  </script>
  $html_body
  <div align=center>
  $preview
EOF

  print "<p>$book_table\n<tr bgcolor=\"$bgc\">\n<td align=$alignrow1>";
  if ($email) { print "<a href=\"mailto:$email\"><strong>$name</strong></a>"; }
  else { print "<strong>$name</strong>"; }
  print " - $date";
  print "</td></tr><tr><td>$comment</td></tr>";
  if ($url && $titleurl) { print "<tr><td><li><a href=\"$url\" target=\"_blank\">$titleurl</a></li></td></tr>"; }
  if ($url && !$titleurl) { print "<tr><td><li><a href=\"$url\" target=\"_blank\">$url</a></li></td></tr>"; }
  print "</table>\n<p>$hr";
  restform();
  print "</div>$html_footer";
  exit;
}

###########################################################################################

sub restform {
  if ($ENV{'HTTP_USER_AGENT'} !~ /msie/i) { $tcols = 23; $tsize = 20;}
  else { $tcols = 41; $tsize = 30; }
  print "<p>\n<table align=center border=0 cellspacing=2 cellpadding=2>\n";
  if ($error) { print "<form method=POST action=\"$cgi_url\">\n"; }
  else { print "<form method=POST action=\"$cgi_url\" name=\"FORM1\" onSubmit=\"return chkFORM1()\">\n"; }
  print "<input type=hidden name=\"action\" value=\"preview\">\n";

  if (!$error) { print "<tr bgcolor=\"$bgc\"><th colspan=2><input type=submit name=\"direkt\" value=\"&nbsp;&nbsp;&nbsp;send&nbsp;&nbsp;&nbsp;\" class=\"form2\"></th></tr>\n"; }
  print "<tr><td bgcolor=\"$bgc\">";
  if ($error eq 'no_name' || ($query{'name'} eq "$bwquery" && $bwquery ne "")) { print "<strong>Name:</strong>"; } else { print "name:"; }
  print "</td><td><input type=text name=\"name\" value=\"$name\" size=$tsize maxlength=20 class=\"form1\"></td></tr>\n";
  print "<tr><td bgcolor=\"$bgc\">";
  if ($error eq 'wrong_email' || ($query{'email'} eq "$bwquery" && $bwquery ne "")) { print "<strong>eMail:</strong>"; } else { print "email:"; }
  print "</td><td><input type=text name=\"email\" value=\"$email\" size=$tsize maxlength=40 class=\"form1\"></td></tr>\n";
  print "<tr><td bgcolor=\"$bgc\">";
  if ($error eq 'no_comment' || ($query{'comment'} eq "$bwquery" && $bwquery ne "")) { print "<strong>comment:</strong>"; } else { print "comment:"; }
  $comment =~ s/<br>/\n/g;
  $comment =~ s/<p>/\n\n/g;
  print "</td><td><textarea cols=$tcols rows=10 name=\"comment\" wrap=\"soft\" class=\"form1\">$comment</textarea></td></tr>\n";
  print "<tr><td bgcolor=\"$bgc\">";
  if ($error eq 'wrong_url' || $error eq 'url_not_found' || ($query{'url'} eq "$bwquery" && $bwquery ne "")) { print "<strong>link-URL:</strong>"; } else { print "link-URL:"; }
  print "</td><td><input type=text name=\"url\" value=\"$url\" size=$tsize maxlength=50 class=\"form1\"></td></tr>\n";
  print "<tr><td bgcolor=\"$bgc\">";
  if (($query{'titleurl'} eq "$bwquery" && $bwquery ne "")) { print "<strong>title of link:</strong>"; } else { print "title of link:"; }
  unless ($url) { $titleurl = ""; }
  print <<EOF;
  </td><td><input type=text name="titleurl" value="$titleurl" size=$tsize maxlength=50 class="form1"></td></tr>
  <tr bgcolor="$bgc"><td colspan=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=submit name="npreview" value="&nbsp;&nbsp;&nbsp;&nbsp;preview&nbsp;&nbsp;&nbsp;&nbsp;" class="form2">
  <input type=submit name="direkt" value="&nbsp;&nbsp;&nbsp;send&nbsp;&nbsp;&nbsp;" class="form2">
  <input type=reset value="reset" class="form2"></td></tr>
  </form></table>
EOF
}

###########################################################################################

sub search {
  unless ($searchv) { return(error(no_searchv)); exit; }
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);
  print "$html_header\n$html_body\n";

  $countm = 0;
  foreach $line (@BOOK) {
        chomp($line);
        if ($line =~ /$searchv/i && $line =~ /^\d+?\|/) { $countm++;        }
  }
  if ($countm == 1) { print "<h5 align=center>$countm Eintrag gefunden</h5>\n"; }
  else { print "<h5 align=center>$countm $match</h5>\n"; }

  foreach $line (@BOOK) {
        chomp($line);
        $line =~ s/\s$//g;
        if ($line =~ /$searchv/i) {
          $match = 1;
          ($numb, $timeb, $nameb, $emailb, $dateb, $commentb, $urlb, $titleurlb) = split(/\|/,$line);
          print "<p>$book_table\n<tr bgcolor=\"$bgc\">\n<td align=$alignrow1>";
          if ($emailb) { print "<a href=\"mailto:$emailb\"><strong>$nameb</strong></a>"; }
          else { print "<strong>$nameb</strong>"; }
          print " - $dateb";
          print "</td></tr><tr><td>$commentb</td></tr>";
          if ($urlb && $titleurlb) { print "<tr><td><li><a href=\"$urlb\" target=\"_blank\">$titleurlb</a></li></td></tr>"; }
          if ($urlb && !$titleurlb) { print "<tr><td><li><a href=\"$urlb\" target=\"_blank\">$urlb</a></li></td></tr>"; }
          print "</table>\n";
        }
  }

  if ($match != 1) { print "$matchn\n"; }
  print <<EOF;
  <p>$hr
  <p><table align=center border=0 cellspacing=0 cellpadding=3>
  <form method=POST action="$cgi_url">
  <input type=hidden name="action" value="search">
  <tr><td>$searcht</td><td><input type=text name="searchv" size=20 maxlength=50 class="form1"></td>
  <td><input type=submit value="$searchb" class="form2"></td></tr>
  </form></table>
  $html_footer
EOF
  exit;
}

###########################################################################################

sub submit {
  check_form();
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);

  unless ($post_break == 0) {
        foreach $check (@BOOK) {
      chomp($check);
          if ($check =~ /^\d+?\|(\d+?)\|(.*)\|.*\|.*\|.*\|.*\|/) { $gettime = $1; $namec = $2; }
          if (($gettime + ($post_break * 60) > time) && $namec eq "$name") { error(block_post); exit; }
        }
  }

  open(COUNT,"<$book_path/$count_file") || die error(no_countfile);
  $num = <COUNT>;
  close(COUNT);
  if ($num == 99999) { $num = 1; }
  else { $num++; }

  open(COUNT,">$book_path/$count_file") || die error(no_countfile);
  if ($windows == 0) { flock (COUNT, 2); }
  print COUNT "$num";
  close(COUNT);

  open(BOOK,">$book_path/$book_file") || die error(no_bookfile);
  if ($windows == 0) { flock (BOARD, 2); }
  foreach $line (@BOOK) {
  chomp($line);
        if ($line =~ /^<\!--start-->/) {
          print BOOK "<!--start-->\n$num\|$time\|$name\|$email\|$date\|$comment\|$url\|$titleurl\n";
        }
        else { print BOOK "$line\n"; }
  }
  close(BOOK);

  if ($print_log == 1) {
        open(LOG,">>$book_path/$log_file") || die error(no_logfile);
        if ($windows == 0) { flock (LOG, 2); }
        print LOG "$num|$name|$date|$ENV{'REMOTE_ADDR'}|$ENV{'HTTP_USER_AGENT'}\n";
        close(LOG);
  }
  print "$back_board";
  unless ($autodel <= 0) { auto_del(); }
  exit;
}

###########################################################################################

sub auto_del {
  $autodel *= 86400;
  $autodel = time - $autodel;
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);

  foreach ($j = 0; $j <= $#BOOK; $j++) {
        if ($BOOK[$j] =~ /^\d+?\|(\d+?)\|/ && $autodel > 0 && $autodel >= $1) {
          splice(@BOOK, $j, 1);
          $j--;
        }
  }

  open(BOOK,">$book_path/$book_file") || die error(no_bookfile);
  if ($windows == 0) { flock (BOOK, 2); }
  print BOOK @BOOK;
  close(BOOK);
}

###########################################################################################

sub admin {
  open(PASSWD, "<$passwd_file") || die error(no_passwd_file);
  if ($windows == 0) { flock (TEMP, 2); }
  my $PASSWD = <PASSWD>;
  close (PASSWD);

  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function help1() {
    var line1 = "Geben Sie einen Usernamen und ein Passwort Ihrer Wahl an.\\n";
    var line2 = "Ihre Daten werden anschl. verschl¸sselt und in der Passwortdatei gespeichert.";
        alert(line1 + line2);
  }
  function help2() {
    var line1 = "Geben Sie Ihren Usernamen und Ihr Passwort ein.\\nWenn Sie Ihr Passwort vergessen haben, l–schen Sie einfach den Inhalt der Passwortdatei.\\n\\n";
    var line2 = "Bei einer falschen Eingabe wird der Webmaster automatisch benachrichtigt!";
        alert(line1 + line2);
  }
  function chkFORM1() {
        if(document.FORM1.aname.value == "") { alert("Sie haben keinen Namen eingegeben!"); { document.FORM1.aname.focus(); return false; } }
        if(document.FORM1.apassword.value == "") { alert("Sie haben kein Passwort eingegeben!"); { document.FORM1.apassword.focus(); return false; } }
  }
  //-->
  </script>
  $html_body
  <div align=center>
EOF

  if ($PASSWD !~ /:/) {
  print <<EOF;
  <h4>Willkommen im Administrator.</h4>
  <table align=center><tr><td>
  W&auml;hlen Sie nun einen Benutzernamen und ein Passwort f&uuml;r den Admin-Bereich aus.<br>
  Die von Ihnen angegebenen Daten werden anschl. in Ihrer Passwortdatei gespeichert.
  </td></tr></table>
  <p>$hr
  <h5>Login</h5>
  <p>
  <table border=0 cellspacing=2 cellpadding=0>
  <form method=post name="FORM1" action="$cgi_url" onSubmit="return chkFORM1()">
  <input type=hidden name="action" value="set_passwd">
  <tr><td align=right bgcolor="$bgc">Name:</td><td><input type=text name="aname" class="form1"></td></tr>
  <tr><td align=right bgcolor="$bgc">Passwort:</td><td><input type=password name="apassword" class="form1"></td></tr>
  <tr><th colspan=2><hr size=5 color="$bgc" noshade></th></tr>
  <tr><td colspan=2><input type=submit value="LOGIN" class="form2">
  <input type=reset value="Zur&uuml;cksetzen" class="form2">&nbsp;&nbsp;
  <input type=button value="&nbsp;&nbsp;?&nbsp;&nbsp;" class="form2" onClick="return help1()">
  </td></tr>
  </form></table>
EOF
  }
  else {
  print <<EOF;
  <h4>Administrator</h4>
  <p>
  <table border=0 cellspacing=2 cellpadding=0>
  <form method=post name="FORM1" action="$cgi_url" onSubmit="return chkFORM1()">
  <input type=hidden name="action" value="alogin">
  <tr><td align=right bgcolor="$bgc">Name:</td><td><input type=text name="aname" class="form1"></td></tr>
  <tr><td align=right bgcolor="$bgc">Passwort:</td><td><input type=password name="apassword" class="form1"></td></tr>
  <tr><th colspan=2><hr size=5 color="$bgc" noshade></th></tr>
  <tr><td colspan=2><input type=submit value="LOGIN" class="form2">
  <input type=reset value="Zur&uuml;cksetzen" class="form2">&nbsp;&nbsp;
  <input type=button value="&nbsp;&nbsp;?&nbsp;&nbsp;" class="form2" onClick="return help2()">
  </td></tr>
  </form></table>
EOF
  }
  print <<EOF;
  <SCRIPT TYPE="text/javascript">
  <!--
  document.forms[0].aname.focus()
  //-->
  </SCRIPT>
EOF
  print "</div>\n$html_footer";
  exit;
}

###########################################################################################

sub alogin {
  check_passwd();
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);
  $alogin_is = 1;
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function chkFORMA() {
        var a = document.FORMA.del.length - 1;
        var b = 0;
        if(a >= 1) {
          for(i = 0; i <= a; i++) { if(document.FORMA.del[i].checked == true) { b++; } }
        }
        else { if(document.FORMA.del.checked == true) { b++; } }
        if(b == 0) { alert("FEHLER !\\n\\nSie haben keine Auswahl getroffen!"); return false; }
        else { if(confirm("Bitte best”tigen Sie den L–schvorgang.") == false) { return false; } }
  }

  function chkFORMB() {
        if(document.FORMB.deltime.value == "") {
          alert("FEHLER!\\n\\nSie haben keine Zahl angegeben !"); document.FORMB.deltime.focus(); return false;
        }
        if(document.FORMB.deltime.value == "0") {
          if(confirm("ACHTUNG!\\nEs werden alle Eintr”ge gel–scht!\\nM–chten Sie wirklich fortfahren?") == false) { return false; }
        }
        else { if(confirm("Bitte best”tigen Sie den L–schvorgang.") == false) { return false; } }
  }

  function chkFORMC() {
        if(document.FORMC.searchv.value == "") {
          alert("FEHLER!\\n\\nSie haben keinen Suchbegriff eingegeben!"); document.FORMC.searchv.focus(); return false;
        }
  }
  // -->
  </script>
  $html_body
  <h4>Administrator</h4>
  $hr
  [ <a href="#del">Eintr&auml;ge l&ouml;schen</a> ] &#0149; [ <a href="#delbytime">L&ouml;schen nach Zeit</a> ] &#0149;
  [ <a href="#search">Eintr&auml;ge suchen</a> ] &#0149; [ <a href="#options"> Weitere Optionen</a> ]
  $hr
  <a name="del"></a><h5>Eintr&auml;ge l&ouml;schen</h5>
EOF
  if ($maxentries > 0) {
        unless ($linkup) { $linkup = 1; }
        if (!$query{'next'}) { $nexts = 10; } else { $nexts = $query{'next'}; }
        $dmax = $#BOOK;
        $nextp = $nexts + 10;
        $nextm = $nexts - 10;
        $linkupm = $nexts - 19;
        $linkupp = $nexts + 1;
        $countlink = $#BOOK / $maxentries;
        $#BOOK = $maxentries * $linkup;
        $splita = ($maxentries * $linkup) - $maxentries + 1;
        splice(@BOOK, 0, $splita);
        for ($i = $nextm; $i < $countlink; $i++) {
          $linku = $i;
          $linku++;
          while ($linku <= $nexts && $dmax > $maxentries) {
                if ($linku >= $countlink && $linkup == $linku) { print "[ <span style=\"color:$acolor\">$linku</span> ]"; }
                elsif ($linku >= $countlink && $linkup != $linku) { print "<a href=\"$cgi_url?action=alogin&next=$nexts&linkup=$linku&aname=$aname&apassword=$apassword\" onMouseover=\"status='SEITE $linku'; return true\" onMouseout=\"status=''; return true\">[ <strong>$linku</strong> ]</a>"; }
                elsif ($linku == $nexts && $linkup == $linku) { print "[ <span style=\"color:$acolor\">$linku</span> ]"; }
                elsif ($linku == $nexts) { print "<a href=\"$cgi_url?action=alogin&next=$nexts&linkup=$linku&aname=$aname&apassword=$apassword\" onMouseover=\"status='SEITE $linku'; return true\" onMouseout=\"status=''; return true\">[ <strong>$linku</strong> ]</a>"; }
                elsif ($linku == $linkup) { print "[ <span style=\"color:$acolor\">$linku</span> ] - "; }
                else { print "<a href=\"$cgi_url?action=alogin&next=$nexts&linkup=$linku&aname=$aname&apassword=$apassword\" onMouseover=\"status='SEITE $linku'; return true\" onMouseout=\"status=''; return true\">[ <strong>$linku</strong> ]</a> - "; }
                last;
          }
        }
        if ($linku > 10) {
          print "<br>\n";
          $nexte = $linku;
          while ($nexte !~ /\d+?0$/) { $nexte++; }
          if ($nexts > 20) { print "<a href=\"$cgi_url?action=alogin&next=0&linkup=0&aname=$aname&apassword=$apassword\" onMouseover=\"status='ERSTE SEITE'; return true\" onMouseout=\"status=''; return true\"><strong>[ &lt;&lt; ]</strong></a> - "; }
          else { print "[ &lt;&lt; ] - "; }
          if ($nexts > 10) { print "<a href=\"$cgi_url?action=alogin&next=$nextm&linkup=$linkupm&aname=$aname&apassword=$apassword\" onMouseover=\"status='ZUR&Uuml;CK'; return true\" onMouseout=\"status=''; return true\"><strong>[ &lt; ]</strong></a> - "; }
          else { print "[ &lt; ] - "; }
          if ($linku > $nexts) { print "<a href=\"$cgi_url?action=alogin&next=$nextp&linkup=$linkupp&aname=$aname&apassword=$apassword\" onMouseover=\"status='VOR'; return true\" onMouseout=\"status=''; return true\"><strong>[ &gt; ]</strong></a> - "; }
          else { print "[ &gt; ] - "; }
          if ($linku > ($nexts + 10)) { print "<a href=\"$cgi_url?action=alogin&next=$nexte&linkup=$linku&aname=$aname&apassword=$apassword\" onMouseover=\"status='LETZTE SEITE'; return true\" onMouseout=\"status=''; return true\"><strong>[ &gt;&gt; ]</strong></a>"; }
          else { print "[ &gt;&gt; ]"; }
        }
        unless ($dmax <= 1) {
          if ($dmax > $maxentries) { print "<p>$dmax $show_count - Seite $linkup von $linku\n<p>\n"; }
          else { print "<p>$dmax $show_count\n<p>\n"; }
        }
  }

  else { unless ($#BOOK <= 1) { print "$#BOOK $show_count\n<p>\n"; } }

  print "<table align=center width=100% cellpadding=5 cellspacing=0>\n";
  print "<form method=post action=\"$cgi_url\" name=\"FORMA\" onSubmit=\"return chkFORMA()\">\n";
  print "<input type=hidden name=\"action\" value=\"adelete\">\n";
  print "<input type=hidden name=\"aname\" value=\"$aname\">\n";
  print "<input type=hidden name=\"apassword\" value=\"$apassword\">\n";
  foreach $line (@BOOK) {
        chomp($line);
        $line =~ s/\s$//g;
        if ($line =~ /^\d+?/) {
          ($numd, $timed, $named, $emaild, $dated, $commentd, $urld, $titleurld) = split(/\|/,$line);
          $deleok = 1;
          print "<tr><td><br><br>$book_table\n<tr bgcolor=\"$bgc\"><th><input type=checkbox name=\"del\" value=\"$numd\" width=20></th>\n";
          if ($emaild) { print "<td width=100% align=$alignrow1><a href=\"mailto:$emaild\"><strong>$named</strong></a>"; }
          else { print "<td width=100% align=$alignrow1><strong>$named</strong>"; }
          print " - $dated</td>";
          print "<td align=right>[<a href=\"$cgi_url?action=edit_entry&nume=$numd&aname=$aname&apassword=$apassword\">Bearbeiten</a>]</td></tr>\n";
          print "<tr><td>&nbsp;</td><td colspan=2>$commentd</td></tr>";
          if ($urld && $titleurld) { print "<tr><td>&nbsp;</td><td colspan=2><li><a href=\"$urld\" target=\"_blank\">$titleurld</a></li></td></tr>"; }
          if ($urld && !$titleurld) { print "<tr><td>&nbsp;</td><td colspan=2><li><a href=\"$urld\" target=\"_blank\">$urld</a></li></td></tr>"; }
          print "</table></td></tr>\n";
        }
  }
  if ($deleok == 1) {
        print "<tr><td><br><br>$book_table\n<tr><td><input type=submit value=\"&nbsp;&nbsp;&nbsp;&nbsp;L&ouml;schen&nbsp;&nbsp;&nbsp;&nbsp;\" class=\"form2\">";
        print " <input type=reset value=\"Zur&uuml;cksetzen\" class=\"form2\"></td></tr></table></td></tr>\n";
  }
  else { print "<tr><th>KEINE EINTR&Auml;GE VORHANDEN</th></tr>\n"; }
  print "</form></table>\n<p>$hr\n";
  print "<a name=\"delbytime\"></a><h5>L&ouml;schen nach Zeit</h5>\n";
  if ($deleok == 1) {
  print <<EOF;
  <p><table align=center border=0 cellspacing=0 cellpadding=3>
  <form method=POST action="$cgi_url" name="FORMB" onSubmit="return chkFORMB()">
  <input type=hidden name="action" value="delbytime">
  <input type=hidden name="aname" value="$aname">
  <input type=hidden name="apassword" value="$apassword">
  <tr><th colspan=3>Tage beziehen sich nicht auf das Datum sondern auf 24h.</th></tr>
  <tr><td>L&ouml;schen aller Beitr&auml;ge die &auml;lter sind als</td>
  <td><input type=text size=5 name="deltime" class="form1"> Tage</td>
  <td><input type=submit value="L&ouml;schen" class="form2"></td></tr>
  <tr><th colspan=3><strong>VORSICHT! &quot;0&quot; l&ouml;scht alle Eintr&auml;ge!</strong></th></tr></form></table>
EOF
  }
  else { print "KEINE EINTR&Auml;GE VORHANDEN\n"; }
  print "<p>$hr\n";
  print "<a name=\"search\"></a><h5>Eintr&auml;ge suchen</h5>\n";
  if ($deleok == 1) {
  print <<EOF;
  <p><table align=center border=0 cellspacing=0 cellpadding=3>
  <form method=POST action="$cgi_url" name="FORMC" onSubmit="return chkFORMC()">
  <input type=hidden name="action" value="asearch">
  <input type=hidden name="aname" value="$aname">
  <input type=hidden name="apassword" value="$apassword">
  <tr><td>$searcht</td><td><input type=text name="searchv" size=20 maxlength=50 class="form1"></td>
  <td><input type=submit value="$searchb" class="form2"></td></tr>
  </form></table>
EOF
  }
  else { print "KEINE EINTR&Auml;GE VORHANDEN\n"; }
  print "<p>$hr\n";
  print "<a name=\"options\"></a><h5>Weitere Optionen</h5>\n";
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub edit_entry {
  check_passwd();
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);
  print <<EOF;
  $html_header
  $html_body
  <h4>Administrator</h4>
  $hr
  <h5>Eintrag Bearbeiten</h5>
EOF

  foreach $line (@BOOK) {
        chomp($line);
        $line =~ s/\s$//g;
        if ($line =~ /^$query{'nume'}\|/) {
          ($nume, $timee, $namee, $emaile, $datee, $commente, $urle, $titleurle) = split(/\|/,$line);
          $commente =~ s/<p>/\n\n/g;
          $commente =~ s/<br>/\n/g;
          print <<EOF;
  <table align=center border=0 cellspacing=0 cellpadding=3>
  <form method=POST action="$cgi_url">
  <input type=hidden name="action" value="change_entry">
  <input type=hidden name="aname" value="$aname">
  <input type=hidden name="apassword" value="$apassword">
  <input type=hidden name="numc" value="$query{'nume'}">
  <input type=hidden name="timec" value="$timee">
  <input type=hidden name="datec" value="$datee">
  <tr><td>Name:</td><td><input type=text name="name" value="$namee" size=30 maxlength=20 class="form1"></td></tr>
  <tr><td>eMail:</td><td><input type=text name="email" value="$emaile" size=30 maxlength=40 class="form1"></td></tr>
  <tr><td>Kommentar:</td><td><textarea cols=41 rows=10 name="comment" wrap="soft" class="form1">$commente</textarea></td></tr>
  <tr><td>Link-URL:</td><td><input type=text name="url" value="$urle" size=30 maxlength=50 class="form1"></td></tr>
  <tr><td>Titel des Links:</td><td><input type=text name="titleurl" value="$titleurle" size=30 maxlength=50 class="form1"></td></tr>
  <tr><td>&nbsp;</td><td><input type=submit value="&nbsp;&nbsp;&Auml;ndern&nbsp;&nbsp;" class="form2">
  <input type=reset value="Zur&uuml;cksetzen" class="form2"></td></tr>
  </form>
  </table>
EOF
        last;
        }
  }
  print "<p>$hr\n";
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub change_entry {
  check_passwd();
  check_form();
  splice(@QUERY, 0, 3);
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);
  open(BOOK,">$book_path/$book_file") || die error(no_bookfile);
  if ($windows == 0) { flock (BOOK, 2); }
  foreach $change (@BOOK) {
        if ($change =~ /^$query{'numc'}\|/) {
          print BOOK "$query{'numc'}\|$query{'timec'}\|$name\|$email\|$query{'datec'}\|$comment\|$url\|$titleurl\n";
        }
        else { print BOOK "$change"; }
  }
  close(BOOK);
  return(alogin);
  exit;
}

###########################################################################################

sub adelete {
  unless ($query{'del'}) { return(error(no_del)); }
  check_passwd();
  splice(@QUERY, 0, 3);

  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);

  foreach $del (@QUERY) {
  chomp($del);
        foreach ($j = 0; $j <= $#BOOK; $j++) {
          if ($BOOK[$j] =~ /^$del\|/) {
                splice(@BOOK, $j, 1);
                $j--;
          }
        }
  }

  open(BOOK,">$book_path/$book_file") || die error(no_bookfile);
  if ($windows == 0) { flock (BOOK, 2); }
  print BOOK @BOOK;
  close(BOOK);
  return(alogin);
  exit;
}

###########################################################################################

sub delbytime {
  unless ($query{'deltime'} =~ /\d+?/) { return(error(no_del)); exit; }
  check_passwd();

  $del_days = $query{'deltime'} * 86400;
  $del_days = time - $del_days;
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);

  foreach ($j = 0; $j <= $#BOOK; $j++) {
        if ($BOOK[$j] =~ /^\d+?\|(\d+?)\|/ && $del_days > 0 && $del_days >= $1) {
          splice(@BOOK, $j, 1);
          $j--;
        }
  }

  open(BOOK,">$book_path/$book_file") || die error(no_bookfile);
  if ($windows == 0) { flock (BOOK, 2); }
  print BOOK @BOOK;
  close(BOOK);

  if ($query{'deltime'} == 0) {
        open(COUNT,">$book_path/$count_file") || die error(no_countfile);
        if ($windows == 0) { flock (COUNT, 2); }
        print COUNT "0";
        close(COUNT);
  }
  return(alogin);
  exit;
}

###########################################################################################

sub asearch {
  check_passwd();
  unless ($searchv) { return(error(no_searchv)); exit; }
  open(BOOK,"<$book_path/$book_file") || die error(no_bookfile);
  my @BOOK = <BOOK>;
  close(BOOK);
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function chkFORMA() {
        var a = document.FORMA.del.length - 1;
        var b = 0;
        if(a >= 1) {
          for(i = 0; i <= a; i++) { if(document.FORMA.del[i].checked == true) { b++; } }
        }
        else { if(document.FORMA.del.checked == true) { b++; } }
        if(b == 0) { alert("FEHLER !\\n\\nSie haben keine Auswahl getroffen!"); return false; }
        else { if(confirm("Bitte best”tigen Sie den L–schvorgang.") == false) { return false; } }
  }

  function chkFORMC() {
        if(document.FORMC.searchv.value == "") {
          alert("FEHLER!\\n\\nSie haben keinen Suchbegriff eingegeben!"); document.FORMC.searchv.focus(); return false;
        }
  }
  // -->
  </script>
  $html_body
  <h4>Administrator</h4>
EOF
  $countm = 0;
  foreach $line (@BOOK) {
        chomp($line);
        if ($line =~ /$searchv/i && $line =~ /^\d+?\|/) { $countm++; }
  }
  if ($countm == 1) { print "<h5 align=center>$countm Eintrag gefunden</h5>\n"; }
  else { print "<h5 align=center>$countm $match</h5>\n"; }
  print "<table align=center width=100% cellspacing=0 cellpadding=3>\n";
  print "<form method=post action=\"$cgi_url\" name=\"FORMA\" onSubmit=\"return chkFORMA()\">\n";
  print "<input type=hidden name=\"action\" value=\"adelete\">\n";
  print "<input type=hidden name=\"aname\" value=\"$aname\">\n";
  print "<input type=hidden name=\"apassword\" value=\"$apassword\">\n";
  foreach $line (@BOOK) {
        chomp($line);
        $line =~ s/\s$//g;
        if ($line =~ /$searchv/i && $line =~ /^\d+?\|/) {
          ($numd, $timed, $named, $emaild, $dated, $commentd, $urld, $titleurld) = split(/\|/,$line);
          $match = 1;
          print "<tr><td><br><br>$book_table\n<tr bgcolor=\"$bgc\"><th><input type=checkbox name=\"del\" value=\"$numd\" width=20></th>\n";
          if ($emaild) { print "<td width=100% align=$alignrow1><a href=\"mailto:$emaild\"><strong>$named</strong></a>"; }
          else { print "<td width=100% align=$alignrow1><strong>$named</strong>"; }
          print " - $dated</td>";
          print "<td align=right>[<a href=\"$cgi_url?action=edit_entry&nume=$numd&aname=$aname&apassword=$apassword\">Bearbeiten</a>]</td></tr>\n";
          print "<tr><td>&nbsp;</td><td colspan=2>$commentd</td></tr>";
          if ($urld && $titleurld) { print "<tr><td>&nbsp;</td><td colspan=2><li><a href=\"$urld\" target=\"_blank\">$titleurld</a></li></td></tr>"; }
          if ($urld && !$titleurld) { print "<tr><td>&nbsp;</td><td colspan=2><li><a href=\"$urld\" target=\"_blank\">$urld</a></li></td></tr>"; }
          print "</table></td></tr>\n";
        }
  }
  if ($match != 1) { print "<tr><th>$matchn</th></tr>\n"; }
  else {
        print "<tr><td><br><br>$book_table<tr><td><input type=submit value=\"&nbsp;&nbsp;&nbsp;&nbsp;L&ouml;schen&nbsp;&nbsp;&nbsp;&nbsp;\" class=\"form2\">";
        print "<input type=reset value=\"Zur&uuml;cksetzen\" class=\"form2\"></td></tr></table></td></tr>\n";
  }
  print <<EOF;
  </form></table>
  <p>$hr
  <p><table align=center border=0 cellspacing=0 cellpadding=3>
  <form method=POST action="$cgi_url" name="FORMC" onSubmit="return chkFORMC()">
  <input type=hidden name="action" value="asearch">
  <input type=hidden name="aname" value="$aname">
  <input type=hidden name="apassword" value="$apassword">
  <tr><td>$searcht</td><td><input type=text name="searchv" size=20 maxlength=50 class="form1"></td>
  <td><input type=submit value="$searchb" class="form2"></td></tr>
  </form></table>
  <p>$hr
EOF
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub badword {
  check_passwd();
  $badword_is = 1;
  open(BW,"<$book_path/$badword_file") || die error(no_badwordfile);
  my @BW = <BW>;
  close(BW);
  $countbw = 0;
  for (@BW) { $countbw++; }
  $tds = $countbw / 3;
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function get_confirm() {
        var a = document.FORMB.delbw.length - 1;
        var b = 0;
        if(a >= 1) {
          for(i = 0; i <= a; i++) { if(document.FORMB.delbw[i].checked == true) { b++; } }
        }
        else { if(document.FORMB.delbw.checked == true) { b++; } }
        if(b == 0) { alert("FEHLER !\\n\\nSie haben nichts ausgew”hlt !"); return false; }
        else { if(confirm("Bitte best”tigen Sie den L–schvorgang.") == false) { return false; } }
  }
  function chkFORMA() {
        if(document.FORMA.newbw.value == "") {
          alert("FEHLER!\\n\\nSie haben kein Wort eingegeben!"); document.FORMA.newbw.focus(); return false;
        }
  }
  // -->
  </script>
  $html_body
EOF
  if ($check_bw == 0) { print "Der BadWords-Check ist <strong>deaktiviert</strong>.\n"; }
  else { print "Der BadWords-Check ist <strong>aktiviert</strong>.\n"; }
  print <<EOF;
  <p>$hr
  <p>Es sind $countbw W&ouml;rter registriert.</p>
  <table align=center width=500 border=1 cellpadding=3 cellspacing=2>
  <form method=post action="$cgi_url" name="FORMB" onSubmit="return get_confirm()">
  <input type=hidden name="action" value="delbw">
  <input type=hidden name="aname" value="$query{'aname'}">
  <input type=hidden name="apassword" value="$query{'apassword'}">
  <tr bgcolor="$bgc"><th colspan=3><strong>Bad Words l&ouml;schen</strong></th></tr>
EOF
  if ($tds =~ /\./) { $tds++; }
  my @SORTBW = sort(@BW);
  $count2 = 0;
  print "<tr><td width=33% valign=top>";
  foreach $td1 (@SORTBW) {
        $td1 =~ s/\s//g;
        $count2++;
        if ($count2 <= $tds) { print "<input type=checkbox name=\"delbw\" value=\"$td1\" class=\"form1\"> $td1<br>\n"; }
        else { push (@TD2, $td1); }
  }
  print "</td><td width=33% valign=top>\n";
  $count2 = 0;
  foreach $td2 (@TD2) {
        $count2++;
        if ($count2 <= $tds) { print "<input type=checkbox name=\"delbw\" value=\"$td2\" class=\"form1\"> $td2<br>\n"; }
        else { push (@TD3, $td2); }
  }
  print "</td><td width=33% valign=top>\n";
  foreach $td3 (@TD3) { print "<input type=checkbox name=\"delbw\" value=\"$td3\" class=\"form1\"> $td3<br>\n"; }

  print "</tr>\n";

  if ($countbw >= 1) {
        print <<EOF;
        <tr bgcolor="$bgc"><th colspan=3><input type=submit value="&nbsp;&nbsp;&nbsp;&nbsp;L&ouml;schen&nbsp;&nbsp;&nbsp;&nbsp;" class="form2">
        <input type=reset value="Zur&uuml;cksetzen" class="form2"></th></tr>
EOF
  }
  print <<EOF;
  </form></table>
  <p><table align=center width=500 border=1 cellpadding=3 cellspacing=2>
  <form method=post action="$cgi_url" name="FORMA" onSubmit="return chkFORMA()">
  <input type=hidden name="action" value="addbw">
  <input type=hidden name="aname" value="$query{'aname'}">
  <input type=hidden name="apassword" value="$query{'apassword'}">
  <tr bgcolor="$bgc"><th><strong>Bad Word hinzuf&uuml;gen</strong></th></tr>
  <tr><th><input type=text size=25 name="newbw"> <input type=submit value="OK" class="form2"></th></tr>
  <tr><td><strong>Achtung:</strong><br>Mit <strong>\\b</strong> markieren Sie einen Wortanfang bzw. das Wortende.<br>
  <strong>\\bSau\\b</strong>, findet nur Sau.<br><strong>Sau</strong>, findet Sau, Sauhund und auch sauber !!!<br>
  Gro&szlig;/Kleinschreibung spielt keine Rolle.</td></tr>
  </form></table>
  <p>$hr
EOF
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub delbw {
  unless ($query{'delbw'}) { return(error(no_del)); exit; }
  check_passwd();
  open(DELBW,"<$book_path/$badword_file") || die error(no_badwordfile);
  my @DELBW = <DELBW>;
  close(DELBW);
  splice(@QUERY, 0, 3);

  foreach $delq (@QUERY) {
        foreach ($i = 0;$i <= $#DELBW; $i++) {
          chomp($DELBW[$i]);
          if ($delq eq "$DELBW[$i]") {
                splice(@DELBW, $i, 1);
                $i--;
          }
        }
  }

  open(DELBW,">$book_path/$badword_file") || die error(no_badwordfile);
  if ($windows == 0) { flock (DELBW, 2); }
  for (@DELBW) { print DELBW "$_\n"; }
  close(DELBW);
  return(badword);
  exit;
}

###########################################################################################

sub addbw {
  unless ($query{'newbw'}) { return(error(no_del)); exit; }
  check_passwd();
  open(ADDBW,"<$book_path/$badword_file") || die error(no_badwordfile);
  my @ADDBW = <ADDBW>;
  close(ADDBW);

  foreach $badword (@ADDBW) {
    chomp($badword);
        $badword =~ tr/A-Z/a-z/;
        $query{'newbw'} =~ tr/A-Z/a-z/;
        if ($badword eq "$query{'newbw'}" || $badword eq "\\b$query{'newbw'}\\b" || $query{'newbw'} eq "\\b$badword\\b") {
          $bw_exist = 1;
        }
  }

  if ($bw_exist == 1) {
        print "$html_header\n$html_body\n<div align=center>\n";
        print "<h1>FEHLER:</h1>\n<h5>Das von Ihnen gew&auml;hlte Wort existiert schon</h5>\n$html_footer";
  }
  else {
        push(@ADDBW, "$query{'newbw'}");
        open(ADDBW,">$book_path/$badword_file") || die error(no_badwordfile);
        if ($windows == 0) { flock (ADDBW, 2); }
        for (@ADDBW) { print ADDBW "$_\n"; }
        close(ADDBW);
        return(badword);
  }
  exit;
}

###########################################################################################

sub ipblock {
  check_passwd();
  $ipblock_is = 1;
  open(IP,"<$book_path/$ip_file") || die error(no_ipfile);
  my @IP = <IP>;
  close(IP);
  $countip = 0;
  for (@IP) { $countip++; }
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function get_confirm() {
        var a = document.FORMB.delip.length - 1;
        var b = 0;
        if(a >= 1) {
          for(i = 0; i <= a; i++) { if(document.FORMB.delip[i].checked == true) { b++; } }
        }
        else { if(document.FORMB.delip.checked == true) { b++; } }
        if(b == 0) { alert("FEHLER !\\n\\nSie haben nichts ausgew”hlt !"); return false; }
        else { if(confirm("Bitte best”tigen Sie den L–schvorgang.") == false) { return false; } }
  }
  function chkFORMA() {
        if(document.FORMA.newip.value == "") {
          alert("FEHLER!\\n\\nSie haben keine IP eingegeben!"); document.FORMA.newip.focus(); return false;
        }
  }
  // -->
  </script>
  $html_body
EOF
  if ($check_ip == 0) { print "Die IP-Sperre ist <strong>deaktiviert</strong>.\n"; }
  else { print "Die IP-Sperre ist <strong>aktiviert</strong>.\n"; }
  print <<EOF;
  <p>$hr
  <p>Es sind $countip IP's gesperrt.</p>
  <table align=center width=300 border=1 cellpadding=3 cellspacing=2>
  <form method=post action="$cgi_url" name="FORMB" onSubmit="return get_confirm()">
  <input type=hidden name="action" value="delip">
  <input type=hidden name="aname" value="$query{'aname'}">
  <input type=hidden name="apassword" value="$query{'apassword'}">
  <tr bgcolor="$bgc"><th><strong>L&ouml;schen</strong></th><th width=220><strong>IP</strong></th></tr>
EOF
  my @SORTIP = sort(@IP);
  for (@SORTIP) {
        $_ =~ s/\s//g;
        print "<tr><th><input type=checkbox name=\"delip\" value=\"$_\" class=\"form1\"></th><td>$_</td></tr>\n";
  }
  if ($countip >= 1) {
        print <<EOF;
        <tr bgcolor="$bgc"><th colspan=2><input type=submit value="&nbsp;&nbsp;&nbsp;&nbsp;L&ouml;schen&nbsp;&nbsp;&nbsp;&nbsp;" class="form2">
        <input type=reset value="Zur&uuml;cksetzen" class="form2"></th></tr>
EOF
  }
  print <<EOF;
  </form></table>
  <p><table align=center width=300 border=1 cellpadding=3 cellspacing=2>
  <form method=post action="$cgi_url" name="FORMA" onSubmit="return chkFORMA()">
  <input type=hidden name="action" value="addip">
  <input type=hidden name="aname" value="$query{'aname'}">
  <input type=hidden name="apassword" value="$query{'apassword'}">
  <tr bgcolor="$bgc"><th><strong>IP hinzuf&uuml;gen</strong></th></tr>
  <tr><th><input type=text size=25 name="newip"> <input type=submit value="OK" class="form2"></th></tr>
  </form></table>
  <p>$hr
EOF
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub delip {
  unless ($query{'delip'}) { return(error(no_del)); exit; }
  check_passwd();
  open(DELIP,"<$book_path/$ip_file") || die error(no_ipfile);
  my @DELIP = <DELIP>;
  close(DELIP);
  splice(@QUERY, 0, 3);

  foreach $delip(@QUERY) {
        $delip =~ s/\s+?//g;
        foreach ($i = 0;$i <= $#DELIP; $i++) {
          $DELIP[$i] =~ s/\\b+?//g;
          if ($DELIP[$i] =~ /^$delip$/) {
                splice(@DELIP, $i, 1);
                $i--;
          }
        }
  }

  open(DELIP,">$book_path/$ip_file") || die error(no_ipfile);
  if ($windows == 0) { flock (DELIP, 2); }
  print DELIP @DELIP;
  close(DELIP);
  return(ipblock);
  exit;
}

###########################################################################################

sub addip {
  unless ($query{'newip'}) { return(error(no_del)); exit; }
  check_passwd();

  unless ($query{'newip'} =~ /\d+?\.\d+?\.\d+?\.\d+?/) {
          print "$html_header\n$html_body\n<div align=center>\n";
        print "<h1>FEHLER:</h1>\n<h5>Sie haben eine ung&uuml;ltige IP angegeben</h5>\n$html_footer";
        exit;
  }
  open(ADDIP,"<$book_path/$ip_file") || die error(no_ipfile);
  my @ADDIP = <ADDIP>;
  close(ADDIP);

  foreach $ip(@ADDIP) {
        if ($ip =~ /^$query{'newip'}\s/i) {
          $ip_exist = 1;
        }
  }
  if ($ip_exist == 1) {
        print "$html_header\n$html_body\n<div align=center>\n";
        print "<h1>FEHLER:</h1>\n<h5>Die von Ihnen angegebene IP existiert schon</h5>\n$html_footer";
  }
  else {
        push(@ADDIP, "$query{'newip'}\n");
        open(ADDIP,">$book_path/$ip_file") || die error(no_ipfile);
        if ($windows == 0) { flock (ADDIP, 2); }
        print ADDIP @ADDIP;
        close(ADDIP);
        return(ipblock);
  }
  exit;
}

###########################################################################################

sub logfile {
  check_passwd();
  $logfile_is = 1;
  open(LOG,"$book_path/$log_file") || die error(no_logfile);
  my @LOG = <LOG>;
  close(LOG);
  $countl = 0;
  for (@LOG) { $countl++; }
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function get_confirm() {
        if (confirm("Bitte best”tigen Sie den L–schvorgang.") == false) {
          return false;
        }
  }
  // -->
  </script>
  $html_body
EOF
  if ($print_log == 0) { print "Das Logfile ist <strong>deaktiviert</strong>.\n"; }
  else { print "Das Logfile ist <strong>aktiviert</strong>.\n"; }
  print "<p>$hr\n";
  if ($countl > 1) { print "<p>$countl Eintr&auml;ge<br>\n"; }
  print <<EOF;
  <p><table align=center border=1 cellpadding=1 cellspacing=3>
  <form method=post action="$cgi_url" onSubmit="return get_confirm()"><input type=hidden name="action" value="del_log">
  <input type=hidden name="aname" value="$aname">
  <input type=hidden name="apassword" value="$apassword">
  <tr bgcolor=\"$bgc\"><th width=40>#</th><th>Name</th><th>Datum</th><th>IP</th><th>Browser</th></tr>
EOF
  my @SORTLOG = sort by_number @LOG;
  if ($countl >= 1) {
        foreach $logf (@SORTLOG) {
          ($numl, $namel, $datel, $ipl, $browserl) = split(/\|/,$logf);
          print "<tr><th bgcolor=\"$bgc\">$numl</th><td>$namel</td><td>$datel</td><td>$ipl</td><td>$browserl</td></tr>\n";
        }
        print "<tr bgcolor=\"$bgc\"><td colspan=5><input type=submit value=\"Logfile l&ouml;schen\" class=\"form2\"></td></tr>\n";
  }
  else { print "<tr><th colspan=5>KEINE EINTR&Auml;GE VORHANDEN</th></tr>\n"; }
  print "</form></table><p>$hr\n";
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub del_log {
  check_passwd();
  open(LOG,">$book_path/$log_file") || die error(no_logfile);
  if ($windows == 0) { flock (LOG, 2); }
  print LOG "";
  close(LOG);
  return(logfile);
  exit;
}

###########################################################################################

sub setup {
  check_passwd();
  $setup_is = 1;
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function chkFORMA() {
        if(document.FORMA.time_zone.value == "") {
          alert("FEHLER!\\n\\nSie haben keine Zeitzone eingegeben!"); document.FORMA.time_zone.focus(); return false;
        }
        if(document.FORMA.maxentries.value == "") {
          alert("FEHLER!\\n\\nSie haben keinen Wert zu Threads pro Seite eingegeben!"); document.FORMA.maxentries.focus(); return false;
        }
        if(document.FORMA.show_search.value == "") {
          alert("FEHLER!\\n\\nSie haben keinen Wert bei dem Suchformular eingegeben!"); document.FORMA.show_search.focus(); return false;
        }
        if(document.FORMA.autodel.value == "") {
          alert("FEHLER!\\n\\nSie haben keinen Wert zur auto. Loeschfunktion eingegeben!"); document.FORMA.autodel.focus(); return false;
        }
        if(document.FORMA.max_word.value == "") {
          alert("FEHLER!\\n\\nSie haben keinen Wert zur max. Wortlaenge eingegeben!"); document.FORMA.max_word.focus(); return false;
        }
        if(document.FORMA.post_break.value == "") {
          alert("FEHLER!\\n\\nSie haben keinen Wert zur Post-Sperre eingegeben!"); document.FORMA.post_break.focus(); return false;
        }
  }
  // -->
  </script>
  $html_body
EOF
  print "<h4>Setup</h4>$hr<p>\n";
  print "<table border=1 width=500 cellpadding=3 cellspacing=2>\n";
  print "<form method=post action=\"$cgi_url\" name=\"FORMA\" onSubmit=\"return chkFORMA()\">\n";
  print "<input type=hidden name=\"action\" value=\"save_setup\">\n";
  print "<input type=hidden name=\"aname\" value=\"$query{'aname'}\">\n";
  print "<input type=hidden name=\"apassword\" value=\"$query{'apassword'}\">\n";
  print "<caption><strong>A</strong> = aktivieren / <strong>D</strong> = deaktivieren</caption>\n";
  print "<tr bgcolor=\"$bgc\"><th width=440><strong>Option</strong></th><th width=30><strong>A</strong></th><th width=30><strong>D</strong></th></tr>\n";

  print "<tr><td>Zeitanzeige - <strong>A</strong> Datum und Uhrzeit / <strong>D</strong> nur Datum</td>";
  if ($show_time == 1) { print "<th><input type=radio name=\"show_time\" value=\"1\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"show_time\" value=\"1\"></th>\n"; }
  if ($show_time == 0) { print "<th><input type=radio name=\"show_time\" value=\"0\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"show_time\" value=\"0\"></th>\n"; }
  print "</tr>\n";

  print "<tr><td>HTML-Tags</td>";
  if ($html == 1) { print "<th><input type=radio name=\"html\" value=\"1\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"html\" value=\"1\"></th>\n"; }
  if ($html == 0) { print "<th><input type=radio name=\"html\" value=\"0\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"html\" value=\"0\"></th>\n"; }
  print "</tr>\n";

  print "<tr><td>Bad Word Check</td>";
  if ($check_bw == 1) { print "<th><input type=radio name=\"check_bw\" value=\"1\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"check_bw\" value=\"1\"></th>\n"; }
  if ($check_bw == 0) { print "<th><input type=radio name=\"check_bw\" value=\"0\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"check_bw\" value=\"0\"></th>\n"; }
  print "</tr>\n";

  print "<tr><td>IP Check</td>";
  if ($check_ip == 1) { print "<th><input type=radio name=\"check_ip\" value=\"1\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"check_ip\" value=\"1\"></th>\n"; }
  if ($check_ip == 0) { print "<th><input type=radio name=\"check_ip\" value=\"0\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"check_ip\" value=\"0\"></th>\n"; }
  print "</tr>\n";

  print "<tr><td>Logfile</td>";
  if ($print_log == 1) { print "<th><input type=radio name=\"print_log\" value=\"1\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"print_log\" value=\"1\"></th>\n"; }
  if ($print_log == 0) { print "<th><input type=radio name=\"print_log\" value=\"0\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"print_log\" value=\"0\"></th>\n"; }
  print "</tr>\n";

  print "<tr><td>Host-Check <span style=\"font-size:7pt\">pr&uuml;ft ob der Aufruf des Skriptes vom eigenen Server kommt.<br>";
  print "Wenn keine Eintr&auml;ge m&ouml;glich sind, deaktivieren Sie diese Option.</span></td>";
  if ($check_host == 1) { print "<th><input type=radio name=\"check_host\" value=\"1\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"check_host\" value=\"1\"></th>\n"; }
  if ($check_host == 0) { print "<th><input type=radio name=\"check_host\" value=\"0\" checked></th>\n"; }
  else  { print "<th><input type=radio name=\"check_host\" value=\"0\"></th>\n"; }
  print "</tr>\n";

  print "<tr bgcolor=\"$bgc\"><th colspan=3>&nbsp;</th></tr>\n";

  print "<tr><td>Zeitzone - Wert in Stunden (Bsp. 6 oder -6)</td>";
  print "<th colspan=2><input type=text name=\"time_zone\" value=\"$time_zone\" size=3 maxlength=3></th></tr>\n";

  print "<tr><td>Beitr&auml;ge pro Seite - <strong>0</strong> zeigt alle Beitr&auml;ge auf einer Seite an</td>";
  print "<th colspan=2><input type=text name=\"maxentries\" value=\"$maxentries\" size=3 maxlength=3></th></tr>\n";

  print "<tr><td>Suchformular - <strong>0</strong> kein Formular / <strong>1</strong> stetig / <strong>n</strong> ab n Threads</td>";
  print "<th colspan=2><input type=text name=\"show_search\" value=\"$show_search\" size=3 maxlength=3></th></tr>\n";

  print "<tr><td>Autol&ouml;schfunktion - <strong>0</strong> deaktiviert / <strong>n</strong> autom. nach n Tagen</td>";
  print "<th colspan=2><input type=text name=\"autodel\" value=\"$autodel\" size=3 maxlength=3></th></tr>\n";

  print "<tr><td>Max. Wortl&auml;nge eines Wortes im Kommentar - <strong>0</strong> deaktiviert</td>";
  print "<th colspan=2><input type=text name=\"max_word\" value=\"$max_word\" size=3 maxlength=3></th></tr>\n";

  print "<tr><td>Post-Sperre in Minuten - <strong>0</strong> deaktiviert</td>";
  print "<th colspan=2><input type=text name=\"post_break\" value=\"$post_break\" size=3 maxlength=3></th></tr>\n";

  print "<tr bgcolor=\"$bgc\"><th colspan=3><input type=submit value=\"&nbsp;&nbsp;&nbsp;Speichern&nbsp;&nbsp;&nbsp;\" class=\"form2\">";
  print " <input type=reset value=\"Zur&uuml;cksetzen\" class=\"form2\"></th>\n";

  print "</form></table>\n<p>$hr<p>";
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub save_setup {
  check_passwd();

  print "$html_header\n$html_body\n";
  print "<h4>Setup</h4>$hr<p>\n";

  if ($query{'time_zone'} !~ /^\-?\d\d?\Z/ || $query{'time_zone'} =~ /^0\d/ || $query{'time_zone'} > 12 || $query{'time_zone'} < -12) {
        print "<h4>FEHLER:</h4>\nSie haben eine ung&uuml;ltige Zeitzone angegeben!\n";
        print "$html_footer";
        exit;
  }
  if ($query{'maxentries'} !~ /^\d+?\Z/ || $query{'maxentries'} =~ /^0\d/) {
        print "<h4>FEHLER:</h4>\nSie haben einen ung&uuml;ltigen Wert bei &quot;Threads pro Seite&quot; angegeben!\n";
        print "$html_footer";
        exit;
  }
  if ($query{'show_search'} !~ /^\d+?\Z/ || $query{'show_search'} =~ /^0\d/) {
        print "<h4>FEHLER:</h4>\nSie haben einen ung&uuml;ltigen Wert f&uuml;r das Suchformular angegeben!\n";
        print "$html_footer";
        exit;
  }
  if ($query{'autodel'} !~ /^\d+?\Z/ || $query{'autodel'} =~ /^0\d/) {
        print "<h4>FEHLER:</h4>\nSie haben einen ung&uuml;ltigen Wert bei der Autol&ouml;schfunktion angegeben!\n";
        print "$html_footer";
        exit;
  }
  if ($query{'max_word'} !~ /^\d+?\Z/ || $query{'max_word'} =~ /^0\d/) {
        print "<h4>FEHLER:</h4>\nSie haben einen ung&uuml;ltigen Wert f&uuml;r die max. Wortl&auml;nge angegeben!\n";
        print "$html_footer";
        exit;
  }
  if ($query{'post_break'} !~ /^\d+?\Z/ || $query{'post_break'} =~ /^0\d/) {
        print "<h4>FEHLER:</h4>\nSie haben einen ung&uuml;ltigen Wert zur Post-Sperre angegeben!\n";
        print "$html_footer";
        exit;
  }

  open(STP,">$book_path/$setup_file") || die error(no_setupfile);
  if ($windows == 0) { flock (STP, 2); }
  print STP "\# Diese Datei darf NICHT ge”ndert werden. F¸hren Sie Setup in der Administration aus!\n";
  print STP "\$show_time = $query{'show_time'}\;\n";
  print STP "\$html = $query{'html'}\;\n";
  print STP "\$check_bw = $query{'check_bw'}\;\n";
  print STP "\$check_ip = $query{'check_ip'}\;\n";
  print STP "\$print_log = $query{'print_log'}\;\n";
  print STP "\$time_zone = $query{'time_zone'}\;\n";
  print STP "\$maxentries = $query{'maxentries'}\;\n";
  print STP "\$show_search = $query{'show_search'}\;\n";
  print STP "\$autodel = $query{'autodel'}\;\n";
  print STP "\$max_word = $query{'max_word'}\;\n";
  print STP "\$post_break = $query{'post_break'}\;\n";
  print STP "\$check_host = $query{'check_host'}\;\n";
  print STP "1\;";
  close(STP);

  print "<strong>Die &Auml;nderungen wurden erfolgreich gespeichert.</strong>\n";
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub bugrep {
  check_passwd();
  $bugrep_is = 1;
  print <<EOF;
  $html_header
  $html_body
  <h5>Bug Report</h5>
  <p>$hr
  <p>Informieren Sie uns &uuml;ber Bugs oder senden Sie uns Ihre Verbesserungsvorschl&auml;ge.
  <p><table align=center border=0 cellpadding=3 cellspacing=3>
  <form method=post action="$cgi_url"><input type=hidden name="action" value="sendbug">
  <input type=hidden name="aname" value="$aname">
  <input type=hidden name="apassword" value="$apassword">
  <tr><td bgcolor="$bgc">An:</td><td>Webmaster GEOsWEB &lt;<a href="mailto:admin\@geosweb.de">admin\@geosweb.de</a>&gt;</td></tr>
  <tr><td bgcolor="$bgc">Von:</td><td>Webmaster $title &lt;$mail_addr&gt;</td></tr>
  <tr><td bgcolor="$bgc">Betreff:</td><td><input type=text size=30 name="bugsubject" value="Bug Report G-BOOK"></td></tr>
  <tr><td bgcolor="$bgc">Nachricht:</td><td><textarea cols=41 rows=10 name="bugcomment" wrap="soft" class="form1">$VER</textarea></td></tr>
  <tr bgcolor="$bgc"><th colspan=2><input type=submit value="&nbsp;&nbsp;Absenden&nbsp;&nbsp;" class="form2">
  <input type=reset value="Zur&uuml;cksetzen" class="form2"></th></tr>
  </form></table>
  <SCRIPT TYPE="text/javascript">
  <!--
  document.forms[0].bugcomment.focus()
  //-->
  </SCRIPT>
  <p>$hr
EOF
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub sendbug {
  check_passwd();
  unless ($query{'bugsubject'} && $query{'bugcomment'}) {
        print "$html_header\n$html_body\n<h1>FEHLER:</h1>\n";
        print "<h5>Sie haben das Formular nicht vollst&auml;ndig ausgef&uuml;llt.</h5>\n";
        print "$html_footer";
        exit;
  }
  $title =~ s/&auml;/”/g;
  $title =~ s/&Auml;/Ÿ/g;
  $query{'bugcomment'} =~ s/\r\n/\n/g;
  open (SENDMAIL, "| $mail_path -t");
  print SENDMAIL "To: Webmaster GEOsWEB <admin\@geosweb.de>\n";
  print SENDMAIL "From: Webmaster $title <$mail_addr>\n";
  print SENDMAIL "Subject: $query{'bugsubject'}\n\n";
  print SENDMAIL "$query{'bugcomment'}\n";
  close (SENDMAIL);

  print <<EOF;
  $html_header
  $html_body
  <h4>Administrator</h4>
  <h5>Bug Report</h5>
  <p>$hr
  <h5>Danke f&uuml;r Ihre Nachricht.</h5>
  Jeder Bug Report oder Verbesserungsvorschlag hilft uns weiter und Ihnen zu einem noch besseren Skript.
  <p>$hr
EOF
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub set_passwd {
  open(PASSWD, "$passwd_file") || die error(no_passwd_file);
  if ($windows == 0) { flock (PASSWD, 2); }
  my $passwd_line = <PASSWD>;
  close(PASSWD);
  if ($passwd_line =~ /:/) { error(passwd_exist); exit; }

  my $salt = substr($aname,0,2);
  my $en_apass = crypt($apassword,$salt);
  my $test_apass = crypt($apassword,$salt);

  if ($en_apass eq "$test_apass") {
        open(PASSWD, ">$passwd_file") || die error(no_passwd_file);
        if ($windows == 0) { flock (PASSWD, 2); }
        print PASSWD "$aname:$en_apass:1";
        close (PASSWD);
  }
  else {
        open(PASSWD, ">$passwd_file") || die error(no_passwd_file);
        if ($windows == 0) { flock (PASSWD, 2); }
        print PASSWD "$aname:$apassword:0";
        close (PASSWD);
  }
  return(alogin);
  exit;
}

###########################################################################################

sub chpasswd {
  check_passwd();
  $chpasswd_is = 1;
  print <<EOF;
  $html_header
  <script language="JavaScript">
  <!--
  function help() {
    var line1 = "F¸llen Sie das Formular komplett aus wenn Sie Ihr Login ”ndern m–chten.\\n";
        var line2 = "Bei der Eingabe einer falschen User-Passwort-Kombination wird der Webmaster autom. informiert.\\n\\n";
        var line3 = "Wenn Sie Ihr Login vergessen haben, fast unglaublich ;-), l–schen Sie einfach den Inhalt der Passwortdatei\\n";
        var line4 = "Rufen Sie das Skript anschl. erneut auf und vergeben Sie ein neues Login.";
        alert(line1 + line2 + line3 + line4);
  }
  function chkFormular() {
        if(document.Formular.aname.value == "") {
          alert("Sie haben keinen Usernamen eingegeben!");
          document.Formular.aname.focus();
          return false;
        }
        if(document.Formular.apassword.value == "") {
          alert("Sie haben keine Passwort eingegeben!");
          document.Formular.apassword.focus();
          return false;
        }
        if(document.Formular.newname.value == "") {
          alert("Sie haben keinen neuen Usernamen eingegeben!");
          document.Formular.newname.focus();
          return false;
        }
        if(document.Formular.newpasswd.value == "") {
          alert("Sie haben kein neues Passwort eingegeben!");
          document.Formular.newpasswd.focus();
          return false;
        }
        if(document.Formular.reppasswd.value == "") {
          alert("Sie m¸ssen das neue Passwort wiederholen!");
          document.Formular.reppasswd.focus();
          return false;
        }
  }
  //-->
  </script>
  $html_body
  <h5>Login &auml;ndern</h5>
  <p>$hr
  <p><table align=center border=0 cellspacing=2 cellpadding=1>
  <form method=POST action="$cgi_url" name="Formular" onSubmit="return chkFormular()">
  <input type=hidden name="action" value="change_login">
  <tr><td bgcolor="$bgc" align=right>Name:</td><td><input type=text name="aname" size=18 class="form1"></td></tr>
  <tr><td bgcolor="$bgc" align=right>Passwort:</td><td><input type=password name="apassword" size=18 class="form1"></td></tr>
  <tr><td bgcolor="$bgc" align=right>Neuer Name:</td><td><input type=text name="newname" size=18 class="form1"></td></tr>
  <tr><td bgcolor="$bgc" align=right>Neues Passwort:</td><td><input type=password name="newpasswd" size=18 class="form1"></td></tr>
  <tr><td bgcolor="$bgc" align=right>Passwort wiederholen:</td><td><input type=password name="reppasswd" size=18 class="form1"></td></tr>
  <tr><th colspan=2><hr size=5 color="$bgc" noshade></th></tr>
  <tr><th colspan=2><input type=submit value="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&Auml;ndern&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" class="form2">
  <input type=reset value="Zur&uuml;cksetzen" class="form2">
  <input type=button value="&nbsp;&nbsp;?&nbsp;&nbsp;" onClick="return help()" class="form2"></th></tr>
  </form></table>
  <SCRIPT TYPE="text/javascript">
  <!--
  document.forms[0].aname.focus()
  //-->
  </SCRIPT>
  <p>$hr
EOF
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub change_login {
  unless ($query{'newname'} && $query{'newpasswd'} && $query{'newpasswd'} eq "$query{'reppasswd'}") {
        print "$html_header\n$html_body\n";
        print "<h1>FEHLER:</h1>\n&Uuml;berpr&uuml;fen Sie Ihre Angaben und f&uuml;llen Sie das Formular vollst&auml;ndig aus.\n";
        print "$html_footer\n";
        exit;
  }
  check_passwd();
  open(PASSWD,"$passwd_file") || die error(no_passwd_file);
  $passwd_line = <PASSWD>;
  chomp($passwd_line);
  close(PASSWD);

  ($username, $passwd, $crypt_pass) = split(/:/,$passwd_line);

  if ($crypt_pass == 1) {
        $salt = substr($query{'newname'}, 0, 2);
        $new_password = crypt($query{'newpasswd'}, $salt);
  }
  else {
        $new_password = $query{'newpasswd'};
  }
  open(PASSWD,">$passwd_file") || die error(no_passwd_file);
  if ($windows == 0) { flock (PASSWD, 2); }
  print PASSWD "$query{'newname'}:$new_password:$crypt_pass";
  close(PASSWD);
  $aname = $query{'newname'};
  $apassword = $query{'newpasswd'};
  print <<EOF;
  $html_header
  $html_body
  <h5>Login erfolgreich ge&auml;ndert</h5>
  $hr<p>
  <strong>Bitte notieren Sie sich das neue Admin-Login:</strong><br>
  <table align=center cellpadding=3>
  <tr><td>Name:</td><td>$query{'newname'}</td></tr>
  <tr><td>Passwort:</td><td>$query{'newpasswd'}</td></tr></table>
  <p>$hr
EOF
  restadmin();
  print "$html_footer";
  exit;
}

###########################################################################################

sub about {
$about_is = 1;
print <<EOF;
$html_header
$html_body
<h2>$VER</h2>
<table><tr><td>
<p><hr size=5 noshade color="$bgc">
<p><strong>Copyright:</strong><br>
Copyright (C) 1999 GEOsWEB - Georg Bartsch, J&ouml;rg von Livonius<br>
ALLE RECHTE VORBEHALTEN
<p>
GEOs G&auml;stebuch ist f&uuml;r private Nutzer kostenlos. Gewerbliche Nutzer bitten wir um R&uuml;cksprache (admin\@geosweb.de).<br>
Das Kopieren und Weitergeben des Dokuments ist NICHT erlaubt.<br>
Das &Auml;ndern des Skriptes ist NICHT erlaubt, mit Ausnahme des Suffix (anstelle .cgi z.B. .pl).<br>
Die Konfigurationsdatei darf mit Ausnahme dieser Passage ge&auml;ndert werden.<br>
Das w&ouml;rtliche &Uuml;bernehmen von einzelnen Passagen aus diesem Dokument in eigene Projekte ist NICHT erlaubt.<br>
Die Copyright-Angaben und Hinweise zu GEOsWEB d&uuml;rfen aus keiner Datei entfernt werden und m&uuml;&szlig;en stets lesbar sein.
<p>
Bei Ver&ouml;ffentlichung dieses Dokuments ist es eine feine Geste, uns eine Nachricht zukommen zu lassen.

<p><hr size=5 noshade color="$bgc">

<p><strong>Readme:</strong>
<p>LESEN SIE DIESEN ABSCHNITT GR&Uuml;NDLICH UND VOLLST&Auml;NDIG WENN SIE FEHLER VERMEIDEN M&Ouml;CHTEN !!!

<p align=justify>
&Auml;ndern Sie zuerst NUR die notwendigen Angaben (Pfad, URL...). Wenn das Skript anschl. auf Ihrem Server l&auml;uft,
k&ouml;nnen Sie sich die anderen Einstellungen durch den Kopf gehen lassen.
Sollten Sie Probleme mit den Pfadangaben haben, installieren Sie einfach GEOs Server Info.<br>
WICHTIG !!!<br>
Alle Optionen die mit &quot;EOF&quot; beginnen und enden k&ouml;nnen Sie (fast) als normalen HTML-Code behandeln.
Vor Sonderzeichen, wie z.B. \@, m&uuml;ssen Sie ein \ notieren.
Bei den anderen Zeilen M&Uuml;SSEN Sie vor alle Sonderzeichen ein (\) Backslash setzen.
&Auml;NDERN SIE IMMER NUR EINE OPTION UND TESTEN SIE DAS SKRIPT ANSCHLIESSEND !!!
Wenn Ihr Browser nur ein weisses Bild anzeigt oder ewig versucht die Seite zu laden, dann handelt es sich wahrscheinlich um
einen CGI-Fehler. Dies passiert z.B. bei einem vergessenen Semikolon (;) oder (&quot;) oder, oder...
Bei dem &quot;beliebten&quot; ERROR 500 sind die Pfadangaben oder Zugriffsrechte schuld. Checken Sie diese zuerst.

<p>Erforderliche Dateien:<br>
<table cellpadding=3>
<tr><td>/cgi-bin/gbook.cgi</td><td>Skript</td></tr>
<tr><td>/cgi-bin/gbook.cfg</td><td>Konfigurationsdatei</td></tr>
<tr><td>/gbook/gbadword.txt</td><td>BadWord-Datei</td></tr>
<tr><td>/gbook/gbook.cnt</td><td>Z&auml;hldatei</td></tr>
<tr><td>/gbook/gbook.dat</td><td>G&auml;stebuchdatei</td></tr>
<tr><td>/gbook/gbook.stp</td><td>Setupdatei</td></tr>
<tr><td>/gbook/gbooklog.txt</td><td>Logdatei</td></tr>
<tr><td>/gbook/gip.txt</td><td>IP-Sperre</td></tr>
<tr><td>/gbook/passwd.txt</td><td>Passwortdatei Administrator</td></tr>
<tr><td>/gbook/today.gif</td><td>Image</td></tr>
</table>

<p align=justify>SETUP:<br>
Editieren Sie die Konfigurationsdatei &quot;gbook.cfg&quot;.
Kopieren Sie alle Dateien auf Ihren Webserver. Wichtig ist, dass das Skript und die Konfigurationsdatei im ASCII-Modus
&uuml;bertragen werden. Chmoden (Zugriffsrechte) Sie das Skript mit 755, alle anderen Dateien sollten Sie auf Chmod 600 setzen,
somit verhindern Sie das z.B. Dritte in Ihre Passwortdatei einsehen k&ouml;nnen.
Editieren Sie <strong>nicht</strong> die Setupdatei! Das Setup wird in der Administration vorgenommen.
Sollten unerwartete Fehler auftreten, &auml;ndern Sie zuerst die Zugriffsrechte.

<p>Aufruf G&auml;stebuch:<br>
http://www.IhreDomain.de/cgi-bin/gbook.cgi<br>
Aufruf Admin:<br>
http://www.IhreDomain.de/cgi-bin/gbook.cgi?action=admin

<p>F&uuml;r Verbesserungsvorschl&auml;ge, Fragen, etc., steht Ihnen der &quot;Bug Report&quot; in der Administration zur Verf&uuml;gung.

<p><hr size=5 noshade color="$bgc">

<p><strong>Autor:</strong><br>
Georg Bartsch und J&ouml;rg von Livonius - <a href="mailto:admin\@geosweb.de">admin\@geosweb.de</a>

</td></tr></table>
<p><hr size=5 noshade color="$bgc">
EOF
restadmin();
print "$html_footer";
exit;
}

###########################################################################################

sub get_input {
  if ($ENV{'REQUEST_METHOD'} eq "GET") { $qstring= $ENV{'QUERY_STRING'}; }
  elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $qstring, $ENV{'CONTENT_LENGTH'}); }
  @split = split (/&/, $qstring);
  foreach $split (@split) {
        ($query_key, $query_value) = split (/=/, $split);
        $query_value =~ tr/+/ /;
        $query_value =~ s/%([\dA-Fa-f][\dA-Fa-f])/ pack ("C", hex ($1))/eg;
        if ($query_key eq "bugsubject" || $query_key eq "bugcomment") {
          $query_value =~ s/&auml;/”/g;
          $query_value =~ s/&ouml;/–/g;
          $query_value =~ s/&uuml;/¸/g;
          $query_value =~ s/&Auml;/Ÿ/g;
          $query_value =~ s/&Ouml;/÷/g;
          $query_value =~ s/&Uuml;/Ð/g;
          $query_value =~ s/&szlig;/þ/g;
        }
        else {
          $query_value =~ s/”/&auml;/g;
          $query_value =~ s/–/&ouml;/g;
          $query_value =~ s/¸/&uuml;/g;
          $query_value =~ s/Ÿ/&Auml;/g;
          $query_value =~ s/÷/&Ouml;/g;
          $query_value =~ s/Ð/&Uuml;/g;
          $query_value =~ s/þ/&szlig;/g;
          $query_value =~ s/\|+?//g;
          unless ($query_key eq "comment") {
                $query_value =~ s/\"/&quot;/g;
                $query_value =~ s/\s+$//g;
                $query_value =~ s/^\s+//g;
                $query_value =~ s/</\&lt\;/g;
                $query_value =~ s/>/\&gt\;/g;
          }
        }
        push(@QUERY, $query_value);
        $query{$query_key} = $query_value;
  }
  $name = $query{'name'};
  $email = $query{'email'};
  $comment = $query{'comment'};
  $url = $query{'url'};
  $titleurl = $query{'titleurl'};
  $linkup = $query{'linkup'};
  $searchv = $query{'searchv'};
  $aname = $query{'aname'};
  $apassword = $query{'apassword'};
}

###########################################################################################

sub check_form {
  unless ($check_host == 0) {
        if ($ENV{'HTTP_HOST'} && $ENV{'HTTP_REFERER'}) {
          if ($ENV{'HTTP_REFERER'} !~ /$ENV{'HTTP_HOST'}/) { return(error(wrong_host)); exit; }
        }
  }

  if ($html != 1) {
        $comment =~ s/<p>/\n\n/g;
        $comment =~ s/<br>/\n/g;
        $comment =~ s/<([^>]|\n)*>//g;
  }
  else { $comment =~ s/<!--(.|\n)*-->//g; }
  $comment =~ s/\cM//g;
  $comment =~ s/\n\n+/<p>/g;
  $comment =~ s/\r\n/<br>/g;
  $comment =~ s/\n/<br>/g;
  $comment =~ s/\n+$//g;
  $comment =~ s/\s+$//g;
  $comment =~ s/<br>$//g;
  $comment =~ s/<p>$//g;

  if ($name !~ /\w/) { return(error(no_name)); exit; }
  if ($email && ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/ ||
          $email !~ /^.+\@\[?(\w|[-.])+\.[a-zA-Z]{2,3}|[0-9]{1,3}\]?$/)) {
    return(error(wrong_email)); exit;
  }

  if ($comment !~ /\w/) { return(error(no_comment)); exit; }
  if ($comment =~ /\<(\s+?)?meta|\<(\s+?)?script/i) { return(error(no_script)); exit; }

  unless ($max_word == 0) {
        my $word = $comment;
        $word =~ s/<\s//g;
        $word =~ s/<<+?\s//g;
        $word =~ s/\r\n/\n/g;
        $word =~ s/\s/\n/g;
        $word =~ s/\b/\n/g;
        $word =~ s/<br>/\n/g;
        $word =~ s/<p>/\n/g;
        $word =~ s/<([^>]|\n)*>//g;
        my @words = split(/\n/,$word);
        for (@words) { if (length($_) > $max_word) { error(too_long); exit; } }
        if (length($name) > 30 || length($subject) > 60 || length($titleurl) > 60) { error(too_long); exit; }
  }

  if ($url && ($url =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/ ||
    $url !~ /(f|ht)tp:\/\// ||
    $url !~ /\./)) {
    return(error(wrong_url)); exit;
  }
  if ($usemod == 1 && $url) {
        unless (get("$url")) { return(error(url_not_found)); exit; }
  }
  unless ($url) { $titleurl = ""; }

  if ($check_bw == 1) {
        shift(@QUERY);
        open(BW,"<$book_path/$badword_file") || die error(no_badwordfile);
        my @BW = <BW>;
        close(BW);
        foreach $bwquery (@QUERY) {
          foreach $bw (@BW) { $bw =~ s/\s+?//g; if ($bwquery =~ /$bw/i) { return(error(bad_word)); exit; } }
        }
  }
  if ($check_ip == 1) {
        shift(@QUERY);
        open(IP,"<$book_path/$ip_file") || die error(no_ipfile);
        my @IP = <IP>;
        close(IP);
        foreach $ip (@IP) { $ip =~ s/\s+?//g; if ($ip eq "$ENV{'REMOTE_ADDR'}") { return(error(bad_ip)); exit; } }
  }
}

###########################################################################################

sub restadmin {
  print "<p><table align=center border=0 cellspacing=0 cellpadding=3><tr>\n";

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"alogin\">";
  print "<input type=hidden name=\"aname\" value=\"$aname\"><input type=hidden name=\"apassword\" value=\"$apassword\">";
  if ($alogin_is != 1) { print "<td><input type=submit value=\"L&ouml;schen\" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ L&ouml;schen ]\" class=\"form1\"></td></form>"; }

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"badword\">";
  print "<input type=hidden name=\"aname\" value=\"$aname\"><input type=hidden name=\"apassword\" value=\"$apassword\">";
  if ($badword_is != 1) { print "<td><input type=submit value=\"BadWords\" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ BadWords ]\" class=\"form1\"></td></form>"; }

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"ipblock\">";
  print "<input type=hidden name=\"aname\" value=\"$aname\"><input type=hidden name=\"apassword\" value=\"$apassword\">";
  if ($ipblock_is != 1) { print "<td><input type=submit value=\"IP's \" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ IP's ]\" class=\"form1\"></td></form>"; }

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"logfile\">";
  print "<input type=hidden name=\"aname\" value=\"$aname\"><input type=hidden name=\"apassword\" value=\"$apassword\">";
  if ($logfile_is != 1) { print "<td><input type=submit value=\"Logfile\" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ Logfile ]\" class=\"form1\"></td></form>"; }

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"setup\">";
  print "<input type=hidden name=\"aname\" value=\"$query{'aname'}\"><input type=hidden name=\"apassword\" value=\"$query{'apassword'}\">";
  if ($setup_is != 1) { print "<td><input type=submit value=\"Setup\" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ Setup ]\" class=\"form1\"></td></form>"; }

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"bugrep\">";
  print "<input type=hidden name=\"aname\" value=\"$aname\"><input type=hidden name=\"apassword\" value=\"$apassword\">";
  if ($bugrep_is != 1) { print "<td><input type=submit value=\"Report\" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ Report ]\" class=\"form1\"></td></form>"; }

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"chpasswd\">";
  print "<input type=hidden name=\"aname\" value=\"$aname\"><input type=hidden name=\"apassword\" value=\"$apassword\">";
  if ($chpasswd_is != 1) { print "<td><input type=submit value=\"Login\" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ Login ]\" class=\"form1\"></td></form>"; }

  print "<form method=post action=\"$cgi_url\"><input type=hidden name=\"action\" value=\"about\">";
  print "<input type=hidden name=\"aname\" value=\"$aname\"><input type=hidden name=\"apassword\" value=\"$apassword\">";
  if ($about_is != 1) { print "<td><input type=submit value=\"&nbsp;&nbsp;?&nbsp;&nbsp;\" class=\"form2\"></td></form>"; }
  else { print "<td><input type=submit value=\"[ ? ]\" class=\"form1\"></td></form>"; }

  print "</tr></table>\n";
}

###########################################################################################

sub error {
  print "$html_header\n$html_body\n<div align=center>\n";
  $error = $_[0];
  if ($error eq 'no_bookfile') {
        print "<h1>FEHLER:</h1>\n<h3>Die G&auml;stebuchdatei wurde nicht gefunden.</h3>\n";
  }
  elsif ($error eq 'no_countfile') {
        print "<h1>FEHLER:</h1>\n<h3>Die Z&auml;hldatei wurde nicht gefunden.</h3>\n";
  }
  elsif ($error eq 'no_badwordfile') {
        print "<h1>FEHLER:</h1>\n<h3>Die BadWord-Datei konnte nicht gefunden werden.</h3>\n";
  }
  elsif ($error eq 'no_ipfile') {
        print "<h1>FEHLER:</h1>\n<h3>Die IP-Datei konnte nicht gefunden werden.</h3>\n";
  }
  elsif ($error eq 'no_logfile') {
        print "<h1>FEHLER:</h1>\n<h3>Die Log-Datei konnte nicht gefunden werden.</h3>\n";
  }
  elsif ($error eq 'no_passwd_file') {
        print "<h1>FEHLER:</h1>\n<h3>Die Passwortdatei konnte nicht gefunden werden.</h3>\n";
  }
  elsif ($error eq 'no_setupfile') {
        print "<h1>FEHLER:</h1>\n<h3>Die Setupdatei konnte nicht gefunden werden.</h3>\n";
  }
  elsif ($error eq 'no_del') {
        print "<h1>FEHLER:</h1>\n<h3>Sie haben keine Auswahl getroffen.</h3>\n";
  }
  elsif ($error eq 'no_login') {
        print "<h1>FEHLER:</h1>\n<h3>Bitte geben Sie Ihren Benutzernamen und Ihr Passwort ein.</h3>\n";
  }
  elsif ($error eq 'passwd_exist') {
        print "<h1>FEHLER:</h1>\n<h3>Es wurde schon ein Login registriert.<br>L&ouml;schen Sie den Inhalt der Passwortdatei.</h3>\n";
  }
  elsif ($error eq 'no_name') { print "$error_no_name\n<p>$hr"; restform(); }
  elsif ($error eq 'no_comment') { print "$error_no_comment\n<p>$hr"; restform(); }
  elsif ($error eq 'wrong_email') { print "$error_wrong_email\n<p>$hr"; restform(); }
  elsif ($error eq 'wrong_url') { print "$error_wrong_url\n<p>$hr"; restform(); }
  elsif ($error eq 'url_not_found') { print "$url_not_found\n<p>$hr"; restform(); }
  elsif ($error eq 'no_script') { print "$error_no_script\n<p>$hr"; restform(); }
  elsif ($error eq 'block_post') { print "$error_block_post"; }
  elsif ($error eq 'no_searchv') { print "$error_no_searchv"; }
  elsif ($error eq 'bad_word') { print "$error_bad_word\n<p>$hr"; restform(); }
  elsif ($error eq 'bad_ip') { print "$error_bad_ip"; }
  elsif ($error eq 'too_long') { print "$error_too_long\n<p>$hr"; restform(); }
  elsif ($error eq 'bad_combo') {
  $title =~ s/&auml;/”/g;
  $title =~ s/&Auml;/Ÿ/g;
        open (SENDMAIL, "| $mail_path -t");
        print SENDMAIL "To: Webmaster $title <$mail_addr>\n";
        print SENDMAIL "From: $title <$mail_addr>\n";
        print SENDMAIL "Subject: Falsche Passworteingabe\n\n";
        print SENDMAIL <<EOF;
Warnung:
Am $date, wurde ein falsches Passwort f¸r den Admin-Bereich $title eingegeben.
Die Person wollte sich mit folgendem Login Zugang verschaffen:
Name: $aname
Passwort: $apassword

Weitere Daten:
IP: $ENV{'REMOTE_ADDR'}
Browser: $ENV{'HTTP_USER_AGENT'}
EOF
        close (SENDMAIL);
        print "$error_bad_combo";
  }
  else {
        print <<EOF;
        <h1 align=center>FEHLER</h1>
        <p align=center>Es ist ein unbekannter Fehler aufgetreten.<br>
        Bitte informieren Sie den  <a href="mailto:$mail_addr">Webmaster</a>.
EOF
  }
  print "</div>$html_footer\n";
  exit;
}

###########################################################################################

sub by_number {
  if ($b < $a) { return -1; }
  elsif ($b == $a) { return 0; }
  elsif ($b > $a) { return 1; }
}

###########################################################################################

sub check_passwd {
  unless ($aname && $apassword) { error(no_login); exit; }
  open(PASSWD, "$passwd_file") || die error(no_passwd_file);
  if ($windows == 0) { flock (PASSWD, 2); }
  my $passwd_line = <PASSWD>;
  chomp($passwd_line);
  close(PASSWD);

  ($username, $passwd, $crypt_pass) = split(/:/, $passwd_line);
  if ($crypt_pass == 1) {
    my $salt = substr($aname, 0, 2);
        my $test_passwd = crypt($apassword, $salt);
        if (!($test_passwd eq $passwd && $aname eq $username)) { return(error(bad_combo)); }
  }
  else { if (!($apassword eq $passwd && $aname eq $username)) { return(error(bad_combo)); } }
}