Changeset 1910

Show
Ignore:
Timestamp:
08/11/06 02:29:32
Author:
miyagawa
Message:

update del.icio.us API endpoint

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • sbm-xpost/trunk/sbm-xpost.cgi

    r1681 r1910  
    5959sub post_delicious { 
    6060    my $q = shift; 
    61     my $url = URI->new("http://del.icio.us/api/posts/add"); 
     61    my $url = URI->new("https://api.del.icio.us/v1/posts/add"); 
    6262    $url->query_form( 
    6363        url => $q->param('url'), 
     
    6868    ); 
    6969    my $ua = LWP::UserAgent->new; 
    70     $ua->credentials("del.icio.us:80", "del.icio.us API", $conf->{delicious}->{username}, $conf->{delicious}->{password}); 
     70    $ua->credentials("api.del.icio.us:443", "del.icio.us API", $conf->{delicious}->{username}, $conf->{delicious}->{password}); 
    7171    my $res = $ua->get($url); 
    7272    warn $res->status_line unless $res->is_success;