#!/usr/bin/perl

#############################
## Temporal Vortex         ##
## Comment to Sysop Engine ##
## Version 1.0             ##
## By: Jeff Ledger         ##
#############################

#######################
# CONFIGURE VARIABLES #
#######################

my $user = $ARGV[0];
$mailprog = "/usr/bin/sendmail";
$recip = "sysop\@yourdomain.com";
$subject = "COMMENT TO SYSOP";


##############################
## DISPLAY SCREEN FOR INPUT ##
##############################

if (open(MYFILE, "comment.ans")) {
   while (<MYFILE>) {
       print ;
   }
}
   close(MYFILE);


####################
# SEND THE MESSAGE #
####################
open (MAIL, "|$mailprog -oi -t") or die;

print MAIL <<"END";
From: $user
To: $recip
Subject: $subject

END

while(<STDIN>) {
    chomp($line = $_);
    if($line eq '/s') {
	close(MAIL);
	system "./main $user";
    }
    else {
    print MAIL "$line\n";
    }
}


