Changeset 28862 for trunk/tools/czartool/Nebulous.pm

Timestamp:

Aug 6, 2010, 4:44:37 PM (16 years ago)

Author:

rhenders

Message:

Nebulous cluster space plot added

File:

• trunk/tools/czartool/Nebulous.pm (modified) (3 diffs)

trunk/tools/czartool/Nebulous.pm

@@ -93 +93 @@
     $self->{_totalHosts} = 0;
     $self->{_hostsOverNinetyEightPC} = 0;
+    my $readable;
+    my $writable;
     foreach $line (@cmdOut) {
 
@@ -113 +115 @@
             if ($4 >= 98) {$self->{_hostsOverNinetyEightPC}++;}
 
-#            print $1 . " " . $self->convertKbToTb($2+$3) . " " . $self->convertKbToTb($2) . " " . $self->convertKbToTb($3) . " $4PC \n" ; 
-            $self->{_czarDb}->updateHost($1, $self->convertKbToTb($2+$3), $self->convertKbToTb($3), $self->convertKbToTb($2));
+            $self->getReadableWritableStatus($1, \$readable, \$writable);
+
+            $self->{_czarDb}->updateHost($1, 
+                    $self->convertKbToTb($2+$3), 
+                    $self->convertKbToTb($3), 
+                    $self->convertKbToTb($2), 
+                    $readable, $writable);
         }
     }
@@ -123 +130 @@
             $self->{_totalUsed}, 
             $self->{_hostsOverNinetyEightPC});
+}
 
+###########################################################################
+#
+# Runs neb-host and readable/writable status for this host 
+#
+###########################################################################
+sub getReadableWritableStatus {
+    my ($self, $host, $readable, $writable) = @_;
+
+    ${$readable} = 0;
+    ${$writable} = 0;
+
+    my @cmdOut = `neb-host`;
+    my $line;
+    foreach $line (@cmdOut) {
+
+        chomp($line);
+        if ($line =~ m/$host\s+[0-9.A-Za-z]+\s+([01]+)\s+([01]+)\s+([01]+)\s+.*/i) {
+
+            # if mounted...
+            if ($1) {
+
+                ${$readable} = $3;
+                ${$writable} = $2;
+            }
+        }
+    }
 }
 1;