#!/usr/bin/perl -w
##########################################################################
# $Id: smartd,v 1.3 2003/11/03 05:43:38 kirk Exp $
##########################################################################

#$Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;

while (defined($ThisLine = <STDIN>)) {
   chomp($ThisLine);
   if ( ($Device,$Msg) = ($ThisLine =~ /^Device: ([^,]+), No such device or address, open\(\) failed/ )) {
       # ignore
   } elsif ( ($Device,$Msg) = ($ThisLine =~ /^Device: ([^,]+), is SMART capable. Adding to "monitor" list./ )) {
       # ignore
   } elsif ( ($Device,$Msg) = ($ThisLine =~ /^Device: ([^,]+), found in smartd database./ )) {
       # ignore
   } elsif ( ($Device,$Msg) = ($ThisLine =~ /^Device: ([^,]+), opened/)) {
       # ignore
   } elsif ( ($Device,$Msg) = ($ThisLine =~ /^Device: ([^,]+), appears to lack SMART*/ )) {
       # ignore
   } elsif ( ($Device,$Msg) = ($ThisLine =~ /^Device: ([^,]+), (.*)$/)) {
      $ParamChanges{$Device}{$Msg}++;
   }
}

if (keys %ParamChanges) {
   foreach $Device (sort keys %ParamChanges) {
     print "\n$Device :\n";
     foreach $Msg (sort keys %{$ParamChanges{$Device}}) {
       print "   $ParamChanges{$Device}{$Msg} Time(s): $Msg \n";
     }
   }
}

exit(0);
