Daniel deHam
2005-08-05 17:38:48 UTC
Hi,
I'm trying to send an html email on the command line, but the command
fails because there are quotes in the html. How can I send an html
message using the command line? Below is my perl script, and below
that is the output.
Thanks,
Dan
#!C:/perl/bin/perl.exe -w
use strict;
use Win32::OLE;
use CGI qw(:standard);
print header;
my $errors;
my $body = "<html>\n";
$body .= "<head>\n";
$body .= "<title>Untitled Document</title>\n";
$body .= "<meta http-equiv=\"Content-Type\" content=\"text/html;
charset=iso-8859-1\">\n";
$body .= "</head>\n";
$body .= "\n";
$body .= "<body>\n";
$body .= "<table width=\"100%\" border=\"0\">\n";
$body .= " <tr>\n";
$body .= " <td width=\"43%\"><strong>Ground Control Full Order
</strong></td>\n";
$body .= " <td width=\"57%\"> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Customer\'s NEW GCNumber:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner Number:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner\'s GC Number:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Where Purchased:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Installer Full Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Installer Phone: </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Customer\'s GC Account Number:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Customer Type:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Type of Direcway Service:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Direcway Modem Type:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td colspan=\"2\"><hr></td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td><strong>Verify this information in Netsuite:
</strong></td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Status:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Company Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Category:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Sales Rep:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Alt Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Fax:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>EMail:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Lead Source:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Start Date:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner Account: </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Paid by Parent:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Attention:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Addressee:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Address1:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Address2:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping City:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping State:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Zip:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Country:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Attention:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Addressee:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Address1:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Address2:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing City:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing State:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Country:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Terms:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Price Level:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Company Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Credit Card Number: </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Expiration Date:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Cardholder Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Credit Card Type:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Transponder:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>System:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Dish Size:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Public IP:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Numberof IPs:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Bandwidth Subscription:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Bandwidth Cost:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td colspan=\"2\"><hr></td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td><strong>Enter this information into
Netsuite:</strong></td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Installation Requested:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Commissioned:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Service Plan:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Equipment & Install:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Satellite:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Address:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Is Taxable:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Tax State:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Bandwidth Order: Bandwidth:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>IP Qty:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td> </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= "</table>\n";
$body .= "</body>\n";
$body .= "</html>\n";
$body .= "\n";
my $to_address = '***@groundcontrol.com';
my $subject = "Full Order Error Occurred";
#email Dan
if (MySendMail($to_address,$subject,$body) == 1)
{
printf("Mail sent correctly.");
}
else
{
printf("There was an error sending mail.\n");
printf("%s",$body);
}
#*********************************************************************
************
#================== [ MySendMail ]
# input parameters are to_address, subject, and body
# It returns 1 if it succeeds, 0 if it fails
sub MySendMail
{
my @params = @_;
my $to_param = $params[0];
my $subject_param = $params[1];
my $body_param .= $params[2];
my $ReturnVal = 0;
# declare the variables we are going to use
my ($to, $f, $subject, $body, $server, $hostname, $u, $pw, $debug,
$x, $return);
# you must change the values marked with
# populate all the variables we are going to use
$to = "-to " . $to_param;
$f = "-f autosupport\@groundcontrol.com";
$subject = "-subject \"". $subject_param . "\"";
$body = "-body \"". $body_param ."\"";
$server = "-server 67.130.139.34";
$hostname = "-hostname secure.groundcontrol.com";
# $u = "-u d.deham\@groundcontrol.com";
# $pw = "-pw !";
# $debug = "-debug";
#$x = "-x \"X-Custom-header: Check it out!\"";
# Here is where we run Blat.
# Note, the Perl vars are the same as Blat's paramaters.
# All the stuff you see Blat return to STDOUT (non error messages
to
# the screen) get put in the $return variable.
# $return = `blat - $to $f $subject $body $server $hostname $u $pw
$debug $x`;
$return = `blat - $to $f $subject $body $server $hostname -noh -
html`;
#return holds the result from the server
if (($return =~ m/Subject:/g) && (!($return =~ m/Error:/g)) )
{
$ReturnVal = 1;
}
else
{
$ReturnVal = 0;
$errors .= "mailer error: " . $return . "\n";
$errors .= "email body:" . $body_param . "\n";
}
#print $return;
return $ReturnVal;
}# end: sub MySendMail
*****************************************************
OUTPUT
*****************************************************
D:\cgi-bin\test>perl html-email.pl
Content-Type: text/html; charset=ISO-8859-1
There was an error sending mail.
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-
1">
</head>
<body>
<table width="100%" border="0">
<tr>
<td width="43%"><strong>Ground Control Full Order </strong></td>
<td width="57%"> </td>
</tr>
<tr>
<td>Customer's NEW GCNumber:</td>
<td> </td>
</tr>
<tr>
<td>Partner Number:</td>
<td> </td>
</tr>
<tr>
<td>Partner's GC Number:</td>
<td> </td>
</tr>
<tr>
<td>Where Purchased:</td>
<td> </td>
</tr>
<tr>
<td>Installer Full Name:</td>
<td> </td>
</tr>
<tr>
<td>Installer Phone: </td>
<td> </td>
</tr>
<tr>
<td>Customer's GC Account Number:</td>
<td> </td>
</tr>
<tr>
<td>Customer Type:</td>
<td> </td>
</tr>
<tr>
<td>Type of Direcway Service:</td>
<td> </td>
</tr>
<tr>
<td>Direcway Modem Type:</td>
<td> </td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td><strong>Verify this information in Netsuite: </strong></td>
<td> </td>
</tr>
<tr>
<td>Status:</td>
<td> </td>
</tr>
<tr>
<td>Company Name:</td>
<td> </td>
</tr>
<tr>
<td>Category:</td>
<td> </td>
</tr>
<tr>
<td>Sales Rep:</td>
<td> </td>
</tr>
<tr>
<td>Phone:</td>
<td> </td>
</tr>
<tr>
<td>Alt Phone:</td>
<td> </td>
</tr>
<tr>
<td>Fax:</td>
<td> </td>
</tr>
<tr>
<td>EMail:</td>
<td> </td>
</tr>
<tr>
<td>Partner:</td>
<td> </td>
</tr>
<tr>
<td>Lead Source:</td>
<td> </td>
</tr>
<tr>
<td>Start Date:</td>
<td> </td>
</tr>
<tr>
<td>Partner Account: </td>
<td> </td>
</tr>
<tr>
<td>Paid by Parent:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Attention:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Addressee:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Phone:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Address1:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Address2:</td>
<td> </td>
</tr>
<tr>
<td>Shipping City:</td>
<td> </td>
</tr>
<tr>
<td>Shipping State:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Zip:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Country:</td>
<td> </td>
</tr>
<tr>
<td>Billing Attention:</td>
<td> </td>
</tr>
<tr>
<td>Billing Addressee:</td>
<td> </td>
</tr>
<tr>
<td>Billing Phone:</td>
<td> </td>
</tr>
<tr>
<td>Billing Address1:</td>
<td> </td>
</tr>
<tr>
<td>Billing Address2:</td>
<td> </td>
</tr>
<tr>
<td>Billing City:</td>
<td> </td>
</tr>
<tr>
<td>Billing State:</td>
<td> </td>
</tr>
<tr>
<td>Billing Country:</td>
<td> </td>
</tr>
<tr>
<td>Terms:</td>
<td> </td>
</tr>
<tr>
<td>Price Level:</td>
<td> </td>
</tr>
<tr>
<td>Billing Company Name:</td>
<td> </td>
</tr>
<tr>
<td>Credit Card Number: </td>
<td> </td>
</tr>
<tr>
<td>Expiration Date:</td>
<td> </td>
</tr>
<tr>
<td>Cardholder Name:</td>
<td> </td>
</tr>
<tr>
<td>Credit Card Type:</td>
<td> </td>
</tr>
<tr>
<td>Transponder:</td>
<td> </td>
</tr>
<tr>
<td>System:</td>
<td> </td>
</tr>
<tr>
<td>Dish Size:</td>
<td> </td>
</tr>
<tr>
<td>Public IP:</td>
<td> </td>
</tr>
<tr>
<td>Numberof IPs:</td>
<td> </td>
</tr>
<tr>
<td>Bandwidth Subscription:</td>
<td> </td>
</tr>
<tr>
<td>Bandwidth Cost:</td>
<td> </td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td><strong>Enter this information into Netsuite:</strong></td>
<td> </td>
</tr>
<tr>
<td>Installation Requested:</td>
<td> </td>
</tr>
<tr>
<td>Commissioned:</td>
<td> </td>
</tr>
<tr>
<td>Service Plan:</td>
<td> </td>
</tr>
<tr>
<td>Equipment & Install:</td>
<td> </td>
</tr>
<tr>
<td>Satellite:</td>
<td> </td>
</tr>
<tr>
<td>Address:</td>
<td> </td>
</tr>
<tr>
<td>Is Taxable:</td>
<td> </td>
</tr>
<tr>
<td>Tax State:</td>
<td> </td>
</tr>
<tr>
<td>Bandwidth Order: Bandwidth:</td>
<td> </td>
</tr>
<tr>
<td>IP Qty:</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
D:\cgi-bin\test>
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12h54fm9v/M=362131.6882499.7825260.1510227/D=groups/S=1705007389:TM/Y=YAHOO/EXP=1123276165/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org
">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life - brought to you by One Economy</a>.</font>
--------------------------------------------------------------------~->
--
Homepage:
http://www.blat.net
Community email addresses:
Post message: ***@yahoogroups.com
Subscribe: blat-***@yahoogroups.com
Unsubscribe: blat-***@yahoogroups.com
List owner: blat-***@yahoogroups.com
Shortcut URL to this page:
http://groups.yahoo.com/group/blat
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/blat/
<*> To unsubscribe from this group, send an email to:
blat-***@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
I'm trying to send an html email on the command line, but the command
fails because there are quotes in the html. How can I send an html
message using the command line? Below is my perl script, and below
that is the output.
Thanks,
Dan
#!C:/perl/bin/perl.exe -w
use strict;
use Win32::OLE;
use CGI qw(:standard);
print header;
my $errors;
my $body = "<html>\n";
$body .= "<head>\n";
$body .= "<title>Untitled Document</title>\n";
$body .= "<meta http-equiv=\"Content-Type\" content=\"text/html;
charset=iso-8859-1\">\n";
$body .= "</head>\n";
$body .= "\n";
$body .= "<body>\n";
$body .= "<table width=\"100%\" border=\"0\">\n";
$body .= " <tr>\n";
$body .= " <td width=\"43%\"><strong>Ground Control Full Order
</strong></td>\n";
$body .= " <td width=\"57%\"> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Customer\'s NEW GCNumber:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner Number:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner\'s GC Number:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Where Purchased:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Installer Full Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Installer Phone: </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Customer\'s GC Account Number:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Customer Type:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Type of Direcway Service:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Direcway Modem Type:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td colspan=\"2\"><hr></td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td><strong>Verify this information in Netsuite:
</strong></td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Status:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Company Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Category:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Sales Rep:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Alt Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Fax:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>EMail:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Lead Source:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Start Date:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Partner Account: </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Paid by Parent:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Attention:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Addressee:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Address1:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Address2:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping City:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping State:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Zip:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Shipping Country:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Attention:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Addressee:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Phone:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Address1:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Address2:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing City:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing State:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Country:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Terms:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Price Level:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Billing Company Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Credit Card Number: </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Expiration Date:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Cardholder Name:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Credit Card Type:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Transponder:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>System:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Dish Size:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Public IP:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Numberof IPs:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Bandwidth Subscription:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Bandwidth Cost:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td colspan=\"2\"><hr></td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td><strong>Enter this information into
Netsuite:</strong></td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Installation Requested:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Commissioned:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Service Plan:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Equipment & Install:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Satellite:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Address:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Is Taxable:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Tax State:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>Bandwidth Order: Bandwidth:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td>IP Qty:</td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= " <tr>\n";
$body .= " <td> </td>\n";
$body .= " <td> </td>\n";
$body .= " </tr>\n";
$body .= "</table>\n";
$body .= "</body>\n";
$body .= "</html>\n";
$body .= "\n";
my $to_address = '***@groundcontrol.com';
my $subject = "Full Order Error Occurred";
#email Dan
if (MySendMail($to_address,$subject,$body) == 1)
{
printf("Mail sent correctly.");
}
else
{
printf("There was an error sending mail.\n");
printf("%s",$body);
}
#*********************************************************************
************
#================== [ MySendMail ]
# input parameters are to_address, subject, and body
# It returns 1 if it succeeds, 0 if it fails
sub MySendMail
{
my @params = @_;
my $to_param = $params[0];
my $subject_param = $params[1];
my $body_param .= $params[2];
my $ReturnVal = 0;
# declare the variables we are going to use
my ($to, $f, $subject, $body, $server, $hostname, $u, $pw, $debug,
$x, $return);
# you must change the values marked with
# populate all the variables we are going to use
$to = "-to " . $to_param;
$f = "-f autosupport\@groundcontrol.com";
$subject = "-subject \"". $subject_param . "\"";
$body = "-body \"". $body_param ."\"";
$server = "-server 67.130.139.34";
$hostname = "-hostname secure.groundcontrol.com";
# $u = "-u d.deham\@groundcontrol.com";
# $pw = "-pw !";
# $debug = "-debug";
#$x = "-x \"X-Custom-header: Check it out!\"";
# Here is where we run Blat.
# Note, the Perl vars are the same as Blat's paramaters.
# All the stuff you see Blat return to STDOUT (non error messages
to
# the screen) get put in the $return variable.
# $return = `blat - $to $f $subject $body $server $hostname $u $pw
$debug $x`;
$return = `blat - $to $f $subject $body $server $hostname -noh -
html`;
#return holds the result from the server
if (($return =~ m/Subject:/g) && (!($return =~ m/Error:/g)) )
{
$ReturnVal = 1;
}
else
{
$ReturnVal = 0;
$errors .= "mailer error: " . $return . "\n";
$errors .= "email body:" . $body_param . "\n";
}
#print $return;
return $ReturnVal;
}# end: sub MySendMail
*****************************************************
OUTPUT
*****************************************************
D:\cgi-bin\test>perl html-email.pl
Content-Type: text/html; charset=ISO-8859-1
There was an error sending mail.
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-
1">
</head>
<body>
<table width="100%" border="0">
<tr>
<td width="43%"><strong>Ground Control Full Order </strong></td>
<td width="57%"> </td>
</tr>
<tr>
<td>Customer's NEW GCNumber:</td>
<td> </td>
</tr>
<tr>
<td>Partner Number:</td>
<td> </td>
</tr>
<tr>
<td>Partner's GC Number:</td>
<td> </td>
</tr>
<tr>
<td>Where Purchased:</td>
<td> </td>
</tr>
<tr>
<td>Installer Full Name:</td>
<td> </td>
</tr>
<tr>
<td>Installer Phone: </td>
<td> </td>
</tr>
<tr>
<td>Customer's GC Account Number:</td>
<td> </td>
</tr>
<tr>
<td>Customer Type:</td>
<td> </td>
</tr>
<tr>
<td>Type of Direcway Service:</td>
<td> </td>
</tr>
<tr>
<td>Direcway Modem Type:</td>
<td> </td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td><strong>Verify this information in Netsuite: </strong></td>
<td> </td>
</tr>
<tr>
<td>Status:</td>
<td> </td>
</tr>
<tr>
<td>Company Name:</td>
<td> </td>
</tr>
<tr>
<td>Category:</td>
<td> </td>
</tr>
<tr>
<td>Sales Rep:</td>
<td> </td>
</tr>
<tr>
<td>Phone:</td>
<td> </td>
</tr>
<tr>
<td>Alt Phone:</td>
<td> </td>
</tr>
<tr>
<td>Fax:</td>
<td> </td>
</tr>
<tr>
<td>EMail:</td>
<td> </td>
</tr>
<tr>
<td>Partner:</td>
<td> </td>
</tr>
<tr>
<td>Lead Source:</td>
<td> </td>
</tr>
<tr>
<td>Start Date:</td>
<td> </td>
</tr>
<tr>
<td>Partner Account: </td>
<td> </td>
</tr>
<tr>
<td>Paid by Parent:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Attention:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Addressee:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Phone:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Address1:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Address2:</td>
<td> </td>
</tr>
<tr>
<td>Shipping City:</td>
<td> </td>
</tr>
<tr>
<td>Shipping State:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Zip:</td>
<td> </td>
</tr>
<tr>
<td>Shipping Country:</td>
<td> </td>
</tr>
<tr>
<td>Billing Attention:</td>
<td> </td>
</tr>
<tr>
<td>Billing Addressee:</td>
<td> </td>
</tr>
<tr>
<td>Billing Phone:</td>
<td> </td>
</tr>
<tr>
<td>Billing Address1:</td>
<td> </td>
</tr>
<tr>
<td>Billing Address2:</td>
<td> </td>
</tr>
<tr>
<td>Billing City:</td>
<td> </td>
</tr>
<tr>
<td>Billing State:</td>
<td> </td>
</tr>
<tr>
<td>Billing Country:</td>
<td> </td>
</tr>
<tr>
<td>Terms:</td>
<td> </td>
</tr>
<tr>
<td>Price Level:</td>
<td> </td>
</tr>
<tr>
<td>Billing Company Name:</td>
<td> </td>
</tr>
<tr>
<td>Credit Card Number: </td>
<td> </td>
</tr>
<tr>
<td>Expiration Date:</td>
<td> </td>
</tr>
<tr>
<td>Cardholder Name:</td>
<td> </td>
</tr>
<tr>
<td>Credit Card Type:</td>
<td> </td>
</tr>
<tr>
<td>Transponder:</td>
<td> </td>
</tr>
<tr>
<td>System:</td>
<td> </td>
</tr>
<tr>
<td>Dish Size:</td>
<td> </td>
</tr>
<tr>
<td>Public IP:</td>
<td> </td>
</tr>
<tr>
<td>Numberof IPs:</td>
<td> </td>
</tr>
<tr>
<td>Bandwidth Subscription:</td>
<td> </td>
</tr>
<tr>
<td>Bandwidth Cost:</td>
<td> </td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td><strong>Enter this information into Netsuite:</strong></td>
<td> </td>
</tr>
<tr>
<td>Installation Requested:</td>
<td> </td>
</tr>
<tr>
<td>Commissioned:</td>
<td> </td>
</tr>
<tr>
<td>Service Plan:</td>
<td> </td>
</tr>
<tr>
<td>Equipment & Install:</td>
<td> </td>
</tr>
<tr>
<td>Satellite:</td>
<td> </td>
</tr>
<tr>
<td>Address:</td>
<td> </td>
</tr>
<tr>
<td>Is Taxable:</td>
<td> </td>
</tr>
<tr>
<td>Tax State:</td>
<td> </td>
</tr>
<tr>
<td>Bandwidth Order: Bandwidth:</td>
<td> </td>
</tr>
<tr>
<td>IP Qty:</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
D:\cgi-bin\test>
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12h54fm9v/M=362131.6882499.7825260.1510227/D=groups/S=1705007389:TM/Y=YAHOO/EXP=1123276165/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org
">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life - brought to you by One Economy</a>.</font>
--------------------------------------------------------------------~->
--
Homepage:
http://www.blat.net
Community email addresses:
Post message: ***@yahoogroups.com
Subscribe: blat-***@yahoogroups.com
Unsubscribe: blat-***@yahoogroups.com
List owner: blat-***@yahoogroups.com
Shortcut URL to this page:
http://groups.yahoo.com/group/blat
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/blat/
<*> To unsubscribe from this group, send an email to:
blat-***@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/