Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 69 Rev 251
Line 12... Line 12...
12 
 
 12 
 
13 
# gets information on pci information assuming lspci is installed
 13 
# gets information on pci information assuming lspci is installed
14 
# I really don't remember how I wrote this originally, so I just put everything
 14 
# I really don't remember how I wrote this originally, so I just put everything
15 
# into the hash (as done in v2), then print the hash. Unneccessarily wasteful of memory
 15 
# into the hash (as done in v2), then print the hash. Unneccessarily wasteful of memory
16 
 
 16 
 
- 
 
 17 
# find our location and use it for searching for libraries
17 
BEGIN {
 18 
BEGIN {
18 
   push @INC, shift;
 19 
   use FindBin;
- 
 
 20 
   use File::Spec;
- 
 
 21 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 22 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 23 
   eval( 'use Data::Dumper;' );
19 
}
 24 
}
20 
 
 25 
 
21 
use library;
 26 
# check for valid OS.
22 
 
 - 
 
23 
my $command = &validCommandOnSystem('lspci');
 - 
 
24 
exit 1 unless $command;
 27 
exit 1 unless &checkOS( { 'linux' => undef } );
25 
 
 28 
 
- 
 
 29 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
- 
 
 30 
# script returns a 2
- 
 
 31 
foreach my $command ( 'lspci' ) {
- 
 
 32 
   exit 2 unless &validCommandOnSystem( $command );
- 
 
 33 
}
26 
 
 34 
 
27 
my $CATEGORY = 'pci';
 35 
my $CATEGORY = 'pci';
28 
 
 36 
 
29 
my $pciInfo =  qx(lspci -Dvmm);
 37 
my $pciInfo =  qx(lspci -Dvmm);
30 
 
 38