in reply to help with a form
update: added missing content-header#!/usr/local/bin/perl use warnings; use strict; use CGI; my $script_URL = "url of script goes here"; my $query = new CGI; print $query->header(); my $name = $query->param("f_name") || ''; my $tel = $query->param("f_tel") || ''; my $zip = $query->param("f_zip") || ''; if ( "$name$tel$zip" eq '' ) { &showform; } else { print "Name: $name\n"; print "Tel: $tel\n"; print "Zip: $zip\n"; } sub showform { print "<FORM ACTION=$script_URL METHOD=POST>\n"; print "Name: <INPUT TYPE=text NAME=f_name SIZE=24 value=\"$name\"> +\n"; print "Tel: <INPUT TYPE=text NAME=f_tel SIZE=12 value=\"$tel\">\n" +; print "Zip: <INPUT TYPE=text NAME=f_zip SIZE=5 value=\"$zip\">\n"; print "<INPUT TYPE=submit VALUE=\"SUBMIT\">\n"; }
|
|---|