#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard); print "Content-type: text/html\n\n"; $step = param('step'); if ( (!defined $step) || ($step ne '2') ) { open(FILE, "contact.htm") || die("This file will not open"); while() { print $_ ; } close(file); exit; } else { # -------------- $mtmname = param('mtmname'); $from = $email = param('email'); $firstname = param('firstname'); $lastname = param('lastname'); $address1 = param('address1'); $address2 = param('address2'); $city = param('city'); $state = param('state'); $postal = param('postal'); $country = param('country'); $color = param('color'); @times = localtime(time); $year = sprintf("%04d",($times[5] + 1900)); $month = sprintf("%02d",($times[4]+1)); $day = sprintf("%02d",($times[3])); $date = $year . "-" . $month . "-" . $day ; # -------------- $sendmail = '/usr/sbin/sendmail'; $to = 'malibu350@karf.net,phineus@karf.net'; $ip = $ENV{REMOTE_ADDR} ; $subject = "Expo 2003 - Contact info" ; # -------------- $CONTENT = <

$CONTENT

         Back to the Expo page

EOM }