#!/usr/bin/perl
$mailprog = '/usr/bin/mail > /newhome/kasra/junk';
#$recipient = 'kasra\@ezenet.com';

$time = localtime();
@tt = split(/ /,$time);
$mas = localtime(time) ; 
@nick_c = split('',$name);
@name_c = split('',$fullname);
@day = split(/ /,localtime);
@yy = split('',@day[$#day]);
@newtime = localtime(time);
$news = (@newtime[5]*10000)+(@newtime[4]*100)+@newtime[3];
 

print "Content-type: text/html\n\n";
print "<Head><Title>On-line Tech Support</Title></Head>";


print "<Body><H1>EZENET Service Result</H1>";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);


foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    # Stop people from using subshells to execute commands
    # Not a big deal when using sendmail, but very important
    # when using UCB mail (aka mailx).
    # $value =~ s/~!/ ~!/g; 

    # Uncomment for debugging purposes
    # print "Setting $name to $value<P>";

    $FORM{$name} = $value;
}
    print "<BODY BGCOLOR=#010142 TEXT=#CCD8DB>";

# If the comments are blank, then give a "blank form" response
&blank_response unless $FORM{'fn'};
&blank_response unless $FORM{'ln'};
&blank_response unless $FORM{'add'};
&blank_response unless $FORM{'tel'};
&blank_response unless $FORM{'email'};
# Now send mail to $recipient
#		open (LOGFILE, ">>ldreg.dat");
#		print LOGFILE "$FORM{'realname'}\n";
#		close (LOGFILE);
$name = $FORM{'ln'};

print "<font size=-1 color=#CCD8DB>$mas<br></font>\n";
print "<font size=+1 color=#CCD8DB>Thank you $name for contacting our technical support.</font><BR><hr>\n";
system("date +%d%m%y > /newhome/kasra/data2ez");

open (F,"/newhome/kasra/data2ez");
while(<F>){

close(F);
}

$dada = $_ + 0;

#print "Your ticket number is <font size=+1 color=#CCD8DB>$kas</font>.<br>";

#print "Please refer to this ticket if you should need to correspond with us.<br><br>";



system("date +%S%M%H%d%m > /newhome/kasra/dataez");

open (F,"/newhome/kasra/dataez");
while(<F>){
#print "Your ticket number is <font size=+1 color=#CCD8DB></font>.<br>";
#print "Please refer to this ticket if you should need to correspond with us.<br><br>";

close(F);
}
print "<font size=+1 color=#CCD8DB><img src=/redball.gif>$FORM{'S1'}<BR><hr>\n";
print "Company: $FORM{'fn'}<BR>\n";
print "Name: $FORM{'ln'}<BR>\n";
print "Address: $FORM{'add'}<BR>\n";
print "Phone #: $FORM{'tel'}<BR>\n";
print "Email #: $FORM{'email'}<BR><br>\n";
print "Problem:<br><br>$FORM{'problem'}<br>\n";
print "$FORM{'problem2'}<BR><hr>\n";
#$rad = @time[2];

$recipient = $FORM{'email'};


#print "Your ticket number is <font size=+1 color=#CCD8DB>$kas</font>.<br>";

#print "Please refer to this ticket if you should need to correspond with us.<br><br>";
$fil = join('',@nick_c[0..2],@name_c[0..2],$news,"-$FORM{'ln'}");
$kas = $_ + 0;

print "Your ticket number is <font size=+1 color=#CCD8DB>EZ-$kas</font><br>";
print "Please refer to this ticket if you should need to correspond with us.<br><br>";
print "</font>";

#print "Return to our <A HREF=\"/service/index.html\">Support page</A>";
if(length($FORM{'S5'})==0){
	print "$FORM{'S4'}<BR>\n";
}else{
	print "$FORM{'S5'}<BR>\n";
}
if(length($FORM{'S6'})==0){
	print "$FORM{'S5'}<BR>\n";
}else{
	print "$FORM{'S6'}<BR>\n";
}
if(length($FORM{'S8'})==0){
	print "$FORM{'S7'}<BR>\n";
}else{
	print "$FORM{'S8'}<BR>\n";
}
if(length($FORM{'S10'})==0){
	print "$FORM{'S9'}<BR>\n";
}else{
	print "$FORM{'S10'}<BR>\n";
}
if(length($FORM{'S12'})==0){
	print "$FORM{'S11'}<BR>\n";
}else{
}
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "From: EZENET-SUPPORT\n";
print MAIL "Subject: Support ticket #EZ-$kas \n\n";
print MAIL "$name $FORM{'S1'}\n";
print MAIL "Company : $FORM{'fn'}\n";
print MAIL "Name : $FORM{'ln'}\n";
print MAIL "Address : $FORM{'add'}\n";
print MAIL "Phone #: $FORM{'tel'}\n";
print MAIL "Email #: $FORM{'email'}\n";
print MAIL "Problem: $FORM{'problem'}\n";
print MAIL "$FORM{'problem2'}\n";

print MAIL "Support ticket #EZEZ-$kas \n";
if(length($FORM{'S5'})==0){
	print MAIL "$FORM{'S4'}\n";
}else{
	print MAIL "$FORM{'S5'}\n";
}
if(length($FORM{'S6'})==0){
	print MAIL "$FORM{'S5'}\n";
}else{
	print MAIL "$FORM{'S6'}\n";
}
if(length($FORM{'S8'})==0){
	print MAIL "$FORM{'S7'}\n";
}else{
	print MAIL "$FORM{'S8'}\n";
}
if(length($FORM{'S10'})==0){
	print MAIL "$FORM{'S9'}\n";
}else{
	print MAIL "$FORM{'S10'}\n";
}
if(length($FORM{'S12'})==0){
	print MAIL "$FORM{'S11'}\n";
}else{
	print MAIL "$FORM{'S12'}\n";
}
close (MAIL);
open (MAIL, ">>/var/spool/news/htdocs/datam");
print MAIL "EZ-$kas:$name From $FORM{'fn'}:$FORM{'S1'}:$FORM{'tel'}-$FORM{'email'}:Sent $dada #### $FORM{'problem'}-$FORM{'problem2'}:Unknown:PENDING\n";

close (MAIL);
$recipient2 = 'kasra\@ezenet.com,jeff\@ezenet.com';
open (MAIL, "|$mailprog $recipient2") || die "Can't open $mailprog!\n";
print MAIL "From: EZENET-SUPPORT\n";
print MAIL "Subject: Support ticket #EZ-$kas \n\n";
print MAIL "$name $FORM{'S1'}\n";
print MAIL "Company : $FORM{'fn'}\n";
print MAIL "Name : $FORM{'ln'}\n";
print MAIL "Address : $FORM{'add'}\n";
print MAIL "Phone #: $FORM{'tel'}\n";
print MAIL "Email #: $FORM{'email'}\n";
print MAIL "Problem: $FORM{'problem'}\n";
print MAIL "$FORM{'problem2'}\n";

close (MAIL);

# Make the person feel good for writing to us

# ------------------------------------------------------------
# subroutine blank_response
sub blank_response
{
    print "Missing data\n";
print "Please go back and complete the form";
    exit;
}
