Adding new script. Simple toilet implementation for Irssi.

diff --git a/scripts/toilet.pl b/scripts/toilet.pl
new file mode 100644 (file)
index 0000000..a1ed15a
--- /dev/null
+++ b/scripts/toilet.pl
@@ -0,0 +1,67 @@
+#
+# 2017-09-09 bcattaneo:
+#  - initial release
+#
+
+use IPC::Open3;
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi qw(command_bind active_win);
+
+#
+# Usage:
+#      /toilet [message]
+#
+# Settings:
+#      /set toilet_gay [ON/OFF]
+#      /set toilet_font [Font name]
+#
+
+our $VERSION = '1.0.0';
+our %IRSSI = (
+  authors     => 'bcattaneo',
+  contact     => 'c@ttaneo.uy',
+  name        => 'toilet',
+  url         => 'http://github.com/bcattaneo',
+  description => 'Simple toilet implementation for Irssi',
+  license     => 'Public Domain',
+  #changed     => "2017-09-09",
+
+  # safe implementation borrowed from figlet.pl:
+       # Author: https://juerd.nl/site.plp/irssi
+  # https://github.com/irssi/scripts.irssi.org/blob/master/scripts/figlet.pl
+
+);
+
+Irssi::settings_add_bool('toilet', 'toilet_gay' => 0);
+Irssi::settings_add_str('toilet', 'toilet_font' => '');
+
+command_bind(
+  toilet => sub {
+    my ($msg) = @_;
+    my @toilet;
+    my $i = 0;
+    my @parm;
+    push(@parm,'toilet');
+    my $gay = Irssi::settings_get_bool('toilet_gay');
+    my $font = Irssi::settings_get_str('toilet_font');
+    if ($gay == 1) {
+      push(@parm,'--gay');
+    }
+    if ($font ne '') {
+      push(@parm,'-f'.$font);
+    }
+    my $pid = open3(undef, *TOILET, *TOILET, @parm, $msg);
+    while (<TOILET>) {
+      chomp;
+      $toilet[$i++] .= $_;
+    }
+    close TOILET;
+    waitpid $pid, 0;
+    for (@toilet) {
+      (my $copy = $_) =~ s/\cC\d*(?:,\d*)?|[\cB\cO\c_]//g;
+      next unless $copy =~ /\S/;
+      active_win->command("say $_");
+    }
+  }
+);