#!/usr/bin/perl
#< Output the last seven days, in a format that can be passed to grep -f for sccli_mon.sh

# Sample output:
# Mon Oct 30.*2006
# Tue Oct 31.*2006
# Wed Nov  1.*2006
# Thu Nov  2.*2006
# Fri Nov  3.*2006
# Sat Nov  4.*2006
# Sun Nov  5.*2006

use warnings;
use strict;

   my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
   my @weekdays = qw( Sun Mon Tue Wed Thu Fri Sat Sun );
   my $dayInSeconds = 60 * 60 * 24;
   for ( my $i = 6; $i >= 0 ; $i-- ) {
      my $secondOffset = $i * $dayInSeconds;
      my $today;
      ( my $second,
        my $minute,
        my $hour,
        my $dayOfMonth,
        my $month,
        my $yearOffset,
        my $dayOfWeek,
        my $dayOfYear,
        my $daylightSavings ) = localtime( time() - $secondOffset );
        my $year = 1900 + $yearOffset;
      my $spacer = " ";
      if ( $dayOfMonth < 10 ) {
         $spacer = "  ";
      } 
      $today = "$weekdays[$dayOfWeek] $months[$month]$spacer$dayOfMonth.*$year" ;
      printf( "%s\n", $today );
   }

exit 0;