Skip to content
Switch branches/tags
Go to file
Cannot retrieve contributors at this time
use strict;
use warnings;
use Irssi;
use IO::Compress::Gzip qw(gzip $GzipError);
use vars qw($VERSION %IRSSI);
$VERSION = "0.04";
%IRSSI = (
authors => 'vague',
contact => 'vague!#irssi@fgreenode',
name => "logcompress_perl",
description => "compress logfiles then they're rotated, modified from original to use perl modules instead",
license => "Public Domain",
url => "",
changed => "2021-04-10 11:00 CEST"
sub sig_rotate {
my $input = $_[0]->{real_fname};
gzip $input => "$input.gz" or Irssi::print("gzip failed: $GzipError", MSGLEVEL_CLIENTERROR);
unlink $input if not defined $GzipError && -e "$input.gz";
Irssi::signal_add('log rotated', 'sig_rotate');