###
<html>
 <head>
  <title>Budenverwaltung</title>
  <link rel=stylesheet type="text/css" href="http://">
<include src=header>
  <style type="text/css">
<!--
A:link{ 
        font-family : Arial, Helvetica;
        font-size: 12px;
        Color : #444444;
        Text-Decoration : none;
        }
        font-family : Arial, Helvetica;
        Color : #000000 ! important;
        Font-Weight : normal;
        Font-Size: 12px;
        background-color : #f0f0f0;
}
a.dl, font.dl { 
        font-family : Arial, Helvetica;
        Color : #000000;
        Font-Weight : normal;
        Font-Size: 12px;
        background-color : #f0f0f0;
}
</style>
 </head>
 <body bgcolor=#000000>
  <perl>
   get "benutzername==$LoginNick";
   if($passwort ne "" && $passwort eq $LoginPasswort) {
    if ($cmd eq "mod") {
     mod "benutzername==$LoginNick";
     out '<p align="center"><b>Eintrag geändert...</b></p>';
    }
    if ($cmd eq "del") {
     del "benutzername==$LoginNick";
     out '<p align="center"><b>Eintrag gelöscht...</b></p>';
    }
    if ($cmd ne "mod" && $cmd ne "del") {
    get "benutzername==!$LoginNick"; 
   
    out '<p align="center">';
    out ' <form action="baseportal.pl?htx=/Schoppi/com/Budenscripte" method="post" enctype="multipart/form-data">';
    out '  <input type="hidden" name="htx=" value="/Schoppi/com/Budenscripte">';
    out '  <input type="hidden" name="cmd=" value="mod">';
    out '  <input type="hidden" name="LoginNick=" value="',$LoginNick,'">';
    out '  <input type="hidden" name="LoginPasswort=" value="',$passwort,'">';
    out '  <table bgcolor=cfcfcf>';
    out '  <tr>';
    out '  <td>';
    out '  <center>';
    out '  <table width=100% bgcolor=333333>';
    out '  <tr>';
    out '  <td>';
    out '  <center>';
    out '  <table width=100% bgcolor=999999>';
    out '  <tr>';
    out '  <td>';
    out '  <center>';
    out '  <table width 500 bgcolor=999999 cellspacing="0" cellspadding="0">';
    out '  <tr>';
    out '  <td><b>SCHORNICENTRAL Extras (schwarze Bude)</b><br>';
    out '  <font size=2>Texte werden hier endlos reingeschrieben oder kopiert.<br></font>';
    out '  <font size=2>Sichern Sie Ihre Texte vorab als Textdatei z.B. mit Editor<br></font>';
    out '  <font size=2>ein Überschreiben eines Feldes l&ounl;scht den gesamten Inhalt<br></font>';
    out '  <font size=2>HTML funzt hier nur, wenn mans auch kann.<br></font></td>';
    out '  </tr>';
    out '  </table></center>';
    out '  </td>';
    out '  </tr>';
    out '  <tr>';
    out '  <td>';
    out '   <center><table bgcolor=333333 cellspacing="0" cellspadding="0" border="1">';
    out '    <tr>';
    out '     <td><b><font size=2 color=white>URL zu Ihrem 1. Budenfoto:</font></b></td>';
    out '    </tr>';  
    out '    <tr>';
    out '      <td>';
    out '      <input name="Bildurl:=" size=90 value="',$Bildurl,'">';
    out '     </td>';
    out '    </tr>'; 
    out '    <tr>';
    out '     <td><b><font size=2 color=white>1. Budenfoto anzeigen?</font></b>';
    out '      <input name="bildnummer:=" size=2 value="',$bildnummer,'">';
    out '     <font size=2  color=white><b>Für ja geben Sie eine 2 ein, Für nein eine 0</b></font></td>';
    out '    </tr>'; 
    out '    <tr>';
    out '     <td><b><font size=2 color=white>URL zu Ihrem 2. Budenfoto:</font></b></td>';
    out '    </tr>';  
    out '    <tr>';
    out '      <td>';
    out '      <input name="Bildurl2:=" size=90 value="',$Bildurl2,'">';
    out '     </td>';
    out '    </tr>';  
    out '    <tr>';
    out '     <td><b><font size=2 color=white>2. Budenfoto anzeigen?</font></b>';
    out '      <input name="bildnummer2:=" size=2 value="',$bildnummer2,'">';
    out '     <font size=2  color=white><b>Für ja geben Sie eine 2 ein, Für nein eine 0</b></font></td>';
    out '    </tr>';
    out '    </table></center>';
    out '    </td>';
    out '    </tr>';
    out '    <tr>';
    out '    <td> ';
    out '          <center><table bgcolor=cfcfcf cellspacing="0" cellspadding="0" width=100% border="1">';
    out '           <tr>';
    out '            <td><b><font size=2 color=black>Budentext oben:(HTML erlaubt, wird hier aber verzerrt abgebildet.)</font></b></td>';
    out '           </tr>';  
    out '           <tr>';
    out '            <td>';
    out '            <input name="Budentext2:=" size=90 value="',$Budentext2,'">';
    out '             </td>';
    out '           </tr>';
    out '           <tr>';
    out '            <td><b><font size=2 color=black>Budentext mitte:(HTML erlaubt, wird hier aber verzerrt abgebildet.)</font></b></td>';
    out '           </tr>';  
    out '           <tr>';
    out '            <td>';
    out '            <input name="Budentext:=" size=90 value="',$Budentext,'">';
    out '             </td>';
    out '           </tr>';
    out '           </table></center>';
    out '        </td>';
    out '      </tr>';
    out '    <tr>';
    out '     <td> '; 
    out '            <center><table bgcolor=FFCC00 cellspacing="0" cellspadding="0" width=100% border="1">';
    out '             <tr>';
    out '              <td><b><font size=2 color=black>Lieblingslink:(volle URL: http://www )</font></b></td>';
    out '           </tr>'; 
    out '           <tr>';
    out '            <td>';
    out '            <input name="Budenlink:=" size=90 value="',$Budenlink,'">';
    out '             </td>';
    out '           </tr>';
    out '           </table></center>';
    out '        </td>';
    out '      </tr>';
    out '    <tr>';
    out '     <td> '; 
    out '          <center><table bgcolor=d80000 cellspacing="0" cellspadding="0" width=100% border="1">';
    out '           <tr>';
    out '          <td><b><font size=2 color=yellow>header:(nur für Freaks - zwischen head und head. VORSICHT KEIN TEXT KEIN BILD)</font></b></td>';
    out '         </tr>'; 
     out '         <tr>';
    out '          <td>';
    out '          <input name="header:=" size=90 value="',$header,'">';
    out '           </td>';
    out '         </tr>';
    out '         </table></center>';
    out '        </td>';
    out '      </tr>';
    out '    <tr>';
    out '     <td colspan=2>';
    out '      <div align="center">';
    out '       <input type=submit value="Änderungen in der Bude eintragen">';
    out '      </div>';
    out '  </form>';
    out '     </td>';
    out '    </tr>';
    out '   </table></center>';
    out '  </td>';
    out '  </tr>';
    out '  </table></center>';
    out '  </td>';
    out '  </tr>';
    out '  </table></center>';
    out '  </td>';
    out '  </tr>';
    out '  </table></center>';
    out ' </p>';
    }
   } else {
    out '<h2><center><font color=ffffff>Buden-Login</font></center></h2>';
    out '<form action="baseportal.pl?htx=/Schoppi/com/Budenscripte" method="post" enctype="multipart/form-data">';
    out ' <p align="center">';
    if($LoginPasswort ne "") {
     out '  <b>Buden-Login ungültig !</b>';
    }
    out '  <table>';
    out '   <tr><td><font color=ffffff><b>Username:</b></font></td><td><input type="text" name="LoginNick=" size=20 value=""></td></tr>';
    out '   <tr><td><font color=ffffff><b>Passwort:</b></font></td><td><input type="password" name="LoginPasswort=" size=20 value=""></td></tr>';
    out '   <tr><td colspan=2 align="center"><input type="submit" value="Einloggen"></td></tr>';
    out '  </table>';
    out ' </p>';
    out '</form>';   
   }
  </perl>
 </body>
</html>