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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
package Linkulator::Twitter;
use Moose;
use namespace::autoclean;
# ABSTRACT: scrape linkulator urls and turn them into tweets
use LWP::UserAgent;
use Net::Twitter;
use String::Truncate 'elide';
use WWW::Shorten 'VGd';
use XML::RAI;
use Linkulator::Twitter::Link;
has feed_url => (
is => 'ro',
isa => 'Str',
default => 'http://offtopic.akrasiac.org/?feed=sfw',
);
has twitter_user => (
is => 'ro',
isa => 'Str',
default => 'crawl_offtopic',
);
has twitter_access_token => (
is => 'ro',
isa => 'Str',
predicate => 'has_twitter_access_token',
);
has twitter_access_token_secret => (
is => 'ro',
isa => 'Str',
predicate => 'has_twitter_access_token_secret',
);
has links => (
traits => ['Array'],
isa => 'ArrayRef[Linkulator::Twitter::Link]',
default => sub { [] },
handles => {
links => 'elements',
add_link => 'push',
},
);
has twitter_consumer_key => (
is => 'ro',
isa => 'Str',
default => '6mW3vek1Edty1NGJe7yPFg',
);
has twitter_consumer_secret => (
is => 'ro',
isa => 'Str',
default => 'OzQuhNQ4HlO2eQw9tdo8R4QDLYqORwSEIzkF6ZBCAY',
);
has ua => (
is => 'ro',
isa => 'LWP::UserAgent',
default => sub { LWP::UserAgent->new },
);
has twitter => (
is => 'ro',
isa => 'Net::Twitter',
lazy => 1,
default => sub {
my $self = shift;
Net::Twitter->new(
traits => ['API::REST', 'OAuth'],
consumer_key => $self->twitter_consumer_key,
consumer_secret => $self->twitter_consumer_secret,
($self->has_twitter_access_token
? (access_token => $self->twitter_access_token)
: ()),
($self->has_twitter_access_token_secret
? (access_token_secret => $self->twitter_access_token_secret)
: ()),
);
},
);
sub authenticate_twitter {
my $self = shift;
my ($pin) = @_;
return if $self->twitter->authorized;
return $self->twitter->get_authorization_url
if !defined $pin;
my ($token, $secret, $id, $user) = $self->twitter->request_access_token(
verifier => $pin,
);
die "Authenticated the wrong user: $user (should be " . $self->twitter_user . ')'
unless $self->twitter_user eq $user;
return ($token, $secret);
}
sub update {
my $self = shift;
my $res = $self->ua->get($self->feed_url);
die "couldn't get " . $self->feed_url . " : " . $res->status_line
unless $res->is_success;
my $rss = $self->_munge_xml($res->content);
my $feed = XML::RAI->parse_string($rss);
die "got no items!" unless $feed->item_count;
for my $item (@{ $feed->items }) {
my ($link_num) = ($item->identifier =~ /(\d+)$/);
my $uri = $item->link;
$uri =~ s/^\s+|\s+$//g;
my $desc = $item->title;
$desc =~ s/^\s+|\s+$//g;
$self->add_link(
Linkulator::Twitter::Link->new(
id => $link_num,
uri => $uri,
desc => $desc,
)
);
}
}
sub tweet {
my $self = shift;
my ($link) = @_;
die "not a link"
unless blessed($link) && $link->isa('Linkulator::Twitter::Link');
my $uri = makeashorterlink($link->uri);
my $desc = elide($link->desc, 140 - length($uri) - 1, { at_space => 1 });
$self->twitter->update("$desc $uri");
}
# the feed produces invalid xml - the <link> and <guid> tags don't escape
# ampersands in urls, and the xml parser chokes on this. need to fix it up
# here.
sub _munge_xml {
my $self = shift;
my ($xml) = @_;
$xml =~ s#<(link|guid)(.*)>([^<]*)</\1>#
my ($tag, $attrs, $text) = ($1, $2, $3);
$text =~ s+&+&+g;
"<${tag}${attrs}>$text</$tag>"
#eg;
return $xml;
}
__PACKAGE__->meta->make_immutable;
1;
|
