/usr/share/irssi/scripts/logcompress.pl is in irssi-scripts 20100512.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | # compress log files when they're rotated
# for irssi 0.7.99 by Timo Sirainen
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');
|