From 03929dac2a29664878d2c971648a4fe1fb698462 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 15 Apr 2024 22:19:02 +0200
Subject: Adding upstream version 20231031.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 scripts/autowrap.pl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 scripts/autowrap.pl

(limited to 'scripts/autowrap.pl')

diff --git a/scripts/autowrap.pl b/scripts/autowrap.pl
new file mode 100644
index 0000000..c110c91
--- /dev/null
+++ b/scripts/autowrap.pl
@@ -0,0 +1,38 @@
+use strict;
+use Text::Wrap;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2007031900';
+%IRSSI = (
+	authors		=> 'Bitt Faulk',
+	contact		=> 'lxsfx3h02@sneakemail.com',
+	name		=> 'autowrap',
+	description	=> 'Automatically wraps long sent messages into multiple shorter sent messages',
+	license		=> 'BSD',
+	url		=> 'none',
+	modules		=> 'Text::Wrap',
+);
+
+sub event_send_text () {
+	my ($line, $server_rec, $wi_item_rec) = @_;
+	my @shortlines;
+	if (length($line) <= 400) {
+		return;
+	} else {
+		# split line, recreate multiple "send text" events
+		local($Text::Wrap::columns) = 400;
+		@shortlines = split(/\n/,wrap('','',$line));
+		foreach (@shortlines) {
+			if ($_ >= 400) {
+				Irssi::print("autowrap: unable to split long line.  sent as-is");
+				return;
+			}
+		}
+		foreach (@shortlines) {
+			Irssi::signal_emit('send text', $_,  $server_rec, $wi_item_rec);
+		}
+		Irssi::signal_stop();
+	}
+}
+
+Irssi::signal_add_first('send text', "event_send_text");
-- 
cgit v1.2.3