|
use strict;
|
|
use warnings;
|
|
use Irssi;
|
|
use Irssi::Irc;
|
|
|
|
sub cmd_unfuck {
|
|
my @windows = Irssi::windows();
|
|
foreach my $window (@windows) {
|
|
next if $window->{immortal};
|
|
$window->{active}->{topic_by} ? next : $window->destroy;
|
|
}
|
|
}
|
|
|
|
Irssi::command_bind('unfuck', 'cmd_unfuck'); |