Add yubikey.pl script

This script helps prevent accidentally sending YubiKey OTPs to IRC.

diff --git a/scripts/yubikey.pl b/scripts/yubikey.pl
new file mode 100644 (file)
index 0000000..d132001
--- /dev/null
+++ b/scripts/yubikey.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+
+$VERSION = "20151026";
+%IRSSI = (
+    authors     => "Philip Paeps",
+    contact     => "philip\@trouble.is",
+    name        => "yubikey",
+    description => "This script stops accidental YubiKey output on IRC",
+    license     => "BSD",
+    changed     => "$VERSION",
+);
+
+sub event_send_text {
+    my ($line, $server_rec, $wi_item_rec) = @_;
+    Irssi::signal_stop() if $line =~ /^cccccc/;
+}
+Irssi::signal_add_first('send text', \&event_send_text);