Jabber клиент Net::XMPP перестал работать с гуглом

Question

[pcdesign]

Был у меня jabber-бот, который до вчерашнего дня работал долгие годы.
А вчера чик и перестал.

Вот код:

#!/usr/bin/perl
use Net::XMPP;
use strict;

my $conn = Net::XMPP::Client->new;
my $status = $conn->Connect(
hostname => 'talk.google.com',
port => 5222,
componentname => 'mydomen.com',
connectiontype => 'tcpip',
tls => 1,
);

unless ( defined $status ){
die «Connection failed: $!»;
}

my @result = $conn->AuthSend( username => 'my_login', password => 'my_pass', resource => 'ya_hz');

if ($result[0] ne «ok») {
exit(0);
}

# Send message
$conn->MessageSend(to => '[e-mail]', body => 'test', resource => 'ya_hz');

Пробовал на разных компах и разные гугл-аккаунты скормить.
Результат одинаковый.
Не работает.
И зависает так, что даже по таймауту не отваливается вот на этой строке:

" my @result = $conn->AuthSend( username => 'my_login', password => 'my_pass', resource => 'ya_hz');"

Вчера гугл падал, может быть поэтому?
top.rbc.ru/economics/17/04/2013/854445.shtml

Уже не знаю о чем думать.

UPD 21.04.13 Ну вот еще нашлись пострадавшие:
https://productforums.google.com/forum/?fromgroups#!topic/chat/O_GxJrkFHUc

Answer 1

[pcdesign]

# Вот решение данного трабла. Вставить внутрь неработающей программы.

use IO::Socket::SSL;
{
no warnings 'redefine';
my $old_connect_SSL = \&IO::Socket::SSL::connect_SSL;
*IO::Socket::SSL::connect_SSL = sub {
my $sock = $_[0];
${*$sock}{_SSL_arguments}{SSL_cipher_list} = 'RC4-MD5';
goto $old_connect_SSL;
};
}

Answer 2

[Сергей Петриков]

Ту же проблему вчера наблюдал, а сегодня все работает нормально, похоже внутренние работы какие-то.

Comments

[pcdesign]

Спасибо за ответ!
У меня пока эта пьянка продолжается.

Вчера вечером на полчаса заработало. И все.
Сегодня уже целый день тишина.