/usr/share/irssi/scripts/autochannel.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 87 88 89 90 | #! /usr/bin/perl
#
# $Id: autochannel.pl,v 1.2 2007/09/20 06:58:11 peder Exp $
#
# Copyright (C) 2007 by Peder Stray <peder@ninja.no>
#
use strict;
use Irssi;
use Irssi::Irc;
use Data::Dumper;
$Data::Dumper::Indent = 1;
# ======[ Script Header ]===============================================
use vars qw{$VERSION %IRSSI};
($VERSION) = ' $Revision: 1.2 $ ' =~ / (\d+\.\d+) /;
%IRSSI = (
name => 'autochannel',
authors => 'Peder Stray',
contact => 'peder@ninja.no',
url => 'http://ninja.no/irssi/autochannel.pl',
license => 'GPL',
description => 'Auto add channels to channel list on join',
);
# ======[ Signal hooks ]================================================
# "message join", SERVER_REC, char *channel, char *nick, char *address
sub sig_message_join {
my($server,$channel,$nick,$addr) = @_;
return unless $nick eq $server->{nick};
return unless $server->{chatnet};
return unless Irssi::settings_get_bool('channel_add_on_join');
Irssi::command(sprintf "channel add %s %s %s",
Irssi::settings_get_bool('channel_add_with_auto')
? '-auto' : '',
$channel,
$server->{chatnet},
);
}
# "message part", SERVER_REC, char *channel, char *nick, char *address, char *reason
sub sig_message_part {
my($server,$channel,$nick,$addr,$reason) = @_;
return unless $nick eq $server->{nick};
return unless $server->{chatnet};
return unless
Irssi::settings_get_bool('channel_remove_on_part') ||
Irssi::settings_get_bool('channel_remove_auto_on_part');
if (Irssi::settings_get_bool('channel_remove_on_part')) {
Irssi::command(sprintf "channel remove %s %s",
$channel,
$server->{chatnet},
);
}
elsif (Irssi::settings_get_bool('channel_remove_auto_on_part')) {
Irssi::command(sprintf "channel add %s %s %s",
'-noauto',
$channel,
$server->{chatnet},
);
}
}
# ======[ Setup ]=======================================================
# --------[ Settings ]--------------------------------------------------
Irssi::settings_add_bool('autochannel', 'channel_add_on_join', 1);
Irssi::settings_add_bool('autochannel', 'channel_add_with_auto', 1);
Irssi::settings_add_bool('autochannel', 'channel_remove_auto_on_part', 1);
Irssi::settings_add_bool('autochannel', 'channel_remove_on_part', 0);
# --------[ Signals ]---------------------------------------------------
Irssi::signal_add_last('message join', 'sig_message_join');
Irssi::signal_add_last('message part', 'sig_message_part');
# ======[ END ]=========================================================
# Local Variables:
# header-initial-hide: t
# mode: header-minor
# end:
|