mirror of
git://git.acid.vegas/archive.git
synced 2024-11-15 12:46:41 +00:00
14 lines
312 B
Perl
14 lines
312 B
Perl
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'); |