what does sub get_port look like?
On 8/24/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]>
wrote:
>
> 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
>
--
Mhac Janapin
PBTS SysAd
=============
http://mulingsilang.blogspot.com
=============
I'm an Open Source Enthusiast. c",)
_________________________________________________
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
