<form action="/cgi-bin/baseportal.pl?htx=/auktion/gebot" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">

<perl>
#- - -  abfrage, ob user registriert ist - -#

{
  get "Login==!$Login", "reg"; 

  if($Passwort ne "" && $Passwort eq $pwrein)

#- - -  datumsvergleich ob jetzt noch im auktionszeitraum liegt, falls ja speichern - -#
get "", "auktiondb"; 
$vergl_datum = datum("jetzt", "intern");
if(Beginn lt $vergl_datum && $Ende gt $vergl_datum)
  {

{
if ($cmd eq "add")
{ 
       put undef, "gebotedb"; 
       } elsif ($cmd eq "mod")
{ 
       mod undef, "gebotedb";
  } 
}

   do_all "db=gebotedb input=no", "Login", "pwrein"; 

  } else {

    out "Zeit schon vorbei";

    $namerein="";
  }
}
}
</perl>