/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');
|