Hatena::Groupsubtech

生きている乳酸菌 このページをアンテナに追加 RSSフィード

 | 

2008-04-02

DoCoMomobirc 15:40  DoCoMo で mobirc - 生きている乳酸菌 を含むブックマーク はてなブックマーク -  DoCoMo で mobirc - 生きている乳酸菌  DoCoMo で mobirc - 生きている乳酸菌 のブックマークコメント

http://www.nttdocomo.co.jp/service/imode/make/content/ip/#imodeid

こんなんが 3/31 から使えるようになった。

とりあえず自分の ID 調べてみる

#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/html", "\n\n";

print $ENV{'HTTP_X_DCMGUID'};

http://yoshiori.org/guid.pl?guid=on

mobirc に組みこんでみる

package App::Mobirc::Plugin::Authorizer::DoCoMoID;
use strict;
use warnings;
use Carp;
use App::Mobirc::Util;

sub register {
    my ($class, $global_context, $conf) = @_;

    $global_context->register_hook(
        'authorize' => sub { my $c = shift;  _authorize($c, $conf) },
    );
}

sub _authorize {
    my ( $c, $conf ) = @_;

    DEBUG __PACKAGE__;

    unless ($conf->{docomo_id}) {
        croak "missing docomo_id";
    }

    my $subno = $c->{req}->header('x-dcmguid');
    if ( $subno && $subno eq $conf->{docomo_id} ) {
        DEBUG "SUCESS AT DOCOMO_ID";
        return true;
    } else {
        return false;
    }
}

1;

id:tokuhiromau のパクリ

/?guid=on でアクセス出来るようにしてみる

lib/App/Mobirc/HTTPD/Router.pm

    if ( $uri eq '/' || $uri eq '/?guid=on') {
        return 'index';
    }

conf.yaml 書いてみる

  - module: App::Mobirc::Plugin::Authorizer::DoCoMoID
    config:
      docomo_id: xxxxxxx

結果

うまく動いてない。

エラーもでないんだけど

docomo_id にめちゃくちゃな値いれてもとおっちゃう。


TODO

mobirc のソースをちゃんと読んでみる

 |