use IPC::Open3;
use strict;
use vars qw($VERSION %IRSSI);
use Irssi qw(command_bind active_win);
$VERSION = "1.14";
%IRSSI = (
authors => 'Juerd',
contact => '[email protected]',
name => 'Figlet',
description => 'Safe figlet implementation (with color support!)',
license => 'Public Domain',
url => 'http://juerd.nl/irssi/',
changed => 'Sun 10 Mar 14:46 CET 2002',
changes => 'No more zombie processes',
);
command_bind(
figlet => sub {
my ($msg) = @_;
my @figlet;
my $prefix = '';
while ($msg =~ s/
^(
[^\cC\cB\cO\c_]+
|
(?:
\cC\d*(?:,\d*)?
|
[\cB\cO\c_]
)+
)
//x) {
my $part = $1;
if ($part =~ /[\cC\cB\cO\c_]/) {
if (@figlet) {
$_ .= $part for @figlet;
} else {
$prefix = $part;
}
} else {
my $i = 0;
my $pid = open3(undef, *FIG, *FIG, qw(figlet -k), $part);
while (