#!/usr/bin/perl
#use CGI ':standard','-debug';
use CGI ':standard';


unless(open (MAIL, "|/usr/bin/sendmail www_info\@gridpro.com -i -f sunil\@gridpro.com")) {
#unless(open (MAIL, ">www_info_submit")) {
print "error.\n";
warn "Error starting sendmail : $!";
}
else{
print MAIL "FROM : sunil\@gridpro.com \n";
print MAIL "TO  : sunil\@gridpro.com \n ";
print MAIL "SUBJECT : www_info submission \n";

print MAIL header();
print MAIL start_html();
 for $i (param()) {
print MAIL "<b>",$i, "</b>: ",param($i),"<br>\n";
}
print MAIL end_html();
close(MAIL) || warn "error closing mail : $!";
print "Mail sent \n"
}
#system ("cat www_info_submit | sendmail www_info\@gridpro.com -i -f sunil\@gridpro.com ;");
#system ("cat www_info_submit | sendmail www_info\@gridpro.com -i -f www_info\@gridpro.com ;");