########################################################################
#####  Copyright (c) 2002 - RZ TUHH - All rights reserved
#####  Author: Marlen Bredehoeft, bredehoeft@tuhh.de
#####
#####   This program is distributed in the hope that it will be useful,
#####   but WITHOUT ANY WARRANTY; without even the implied warranty of
#####   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
########################################################################

######################################################################
# INHALT :                                                           # 
#           sub VerboteneEingabe                                     #
#           sub BenoetigteEingabe                                    #
#           sub GueltigeEmail                                        #
#           sub FehlerAusgabe                                        #
#                                                                    # 
# Aufruf: &VerboteneEingabe( $var1, "Text fuer Fehlermeldung 1"      # 
#                          , $var2, "Text fuer Fehlermeldung 2"      #
#                          ,  ... usw. ...   );                      # 
#                                                                    # 
#         &BenoetigteEingabe (  wie oben );                          #
#                                                                    #
#         &GueltigeEmail( $email );                                  # 
#                                                                    #
#         &FehlerAusgabe;                                            #
#                                                                    #
######################################################################

###############################################################
# @data enthaelt die Strings, auf die                         #
# die Variablen $var1, $var2 usw. ueberprueft werden sollen   #
###############################################################

@data = (";", "&", "<", "\""); #####, "<!","<[?]");

#######################################
# Funktion fuer die Sicherheitsabfrage
#######################################
sub VerboteneEingabe {  

   ##############
   # Fehlersuche
   ##############
   $eingaben = @_;
   $zaehler = 0 ;
 
   for ($i = 0; $i <= $eingaben; $i += 2){
       $variable = shift (@_);
       $text     = shift (@_);
       foreach $k(@data){
           if ($variable =~ /$k/){
              $zaehler++;
              $verboten = true;
              $meldung = "<LI>Unerlaubte Eingabe im Feld <font color=\"#ff0000\">" . $text . "</font>";
              $fehlermeldung = $fehlermeldung.$meldung;
           } #end IF

       }#end FOREACH $k(@data)
 
    } #end FOR
 
    if ($verboten eq true){
       &FehlerAusgabe;
    } #end IF
   return 1;

} #end VerboteneEingabe


################################################
# Kontrollfunktion ueber Luecken in der Eingabe
################################################

sub BenoetigteEingabe{

   $fehler = false;
   $eingaben = @_;
   for($i = 1; $i <= $eingaben; $i+=2){
      $eintrag = shift (@_);
      $text    = shift (@_);
      if ($eintrag eq "" ){
          $zaehler ++;
          $fehlertext = "<li>Bitte machen Sie eine Eingabe im Feld <font color=#ff0000>" . $text . "</font>" ;
          $fehlermeldung = $fehlermeldung.$fehlertext;
          $fehler = true;
        } #end IF    
   } #end FOR

   if ($fehler eq true){
      &FehlerAusgabe;
   } #end IF

   return 1;

} #end SUB BenoetigteEingabe


###############################################
# Funktion zur Ueberpruefung der E-Mailangabe
###############################################

sub GueltigeEmail{

   $eintrag = shift (@_);
      if ($eintrag !~ /.+\@.+\..+/) {
          $fehlermeldung = "Die <font color=\"#ff0000\">E-Mail Adresse</font> kann nicht stimmen";
          $falsche_email = true;
          $zaehler = 1;
         } #end IF

   if ($falsche_email eq true){
      &FehlerAusgabe;
   } #end IF

  return 1;

} #end SUB GueltigeEmail


################
# Fehlerausgabe
################
sub FehlerAusgabe {

print <<"ENDE_FEHLERAUSGABE1";
Content-type: text/html

   <html><head><title>Fehler!</title></head>
   <body bgcolor="#ffffff">
   <ol>
   <h2><br>Es wurde(n) <font color="#ff0000"> $zaehler </font> Fehler entdeckt:</h2>
   <br><br>
   $fehlermeldung
   </ol>

ENDE_FEHLERAUSGABE1

if ($verboten eq true){

   print "<br>Folgende Zeichen d&uuml;rfen nicht benutzt werden : \n";
   print "<blockquote>";
   foreach $k (@data){
       $k =~ s/\[//g;
       $k =~ s/\]//g;
       $k =~ s/\&/\&amp\;/g;
       $k =~ s/\</\&lt\;/g;
       print "<font color=\"#ff0000\">" . $k . "</font>\n" ;
       print "&nbsp;&nbsp;&nbsp;&nbsp;";
    }#end FOREACH $k(@data)
    print "</blockquote>";

} # if ($verboten eq true)

   $name =~ s/\</\&lt\;/g;
   $name =~ s/\>/\&gt\;/g;
   $name =~ s/"//g;
   $email =~ s/\</\&lt\;/g;
   $email =~ s/\>/\&gt\;/g;
   $email =~ s/"//g;
   $homepage_url =~ s/\</\&lt\;/g;
   $homepage_url =~ s/\>/\&gt\;/g;
   $homepage_url =~s/"//g;
   $kommentar =~ s/\</\&lt\;/g;
   $kommentar =~ s/\>/\&gt\;/g;
   $kommentar =~ s/"//g;

print <<"ENDE_FEHLERAUSGABE";
   <br>
   <form  method="post" action="$ENV{'SCRIPT_NAME'}">
   <input type="hidden" name="name" value="$name">
   <input type="hidden" name="email" value="$email">
   <input type="hidden" name="homepage_url" value="$homepage_url">
   <input type="hidden" name="main_message" value="$kommentar">
   <input type="hidden" name="formular" value="ja">
   <input type="submit" value="zur&uuml;ck"></form>
   </body></html>
ENDE_FEHLERAUSGABE

exit;
} #end SUB FehlerAusgabe


return 1;