--i know.  i *know* i must be doing something goofy.

--here's my code:

[code]

#!/usr/bin/perl

$debug=2;

open DATE, "date |";
$date=<DATE>;
chop $date;

#$addr=`cat /tmp/email_users.txt`;
$addr='[EMAIL PROTECTED]';
$addr_frm='[EMAIL PROTECTED]';

$boundary='!*@&#^$% HMP web server MIME boundary %$^#&@*!';

open (MAIL, "|/usr/lib/sendmail -oi -t -odq")
        || print "no sendmail\n";
print MAIL <<EOF
From:  "Server Admin" $addr_frm
To: $addr
Reply-to: $addr_frm
Date: $date
Subject: System Maintenance
Mime-Version: 1.0
Content-type: multipart/mixed;
        Boundary="$boundary"
        Content-Disposition: inline

--$boundary
Content-type: text/html; charset=us-ascii
Content-Disposition: inline

<h2>System Maintenance / Upgrade</h2>
$date
<pre>
Good evening:

The Server will experience a kernel upgrade tonight (Tuesday, December 11th,
2001).  The modifications is in conjunction with RAID5 kernel tuning
and debugging.

The Server is expected to be offline from 6pm - 10pm.

Sorry for the inconvenience.

-the dude

</pre>
EOF
;
[/code]


--maybe my eyes are going ... (very likely).  anything i might
have missed?

-X


-----Original Message-----
From: Brett W. McCoy [mailto:[EMAIL PROTECTED]]

On Wed, 12 Dec 2001, Johnson, Shaunn wrote:

> [excerpt]
>
> In string, @server now must be written as \@server at ./email_sys_users.pl
> line 17, near "@server"
> In string, @bcbsm now must be written as \@bcbsm at ./email_sys_users.pl
> line 17, near "@server.fred.com
> email: admin@fred"
> Execution of ./email_sys_users.pl aborted due to compilation errors.
>
> [/excerpt]
>
> --so, even if i put the '\' in front of the '@', i get the same message.
> which leads me to believe that just '\' isn't the answer.  so ... i
> must be missing something.

That should be all you need to do.  Is there something else missing in
your code?  Here doc not terminated properly?

> --the docu also says something about -oi stops sendmail from
> thinking the '.' is the end of message.

That's correct.

-- Brett


Reply via email to