[MacPerl] Anyone...?

[Strider <Strider@clarityconnect.com>]

Anyone have any idea why this doesn't work? I'm at a loss, and I think I've
tried everything I can think of. The send() and recv() routines don't give
me much either... they all sort of run forever without any extra output
after the initial $msg.

require "GUSI.ph";
use Socket;

$serv = "mail.serv.er";

socket(Seraph, PF_INET, SOCK_STREAM, 6);
	$sin = sockaddr_in("25",inet_aton("$serv"));
	$conn = connect(Seraph,$sin);
	die "Connection couldn't be made. $!" if ($conn != 1);
	$msg = <Seraph>;
	if ($msg !~ /^220/) {die "Host not responding correctly.";}
	print "$msg";
	print Seraph "EHLO\n";
	$msg = <Seraph>;
	print "$msg\n";
close(Seraph);

the output comes out with the first 220 line from the server, but nothing
after that.

(If anyone's been following my search for macchat.pl, you're probably
wondering why I'm not using libnet or libwww. I think that this will be
quicker- besides, I won't have to move the lib files onto every blasted
machine I put THIS onto- it uses GUSI and Socket, and nothing else. Those
come with Macperl.)

-Seraph



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch