#!/usr/local/bin/perl # ########################## ## formfill.cgi ########################## # This puts out a form to be filled in. # NOTE: IT MUST BE CALLED FROM A PAGE, LIKE THE "FORMFILL.SHTML"!!! # Set the permissions on this and all the scripts to 750 # put these in your "public_html" directory $pubhtm = "public_html"; # what to look for $ENV{"SCRIPT_NAME"} =~ /$pubhtm/; # find where it is @front = split(/\//, $`); # make an array of all before $yourname = @front[$#front]; # get last element, page owner's name # double check to make sure we get the user's name if (!$yourname) { $ENV{"DOCUMENT_URI"} =~ /$pubhtm/; # find where it is @front = split(/\//, $`); # make an array of all before $yourname = @front[$#front]; # get last element, page owner's name } print < Form

Welcome to a fill-in form

The information below is optional, except for your name, e-mail address, and a comment.

Thanks for taking the time! 

      Name: 
City,State:  
   Country: 
Email Addr: 
            
Fill in the following three lines (This is e-mailed to me):

FORMIN exit;