#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use Data::Dumper; use CGI qw/:standard/; my $query = new CGI; print $query->header; my $formStatus = $query->param('submitButton'); my $buttonStatus = $query->param('resetButton'); print "Value of \$formStatus is: $formStatus". localtime()."\n"; print "Value of \$buttonStatus is: $buttonStatus". localtime()."\n"; print "<html>\n"; print "<head>\n"; print "</head>\n"; print "<body>\n"; print "<form id=\"form1\" method=\"post\" class=\"admin-form\">\n" +; print "<input type=\"submit\" name=\"submitButton\" value=\"Submit +\" id=\"button1\"/>\n"; print"<input type=\"submit\" name=\"resetButton\" value=\"Reset\" +id=\"button2\"/>\n"; print "</form>\n"; print "</body>\n"; print "</html>\n";
In reply to [Solved]: How to catch event when button (which is NOT submit button) is clicked.
by Perl300
in thread [Solved]:How to catch event when button (which is NOT submit button) is clicked.
by Perl300
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |