Changeset 115

Show
Ignore:
Timestamp:
02/23/06 07:10:12
Author:
miyagawa
Message:

oooops

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/lib/Plagger/Plugin/Subscription/HatenaRSS.pm

    r110 r115  
    1717    my($self, $context) = @_; 
    1818 
     19    my $username = $self->conf->{username} 
     20        or $context->error('username is missing'); 
     21 
    1922    my $start = "https://www.hatena.ne.jp/login?backurl=http%3A%2F%2Fr.hatena.ne.jp%2F"; 
    2023 
     
    2528    $mech->submit_form( 
    2629        fields => { 
    27             key      => $self->conf->{username}
     30            key      => $username
    2831            password => $self->conf->{password}, 
    2932        }, 
     
    3639    $context->log(info => "Login to HatenaRSS succeed."); 
    3740 
    38     $mech->get("http://r.hatena.ne.jp/miyagawa/config"); 
     41    $mech->get("http://r.hatena.ne.jp/$username/config"); 
    3942    $mech->submit_form(form_name => 'opmlexport'); 
    4043