archive

- Random tools & helpful resources for IRC

git clone git://git.acid.vegas/archive.git

unfuck.pl (312B)

      1 use strict;
      2 use warnings;
      3 use Irssi;
      4 use Irssi::Irc;
      5 
      6 sub cmd_unfuck {
      7     my @windows = Irssi::windows();
      8     foreach my $window (@windows) {
      9         next if $window->{immortal};
     10         $window->{active}->{topic_by} ? next : $window->destroy;
     11     }
     12 }
     13 
     14 Irssi::command_bind('unfuck',  'cmd_unfuck');