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
|
#!/usr/bin/perl -w
#
# Settings:
# /SET urlgrab_command <command>
# Command to execute when opening URLs
# Default: xdg-open '%s' > /dev/null 2>&1
#
use strict;
use Time::Piece;
use Irssi 20010120.0250 ();
use vars qw($VERSION %IRSSI);
$VERSION = "0.5";
%IRSSI = (
authors => 'David Leadbeater, Thorsten Scherf',
contact => 'dgl@dgl.cx, tscherf@redhat.com',
name => 'urlgrab',
description => 'Captures urls said in channel and private messages and saves them to a file, also adds a /url command which loads the last said url into a browser.',
license => 'GNU GPLv2 or later',
url => 'http://irssi.dgl.cx/',
);
my $lasturl;
# Change the file path below if needed
my $file = "$ENV{HOME}/.urllog";
sub url_public{
my($server,$text,$nick,$hostmask,$channel)=@_;
my $url = find_url($text);
url_log($nick, $channel, $url) if defined $url;
}
sub url_private{
my($server,$text,$nick,$hostmask)=@_;
my $url = find_url($text);
url_log($nick, $server->{nick}, $url) if defined $url;
}
sub url_cmd{
if(!$lasturl){
Irssi::print("No url captured yet");
return;
}
system(sprintf(Irssi::settings_get_str("urlgrab_command"), $lasturl));
}
sub find_url {
my $text = shift;
if($text =~ /((ftp|http|https):\/\/[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~]*)/i){
return $1;
}elsif($text =~ /(www\.[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~]*)/i){
return "http://".$1;
}
return undef;
}
sub url_log{
my $t = localtime;
my($where,$channel,$url) = @_;
return if lc $url eq lc $lasturl; # a tiny bit of protection from spam/flood
$lasturl = $url;
open(URLLOG, ">>", $file) or return;
print URLLOG $t->datetime . " $where $channel $lasturl\n";
close(URLLOG);
}
Irssi::settings_add_str("misc", "urlgrab_command", "xdg-open '%s' > /dev/null 2>&1");
Irssi::signal_add_last("message public", "url_public");
Irssi::signal_add_last("message private", "url_private");
Irssi::command_bind("url", "url_cmd");
|
