#!/usr/bin/perl
<<<<<<< HEAD
# compresses and archives yyyy_mmdd_sql.log
# rotates debug.log, sql.txt & trace.log
=======
#===============================================================================
# compresses and archives deployment edits log-file today.sql
# rotates development.sql, deployment.sql, debug.log & trace.log
>>>>>>> lims-local-querylog
# skips empty files using io($file)->size
# run from cron once per day eg 00:00
# see logs/README.txt for file permission settings
#===============================================================================
use strict;
use warnings;
use lib '/home/raj/perl5/lib/perl5';
use IO::All;
use Logfile::Rotate;
use DateTime::Format::Strptime;
use IO::Compress::Gzip qw(gzip $GzipError);
use FindBin qw($Bin); # warn $Bin; exit;
use lib $Bin . '/../../../lib';
use LIMS::Local::ScriptHelpers;
my $path_to_logs = $Bin . '/../../../logs';
my $archive = $path_to_logs . '/old';
my $tools = LIMS::Local::ScriptHelpers->new();
<<<<<<< HEAD
# get yesterday's date in %Y_%m%d format (allows for BST in DT construct):
my $formatter = DateTime::Format::Strptime->new( pattern => '%Y_%m%d' );
my $yesterday = $tools->date_subtract(days => 1, { formatter => $formatter });
# yyyy_mmdd_sql.log ------------------------------------------------------------
my $src = sprintf '%s/%s_sql.log', $path_to_logs, $yesterday; # print $src; exit;
if ( -e $src ) { # if file exists:
my $o = io($src);
# compress and archive if has data:
if ($o->size) {
my $output = sprintf '%s/%s_sql.log.gz', $archive, $yesterday;
my $input = $o->name; # warn $input;
=======
# get yesterday's date (allows for BST in DT construct):
my $yesterday = $tools->date_subtract(days => 1); # say $yesterday;
# my $yesterday = $tools->time_now; # say $yesterday;
# time format for gz file:
my $archive_time_format = '%Y_%m%d';
# log-files --------------------------------------------------------------------
my $deployment_edits = $path_to_logs . '/today.sql';
my $development_log = $path_to_logs . '/development.sql';
my $deployment_log = $path_to_logs . '/deployment.sql';
my $debug_file = $path_to_logs . '/debug.log';
my $dbi_trace = $path_to_logs . '/trace.log';
#-------------------------------------------------------------------------------
{ # deployment edits (INSERT/UPDATE/DELETE), for archiving:
my $o = io($deployment_edits);
# compress and archive if it has data:
if ($o->size) {
my $input = $o->name; # warn $input;
my $output = sprintf '%s/%s.gz',
$archive, $yesterday->strftime($archive_time_format);
>>>>>>> lims-local-querylog
my $status = gzip $input => $output, Minimal => 1 # avoids full path info
or die "$0 - gzip failed: $GzipError\n";
# `gzip -c $src > $output`; # system command alternative
<<<<<<< HEAD
=======
$o->unlink; # re-created on demand ($o->truncate(0) doesn't work - ?? permissions)
>>>>>>> lims-local-querylog
}
$o->unlink; # archived if has data, deleted anyway
}
=begin sql.log (replaced by yyyy_mmdd_sql.log)
my $sql_log = "$path_to_logs/sql.log";
if ( io($sql_log)->size ) {
Logfile::Rotate->new(
File => $sql_log, # base filename
Dir => $archive, # move old files to here
Count => 365, # how many to keep before overwriting
Gzip => 'lib', # use Compress::Zlib for compression (recommended)
Flock => 'yes', # flock if supported
Persist => 'yes', # copy current logfile chown settings to any new log files
)->rotate;
}
=cut
# debug.log --------------------------------------------------------------------
my $debug_file = "$path_to_logs/debug.log"; #
if ( io($debug_file)->size ) {
Logfile::Rotate->new(
File => $debug_file, # base filename
Count => 3, # how many to keep before overwriting
Flock => 'yes', # flock if supported
Persist => 'yes', # copy current logfile chown settings to any new log files
)->rotate;
}
# sql.txt ----------------------------------------------------------------------
my $sql_file = "$path_to_logs/sql.txt";
if ( io($sql_file)->size ) {
Logfile::Rotate->new(
File => $sql_file, # base filename
Count => 3, # how many to keep before overwriting
Flock => 'yes', # flock if supported
Persist => 'yes', # copy current logfile chown settings to any new log files
)->rotate;
}
# dev_sql.txt ----------------------------------------------------------------------
my $dev_sql_file = "$path_to_logs/dev_sql.txt";
if ( io($dev_sql_file)->size ) {
Logfile::Rotate->new(
File => $dev_sql_file, # base filename
Count => 3, # how many to keep before overwriting
Flock => 'yes', # flock if supported
Persist => 'yes', # copy current logfile chown settings to any new log files
)->rotate;
}
# dev_sql.txt ----------------------------------------------------------------------
my $dev_sql_log = "$path_to_logs/dev_sql.log";
if ( io($dev_sql_log)->size ) {
Logfile::Rotate->new(
File => $dev_sql_log, # base filename
Count => 3, # how many to keep before overwriting
Flock => 'yes', # flock if supported
Persist => 'yes', # copy current logfile chown settings to any new log files
)->rotate;
}
# trace.log --------------------------------------------------------------------
my $dbi_trace = "$path_to_logs/trace.log";
if ( io($dbi_trace)->size ) {
Logfile::Rotate->new(
File => $dbi_trace, # base filename
Dir => $archive, # move old files to here
Count => 365, # how many to keep before overwriting
Flock => 'yes', # flock if supported
Persist => 'yes', # copy current logfile chown settings to any new log files
)->rotate;
}
<<<<<<< HEAD
=======
sub rotate_file {
my $file = shift;
return unless io($file)->size; # say "rotating $file";
Logfile::Rotate->new(
File => $file, # base filename
Count => 3, # how many to keep before overwriting
Flock => 'yes', # flock if supported
Persist => 'no', # don't need archived file to have original ownership
)->rotate || warn "couldn't rotate $file - $!"; # possibly doesn't capture stderr
}
>>>>>>> lims-local-querylog
