Thread Welcher Button wurde geklickt?
(21 answers)
Opened by anamollo4music at 2013-03-21 12:41 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) |