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/fnotify.pl | 140 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 140 insertions(+)
 create mode 100644 scripts/fnotify.pl

(limited to 'scripts/fnotify.pl')

diff --git a/scripts/fnotify.pl b/scripts/fnotify.pl
new file mode 100644
index 0000000..11707dd
--- /dev/null
+++ b/scripts/fnotify.pl
@@ -0,0 +1,140 @@
+use strict;
+use warnings;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+
+$VERSION = '0.0.7';
+%IRSSI = (
+	name => 'fnotify',
+	authors => 'Tyler Abair, Thorsten Leemhuis, James Shubin' .
+               ', Serge van Ginderachter, Michael Davies',
+	contact => 'fedora@leemhuis.info, serge@vanginderachter.be',
+	description => 'Write notifications to a file in a consistent format.',
+	license => 'GNU General Public License',
+	url => 'http://www.leemhuis.info/files/fnotify/fnotify https://ttboj.wordpress.com/',
+);
+
+#
+#	README
+#
+# To use:
+# $ cp fnotify.pl ~/.irssi/scripts/fnotify.pl
+# irssi> /load perl
+# irssi> /script load fnotify
+# irssi> /set fnotify_ignore_hilight 0 # ignore hilights of priority 0
+# irssi> /set fnotify_own on           # turn on own notifications
+#
+
+#
+#	AUTHORS
+#
+# Add self to notification file
+# version 0.0.7
+# Michael Davies <michael@the-davies.net>
+#
+# Ignore hilighted messages with priority = fnotify_ignore_hilight
+# version: 0.0.6
+# Tyler Abair <tyler.abair@gmail.com>
+#
+# Strip non-parsed left over codes (Bitlbee otr messages)
+# version: 0.0.5
+# Serge van Ginderachter <serge@vanginderachter.be>
+#
+# Consistent output formatting by James Shubin:
+# version: 0.0.4
+# https://ttboj.wordpress.com/
+# note: changed license back to original GPL from Thorsten Leemhuis (svg)
+#
+# Modified from the Thorsten Leemhuis <fedora@leemhuis.info>
+# version: 0.0.3
+# http://www.leemhuis.info/files/fnotify/fnotify
+#
+# In parts based on knotify.pl 0.1.1 by Hugo Haas:
+# http://larve.net/people/hugo/2005/01/knotify.pl
+#
+# Which is based on osd.pl 0.3.3 by Jeroen Coekaerts, Koenraad Heijlen:
+# http://www.irssi.org/scripts/scripts/osd.pl
+#
+# Other parts based on notify.pl from Luke Macken:
+# http://fedora.feedjack.org/user/918/
+#
+
+my %config;
+
+Irssi::settings_add_int('fnotify', 'fnotify_ignore_hilight' => -1);
+$config{'ignore_hilight'} = Irssi::settings_get_int('fnotify_ignore_hilight');
+
+Irssi::settings_add_bool('fnotify', 'fnotify_own', 0);
+$config{'own'} = Irssi::settings_get_bool('fnotify_own');
+
+Irssi::signal_add(
+    'setup changed' => sub {
+        $config{'ignore_hilight'} = Irssi::settings_get_int('fnotify_ignore_hilight');
+        $config{'own'} = Irssi::settings_get_bool('fnotify_own');
+    }
+);
+
+#
+#	catch private messages
+#
+sub priv_msg {
+	my ($server, $msg, $nick, $address, $target) = @_;
+	my $msg_stripped = Irssi::strip_codes($msg);
+	my $network = $server->{tag};
+	filewrite('' . $network . ' ' . $nick . ' ' . $msg_stripped);
+}
+
+#
+#	catch 'hilight's
+#
+sub hilight {
+	my ($dest, $text, $stripped) = @_;
+    my $ihl = $config{'ignore_hilight'};
+	if ($dest->{level} & MSGLEVEL_HILIGHT && $dest->{hilight_priority} != $ihl) {
+		my $server = $dest->{server};
+		my $network = $server->{tag};
+		filewrite($network . ' ' . $dest->{target} . ' ' . $stripped);
+	}
+}
+
+#
+#	catch own messages
+#
+sub own_public {
+	my ($dest, $msg, $target) = @_;
+	if ($config{'own'}) {
+		filewrite($dest->{'nick'} . ' ' .$msg );
+	}
+}
+
+sub own_private {
+	my ($dest, $msg, $target, $orig_target) = @_;
+	if ($config{'own'}) {
+		filewrite($dest->{'nick'} . ' ' .$msg );
+	}
+}
+
+#
+#	write to file
+#
+sub filewrite {
+	my ($text) = @_;
+	my $fnfile = Irssi::get_irssi_dir() . "/fnotify";
+	if (!open(FILE, ">>", $fnfile)) {
+		print CLIENTCRAP "Error: cannot open $fnfile: $!";
+	} else {
+		print FILE $text . "\n";
+		if (!close(FILE)) {
+			print CLIENTCRAP "Error: cannot close $fnfile: $!";
+		}
+	}
+}
+
+#
+#	irssi signals
+#
+Irssi::signal_add_last("message private", "priv_msg");
+Irssi::signal_add_last("print text", "hilight");
+Irssi::signal_add_last("message own_public", "own_public");
+Irssi::signal_add_last("message own_private", "own_private");
+
-- 
cgit v1.2.3