Demo XML Seiten- /Datenbankschutz - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von H.Fehde (724 Beiträge) am Sonntag, 5.August.2012, 17:30. WWW: www.bei123.de/baseportal/OFFICE
    Demo XML Seiten- /Datenbankschutz

      Die Realisation von Logins für seine eigene User erscheint dem einen oder anderen etwas schwierig.
      Ich hab mir den "Bordmittel von baseportal" mal eine Demo gestrickt.

      Dabei wird "nebenbei" der Einsatz eigener "Tags&Entities" (%mytags) gezeigt.

      siehe: http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/_out

      Gruß H.Fehde - nachfolgend der Code:

      <perl>
      ##########################################################################################
      $login_text = login;
      $login_text =~ s/Bitte melden Sie sich an://;
      $login_text =~ s/Anmelden/Login/;
      logout if $cmd eq "logout";
      $aktioncolor=($_user ne "" ? "#000000":"#c0c0c0");
      $aktionmsg  =($_user ne "" ? "<font color=green>Alternativ-Login</font> mit <i>demo</i> + <i>demo</i> ":"DemoLogin mit <i>test</i> + <i>test</i>");
      ##########################################################################################
      

      %mytags=(
      "&bp;" => sub{out qq(<span style="color:#d80000">base</span><span style="color:#000000">portal</span>)},

      "&webmaster;" => sub{out qq(<span style="color:blue">H.Fehde, <i>Webmaster\@bei123.de</i></span>)},

      "anmeldung" => sub{
      #------------------
      out qq(<fieldset style="border:1px solid $aktioncolor"><legend style="color:$aktioncolor"><b>Anmeldung</b></legend><div style="background-color:#f0f0f0;padding:3px;color:blue">);
      if($_user eq "")
      {out $login_text ;
      }else
      {out qq(<h4>User($_user)</h4>);
      out qq(<form action="$_link" name="_baseportal_logout" method="post" enctype="multipart/form-data"><input type="hidden" name="cmd=" value="logout"><input type="submit" value="Logout"></form>);
      }
      out qq(</div></fieldset>);
      #-----------------
      },
      

      "aktion" => sub{
      #---------------
      my $AKTION=$_;
      out  qq(<fieldset style="border:1px solid $aktioncolor"><legend style="color:$aktioncolor" ><b>Aktion</b></legend>);
      if($_user ne "")
      {## angemeldet 
       if($_user{Admin} eq "")
       {# kein Admin
        $userformfields="-Name,Passwort,Admin,Lesen,Schreiben,Ausführen,Ändern,Löschen";
        outp qq(<div style="padding:4px"><do action=list db=$Datenbank Id==$Id listfields=-Aktion,Id,Name,Passwort,Lesen,Schreiben,Ausführen,Ändern,Löschen></div>) if($cmd eq "do_mod") ;
           if($_loop{Admin} eq "")
           {
            outp $AKTION ;
           }
           else
           {
            outl qq(<h4>Den Admin können Sie nicht ändern:  <i><a href="$_link&uid=$uid&sid=$sid">Also zurück</a></i> </h4>);
           }
        }
        else
        {# der Admin
         outp $AKTION ;
        }
      }##
      

      outp qq(<hr><center>$info<h4>$aktionmsg</h4></center><br>);
      out  qq(</div></fieldset>);
      #---------------
      },
      


      );
      ####################
      parse "",\%mytags; # let's work
      ####################
      </perl>
      <html><head>
      <title>Meine Userverwaltung</title>
      <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
      <meta http-equiv="content-language" content="de">
      <meta http-equiv="Content-Style-Type" content="text/css">
      <style type="text/css">
      html{background:#ffffff}
      hr{border: 0px; /* Für Firefox und Opera */
       border-top: solid 1px silver;
       border-bottom: transparent;}
      .left{width:250px;float:left;}
      .right{float:left;}
      .aktion={color:$aktioncolor;}
      .shadow{text-shadow:2px 2px 4px #141414;}
      </style>
      </head><body>
      

      <span style="font-size:26px" class="shadow" >Baseportal-Schutz</span>
      <hr>
      <div style="width:100%">
      
        <div class="left">   <Anmeldung></Anmeldung>   </div>   <div class="right">   <Aktion info="&bp;-Version:$_version :: Programm von &webmaster;" Datenbank="Zugang" >   <do action=all db=$Datenbank listfields=-Name,Passwort keyfield=FamName allfields=-Name,Passwort searchfields=FamName,VorName formfields=$userformfields >   </Aktion>   </div>

      <div style="clear:left"></div>

      </div>
      <hr>
      <center><banner type=banner></center>
      </body>
      </html>
      


    Antworten 
 Liste der Einträge von 3600 bis 3750:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge


Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.10s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!