#!/usr/bin/perl -w #display.cgi W. Alan Day 6/6/2014 3/28/16 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 < $dirs[$#dirs - 1] event People to be contacted for the $dirs[$#dirs - 1] event as of $time Last Name First Name EndOfHTML0 while () { $i++; ($LnameFile,$FnameFile,$emailFile, $PhoneFile) = split("\t"); print < $i $LnameFile $FnameFile TABLE2 } print < TABLE3 close(PART); print ""; print "";
People to be contacted for the $dirs[$#dirs - 1] event as of $time