Welcher Button wurde geklickt? (Perl/CGI)

[thread]18217[/thread]

Welcher Button wurde geklickt?

Tags: perl5 CGI Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+22 replies
anamollo4music

2013-03-21 12:41
User since
2013-03-19
42 Artikel
BenutzerIn
Hallo zusammen,

und schon wieder eine neue Frage von mir.

Ich habe ein CGI-Skript mit etwa 5 Buttons, die ich dynamisch bename.

Heißt also folgendes:
Code (perl): (dl )

1 2 3 4 5 6

while((my $wert) = $select->fetchrow_array) { print "<td>$wert</td>"; print "<td><input type='submit' name='btn_loeschen${i}' value='loeschen'</td>"; $i++; }
Nun werden soviele Buttons erzeugt wie Tupel in der Tabelle der Datenbank stehen. Das funktioniert auch. Diese werden auch fortlaufend benamt.

Wie aber kann ich nun ein Ereignis auslösen, wenn irgendeiner dieser Button gedrückt wurde. Irgendwie muss ich ja abfangen, ob jemand einen der Buttons gedrückt hat?

Ich habe es nun mit folgendem versucht:
Code (perl): (dl )

1 2

if(($ENV{REQUEST_METHOD}) eq "POST") { print "einer der Button wurde gedrueckt!";}
um herauszufinden "ob" ein Button geklickt wurde. Dies funktioniert auch.
Allerdings weiß ich noch immer nicht "welcher" dieser Buttons.

Was muss ich in die if-Anweisung schreiben, damit ich dies herausfinde?

Wenn ich nämlich in die if-Anweisung eine while(cgi->param($name)) mit dem jeweiligen Buttonnamen schreibe, ist das Ereignis ja schon wieder weg, bevor es in der Schleife abgefragt werden konnte...

