#! /usr/local/bin/perl ############################################################################## # hform.pl v1.0 09-30-96 Dale Bewley # v.9 01-23-96 #----------------------------------------------------------------------------- # # Creates a homepage. # Called from: http://www.bewley.net/perl/examples/hform.html # # Depends on multiple submit buttons. Create 3 and name them submit. Set # the values to include the word 'source' on one, 'download' on another # and anything on the third. # ############################################################################## @months=("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"); ($sec, $min, $hour, $mday, $mon, $year) = localtime($^T); $mon = $months[$mon]; &getInput; &sendOutput; sub getInput { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } } sub sendOutput { if ($FORM{'submit'} =~ /download/i) { print "Content-type: download\n"; print "Content-Disposition: attachment; filename=your_page.html\n"; print "Content-Description: $FORM{'title'}\n\n"; } elsif($FORM{'submit'} =~ /source/i) { print "Content-type: text/plain\n\n"; } else { print "Content-type: text/html\n\n"; } print("\n\n"); print(""); print("\n"); print($FORM{'title'}); print("\n"); print("\n\n\n"); print("
\n"); print("

$FORM{'heading1'}

\n"); print("
\n"); print("\n
\n"); print("\n

$FORM{'introduction'}

\n"); print("\n

$FORM{'heading2'}

\n"); print("\n

$FORM{'description'}

\n"); print("\n\n\n"); print("\n
\n\n"); print("Original: $FORM{'usersName'} $mday $mon 19$year
\n"); print("Updated: $FORM{'usersName'} $mday $mon 19$year
\n"); print("Comments: $FORM{'usersEmail'}"); print " - Survey" if ($ENV{'HTTP_REFERER'} =~ /humres/); print("
\n"); print("

URL: $FORM{'URL'}
\n\n"); print("\n"); }