diff options
| author | ailin-nemui | 2017-01-07 16:28:25 +0100 |
|---|---|---|
| committer | GitHub | 2017-01-07 16:28:25 +0100 |
| commit | 8b85609c0ed46267e376798cd833195f45341e83 (patch) | |
| tree | 2c2c673204fe4df6429f62726aee926be74cceb8 /scripts | |
| parent | 4a999028d8007a74dd57c2ea1a229552ba60f349 (diff) | |
| parent | 1227498150f85df70ce134759b5e83ef3852d4b4 (diff) | |
| download | scripts.irssi.org-8b85609c0ed46267e376798cd833195f45341e83.tar.bz2 | |
Merge pull request #327 from vague666/logcompress_update
Added unlink to remove the uncompressed log
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/logcompress_perl.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/logcompress_perl.pl b/scripts/logcompress_perl.pl index 062331e..d75755a 100644 --- a/scripts/logcompress_perl.pl +++ b/scripts/logcompress_perl.pl @@ -4,7 +4,7 @@ use Irssi; use IO::Compress::Gzip qw(gzip $GzipError); use vars qw($VERSION %IRSSI); -$VERSION = "0.01"; +$VERSION = "0.02"; %IRSSI = ( authors => 'vague', contact => 'vague!#irssi@fgreenode', @@ -12,12 +12,13 @@ $VERSION = "0.01"; description => "compress logfiles then they're rotated, modified from original logcompress.pl to use perl modules instead", license => "Public Domain", url => "http://irssi.org/", - changed => "2016-01-31T01:45+0100" + changed => "2017-01-07T12:00+0100" ); sub sig_rotate { my $input = $_[0]->{real_fname}; gzip $input => "$input.gz" or Irssi::print(MSGLEVEL_CLIENTERROR, "gzip failed: $GzipError\n"); + unlink $input if -e "$input.gz"; } Irssi::signal_add('log rotated', 'sig_rotate'); |