Gruß
}
Last edited: 2013-03-21 12:43:35 +0100 (CET)
- +16 replies
- Muffi
  
  2013-03-21 13:00
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Gib ihnen allen den gleichen Namen und numerier die value durch.
  Der Name kommt dann als Parameter in dem die value steht.
  
  [EDIT] Oder wenn die value dann doof auf dem Button ausschaut kannst du auch die Namen durchrotieren und dann gucken obs den Param gibt.
  Last edited: 2013-03-21 13:03:23 +0100 (CET)
  1 + 1 = 10
  - +15 replies
  - anamollo4music
    
    2013-03-21 13:15
    
    User since
    2013-03-19
    42 Artikel
    BenutzerIn
    
    Wenn ich die value ändere, welches Schlüsselwort ist dann für die Beschriftung des Buttons zuständig?
    Last edited: 2013-03-21 13:25:34 +0100 (CET)
    - +13 replies
    - Muffi
      
      2013-03-21 13:31
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Halt, irgendwie hat mein Hirn grad nicht funktioniert.
      Das ist die Methode, die wohl am praktischten ist
      
      Code: (dl )
      
      1 2 3
      
      <button type="submit" name="foo" value="1">Test</button> <button type="submit" name="foo" value="2">Test</button> <button type="submit" name="foo" value="3">Test</button>
      
      Last edited: 2013-03-21 13:36:06 +0100 (CET)
      1 + 1 = 10
      - +12 replies
      - pq
        
        2013-03-21 13:41
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        würde ich, wie in msg #166486 begründet, nicht machen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +11 replies
        
        Muffi
        
        2013-03-21 13:46
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Nö, die value gilt hier als der Wert der gesendet wird. Analog z.B. zu radiobuttons [EDIT] ääh, selectboxen meinte ich... mein Hirn heut.
        
        selfhtml
        Last edited: 2013-03-21 13:50:32 +0100 (CET)
        1 + 1 = 10
        
        +2 replies
        
        Gast wer
        
        2013-03-21 13:49
        
        handybrowser halten sich nicht immer dran.
        
        Muffi
        
        2013-03-21 13:57
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Dank Apple und google stirbt dieses Frickelzeug ja Gott sei Dank langsam aus.
        1 + 1 = 10
        
        +8 replies
        
        pq
        
        2013-03-21 13:57
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        natürlich, aber bei submit-buttons sollte der wert das sein, was die benutzer sehen können.
        beispiel hier im forum: button Vorschau, Abschicken und Zitat einfügen.
        wenn man englisch auswählt, steht dann eben der englische text drin.
        das willst du nicht im skript auch noch abfragen.
        und wie gesagt, wenn du die beschriftung ändern willst, damit es verständlicher ist, willst du auch nicht jedesmal die abfrage im skript ändern.
        Wenn es wirklich Buttons sind, wo nur die Zahl draufsteht, mag das gehen.
        Aber man sollte sich dessen bewusst sein.
        Bei select/checkboxen hast du einen name, value *und* ein label. bei submitbuttons ist der value gleichzeitig das label.
        Last edited: 2013-03-21 13:58:31 +0100 (CET)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +7 replies
        
        Muffi
        
        2013-03-21 14:00
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Bei
        <input type="submit"> schon, aber bei
        <button type="submit"></button> nicht.
        (oder zumindest wär mir das ganz neu)
        
        Ich verwend eigentlich auch nur noch Button, weils einfach die modernere, flexiblere Variante ist.
        1 + 1 = 10
        
        +3 replies
        
        Gast wer
        
        2013-03-21 14:05
        
        anderes beispiel wo das nicht geht: imagebutton
        Last edited: 2013-03-21 14:36:25 +0100 (CET)
        
        Muffi
        
        2013-03-21 22:14
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Für was ein Imagebutton, wenn button ein ganz normaler Container ist.
        1 + 1 = 10
        
        GwenDragon
        
        2013-03-22 08:01
        
        User since
        2005-01-17
        14892 Artikel
        Admin1
        
        Ein Imagebutton ist ein spezielles Input-Element nämlich Namens input mit dem Attribut type="image" und funktioniert ganz anderes als ein Submitbutton oder ein Button-Element.
        Beim Imagebutton wird das Koordinatenpaar des Klicks gesendet statt des Namens.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        pq
        
        2013-03-22 11:57
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        hm, das wäre eine überlegung, auf solche buttons umzusteigen. ich nehme an, bei images innerhalb buttons muss man sich auch nicht mehr damit herumschlagen, dass die koordinaten mit übertragen werden?
        
        der folgende code steht übrigens in der Request-klasse dieses forums:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        if ($self->is_post) { %submits = map { if (m/^submit\.(.*?)(?:\.x|\.y)?$/) { my $value = $cgi->param($_); ($1 => $value) } else { () } } $cgi->param(); } $self->set_submit(\%submits);
        
        ich nenne alle meine submitbuttons submit.irgendwas und frage im code nur noch $self->submit->{preview} o.ä. ab. einmal geschrieben, nie mehr umständliches gefummel mit submit-buttons.
        daher hatte ich wohl bisher auch nie das bedürfnis, auf die neuen buttons umzusteigen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        GwenDragon
        
        2013-03-22 12:32
        
        User since
        2005-01-17
        14892 Artikel
        Admin1
        
        Wenn du die Submit-Buttons von input- auf button-Elemente umstellst, mach dich auf Probleme mit den IE-Browsern <= 8 gefasst!
        
        //EDIT: Entweder werden nämlich alle Kindlemente als Wert gesendet oder mehrere Buttons, wenn sie vom Typ submit sind.
        In IE6-7 wars so.
        kann gerade nicht ältere IE testen.
        Last edited: 2013-03-22 12:58:14 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Muffi
        
        2013-03-22 13:09
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich hatte im Kopf der 6er machts falsch und der 7er richtig.
        Hab grad nachgeschaut. Der 7er machts anders falsch :\
        1 + 1 = 10
    - Gast wer
      
      2013-03-21 13:47
      
      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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
      
      use warnings; use CGI; my $cgi=CGI->new(); my $script_name=$ENV{SCRIPT_NAME} || $0; my $buttons=5; my $action=$cgi->param('action') || 'show'; if($action eq 'select') { my $selected=0; for my $i (1..$buttons) { $selected=$i if($cgi->param("button_$i")); } print $cgi->header(); print <<EOHTML; <html><head><title>DEMO</title></head><body> <h1>DEMO ERGEBNIS</h1> <p>Augewält wurde: $selected</p> <a href="$script_name">zur Selektion</a> </body></html> EOHTML } else { print $cgi->header(); print <<EOHTML; <html><head><title>DEMO</title></head><body> <h1>DEMO</h1> <p><form action="$script_name" type="post"> <input type="hidden" name="action" value="select"> EOHTML for my $i (1..$buttons) { print qq( <input type="submit" name="button_$i" value="Button $i"><br>\n); } print <<'EOHTML'; </form></p> </body></html> EOHTML }
      
      Last edited: 2013-03-21 13:49:49 +0100 (CET)
