Hello Friends,
Please check the below cgi script. To email is working fine, but BCC is not working. Kindly let me know the problem and how to fix it.
Thanks in advance,
Rajesh.
#!/usr/bin/perl
$adminemail = "rtavakari\@gmail.com";
$mail2 = "tavakari\@yahoo.com";
$mailprogram = "/usr/sbin/sendmail";
&form_parse;
$email=$FORM{'email'};
$firstname=$FORM{'firstname'};
$lastname=$FORM{'lastname'};
$org=$FORM{'org'};
$role=$FORM{'role'};
$country=$FORM{'country'};
$phone=$FORM{'phone'};
$eNewsletter=$FORM{'eNewsletter'};
$bsp=$FORM{'bsp'};
$npsi=$FORM{'npsi'};
$nmes=$FORM{'nmes'};
$nvsd=$FORM{'nvsd'};
$bpi=$FORM{'bpi'};
$isi=$FORM{'isi'};
$itflp=$FORM{'iftlp'};
$cir=$FORM{'cir'};
$sa=$FORM{'sa'};
$sip=$FORM{'sip'};
$im=$FORM{'im'};
$iab=$FORM{'iab'};
$itpsw=$FORM{'itpsw'};
$icp=$FORM{'icp'};
$contactme=$FORM{'contactme'};
$message=$FORM{'message'};
$message =~ s/ /\|/g;
$message =~ s/\s/\|/g;
$message =~ s/\|+/ /g;
print "Content-type: text/html\n\n";
&errcheck;
&emailadmin;
&emailclient;
&printconfirmation;
############################################################
# EMAIL WELCOME MESSAGE
############################################################
sub emailadmin {
open (MAIL, "| $mailprogram $adminemail");
print MAIL "From:$email\n";
print MAIL "To:$adminemail\n";
print MAIL "bcc:$mail2\n";
print MAIL "Subject: Consultation\n\n";
print MAIL <<ENDWELCOMEEMAIL;
_______________________________________________________________________
Message Posted by $firstname
_______________________________________________________________________
First Name :$firstname
Last Name :$lastname
Organisation :$org
Role :$role
Email :$email
Country :$country
Telephone :$phone
eNewsletter :$eNewsletter
Business Strategy and Planning :$bsp
New Product and Service Innovation :$npsi
New Market Entry Strategy :$nmes
New Venture Strategy and Development :$nvsd
Business Process Innovation :$bpi
Internet Strategy and Implementation :$isi
Industry Foresight :$itflp
Customer Insight Research :$cir
Strategic Alignment :$sa
Sustainable Innovation Processes :$sip
InnovationPoint's methodologies :$im
Innovation Assessments :$iab
Innovation Training & Problem Solving Workshops :$itpsw
Innovation Communities of Practice :$icp
I'd like to learn more. Please contact me : $contactme
Message:
----------------
$message
----------------
------------------------------------------------------------------------------------------------
ENDWELCOMEEMAIL
}
sub emailclient {
open (MAIL, "| $mailprogram $email");
print MAIL "Reply-to: $adminemail\n";
print MAIL "From: $adminemail\n";
print MAIL "To: $email\n";
print MAIL "Subject: Thank you for contacting IPoint.\n\n";
print MAIL <<CLIENTMAIL;
Dear $firstname,
Thank you for your interest in IPoint. We will contact you as soon as possible.
Best regards,
Derrick
Principal
CLIENTMAIL
}
############################################################
# FORM PARSE
############################################################
sub form_parse {
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/\'//g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}
sub printconfirmation
{
print<<CONF;
<html>
<head>
<title>InnovationPoint</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<center>
<p> </p>
<p><font size="3" face="Verdana, Arial, Helvetica, sans-serif" color="#000066"><b>Thank
you for contacting IPoint</b></font><font size="3" face="Verdana, Arial, Helvetica, sans-serif" color="#000066"><b><br>
<br>
<br>
Your message has been sent.</b></font> </p>
</center>
<p align="center"> </p>
<p align="center"><a href="javascript:window.close();"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Close
Window</font></a> </p>
</body>
</html>
CONF
}
sub errcheck {
if ($name eq "")
{
$Message="Error! Name is required!";
&Mess;
exit;
}
if ($email eq "")
{
$Message="Error! Email is required!";
&Mess;
exit;
}
if ($firstname eq "select")
{
$Message="Error! Please select the package!";
&Mess;
exit;
}
}
sub Mess
{
print<<MESS;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Inc.</TITLE>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<script language="JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
//-->
</script>
<SCRIPT LANGUAGE = "JavaScript">
<!-- hide it from old browsers
function back()
{
history.go(-1);
}
// -->
</SCRIPT>
</HEAD>
<BODY aLink=#990000 bgColor=#ffffff leftMargin=0 link=#0000CC
topMargin=0 marginheight="0" marginwidth="0">
<p> </p>
<p> </p>
<p> </p>
<div align="center">
<p><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="3"><b>Error !</b></font> </p>
</div>
<p align="center"><b><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="3">$Message</font></b></p>
<div align="center">
<p> </p>
</div>
<form method="POST">
<p align="center"><input type="button" value="Back" onClick="back()"></p>
</form>
<p align="center"> </p>
<p> </p>
</BODY></HTML>
MESS
}
Please check the below cgi script. To email is working fine, but BCC is not working. Kindly let me know the problem and how to fix it.
Thanks in advance,
Rajesh.
#!/usr/bin/perl
$adminemail = "rtavakari\@gmail.com";
$mail2 = "tavakari\@yahoo.com";
$mailprogram = "/usr/sbin/sendmail";
&form_parse;
$email=$FORM{'email'};
$firstname=$FORM{'firstname'};
$lastname=$FORM{'lastname'};
$org=$FORM{'org'};
$role=$FORM{'role'};
$country=$FORM{'country'};
$phone=$FORM{'phone'};
$eNewsletter=$FORM{'eNewsletter'};
$bsp=$FORM{'bsp'};
$npsi=$FORM{'npsi'};
$nmes=$FORM{'nmes'};
$nvsd=$FORM{'nvsd'};
$bpi=$FORM{'bpi'};
$isi=$FORM{'isi'};
$itflp=$FORM{'iftlp'};
$cir=$FORM{'cir'};
$sa=$FORM{'sa'};
$sip=$FORM{'sip'};
$im=$FORM{'im'};
$iab=$FORM{'iab'};
$itpsw=$FORM{'itpsw'};
$icp=$FORM{'icp'};
$contactme=$FORM{'contactme'};
$message=$FORM{'message'};
$message =~ s/ /\|/g;
$message =~ s/\s/\|/g;
$message =~ s/\|+/ /g;
print "Content-type: text/html\n\n";
&errcheck;
&emailadmin;
&emailclient;
&printconfirmation;
############################################################
# EMAIL WELCOME MESSAGE
############################################################
sub emailadmin {
open (MAIL, "| $mailprogram $adminemail");
print MAIL "From:$email\n";
print MAIL "To:$adminemail\n";
print MAIL "bcc:$mail2\n";
print MAIL "Subject: Consultation\n\n";
print MAIL <<ENDWELCOMEEMAIL;
_______________________________________________________________________
Message Posted by $firstname
_______________________________________________________________________
First Name :$firstname
Last Name :$lastname
Organisation :$org
Role :$role
Email :$email
Country :$country
Telephone :$phone
eNewsletter :$eNewsletter
Business Strategy and Planning :$bsp
New Product and Service Innovation :$npsi
New Market Entry Strategy :$nmes
New Venture Strategy and Development :$nvsd
Business Process Innovation :$bpi
Internet Strategy and Implementation :$isi
Industry Foresight :$itflp
Customer Insight Research :$cir
Strategic Alignment :$sa
Sustainable Innovation Processes :$sip
InnovationPoint's methodologies :$im
Innovation Assessments :$iab
Innovation Training & Problem Solving Workshops :$itpsw
Innovation Communities of Practice :$icp
I'd like to learn more. Please contact me : $contactme
Message:
----------------
$message
----------------
------------------------------------------------------------------------------------------------
ENDWELCOMEEMAIL
}
sub emailclient {
open (MAIL, "| $mailprogram $email");
print MAIL "Reply-to: $adminemail\n";
print MAIL "From: $adminemail\n";
print MAIL "To: $email\n";
print MAIL "Subject: Thank you for contacting IPoint.\n\n";
print MAIL <<CLIENTMAIL;
Dear $firstname,
Thank you for your interest in IPoint. We will contact you as soon as possible.
Best regards,
Derrick
Principal
CLIENTMAIL
}
############################################################
# FORM PARSE
############################################################
sub form_parse {
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/\'//g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}
sub printconfirmation
{
print<<CONF;
<html>
<head>
<title>InnovationPoint</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<center>
<p> </p>
<p><font size="3" face="Verdana, Arial, Helvetica, sans-serif" color="#000066"><b>Thank
you for contacting IPoint</b></font><font size="3" face="Verdana, Arial, Helvetica, sans-serif" color="#000066"><b><br>
<br>
<br>
Your message has been sent.</b></font> </p>
</center>
<p align="center"> </p>
<p align="center"><a href="javascript:window.close();"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Close
Window</font></a> </p>
</body>
</html>
CONF
}
sub errcheck {
if ($name eq "")
{
$Message="Error! Name is required!";
&Mess;
exit;
}
if ($email eq "")
{
$Message="Error! Email is required!";
&Mess;
exit;
}
if ($firstname eq "select")
{
$Message="Error! Please select the package!";
&Mess;
exit;
}
}
sub Mess
{
print<<MESS;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Inc.</TITLE>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<script language="JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
//-->
</script>
<SCRIPT LANGUAGE = "JavaScript">
<!-- hide it from old browsers
function back()
{
history.go(-1);
}
// -->
</SCRIPT>
</HEAD>
<BODY aLink=#990000 bgColor=#ffffff leftMargin=0 link=#0000CC
topMargin=0 marginheight="0" marginwidth="0">
<p> </p>
<p> </p>
<p> </p>
<div align="center">
<p><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="3"><b>Error !</b></font> </p>
</div>
<p align="center"><b><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="3">$Message</font></b></p>
<div align="center">
<p> </p>
</div>
<form method="POST">
<p align="center"><input type="button" value="Back" onClick="back()"></p>
</form>
<p align="center"> </p>
<p> </p>
</BODY></HTML>
MESS
}