Re: do action innerhalb von <PERL> ??? - 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 Sander (8133 Beiträge) am Donnerstag, 20.Februar.2003, 23:41.
    Re: do action innerhalb von <PERL> ???

      statt do action nimmst du do_all in perl -> siehe doku


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Markus (0 Beiträge) am Donnerstag, 20.Februar.2003, 21:40.
    do action innerhalb von <PERL> ???

      Hi, ich steh mal wieder auf dem Schlauch. Ich möchte aus dem Beispiel-Vorlagen das Passwort-Template von Oliver (aus Dez. 2002) nutzen. Funktioniert wunderbar. War das Login erfolgreich, soll ein ganz normaler DO ACTION ausgeführt werden. Nur irgendwie klappt das nicht innerhalb von PERL. Die Textausgabe funktioniert bestens. Aber das DO ACTION=all wird nicht ausgeführt. Wie muss der Aufruf denn lauten? Hier der relevante Teil:


      <perl>
      if($namerein ne "" && $sid eq $nutzer_sid && $sid_aktuell <= $sid_max) ## Alles was mit Login erlaubt ist
      {
      out <<EOF;
      <div id="ueberschrift">Erfassung Einsätze</div>
      <p>
      <do action=all db=einsaetze/pflege sort=-Datum range^=0,200 pagebrowse=no buttonbrowse=no listtype=list listfields=Datum,Stichwort,Einsatzort input=top>
      EOF
      }
      else # Alles was man sehen kann, wenn man nicht eingeloggt ist
      {
      out <<EOF;
      
      Sie sind momentan nicht angemeldet.
      EOF
      out "";
      }
      </perl>
      

      Wär echt super, wenn ihr mir einen Tipp geben könntet... DANKE!!!

     Antworten

    Beitrag von Sander (8133 Beiträge) am Donnerstag, 20.Februar.2003, 23:41.
    Re: do action innerhalb von <PERL> ???

      statt do action nimmst du do_all in perl -> siehe doku

     Antworten

    Beitrag von Markus (0 Beiträge) am Freitag, 21.Februar.2003, 07:03.
    Re: do action innerhalb von <PERL> ???

      Hi Sander, danke das hab ich gemacht, komme aber trotzdem nicht weiter. Die zweite Datenbank (Einsaetze) wird zwar jetzt aufgerufen, aber es kommt immer die Anmeldung aus dem Template "Login" zwischen jedem Datensatz und es wird auch nichts richtig angezeigt. Und das passiert auch, wenn ich alle Parameter weglasse (also nur do_all "db=einsaetze/main"; angebe).

      Das ganze Template sieht so aus:

      <html>
      <head>
      </head>
      <div id="ueberschrift">Datenbankpflege</div>
      <br>Nach Ihrer Anmeldung können Einsatzlisten und Berichte gepflegt werden.<br><br>
      <include src=login> 
      <br><br>
      <perl>
      if($namerein ne "" && $sid eq $nutzer_sid && $sid_aktuell <= $sid_max) ## Alles was mit Login erlaubt ist
      {
      out <<EOF;
      <div id="ueberschrift">Erfassung Einsätze</div>
      <p>
      EOF
      do_all "db=einsaetze/main sort=-Datum range^=0,200 pagebrowse=no buttonbrowse=no listtype=list listfields=Datum,Stichwort,Einsatzort input=top";
      }
      else # Alles was man sehen kann, wenn man nicht eingeloggt ist
      {
      out <<EOF;
      

      Sie sind momentan nicht angemeldet.

      EOF
      }
      </perl>
      

      <br>
      </body>
      </html> 
      


      Gruss, Markus

     Antworten

    Beitrag von nezpercez (499 Beiträge) am Freitag, 21.Februar.2003, 14:59.
    Re: do action innerhalb von <PERL> ???

      Bei mir funktioniert folgender Script:

      <html><head><title></title></head><body bgcolor="white">
      <perl>
      

      if($namerein ne "")
      {
        get "Name==!$namerein", "Name der Passworddatenbank";
      
        if($Passwort ne "" && $Passwort eq $pwrein)   {    do_all "db=Name der auszugebenden Datenbank spacing=1 border=0 gridcolor=teal padding=1 dataface=Arial datacolor=black datasize=2 databack=white dataalign=left headface=Arial headcolor=black headsize=2 headback=silver headalign=left headsize=2 headalign=left maxlistlength=50 showamount=sel,all selectbrowse=top indexbrowse=top pagebrowse=top buttonbrowse=no listtype=list indexfield=Name input=link", "namerein", "pwrein";   } else   {     out "<b>Anmeldung fehlgeschlagen!</b>";     $namerein="";   }
      }

      if($namerein eq "")
      {
      

      out <<EOF;
      <h2>Anmeldung</h2>Bitte melden Sie sich an:
      <form action="http://lupara.org/baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type=hidden name="htx=" value="$htx">
      <table>
      <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
      <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
      <tr><td></td><td><input type=submit value="Anmelden"></td></tr>
      </table></form>
      EOF
      

      }

      </perl>
      

      </body></html>

     Antworten

    Beitrag von Markus (0 Beiträge) am Freitag, 21.Februar.2003, 19:31.
    Re: do action innerhalb von <PERL> ???

      Ja, ich schaff's inzwischen, das Teil aufzurufen, aber es scheint mit meinen StyleSheets zusammen zu hängen, denn die Seite baut sich total verschachtelt und übereinander auf...grübel...

     Antworten


     
 Liste der Einträge von 40351 bis 40501: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.07s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!