#!/usr/bin/perl -w
##########################################################################
# $Id: smartd,v 1.1 2003/01/13 04:03:04 kirk Exp $
##########################################################################

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

while (defined($ThisLine = <STDIN>)) {
   chomp($ThisLine);
   if ( ($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);
