From: Philip Paeps <redacted>
Date: Fri, 29 Jul 2022 05:50:19 +0000 (+0800)
Subject: Add yubikey.pl script
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=50b1606b038872175819567f8a7238c6a69aa413;p=irssi-scripts.irssi.org.git

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
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);