This file is indexed.

/usr/share/irssi/scripts/autoversion.pl is in irssi-scripts 20120326.

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
#!/usr/bin/perl
use strict;
use vars qw($VERSION %IRSSI);

$VERSION = "0.0.1";
%IRSSI = (
    authors     => "Christian 'mordeth' Weber",
    contact     => "chris\@mac.ruhr.de",
    name        => "autoversion",
    description => "Auto-CTCP Verison on every joining nick",
    license     => "GPLv2",
    url         => "",
    changed     => "20020821",
    modules     => ""
);

sub event_message_join ($$$$) {
    my ($server, $channel, $nick, $address) = @_;
    if (lc($channel) eq lc(Irssi::active_win()->{active}->{name})) {
    	$server->command("ctcp $nick VERSION");
    };
}				

Irssi::signal_add('message join', 'event_message_join');