Subversion Repositories camp_sysinfo_client_3

Rev

Rev 256 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 256 Rev 257
Line 79... Line 79...
79 
      my $zpoolName = shift;
 79 
      my $zpoolName = shift;
80 
      my @lines = qx( zpool list -pHv $zpoolName );
 80 
      my @lines = qx( zpool list -pHv $zpoolName );
81 
      my @result;
 81 
      my @result;
82 
      shift @lines; # we already have the first line of info
 82 
      shift @lines; # we already have the first line of info
83 
      my @temp = split( "\t", $lines[0] );
 83 
      my @temp = split( "\t", $lines[0] );
- 
 
 84 
      if ( $temp[1] =~ m/raid|mirror/ ) { # we are looking at a parity level, so add it
84 
      push @result, "$CATEGORY\t$zpoolName\tlevel\t$temp[1]";
 85 
         push @result, "$CATEGORY\t$zpoolName\tlevel\t$temp[1]";
85 
      shift @lines;
 86 
         shift @lines;
- 
 
 87 
      } else {
- 
 
 88 
         push @result, "$CATEGORY\t$zpoolName\tlevel\tdisk";
- 
 
 89 
      }
86 
      my @out;
 90 
      my @out;
87 
      while ( my $temp = shift @lines ) {
 91 
      while ( my $temp = shift @lines ) {
88 
         @temp = split( "\t", $temp );
 92 
         @temp = split( "\t", $temp );
89 
         push @out, $temp[1] if defined $temp[1];
 93 
         push @out, $temp[1] if defined $temp[1];
90 
      }
 94 
      }
Line 101... Line 105...
101 
      $allocated /= 1024;
 105 
      $allocated /= 1024;
102 
      $allocated = int( $allocated );
 106 
      $allocated = int( $allocated );
103 
      push @out,  "$CATEGORY\t$name\tfstype\tzfs"; # next is fs type
 107 
      push @out,  "$CATEGORY\t$name\tfstype\tzfs"; # next is fs type
104 
      push @out,  "$CATEGORY\t$name\tsize\t$size"; # total partition size, in k
 108 
      push @out,  "$CATEGORY\t$name\tsize\t$size"; # total partition size, in k
105 
      push @out,  "$CATEGORY\t$name\tused\t$allocated"; # disk usage, in k
 109 
      push @out,  "$CATEGORY\t$name\tused\t$allocated"; # disk usage, in k
106 
      push @out,  @{ &zfsComponents( $name ) };
 110 
      push @out,  &zfsComponents( $name );
107 
   } # foreach
 111 
   } # foreach
108
112
109 
   #####
 113 
   #####
110 
   ##### Your code ends here.
 114 
   ##### Your code ends here.
111 
   #####
 115 
   #####