perl

[Chang]

Sorry, anyone got a perl example that uses a foreign smtp server to 
sendmail?
I copied this script, but perl found errors. Seems that I lacked some 
package.

[guest@server pub]$ perl -w mail.pl
Global symbol "$length" requires explicit package name at mail.pl line 26.
Global symbol "$packFormat" requires explicit package name at mail.pl 
line 35.
Execution of mail.pl aborted due to compilation errors.

Ronnie Gauthier wrote:

>use Carp;
>
>On Tuesday 18 September 2001 19:46, Douglas J. Hunley wrote:
>
>>On Tuesday 18 September 2001 20:36, Douglas J. Hunley babbled:
>>
>>>On Tuesday 18 September 2001 18:50, Alan Jackson babbled:
>>>
>>>>Untested.....
>>>>
>>>testing now <evil grin>.
>>>thanks alan!
>>>
>>shit! complains about unquoted "carp" ... when I change that to "die" then
>>I get a 500 server error from Apache..
>>
>



#!/usr/bin/perl -w

use Socket;
use strict;


my($mailTo)     = '[EMAIL PROTECTED]';
my($mailServer) = 'mail.xxx.com';
my($mailFrom)   = '[EMAIL PROTECTED]';
my($realName)   = "Man-wai Chang";
my($subject)    = 'Test';
my($body)       = "Test Line One.\nTest Line Two.\n";


$main::SIG{'INT'} = 'closeSocket';


my($proto)      = getprotobyname("tcp")        || 6;
my($port)       = getservbyname("SMTP", "tcp") || 25;

my($serverAddr) = (gethostbyname($mailServer))[4];
if (! defined($length)) {
    die('gethostbyname failed.');
}


socket(SMTP, AF_INET(), SOCK_STREAM(), $proto)
    or die("socket: $!");


$packFormat = 'S n a4 x8';   # Windows 95, SunOs 4.1+
#$packFormat = 'S n c4 x8';   # SunOs 5.4+ (Solaris 2)


connect(SMTP, pack($packFormat, AF_INET(), $port, $serverAddr))
    or die("connect: $!");


select(SMTP); $| = 1; select(STDOUT);    # use unbuffemiles i/o.


{
    my($inpBuf) = '';


    recv(SMTP, $inpBuf, 200, 0);
    recv(SMTP, $inpBuf, 200, 0);
}


sendSMTP(1, "HELO\n");
sendSMTP(1, "MAIL From: <$mailFrom>\n");
sendSMTP(1, "RCPT To: <$mailTo>\n");
sendSMTP(1, "DATA\n");


send(SMTP, "From: $realName\n", 0);
send(SMTP, "Subject: $subject\n", 0);
send(SMTP, $body, 0);


sendSMTP(1, "\r\n.\r\n");
sendSMTP(1, "QUIT\n");


close(SMTP);


sub closeSocket {     # close smtp socket on error
    close(SMTP);
    die("SMTP socket closed due to SIGINT\n");
}


sub sendSMTP {
    my($debug)  = shift;
    my($buffer) = @_;


    print STDERR ("> $buffer") if $debug;
    send(SMTP, $buffer, 0);


    recv(SMTP, $buffer, 200, 0);
    print STDERR ("< $buffer") if $debug;


    return( (split(/ /, $buffer))[0] );
}