#!/usr/bin/perl -w #display.cgi W. Alan Day 6/6/2014 #use CGI qw(:standard); print "Content-type:text/html\n\n"; my ($Fname, $Lname, $email, $Phone, $Line, $File, $LnameFile, $FnameFile, $emailFile, $PhoneFile, @dirs, $outfile, $infile, $i, $Action, $Picture, $time); $Fname = param('firstname'); $Fname = substr($Fname, 0, 30); $Lname = param('lastname'); $Lname = substr($Lname, 0, 30); $email = param('email'); $email = substr($email, 0, 30); $Phone = param('phone'); $Phone = substr($Phone, 0, 30); $Action = param('level'); $Action = substr($Action, 0, 11); $Picture = param('picture'); if( $ARGV[0]) {$Picture = $ARGV[0]}; #foreach $key (sort(keys %ENV)) { # print "$key = $ENV{$key}
\n"; #} @dirs = split('/', $ENV{HTTP_REFERER}); $File = "$ENV{HTTP_HOST}/$dirs[$#dirs - 2]/$dirs[$#dirs - 1]"; @dirs = split('/', $ENV{HTTP_REFERER}); $Line ="$ENV{DOCUMENT_ROOT}/$dirs[$#dirs - 2]/$dirs[$#dirs - 1]"; $infile = "$Line/$dirs[$#dirs - 1].csv"; open(PART, $infile); $i = 0; $time = `date`; print < Signed up for $dirs[$#dirs - 1]

 


Participants signed up for the $dirs[$#dirs - 1] tour

as of $time


 

EndOfHTML0 while () { $i++; ($LnameFile,$FnameFile,$emailFile, $PhoneFile) = split("\t"); print < TABLE2 } print <

Last Name
 		First Name
 $i  $LnameFile  $FnameFile

TABLE3 close(PART); print ""; print "";