#!/usr/bin/perl
# Scott Crosby - 09/18/2008
#
print STDOUT "Rotating dmi logs\n";
@logs=();
# Set your max log file size here
$max_log_size=1000000;
#
# datestamp
#
#date +%Y%m%d
$date=`/bin/date '+%Y%m%d'`;
chomp($date);
#
# add your DMI logfiles below...
#
# R18
#
  push @logs,"/datatel/coll18/daemon/dmi.log";
  push @logs,"/datatel/coll18/repository_das/dmi.log";

  push @logs,"/datatel/coll18/test/svr01/dmi.log";
  push @logs,"/datatel/coll18/test/webadvisor/dmi.log";
  push @logs,"/datatel/coll18/test/das/dmi.log";

  push @logs,"/datatel/coll18/production/svr01/dmi.log";
  push @logs,"/datatel/coll18/production/webadvisor/dmi.log";
  push @logs,"/datatel/coll18/production/das/dmi.log";
  push @logs,"/datatel/coll18/production/gxml/dmi.log";

################################################################
#
# Here's the actual rotation
#
foreach $log (@logs) {
#
# Grab size of log file
#
  (@stats)=stat($log);
#
# check size, rotate and compress
#
  if ($stats[7] > $max_log_size) {
    print "Rotating $log\n";
    $src=$log;
    $dest="$log.$date";
    $cmd="/bin/cp -prf $src $dest ; /bin/gzip $dest";
    $res=`$cmd`;
#
# Erase log
#
    $res=`echo '' > $src`;
  }
}

exit(0);