Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 149 Rev 197
Line 37... Line 37...
37 
                'netmask' => { 'key' => 'Subnet Mask' },
 37 
                'netmask' => { 'key' => 'Subnet Mask' },
38 
                'mac' => { 'key' => 'MAC Address' }
 38 
                'mac' => { 'key' => 'MAC Address' }
39 
              );
 39 
              );
40 
 
 40 
 
41 
my $CATEGORY = 'network';
 41 
my $CATEGORY = 'network';
42 
my @temp = qx( $command lan print 2>/dev/null );
 42 
my @temp = qx( $command lan print 2> /dev/null );
43 
exit 2 unless @temp; # ipmitool installed, but driver not. Probably using to connect someplace else.
 43 
exit 2 unless @temp; # ipmitool installed, but driver not. Probably using to connect someplace else.
44 
chomp @temp;
 44 
chomp @temp;
45 
 
 45 
 
46 
foreach my $line ( @temp ) {
 46 
foreach my $line ( @temp ) {
47 
   my ( $key, $value ) = split( /\s+:\s+/, $line );
 47 
   my ( $key, $value ) = split( /\s+:\s+/, $line );