#!/usr/local/bin/perl use CGI qw(:standard); #################################################### # # FormPage.cgi # # Collects data in form and spills contents to page # # print header; start_html("FormPage.cgi"); print start_form(); print h2("FormPage.cgi"); print br(); ######################################################### # # Textfield print "<EM>Your name is </EM>"; print (textfield(-name=>'name', -default=>' Alias ', -size=>30, -maxlength=>50)); ######################################################### # # Checkbox print br(); print (checkbox(-name=>'My real name', -checked=>'checked')); print br(); print (submit("Submit"), reset("Clear")); print end_form(); ########################################################## # # Process contents $name = param("name"); $truth = param("My real name"); $OK_CHARS = '-a-zA-Z0-9_.@ '; $name =~ s/[^$OK_CHARS]//mg; if ($truth eq "on") { print br(); $name =~ tr/[aeiou]/[!@#$%]/; print "Your alias is $name\n"; } else { print ("\nThis useful program automatically "); print ("aliases"); } print end_html;