I'm did used both servers. I even did this to my script:
my $yahoo = Net::YMSG->new(
id => 'userxxxxxxx',
password => 'passwdxxxxx',
hostname => 'scs.msg.yahoo.com',
);
$yahoo->login or die "Can't login to Yahoo Messenger";
$yahoo->start();
$yahoo->send('recipient_id', 'Test Ok');
But the above script did nothing. My server accepts port 5050 and is
directly connected to the ISP. Do you know why it wont work?
Rebs Guarina writes:
> which server are you using? scs.msg.yahoo.com? cs.yahoo.com.jp? and it
> should be connecting to port 5050.
>
> Seems like your script is trying to establish a connection to the remote
> server's port. However, it is either taking too long or timing out. Check if
> your fw/proxy/socks server allows connections to port 5050.
>
> 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
>>
>
>
>
> --
> La Dee Dee, 1, 2, 3.
> VRRP ain't free.
> O P E N B S D
> CARP is free
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
