Hi Guys,
I'm creating a perl script that sends message to Yahoo Messenger. I
start-off with a simple test script. My script goes like this:
#!/usr/bin/perl -w
use Net::YMSG;
use strict;
my $yahoo = Net::YMSG->new(
id => 'userxxxxxxx',
password => 'passwdxxxxx',
);
$yahoo->login or die "Can't login to Yahoo Messenger";
$yahoo->start();
$yahoo->send('recipient_id', 'Test Ok');
Above script doesnt work at all and I get a message of
"Operation now in progress at /usr/lib/perl5/site_perl/5.8.8/Net/YMSG.pm
line 344."
The line 344 says (excerpt from YMSG.pm) was:
sub get_connection
{
my $self = shift;
return $self->handle if $self->handle;
my $server = IO::Socket::INET->new(
PeerAddr => $self->{hostname},
PeerPort => $self->get_port, <====this is line 344
Proto => 'tcp',
Timeout => 30,
) or die $!;
$server->autoflush(1);
return $self->handle($server);
}
I had installed modules Net::YMSG and IO:Socket.
Any ideas how can I make this function? I searched the web for this but
others with the same problem got no answers.
Hope you can help me. I need it badly for network alerting.
Regards,
Iris Lames
Brainbench Transcript no: 4387542
Linux user: 298456
_________________________________________________
Philippine Linux Users' Group (PLUG) Mailing List
[email protected] (#PLUG @ irc.free.net.ph)
Read the Guidelines: http://linux.org.ph/lists
Searchable Archives: http://archives.free.net.ph
