checkboxes mit Parametern zum Aufrufen desselben Skripts (gelöst) (Perl/CGI)

[thread]18501[/thread]

checkboxes mit Parametern zum Aufrufen desselben Skripts [gelöst]

Tags: perl5 CGI Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+13 replies
miwieg

2013-08-07 16:50
User since
2006-07-16
59 Artikel
BenutzerIn
Ich möchte ein CGI-Skript (script.pl) schreiben, das beim ersten Aufruf eine Ausgabe liefert, bei der zwei binäre Parameter noch nicht auf "true" gesetzt worden sind.
Mithilfe zweier checkboxes soll es dem Benutzer ermöglicht werden, diese Parameter nach Belieben zu setzen.

D.h. es gibt zwei Checkboxes:
Code: (dl )

1 2 3

print '<INPUT TYPE="CHECKBOX" NAME="par1" VALUE="true"> Parameter 1'; print '<INPUT TYPE="CHECKBOX" NAME="par2" VALUE="true"> Parameter 2';
Meine Frage: was muss der submit-Button jetzt genau "sagen", um wieder zum ursprünglichen Skript zu kommen und gleichzeitig die Werte der Checkboxes mitzunehmen?
Code: (dl )

print '<INPUT TYPE="BUTTON" VALUE="aktualisieren" ??? ">';
Vielen Dank im Voraus.
- +3 replies
- bianca
  
  2013-08-07 17:22
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Du brauchst doch im Skript nur die CGI Parameter auslesen und schauen, ob die Variablen gesetzt sind und dann ein checked im Feld ergänzen.
  Das hat mit dem Absende Button nichts zu tun.
  Oder ich verstehe die Frage nicht.
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - miwieg
    
    2013-08-07 17:31
    
    User since
    2006-07-16
    59 Artikel
    BenutzerIn
    
    Die checkboxes sind in script.pl und mit dem "Submit"- (bzw. "aktualisieren"-) Button soll wieder dasselbe Skript aufgerufen werden. Neu ist dann aber, dass durch die checkboxes Parameter gesetzt worden sind.
    
    Meine Frage konkret: wie müsste der "Submit"-Button aussehen, dass er wieder sein eigenenes Skript aufruft und auch die Parameter aus den checkboxes mitnimmt?
    - bianca
      
      2013-08-08 07:01
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Suchst du soetwas?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
      
      use CGI; my $cgih = CGI->new; my $par1 = $cgih->param('par1'); my $par2 = $cgih->param('par2'); my $check1 = (defined $par1 && $par1 eq 'true' ? ' checked' : ''); my $check2 = (defined $par2 && $par2 eq 'true' ? ' checked' : ''); (my $script = $0) =~ s/^.*[\\\/]//g; my $formular = <<HTML <FORM action="$script"> <INPUT TYPE="CHECKBOX" NAME="par1" VALUE="true"$check1> Parameter 1 <INPUT TYPE="CHECKBOX" NAME="par2" VALUE="true"$check2> Parameter 2 <INPUT TYPE="BUTTON" NAME="senden" VALUE="aktualisieren"> </FORM> HTML ; # Formular ausgeben print $cgih->header.$formular;
      
      Editiert von bianca: Korrekturen
      Last edited: 2013-08-08 07:26:09 +0200 (CEST)
      10 print "Hallo"
      20 goto 10
- +9 replies
- GwenDragon
  
  2013-08-07 17:53
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Codeschnippsel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  use CGI; my $cgih = CGI->new; my $par1 = $cgih->param('par1'); my $par2 = $cgih->param('par2'); my $formular = qq( <FORM> <INPUT TYPE="CHECKBOX" NAME="par1" VALUE="true"> Parameter 1 <INPUT TYPE="CHECKBOX" NAME="par2" VALUE="true"> Parameter 2 <INPUT TYPE="BUTTON" NAME="senden" VALUE="aktualisieren"> </FORM> ); if ($cgih->param('senden')) { # verarbeite Parameter } else { # sonst Formular ausgeben print $cgih->header, $formular; }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +8 replies
  - miwieg
    
    2013-08-07 19:20
    
    User since
    2006-07-16
    59 Artikel
    BenutzerIn
    
    Das Formular soll aber immer da sein, so dass man sich die Ausgabe immer wieder mit unterschiedlichen Parameter-Kombinationen anzeigen lassen kann.
    - +7 replies
    - GwenDragon
      
      2013-08-07 19:22
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Dann so:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
      
      use CGI; my $cgih = CGI->new; my $par1 = $cgih->param('par1'); my $par2 = $cgih->param('par2'); my $formular = qq( <FORM> <INPUT TYPE="CHECKBOX" NAME="par1" VALUE="true"> Parameter 1 <INPUT TYPE="CHECKBOX" NAME="par2" VALUE="true"> Parameter 2 <INPUT TYPE="BUTTON" NAME="senden" VALUE="aktualisieren"> </FORM> ); print $cgih->header; if ($cgih->param('senden')) { # verarbeite Parameter } # Formular ausgeben print $formular;
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - miwieg
        
        2013-08-08 10:29
        
        User since
        2006-07-16
        59 Artikel
        BenutzerIn
        
        Komisch, die if-Anweisung
        
        Code: (dl )
        
        if ($cgih->param('senden')) { ...
        
        evaluiert bei mir niemals zu "true".
        
        Der einzige Unterschied in meiner Implementierung ist eigentlich, dass das Formular ganz zum Schluss definiert und sofort ausgedruckt wird. Das dürfte aber nicht die Ursache für das Problem sein.
        
        +5 replies
        
        GwenDragon
        
        2013-08-08 13:09
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Der HTML-Code für den Button muss so lauten, damit er was sendet:
        
        Code (html): (dl )
        
        <INPUT TYPE="SUBMIT" NAME="senden" VALUE="aktualisieren">
        
        Dann wird für den CGI-Parameter senden dann der Wert aktualisieren gesendet und das ist != 0 und damit im boolschen Sinn wahr.
        
        Wenn die Werite als Post übertragen werden sollen, dann muss statt
        
        Code (html): (dl )
        
        <FORM>
        
        dann
        
        Code (html): (dl )
        
        <FORM method="POST">
        
        verwendet werden.
        Last edited: 2013-08-08 13:11:39 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        bianca
        
        2013-08-08 13:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-08-08T11:09:05 GwenDragon
        Der HTML-Code für den Button muss so lauten, damit er was sendet
        
        Damit wäre ich vorsichtig. Soweit ich weiß dient das value Attribut im Button des Typs "submit" hauptsächlich der Beschriftung des Buttons. Das Übermitteln im Formular ist - soweit ich weiß - keine Pflicht sondern eher Zufall.
        Ich würde stattdessen lieber ins Formular ein Feld des Typs "hidden" mit dem gewünschten Flag hinzufügen, das ist auf jeden Fall sicherer.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2013-08-08 13:57
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Der Button mit dem Attribut type und dem Wert submit erzeugt ein Submit-Event, sended also, darum ging es. Zu Anfang des Threads war es im HTML type="button" da wird aber kein Submit für das Formular erzeugt.
        
        //EDIT:
        Du hast Recht mit dem Hinweis, der Wert vom Attribut value beim Submitbuttons wird nicht bei allen Browser gesendet.
        
        //EDIT2:
        HTML 4 zum type=button <http://www.w3.org/TR/html4/interact/forms.html#pus...>
        Last edited: 2013-08-08 14:02:30 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2013-08-08 14:36
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-08-08T11:57:42 GwenDragon
        Zu Anfang des Threads war es im HTML type="button" da wird aber kein Submit für das Formular erzeugt.
        
        Das sehe ich jetzt erst nach deinem Hinweis. Au Mann, jetzt verstehe ich die Frage auch. Danke :)
        
        Das heißt, die Frage war eigentlich "wie baut man einen Button zum Absenden eines HTML Formulars". Die Checkboxen waren also doch unnötig für die Fragestellung.
        
        Na gut. Treffend fragen ist nicht jedermanns Sache :)
        10 print "Hallo"
        20 goto 10
        
        miwieg
        
        2013-08-08 18:05
        
        User since
        2006-07-16
        59 Artikel
        BenutzerIn
        
        Genau, das war's. Jetzt funktioniert es auch bei mir.
        Vielen Dank an alle für die Unterstützung!

View all threads created 2013-08-07 16:50.