ほぇ??
なんで、今まで普通だったのに??っということで調査してみた
該当のプログラム抜粋
sub login {
my $self = shift;
my ($user, $pass) = @_;
my $loginForm = "https://www.google.com/accounts/ServiceLoginBox?service=analytics&nui=1&hl=en-US&continue=http://ww
w.google.com/analytics/home/%3Fet%3Dreset%26hl%3Den-US";
my $ua = $self->{ua};
my $req = HTTP::Request->new (GET => $loginForm);
my $res = $ua->request ($req);
die "Request failed" if (!$res->is_success);
あー、analyticsのpluginで、is_successで、こけてるのね
URL変わった??ってことで、URLを直にブラウザで叩いてみると・・・
ちゃんと表示される・・・あれ??
Request failedだけじゃ、わからん!!
レスポンスコードも出してみる
die "Request failed(". $res->code. ")" if (!$res->is_success);
結果は、「Request failed(501)」
501?????

最近のコメント