#!/usr/bin/perl

################################################################
# CoDNS Log compressor
################################################################

my $dir = "/home/princeton_codeen/CoDNS/";
my $next_log;
my $date;

for (;;) {
    $date = `date -u +%Y%m%d`; 
    chomp($date);

    open H_PIPE, "ls $dir | grep . |";
    while (<H_PIPE>) {
	chomp; # remove '\n'
	if (/(dbgcodns|debug_testldns|dbgcodns_cdn)\.(........)_(...)$/) {
	    `bzip2 -f $dir/$_`;
	}
    }
    close H_PIPE;

    # wait 5 minites
    sleep(5*60);
}
