This file is indexed.

/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: