1#!/usr/local/bin/perl
2#
3#    $Id: autochannel.pl,v 1.2 2007/09/20 06:58:11 peder Exp $
4#
5# Copyright (C) 2007 by Peder Stray <peder@ninja.no>
6#
7
8use strict;
9use Irssi;
10use Irssi::Irc;
11
12use Data::Dumper;
13$Data::Dumper::Indent = 1;
14
15# ======[ Script Header ]===============================================
16
17use vars qw{$VERSION %IRSSI};
18($VERSION) = ' $Revision: 1.2 $ ' =~ / (\d+\.\d+) /;
19%IRSSI = (
20          name        => 'autochannel',
21          authors     => 'Peder Stray',
22          contact     => 'peder@ninja.no',
23          url         => 'http://ninja.no/irssi/autochannel.pl',
24          license     => 'GPL',
25          description => 'Auto add channels to channel list on join',
26         );
27
28# ======[ Signal hooks ]================================================
29
30# "message join", SERVER_REC, char *channel, char *nick, char *address
31sub sig_message_join {
32    my($server,$channel,$nick,$addr) = @_;
33
34    return unless $nick eq $server->{nick};
35    return unless $server->{chatnet};
36    return unless Irssi::settings_get_bool('channel_add_on_join');
37
38    Irssi::command(sprintf "channel add %s %s %s",
39		   Irssi::settings_get_bool('channel_add_with_auto')
40		   ? '-auto' : '',
41		   $channel,
42		   $server->{chatnet},
43		  );
44}
45
46# "message part", SERVER_REC, char *channel, char *nick, char *address, char *reason
47sub sig_message_part {
48    my($server,$channel,$nick,$addr,$reason) = @_;
49
50    return unless $nick eq $server->{nick};
51    return unless $server->{chatnet};
52    return unless
53      Irssi::settings_get_bool('channel_remove_on_part') ||
54	  Irssi::settings_get_bool('channel_remove_auto_on_part');
55
56    if (Irssi::settings_get_bool('channel_remove_on_part')) {
57	Irssi::command(sprintf "channel remove %s %s",
58		       $channel,
59		       $server->{chatnet},
60		      );
61    }
62    elsif (Irssi::settings_get_bool('channel_remove_auto_on_part')) {
63	Irssi::command(sprintf "channel add %s %s %s",
64		       '-noauto',
65		       $channel,
66		       $server->{chatnet},
67		      );
68    }
69}
70
71# ======[ Setup ]=======================================================
72
73# --------[ Settings ]--------------------------------------------------
74
75Irssi::settings_add_bool('autochannel', 'channel_add_on_join', 1);
76Irssi::settings_add_bool('autochannel', 'channel_add_with_auto', 1);
77Irssi::settings_add_bool('autochannel', 'channel_remove_auto_on_part', 1);
78Irssi::settings_add_bool('autochannel', 'channel_remove_on_part', 0);
79
80# --------[ Signals ]---------------------------------------------------
81
82Irssi::signal_add_last('message join', 'sig_message_join');
83Irssi::signal_add_last('message part', 'sig_message_part');
84
85# ======[ END ]=========================================================
86
87# Local Variables:
88# header-initial-hide: t
89# mode: header-minor
90# end:
91