Help for this page

Select Code to Download


  1. or download this
    <FORM action="yourscript.cgi" method=post>
<INPUT type=hidden name=action value="storeevent">
...
  2. or download this
    #!/usr/bin/perl -wT
use strict;
use CGI;
...
my $cgi = new CGI;
my $action = $1 if $cgi->param('action') =~ /^(\w+)+/;
&store_event if ($action eq 'storeevent');
  3. or download this
    my $action = $cgi->param('action');
&$action;
  4. or download this
    my $action = (defined $cgi->param('action')) ?
  ($cgi->param('action') =~ /^(\w+)+/) ? $1 : '' : '';