[aix-pm-cvs] modules/util/Util Monitoring.pm,1.2,1.3

[Gerhard G. <go...@us...>]

Update of /cvsroot/aix-pm/modules/util/Util
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12081/modules/util/Util

Modified Files:
	Monitoring.pm 
Log Message:
debugging messages

Index: Monitoring.pm
===================================================================
RCS file: /cvsroot/aix-pm/modules/util/Util/Monitoring.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Monitoring.pm	25 Aug 2014 16:05:04 -0000	1.2
--- Monitoring.pm	30 Dec 2014 09:43:27 -0000	1.3
***************
*** 202,206 ****
    $filesystems->df('i');
    # $filesystems->df('h');
!   # print "filesystems: ", Dumper ($filesystems);
  
    my $worst_status= -1;
--- 202,206 ----
    $filesystems->df('i');
    # $filesystems->df('h');
!   print "filesystems: ", Dumper ($filesystems);
  
    my $worst_status= -1;
***************
*** 209,215 ****
    my $now= time ();
    my $fs_hash= $filesystems->{'fs'};
    foreach my $fs (keys %$fs_hash)
    {
!     # print "fs=[$fs]\n";
      my $x_fs= $fs_hash->{$fs};
      # print "x_fs($fs): ", Dumper ($x_fs);
--- 209,216 ----
    my $now= time ();
    my $fs_hash= $filesystems->{'fs'};
+   my %ro_fs;
    foreach my $fs (keys %$fs_hash)
    {
!     print __LINE__, " fs=[$fs]\n";
      my $x_fs= $fs_hash->{$fs};
      # print "x_fs($fs): ", Dumper ($x_fs);