- +2 replies
- rosti
  
  2013-03-21 13:26
  
  User since
  2011-03-19
  3752 Artikel
  BenutzerIn
  
  Tag: Kontrollstruktur.
  
  Mehr dazu: http://rolfrost.de/proglog.html?d=20000901
  
  Viele Grüße!
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit
  - Muffi
    
    2013-03-21 13:34
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Muss nicht sein, aber solche Konstrukte
    
    Code: (dl )
    
    $PARAM = array_merge($_GET, $_POST);
    
    riechen stark nach XSRF-Lücken
    1 + 1 = 10
- pq
  
  2013-03-21 13:39
  User since
  2003-08-04
  12209 Artikel
  Admin1
  die numerierung der submit-button-namen ist schon die richtige vorgehensweise. der value ist ja nur für den benutzer da, den sollte man nicht im skript abfragen (man denke auch daran, dass man die beschriftung evtl. mal ändern möchte oder gar übersetzen).
  du musst dann im skript jeweils abfragen, ob der button übertragen wurde, also
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $submit = 0; # oder anderer default-wert for my $i (1 .. $max) { if ($cgi->param("button$i")) { $submit = $i; last; } }
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- Raubtier
  
  2013-03-21 13:48
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  2013-03-21T11:41:26 anamollo4music
  Wie aber kann ich nun ein Ereignis auslösen, wenn irgendeiner dieser Button gedrückt wurde. Irgendwie muss ich ja abfangen, ob jemand einen der Buttons gedrückt hat?
  
  Ich habe es nun mit folgendem versucht:
  
  Code (perl): (dl )
  
  1 2
  
  if(($ENV{REQUEST_METHOD}) eq "POST") { print "einer der Button wurde gedrueckt!";}
  
  um herauszufinden "ob" ein Button geklickt wurde. Dies funktioniert auch.
  Allerdings weiß ich noch immer nicht "welcher" dieser Buttons.
  
  Die Frage hat dir pq ja schon beantwortet, aber ich möchte dich noch darauf hinweisen, dass das if(($ENV{REQUEST_METHOD}) eq "POST") nicht herausfindet, ob ein Button gedrückt wurde, sondern eben nur, was der Name schon sagt, nämlich dass die Daten mittels "POST" versendet wurden. Das ist nicht dasselbe. Die Logik geht hier immer nur andersrum: wenn du den Button gedrückt hast, dann kommt in deinem Fall ein POST-Request. Umgekehrt gilt das nicht - der POST-Request könnte auch irgendwo anders herkommen.
  
  Quote
  Wenn ich nämlich in die if-Anweisung eine while(cgi->param($name)) mit dem jeweiligen Buttonnamen schreibe, ist das Ereignis ja schon wieder weg, bevor es in der Schleife abgefragt werden konnte...
  
  while(cgi->param($name)) sieht ziemlich falsch aus. Du möchtest hier etwas 1x abfragen, der $cgi->param (vergessenes $) ändert sich nicht.
  - anamollo4music
    
    2013-03-21 14:09
    
    User since
    2013-03-19
    42 Artikel
    BenutzerIn
    
    Genial!
    
    Vielen Dank, hat geklappt. :o)

View all threads created 2013-03-21 12:41.