Here's the sub get_port look like:
sub get_port
{
my $self = shift;
return $self->{port} if $self->{port};
return 5050;
}
Mhac Janapin writes:
> 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",)
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
