Subversion Repositories sysadmin_scripts

#! /usr/bin/perl -w

use Date::Parse;

use POSIX 'strftime';

# Separate colon delimited lines

while ($line = <>) {

   chomp $line; 

   ($filename, $constant, @date) = split (':', $line); 

   # @date is an array containing parts of the date/time

   # join them all together with colons, then use strptime

   # to turn them into a true date object (array, see localtime).

   # once that is done, we can pass it to strftime for pretty

   # formatting

   @date = strptime( join (':',@date) );

   $date = strftime '%F', @date;

   $filename =~ s/\.whois//;

   $filename =~ s/^.*cache\///;

   $date =~ s/^\s+//;

   print "$date\t$filename\n";

}

1;