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
164
165
166
167
168
169
170
|
########################################################################################################
##
## Log URL's and post them to del.icio.us
##
########################################################################################################
use strict;
BEGIN { $ENV{HARNESS_ACTIVE} = 1 }
use IO::Handle;
use Irssi;
use Irssi::Irc;
use Net::Delicious;
use URI::Find::Rule;
use POSIX;
use Log::Dispatch;
use Log::Dispatch::File;
use vars qw($VERSION %IRSSI $FINDER $WARNING_PRINTED);
$VERSION = "0.5";
%IRSSI = (
authors => "Benjamin Reed",
contact => 'ranger@befunk.com',
name => "deliciousurl",
description => "Logs URLs and posts them to del.icio.us",
license => "GPLv2",
url => "http://ranger.befunk.com/",
);
# === Version History ===
# 2007-01-19: version 0.5, minor logging/UI tweaks
# 2005-10-25: released version 0.4
# 2005-10-25: fork post_to_delicious so we don't have to wait for a response (holy crap, I
# can't believe it was broken this long without noticing!)
# 2005-08-24: added channel ignore, thanks to Rev. Jeffrey Paul
Irssi::settings_add_str('deliciousurl', 'delicious_username', '');
Irssi::settings_add_str('deliciousurl', 'delicious_password', '');
Irssi::settings_add_int('deliciousurl', 'delicious_post_privmsg', 0);
Irssi::settings_add_int('deliciousurl', 'delicious_strip_trailing_slash', 1);
Irssi::settings_add_str('deliciousurl', 'delicious_blacklist_regexp', '(tubgirl|goatse\.cx)');
Irssi::settings_add_str('deliciousurl', 'delicious_default_tag', 'irc');
Irssi::settings_add_str('deliciousurl', 'delicious_ignore_chan', '');
sub post_to_delicious
{
my ($channel, $data, $nick) = @_;
my $username = Irssi::settings_get_str('delicious_username');
my $password = Irssi::settings_get_str('delicious_password');
if (not defined $username or not defined $password and not $WARNING_PRINTED)
{
if (not $WARNING_PRINTED)
{
Irssi::print("username or password are not set!");
$WARNING_PRINTED++;
}
return;
}
my $pid = fork();
if ($pid) {
Irssi::pidwait_add($pid);
return;
} else {
my $blacklist = Irssi::settings_get_str('delicious_blacklist_regexp');
eval {
$data =~ /$blacklist/ and die "blacklist matched!";
};
if ($@)
{
#Irssi::print("skipped in $channel (blacklist): $data");
POSIX::_exit(0);
}
$channel =~ s/^#//;
my @igc = split(
/\s+/,
Irssi::settings_get_str('delicious_ignore_chan')
);
for (@igc) {
s/^#//;
POSIX::_exit(0) if lc($_) eq lc($channel);
}
my $del = Net::Delicious->new({
user => $username,
pswd => $password,
});
my @posts = $del->posts({ tag => Irssi::settings_get_str('delicious_default_tag') });
my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$year += 1900;
$mon += 1;
my $dt = sprintf('%04d-%02d-%02dT%02d:%02d:%02dZ', $year, $mon, $mday, $hour, $min, $sec);
my @urls = URI::Find::Rule->in($data);
POSIX::_exit(0) unless (@urls);
for my $url (@urls) {
$url = $url->[1];
$url =~ s/\/*$// if (Irssi::settings_get_int('delicious_strip_trailing_slash'));
my $tags = Irssi::settings_get_str('delicious_default_tag') . ' ' . $channel . ' ' . $nick;
#my $text = sprintf('%04d-%02d-%02d %02d:%02d:%02d <%s> %s', $year, $mon, $mday, $hour, $min, $sec, $nick, $data);
my $text = sprintf('<%s> %s', $nick, $data);
if (my ($post) = grep { $_->href eq $url } @posts)
{
my @tags = split(/\s+/, $post->tag);
if (not grep { $_ eq $channel } split(/\s+/, $post->tag))
{
$tags = $post->tag . ' ' . $channel;
}
#$text = $post->extended . "\n" . $text;
}
my $return = $del->add_post({
url => $url,
description => $url,
extended => $text,
tags => $tags,
dt => $dt,
});
}
POSIX::_exit(0);
}
}
sub del_public
{
my ($server, $data, $nick, $mask, $target) = @_;
post_to_delicious($target, $data, $nick);
}
sub del_private
{
my ($server, $data, $nick, $address) = @_;
if (Irssi::settings_get_int('delicious_post_privmsg') > 0)
{
post_to_delicious($server->{'nick'}, $data, $nick);
}
}
sub del_own
{
my ($server, $data, $target) = @_;
post_to_delicious($target, $data, $server->{'nick'});
}
sub del_topic
{
my ($server, $target, $data, $nick, $mask) = @_;
post_to_delicious($target, $data, $nick);
}
Irssi::signal_add_last('message public', 'del_public');
Irssi::signal_add_last('message private', 'del_private');
Irssi::signal_add_last('message own_public', 'del_own');
Irssi::signal_add_last('message topic', 'del_topic');
Irssi::print("deliciousurl $VERSION ready");
|
