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
|
use strict;
use Irssi;
use LWP::UserAgent;
use HTML::Entities;
use vars qw($VERSION %IRSSI $cache);
$VERSION = '1.05';
%IRSSI = (
authors => 'Eric Jansen',
contact => 'chaos@sorcery.net',
name => 'imdb',
description => 'Automatically lookup IMDB-numbers in nicknames',
license => 'GPL',
modules => 'LWP::UserAgent HTML::Entities',
url => 'http://xyrion.org/irssi/',
changed => '2022-12-09',
selfcheckcmd=> 'imdb check',
);
my $ua = new LWP::UserAgent;
$ua->agent("Irssi/imdb/$VERSION");
# Set the timeout to five second, so it won't freeze the client too long on laggy connections
$ua->timeout(5);
my $last_result;
sub event_nickchange {
my ($channel, $nick, $old_nick) = @_;
# Lookup any 7-digit number in someone elses nick
if($nick->{'nick'} ne $channel->{'ownnick'}->{'nick'} && $nick->{'nick'} =~ /\D(\d{7})(?:\D|$)/) {
my $id = $1;
# See if we know the title already
if(defined $cache->{$id}) {
# Print it
$channel->printformat(MSGLEVEL_CRAP, 'imdb_lookup', $old_nick, $cache->{$id}->{'title'}, $cache->{$id}->{'year'});
}
# Otherwise, contact IMDB
else {
# Fetch the movie detail page
my $req = new HTTP::Request(GET => "http://www.imdb.com/title/tt$id/");
my $res = $ua->request($req);
# Get the title and year from the fetched page
if($res->is_success
&& $res->content =~ /<title>(.+?) \((.+)\).*<\/title>/i) {
# https://www.imdb.com/title/tt1234567/
# <title>"So You Think You Can Dance" The Top 14 Perform (TV Episode 2008) - IMDb</title>
# https://www.imdb.com/title/tt0234567/
# <title>The Ranchman's Nerve (1911) - IMDb</title>
my ($title, $year) = ($1, $2);
# Decode special characters in the title
$title= decode_entities($title);
$last_result= { title=> $title, year=> $year };
# Print it
if ($channel->{type} eq "CHANNEL" ) {
$channel->printformat(MSGLEVEL_CRAP, 'imdb_lookup', $old_nick, $title, $year);
} else {
Irssi::printformat(MSGLEVEL_CRAP, 'imdb_lookup', $old_nick, $title, $year);
}
# And cache it
$cache->{$id} = {
'title' => $title,
'year' => $year
};
}
}
}
}
# /imdb
sub cmd {
my ($args, $server, $witem)=@_;
if ($args =~ m/check/) {
my $s='ok';
$last_result= {};
$witem->{'ownnick'}->{'nick'}="sepp";
my $nick={ nick=>"susi_1234567" };
event_nickchange( $witem, $nick , "imdb");
unless ( $last_result->{title} =~ m/You Can Dance/ ) {
$s="Error: title ($last_result->{title})";
}
unless ($last_result->{year} =~ m/2008/ ) {
$s="Error: year ($last_result->{year})";
}
Irssi::print("imdb: self check: $s");
my $schs = exists $Irssi::Script::{'selfcheckhelperscript::'};
Irssi::command("selfcheckhelperscript $s") if ( $schs );
} elsif ( $args =~ m/\d{7}/ ) {
$args =~ s/\s//g;
$witem->{'ownnick'}->{'nick'}="sepp";
my $nick={ nick=>"susi_$args" };
event_nickchange( $witem, $nick , "imdb");
}
}
Irssi::theme_register([
'imdb_lookup', '{nick $0} is watching {hilight $1} ($2)'
]);
Irssi::signal_add('nicklist changed', 'event_nickchange');
Irssi::command_bind($IRSSI{name},\&cmd);
# vim:set ts=8 sw=4:
|
