$date =`/bin/date +'%m%d%y'`;
#print $date;


my $LOG = "log.$date";
print "$LOG\n";

open (MYLOG, ">/export/home/zmeekins/frozen.txt") 
    or die "Can not open logfile: $!";

#open HANDLE, "/usr/bin/cat /usr/openv/netbackup/logs/bptm/$LOG 
#  | grep FREEZING |") or die "can't get the list";

open (HANDLE, 
  "/usr/bin/cat /usr/openv/netbackup/logs/bptm/log.* | grep FREEZING |") 
  or die "can't get the list";


# New idea
while (<HANDLE>){
    chomp $_;
    ($timestamp, $dummy, $dummy, $dummy, 
     $freezing, $dummy, $dummy, $tapeid, $dummy0, 
     $dummy1, $dummy2, $dummy3, $dummy4, $dummy5, 
     $dummy6, $dummy7, $dummy8, $dummy9, $dummy10, 
     $dummy11, $dummy12) = split;

print "I am $freezing $tapeid $dummy0 $dummy1 $dummy2 $dummy3 $dummy4 $dummy5 $dummy6 $dummy7 $dummy8 $dummy9 $dummy10 $dummy11 $dummy12 \n";

}


#10:46:50.704 [18228] <16> write_backup: FREEZING media id ST6196, it is unmountable and cannot be used for backups
#23:45:21.081 [14993] <8> write_backup: FREEZING media id ST6816, it contains NetBackup database backup data and cannot be used for backups


#23:37:51.506 [26186] <8> check_error_history: FREEZING media id ST0670, it has had at least 3 errors in the last 12 hour(s)