auto_server: initial commit - script to handle connecting to various servers

behind the scenes, based on a channel -> server mapping setting.

1 files changed, 152 insertions, 0 deletions

diff --git a/auto-server/auto_server.pl b/auto-server/auto_server.pl
new file mode 100644
index 0000000..fd6a205
--- /dev/null
+++ b/auto-server/auto_server.pl
@@ -0,0 +1,152 @@
+use strict;
+use warnings;
+
+
+use Irssi;
+use Irssi::Irc;
+use Irssi::TextUI;
+
+use Data::Dumper;
+
+
+my $DEBUG_ENABLED = 0;
+sub DEBUG () { $DEBUG_ENABLED }
+
+sub _debug_print {
+    return unless DEBUG;
+    return unless scalar (grep { defined && length } @_) == @_;
+    my $win = Irssi::active_win;
+    my $str = join('', @_);
+    $win->print($str, Irssi::MSGLEVEL_CLIENTCRAP);
+}
+
+our $VERSION = '0.1';
+
+our %IRSSI = (
+              authors     => 'shabble',
+              contact     => 'shabble+irssi@metavore.org',
+              name        => 'auto-join',
+              description => 'connects to a specified server in order to connect'
+                             ' to a channel there, without having first to'
+                             ' connect to the server',
+              license     => 'Public Domain',
+             );
+
+my $channel_map;
+my $pending_joins;
+
+sub auto_server_init {
+    Irssi::command_bind('join+', \&join_plus);
+    Irssi::settings_add_str('join_plus', 'joinplus_server_maps', '');
+    Irssi::signal_add_last('setup changed', \&parse_channel_map);
+    Irssi::settings_add_bool('join_plus', 'join_plus_debug', 0);
+
+    setup_changed();
+    $pending_joins = {};
+
+}
+
+sub setup_changed {
+    $DEBUG_ENABLED  = Irssi::settings_get_bool('join_plus_debug');
+    parse_channel_map();
+}
+
+sub parse_channel_map {
+    my $data = Irssi::settings_get_str('joinplus_server_maps');
+    my @items = split /\s+/, $data;
+    if (@items % 2 == 0) {
+        $channel_map = { @items }; # risky?
+    } else {
+        Irssi::active_win->print("Could not process channel => server mappings");
+        $channel_map = {};
+    }
+    _debug_print Dumper($channel_map);
+}
+
+sub join_plus {
+    my ($args, $cmd_server, $witem) = @_;
+    #print Dumper($cmd, "moo", $win);
+
+    # parse out channel name from args:
+    my $channel;
+    if ($args =~ m/^(#?[#a-zA-Z0-9]+)/) {
+        $channel = $1;
+        _debug_print ("Channel is: $channel");
+    }
+
+    unless ($channel) {
+        Irssi::active_win()->print("Channel $args not recognised");
+        return;
+    }
+
+    # lookup server
+    my $server_id = $channel_map->{$channel};
+    _debug_print($server_id);
+
+    unless ($server_id) {
+        Irssi::active_win()->print("Channel $channel does not have an"
+                                   . " appropriate server mapping");
+            return;
+    }
+    # TODO: search values() and give a 'did you mean' for closest channel
+
+    # check if we're connected to that server
+    my $server = Irssi::server_find_tag($server_id);
+
+    if (not defined $server) {
+        $server = Irssi::server_find_chatnet($server_id);
+    }
+
+    if (not defined $server) {
+        # still no server, walk the server list looking for address matches.
+        my @servers = Irssi::servers();
+        foreach my $srv (@servers) {
+            if (($srv->{address} eq $server_id) or
+                ($srv->{real_address} eq $server_id)) {
+                $server = $srv;
+                last;
+            }
+        }
+    }
+
+    if (defined $server) {
+
+        _debug_print ("Already connected to server: " . $server->{tag} );
+
+        # check if we're already on the required channel
+        my $on_channel = $server->channel_find($channel);
+
+        if (defined $channel && ref($channel) eq 'Irssi::Irc::Channel') {
+            Irssi::active_win()->print("You are already connected to "
+                                       . " $channel on " . $server->{tag});
+            return;
+        } else {
+            _debug_print ("joining channel: $channel");
+            $server->command("JOIN $channel");
+        }
+    } else {
+        # not connected to server.
+        _debug_print ("connecting to server: $server_id");
+
+        Irssi::command("CONNECT $server_id");
+        _debug_print ("awaiting connection for join");
+
+        $pending_joins->{$server_id} = $channel;
+        Irssi::signal_add_last("event 376", 'do_channel_join');
+    }
+}
+
+sub do_channel_join {
+    my ($serv) = @_;
+    #_debug_print("server is " . Dumper($serv));
+    _debug_print(sprintf("server is %s (%s)", $serv->{address}, $serv->{tag}));
+
+    my $channel = $pending_joins->{$serv->{address}};
+    $channel = $pending_joins->{$serv->{tag}} unless $channel;
+
+    _debug_print ("attempting to join $channel");
+
+    Irssi::server_find_tag($serv->{tag})->command("JOIN $channel");
+}
+
+auto_server_init();