<perl>
    if($cmd eq "add") {
     if ($errors eq "") {
      $img_url = "http://www.bs.ni.schule.de/skrupop/bp/funnybp/userpics/$filename";
      mod "UID==!$uid", ["BildURL", "$img_url"], "BPUser" if $cmd eq "add";
      out <<EOF;
<table width="99%" cellpadding="0" cellspacing="4" border="0" align="center">
   <tr>
    <td>
     <p align="center">
      <font face="arial,helvetica" size="2">
       <b>Bild hochgeladen</b>
      </font>
     </p>
    </td>
   </tr>
   <tr>
    <td bgcolor="#f8f8f8">
     <table width="100%" cellpadding="4" cellspacing="2" border="0">
      <tr>
       <td bgcolor="#ffffff" align="center">
        <img src="$img_url" alt="Dein Bild">
       </td>
       </td>
      </tr>
      <tr>
       <td bgcolor="#ffffff" align="center">
        <a href="JavaScript:window.close()"><font face="arial,helvetica" size="2">Fenster schließen</font></a>
       </td>
      </tr>
     </table>
    </td>
   </tr>
  </table>
EOF
     } else {
      out <<EOF;
<table width="99%" cellpadding="0" cellspacing="4" border="0" align="center">
   <tr>
    <td>
     <p align="center">
      <font face="arial,helvetica" size="2">
       <b>FEHLER</b><br>Folgende(r) Fehler ist/sind aufgetreten:
      </font>
     </p>
    </td>
   </tr>
   <tr>
    <td bgcolor="#f8f8f8">
     <table width="100%" cellpadding="4" cellspacing="2" border="0">
      <tr>
       <td bgcolor="#ffffff" align="center">
        <font face="arial,helvetica" size="2" color="#ff0000">$errors</font>
       </td>
      </tr>
      <tr>
       <td bgcolor="#ffffff" align="center">
        <a href="baseportal.pl?htx=$htx$link"><font face="arial,helvetica" size="2">
Zurück</font></a>
       </td>
      </tr>
     </table>
    </td>
   </tr>
  </table>
EOF
     }
    } elsif ($cmd eq "upload") {
     out <<EOF;
<table width="99%" cellpadding="0" cellspacing="4" border="0" align="center">
   <form action="http://www.bs.ni.schule.de/skrupop/bp/funnybp/cgi-bin/upload.cgi" method="post" enctype="multipart/form-data">
   <input type="hidden" name="destdir" value="/home/skrupop/public_html/bp/funnybp/userpics/">
   <input type="hidden" name="destfile" value="$uid">
   <input type="hidden" name="redirect" value="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=$htx$link&cmd=add">
   <input type="hidden" name="maxfilesize" value="40960">
   <input type="hidden" name="checkpicsize" value="1">
   <input type="hidden" name="maxpicsize" value="100x100">
   <tr>
    <td>
     <p align="center">
      <font face="arial,helvetica" size="2">
       <b>Passfotoupload</b><br>Du kannst jetzt dein Passfoto hochladen.<br>
       Es werden nur Grafiken akzeptiert, die nicht grösser als 40 KB sind und das Format 100x100 Pixel nicht überschreiten.
      </font>
     </p>
    </td>
   </tr>
   <tr>
    <td bgcolor="#f8f8f8">
     <table width="100%" cellpadding="4" cellspacing="2" border="0">
      <tr>
       <td bgcolor="#ffffff" align="center"><input name="file" type="file" maxlength="40960" size="25"></td>
      </tr>
      <tr>
       <td bgcolor="#ffffff" align="center"><input type="submit" value="Speichern"></td>
      </tr>
     </table>
    </td>
   </tr>
   </form>
  </table>
EOF
    } else {
     out <<EOF;
<script language="JavaScript">
   document.writeln("<a href=\\\"JavaScript:void(window.open('http://www.baseportal.de/cgi-bin/baseportal.pl?htx=$htx$link&cmd=upload','passfoto','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=385,height=175'))\\\">Fenster öffnen</a>");
  </script>
  <noscript>
   <a href="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=$htx$link&cmd=upload">Fenter öffnen</a>
  </noscript>
EOF
    }
   </perl>