Adding upstream version 20231031.upstream/20231031upstream

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

1 files changed, 24 insertions, 0 deletions

diff --git a/scripts/logcompress.pl b/scripts/logcompress.pl
new file mode 100644
index 0000000..39089c1
--- /dev/null
+++ b/scripts/logcompress.pl
@@ -0,0 +1,24 @@
+# compress log files when they're rotated
+# for irssi 0.7.99 by Timo Sirainen
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.01";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen",
+    contact	=> "tss\@iki.fi", 
+    name	=> "logcompress",
+    description	=> "compress logfiles then they\'re rotated",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100"
+);
+
+
+my $compressor = "bzip2 -9";
+
+sub sig_rotate {
+        Irssi::command("exec - $compressor ".$_[0]->{real_fname});
+}
+
+Irssi::signal_add('log rotated', 'sig_rotate');