読者です 読者をやめる 読者になる 読者になる

はてダラがhttpsなページでうまく動かない

Perl

インターンのことが大体はてなグループに載っているような感じなので、はてなグループを書くことになる。それを編集すると言えばはてダラだが、httpsなページだとはてダラがうまく動かない。https://hoge.g.hatena.ne.jpのようなページだと。インターンで使っているグループがhttpsな感じなので、そこでつまっていた。というわけで無駄がありつつも応急処置でどうにかすることにした。

# Change $hatena_url to Hatena group URL if ($groupname is defined).
if ($groupname) {
    $hatena_url = "http://$groupname.g.hatena.ne.jp";
}

となっているところを

login();

# Change $hatena_url to Hatena group URL if ($groupname is defined).
if ($groupname) {
    if ( $user_agent->request( POST('https://hoge.g.hatena.ne.jp/') )
        ->is_redirect() != 1 )
    {
        $hatena_url = "http://$groupname.g.hatena.ne.jp";
    }
    else {
        $hatena_url = "https://$groupname.g.hatena.ne.jp";
    }
}

とでもしておいた。loginの処理を二回やっているので、だめぽなんだけど、応急処理としていいことにしておこう(ぇ。