-
Notifications
You must be signed in to change notification settings - Fork 0
/
addpage.pl
38 lines (31 loc) · 901 Bytes
/
addpage.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!perl
use strict;
use warnings;
use Config::Pit;
use WebService::Simple;
use Encode;
use URI::Title;
use Data::Dumper;
my $uri = $ARGV[0];
if( @ARGV != 1 ) { die "Please specify the URL"; }
my $title = URI::Title::title($uri);
if( !defined($title) ) { $title = "new page"; }
my $conf = pit_get("readitlater.com", require => {
"APIKey" => "API key on readitlater.com",
"username" => "your username on readitlater.com",
"password" => "your password on readitlater.com"
});
my $service = WebService::Simple->new(
base_url => 'https://readitlaterlist.com/v2/',
param => { apikey => "$conf->{APIKey}",
username => "$conf->{username}",
password => "$conf->{password}"
},
);
my $res = $service->get("add", { url => $uri, title => $title });
if( $res->is_success ) {
print $res->content . "\n";
}
else {
print $res->status_line;;
}