Subversion Repositories havirt

Rev

Rev 5 | Rev 9 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 7
Line 95... Line 95...
95
      foreach my $column (sort keys %{ $main::nodeDB->{$node} }) {
95
      foreach my $column (sort keys %{ $main::nodeDB->{$node} }) {
96
         push @line, $main::nodeDB->{$node}->{$column};
96
         push @line, $main::nodeDB->{$node}->{$column};
97
      }
97
      }
98
      push (@data, \@line );
98
      push (@data, \@line );
99
   }
99
   }
100
   $return = &main::report( \@header, \@data );
100
   return &main::report( \@header, \@data );
101
}
101
}
102
 
102
 
103
# Get information about a node. Really only needs to be done when a node is
103
# Get information about a node. Really only needs to be done when a node is
104
# first defined, or if there is a hardware upgrade
104
# first defined, or if there is a hardware upgrade
105
sub update {
105
sub update {