Help for this page
/opt/foobar/myapps/---+ | | ... | thankyou.html
#!/usr/local/bin/perl -T ... my $app = Acmecorp::Contact->new( PARAM => 'client' ); $app->run();
<form action="/contact/index.cgi" method="post"> <input type="hidden" name="rm" value="s" /> ... <p>More info: <input name="more_info" type="checkbox" value="yes +" /></p> <p><input name="Submit" type="submit" value="Submit" /></p> </form>
package Foobar_Super; ... {RaiseError => 1} ); } 1;
#--- MySQL Server --- [db] host = DBI:mysql:foobar:localhost user = acmecorp pass = AKCgKYxc
package Acmecorp::Contact; use base qw(Foobar_Super Common); ... $self->dbh->do($stmt, undef, values %sql); } 1;
sub validate { my $self = shift; ... } } 1;
www.com | www.net | www.org
No recent polls found