Jabber client Net::XMPP stopped working with google

Question

Google

I had a jabber bot that worked for many years until yesterday.
And yesterday the chick stopped.

Here is the code:

#!/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] not "ok") {
exit(0);
}

# Send message
$conn->MessageSend(to => '[email protected]', body => 'test', resource => '

Tried on different computers and different Google accounts to feed.
The result is the same.
Does not work.
And it freezes so that it doesn't even timeout on this line:

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

Google crashed yesterday, maybe that's why?
top.rbc.ru/economics/17/04/2013/854445.shtml

I don't know what to think anymore.

UPD 04/21/13 Well, there were still victims:
https://productforums.google.com/forum/?fromgroups#!topic/chat/O_GxJrkFHUc

Answer 1

# Here is the solution to this problem. Paste inside a non-working program.
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

I observed the same problem yesterday, but today everything is working fine, it looks like some kind of internal work.