/usr/share/irssi/scripts/topic-diff.pl is in irssi-scripts 20131030.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '1.00';
%IRSSI = (
authors => 'Pascal Hakim',
contact => 'pasc@redellipse.net',
name => 'topic-diff',
description => 'This script shows you changes in the topic. ',
license => 'GPL'
);
my %topics;
sub new_channel {
my ($channel) = @_;
$topics{$channel->{server}->{tag}."_".$channel->{name}} = $channel->{topic};
}
sub new_topic {
my ($server, $channel, $topic, $user, $real) = @_;
my $i;
my $diff;
my $i = 0;
my $j = 0;
my $k = 0;
# $server->print ($channel, $server->{tag});
if ($topics{$server->{tag}."_".$channel}) {
$topics{$server->{tag}."_".$channel} =~ s/^ +| +$//g;
$topic =~ s/^ +| +$//g;
my @original = split /\s*\|\s*|\s+-\s+/, $topics{$server->{tag}."_".$channel};
my @modified = split /\s*\|\s*|\s+-\s+/, $topic;
outer: while( $i <= $#original) {
if ($j <= $#modified && $original[$i] eq $modified[$j]) {
$modified[$j] = '';
$i += 1;
$j += 1;
next;
} else {
# First two don't match, check the rest of the list
for ($k = $j ; $k <= $#modified; $k++) {
if ($modified[$k] eq $original[$i])
{
$modified[$k] = '';
$i += 1;
next outer;
}
}
$diff = ($diff ? $diff." | " : "").$original[$i];
$i += 1;
}
}
if ($diff ne '') { $server->print ($channel, "Topic: -: ".$diff);}
$diff = join " | ", (grep {$_ ne ''} @modified);
if ($diff ne '') { $server->print ($channel, "Topic: +: ".$diff);}
}
$topics{$server->{tag}."_".$channel} = $topic;
}
# Start by reading all the channels currently opened, and recording their topic
my @channels = Irssi::channels () ;
foreach my $channel (@channels) {
$topics{$channel->{server}->{tag}."_".$channel->{name}} = $channel->{topic};
}
# Topic has changed
Irssi::signal_add 'message topic' => \& new_topic;
# We've joined a new channel
Irssi::signal_add 'channel joined' => \& new_channel;
|