#!/usr/bin/perl
require 'cgi-lib.pl';

print &PrintHeader();

$to="root\@blvd.electricti.com";
$from="error\@blvd.electriciti.com";
$subject="Error?";


&ReadParse();

  if ($in{'from'}) {
      $from = $in{'from'};
  }
  # this is for NetScape pre-1.0 beta users - probably obsolete code
  elsif ($ENV{'REMOTE_USER'}) {
      $from = $ENV{'REMOTE_USER'};
  }
  # this is for Lynx users, or any HTTP/1.0 client giving From header info
  elsif ($ENV{'HTTP_FROM'}) {
      $from = $ENV{'HTTP_FROM'};
  }
  # if all else fails, make a guess
  elsif ($ENV{'REMOTE_IDENT'}) {
      $from = "$ENV{'REMOTE_IDENT'}\@$ENV{'REMOTE_HOST'}";
  }
  else {
      $from = "nobody\@$ENV{'REMOTE_HOST'}";
  }

$path_info=$ENV{'PATH_INFO'};
$path_info =~ s/^\///;
($to,$subject,$cc)=split(/:/, $path_info,3);

open(ACCEPT,"/usr/local/etc/httpd/cgi-bin/accept.txt");
print STDOUT <ACCEPT>;
close (ACCEPT);

print "To: $to<br>\n From: $from<br>\n";

#print "Your entry has been accepted and will be delivered...<BR>\n";
#print "Thank you for your interest.<br>\n";
#print "<br>\n";

open(MAIL,"|/usr/lib/sendmail -t");
print MAIL <<EOF;
To:  $to
From: $from
Reply-To: $from
Subject: $subject

EOF

print MAIL &PrintVar(%in);

close(MAIL);