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 1... Line 1...
1 
#!/usr/bin/env perl
 1 
#!/usr/bin/env perl
2 
use warnings;
 2 
use warnings;
3 
use strict;
3 
use strict;
4 
 
 4 
 
5 
use version ; our $VERSION = 'v1.0.0';
 5 
use version ; our $VERSION = 'v1.1.0';
6 
 
 6 
 
7 
# Gets PCI information on BSD systems
 7 
# Gets PCI information on BSD systems
8 
# Author: R. W. Rodolico
 8 
# Author: R. W. Rodolico
9 
# Date:   2016-04-08
 9 
# Date:   2016-04-08
10 
#
 10 
#
Line 12... Line 12...
12 
# I really don't remember how I wrote this originally, so I just put everything
 12 
# I really don't remember how I wrote this originally, so I just put everything
13 
# into the hash (as done in v2), then print the hash. Unneccessarily wasteful of memory
 13 
# into the hash (as done in v2), then print the hash. Unneccessarily wasteful of memory
14 
#
 14 
#
15 
# Revision History
 15 
# Revision History
16 
#
 16 
#
- 
 
 17 
# 20250403 RWR v1.1.0
- 
 
 18 
# rewrote to use lspci, available from pkg install pciutils
17 
#
 19 
#
18 
 
 20 
 
19 
# find our location and use it for searching for libraries. library.pm must be in the same directory as the calling script
 21 
# find our location and use it for searching for libraries. library.pm must be in the same directory as the calling script
20 
# or, if run interactively, in the parent of the modules
 22 
# or, if run interactively, in the parent of the modules
21 
BEGIN {
 23 
BEGIN {
Line 37... Line 39...
37 
   };
 39 
   };
38 
 
 40 
 
39 
# hash of commands that are needed for the system. key is the name of the command and, in some cases, the value will become
 41 
# hash of commands that are needed for the system. key is the name of the command and, in some cases, the value will become
40 
# the full path (from which or where)
 42 
# the full path (from which or where)
41 
my $commandsList = {
 43 
my $commandsList = {
42 
        'pciconfig' => undef,
 44 
        'lspci' => undef,
43 
   };
 45 
   };
44 
 
 46 
 
45 
# list of operating systems this module can be used on.
 47 
# list of operating systems this module can be used on.
46 
my $osList = {
 48 
my $osList = {
47 
#         'mswin32' => undef,
 49 
#         'mswin32' => undef,
Line 75... Line 77...
75 
if ( !@out ) { # we made it, we have everything, so do the processing
 77 
if ( !@out ) { # we made it, we have everything, so do the processing
76 
   #####
 78 
   #####
77 
   ##### Your code starts here. Remember to push all output onto @out
 79 
   ##### Your code starts here. Remember to push all output onto @out
78 
   #####
 80 
   #####
79
81
80 
   my @pciInfo =  qx( pciconfig -lv);
 82 
my %pci;
81 
 
 - 
 
82 
   my %returnValue;
 83 
my @lines = `lspci -v -mm`;
83 
 
 - 
 
84 
   chomp @pciInfo;
 84 
chomp @lines;
85 
   my $slot = '';
 85 
my $slot;
86 
   while ( my $line = shift( @pciInfo ) ) {
 - 
 
87 
      if ( $line =~ m/^([^@]+)\@([^ ]+)\s+class=([^ ]+)\s+card=([^ ]+)\s+chip=([^ ]+)\s+rev=([^ ]+)\s+hdr=(.+)$/ ) {
 - 
 
88 
         $slot = $2;
 86 
my $line = 0;
89 
         $returnValue{$slot}{'driver'} = $1;
 87 
while ( $line < @lines ) {
90 
         $returnValue{$slot}{'class'} = $3;
 88 
   $line++ if ( $lines[$line] =~ m/^\s*$/ ); # blank line, go to next
91 
         $returnValue{$slot}{'card'} = $4;
 - 
 
92 
         $returnValue{$slot}{'chip'} = $5;
 89 
   last unless $line < @lines;
93 
         $returnValue{$slot}{'revision'} = $6;
 90 
   my ($key, @values) = split( ':', $lines[$line] );
94 
         $returnValue{$slot}{'header'} = $7;
 91 
   my $value = trim( join( ':', @values ) );
95 
      } else {
 - 
 
96 
         my ($key, $value ) = split( '=', $line );
 92 
   $slot = $value  if ( $key eq 'Slot' );
97 
         $returnValue{$slot}{&cleanUp( ' ', $key )} = &cleanUp( ' ', $value );
 93 
   $pci{$slot}{$key} = $value;
98 
      }
 94 
   $line++;
99 
   }
 - 
 
100 
 
 95 
}
101 
 
 96 
 
102 
   foreach my $key ( sort keys %returnValue ) {
 97 
foreach my $slot ( keys %pci ) {
103 
      my $temp = $returnValue{$key};
 - 
 
104 
      foreach my $info ( keys %$temp ) {
 98 
   foreach my $key ( keys %{ $pci{$slot} } ) {
105 
         push @out, "$CATEGORY\t$key\t$info\t" . $$temp{$info};
 99 
      push @out, "$CATEGORY\t$slot\t$key\t$pci{$slot}{$key}";
106 
      }
 - 
 
107 
   }
 100 
   }
- 
 
 101 
}
- 
 
 102
108
103
109
104
110 
   #####
 105 
   #####
111 
   ##### Your code ends here.
 106 
   ##### Your code ends here.
112 
   #####
 107 
   #####