Adding upstream version 20231031.upstream/20231031upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 41 insertions, 0 deletions

diff --git a/scripts/beepaway.pl b/scripts/beepaway.pl
new file mode 100644
index 0000000..ade6e7b
--- /dev/null
+++ b/scripts/beepaway.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+#
+# by Simon 'corecode' Schuberty <corecode@corecode.ath.cx>
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "2018122301";
+%IRSSI = (
+    authors     => "Simon 'corecode' Schubert",
+    contact     => "corecode\@corecode.ath.cx",
+    name        => "beepaway",
+    description => "Only beep when you are away",
+    license     => "BSD",
+    changed     => "$VERSION",
+);
+use Irssi 20020324;
+
+sub catch_away {
+	my $level;
+	my $server;
+	($server) = @_;
+
+	if ($server->{usermode_away}) {
+		$level = Irssi::settings_get_str("beep_away_msg_level")
+	} else {
+		$level = Irssi::settings_get_str("beep_back_msg_level")
+	}
+#	Irssi::print "%R>>%n setting levels ``$level''";
+	if ($level eq '' || $level =~ m/NONE/) {
+		$server->command("/^set -clear beep_msg_level ");
+	} else {
+		$server->command("/^set beep_msg_level ".$level);
+	}
+}
+
+Irssi::settings_add_str($IRSSI{name}, "beep_away_msg_level", "MSGS NOTICES DCC DCCMSGS HILIGHT");
+Irssi::settings_add_str($IRSSI{name}, "beep_back_msg_level", "NONE");
+
+Irssi::signal_add("away mode changed", "catch_away");
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' (c) '.$IRSSI{authors}.' loaded';