Initial commit.

revolve.pl

@@ -0,0 +1,133 @@
+use Irssi;
+use strict;
+use Irssi::TextUI;
+use Data::Dumper;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.0.1";
+%IRSSI = (
+    authors => 'Ryan Freebern',
+    contact => 'ryan@freebern.org',
+    name => 'revolve',
+    description => 'Summarizes multiple sequential joins/parts/quits.',
+    license => 'GPL v2 or later',
+    url => 'http://github.com/rfreebern/irssi-revolving-door',
+);
+
+# Based on compact.pl by Wouter Coekaerts <wouter@coekaerts.be>
+# http://wouter.coekaerts.be/irssi/scripts/compact.pl.html
+
+my %summary_lines;
+
+sub summarize {
+    my ($server, $channel, $nick, $new_nick, $type) = @_;
+
+    my $window = $server->window_find_item($channel);
+    if ($window) { Irssi::print("Found window for $type $channel from $nick."); }
+    else { Irssi::print("Didn't find window for $type $channel from $nick."); }
+    return if (!$window);
+    my $view = $window->view();
+    my $check = $server->{tag} . ':' . $channel;
+
+    if (defined $summary_lines{$check}) {
+        Irssi::print("Check value for $channel is " . $summary_lines{$check});
+    }
+
+    $view->set_bookmark_bottom('bottom');
+    my $last = $view->get_bookmark('bottom');
+    Irssi::print("Last line is: " . $last->get_text(1));
+    my $secondlast = $last->prev();
+    Irssi::print("Second last line ($secondlast->{_irssi}) is: " . $secondlast->get_text(1));
+
+    # Remove the last line, which should have the join/part/quit message.
+    $view->remove_line($last);
+
+    # If the second-to-last line is a summary line, parse it.
+    my %door = ('Joins' => [], 'Parts' => [], 'Quits' => []);
+    my @summarized = ();
+    if ($secondlast->{'_irssi'} == $summary_lines{$check}) {
+        my $summary = $secondlast->get_text(1);
+        Irssi::print("Found summary! $summary");
+        @summarized = split(/ -- /, $summary);
+        foreach my $part (@summarized) {
+            my ($type, $nicks) = split(/: /, $part);
+            $door{$type} = [ split(/, /, $nicks) ];
+        }
+        $view->remove_line($secondlast);
+    }
+
+    if ($type eq '__revolving_door_join') { # Join
+        push(@{$door{'Joins'}}, $nick);
+        @{$door{'Parts'}} = grep { $_ ne $nick } @{$door{'Parts'}} if (scalar @{$door{'Parts'}});
+        @{$door{'Quits'}} = grep { $_ ne $nick } @{$door{'Quits'}} if (scalar @{$door{'Quits'}});
+    } elsif ($type eq '__revolving_door_quit') { # Quit
+        push(@{$door{'Quits'}}, $nick);
+        @{$door{'Joins'}} = grep { $_ ne $nick } @{$door{'Joins'}} if (scalar @{$door{'Joins'}});
+    } elsif ($type eq '__revolving_door_part') { # Part
+        push(@{$door{'Parts'}}, $nick);
+        @{$door{'Joins'}} = grep { $_ ne $nick } @{$door{'Joins'}} if (scalar @{door{'Joins'}});;
+    } else { # Nick
+        Irssi::print("Unknown type: [$type]");
+    }
+
+    Irssi::print(Dumper(%door));
+
+    @summarized = ();
+    foreach my $part (qw/Joins Parts Quits/) {
+        if (scalar @{$door{$part}}) {
+            push @summarized, "$part: " . join(', ', @{$door{$part}});
+        }
+    }
+
+    my $summary = join(' -- ', @summarized);
+    $window->print($summary, MSGLEVEL_NEVER);
+    
+    # Get the line we just printed so we can log its ID.
+    $view->set_bookmark_bottom('bottom');
+    $last = $view->get_bookmark('bottom');
+    $summary_lines{$check} = $last->{'_irssi'};
+
+    $view->redraw();
+}
+
+sub summarize_join {
+    my ($server, $channel, $nick, $address, $reason) = @_;
+    &summarize($server, $channel, $nick, 0, '__revolving_door_join');
+}
+
+sub summarize_quit {
+    my ($server, $nick, $address, $reason) = @_;
+    my @channels = $server->channels();
+    foreach my $channel (@channels) {
+        my $window = $server->window_find_item($channel->{name});
+        next if (!$window);
+        my $view = $window->view();
+        $view->set_bookmark_bottom('bottom');
+        my $last = $view->get_bookmark('bottom');
+        my $last_text = $last->get_text(1);
+        if ($last_text =~ m/$nick.*?has quit/) {
+            &summarize($server, $channel->{name}, $nick, 0, '__revolving_door_quit');
+        }
+    }
+}
+
+sub summarize_part {
+    my ($server, $channel, $nick, $address, $reason) = @_;
+    &summarize($server, $channel, $nick, 0, '__revolving_door_part');
+}
+
+sub summarize_nick {
+    my ($server, $new_nick, $old_nick, $address) = @_;
+    my @channels = $server->channels();
+    foreach my $channel (@channels) {
+        my $channel_nick = $channel->nick_find($new_nick);
+        if (defined $channel_nick) {
+            &summarize($server, $channel, $old_nick, $new_nick, '__revolving_door_nick');
+        }
+    }
+}
+
+Irssi::signal_add_priority('message join', \&summarize_join, Irssi::SIGNAL_PRIORITY_LOW + 1);
+Irssi::signal_add_priority('message part', \&summarize_part, Irssi::SIGNAL_PRIORITY_LOW + 1);
+Irssi::signal_add_priority('message quit', \&summarize_quit, Irssi::SIGNAL_PRIORITY_LOW + 1);
+Irssi::signal_add_priority('message nick', \&summarize_nick, Irssi::SIGNAL_PRIORITY_LOW + 1);