File: Batteries.pm

package info (click to toggle)
ocsinventory-agent 2%3A2.10.0-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 5,424 kB
  • sloc: perl: 26,492; xml: 773; objc: 528; sh: 386; ansic: 333; makefile: 12
file content (70 lines) | stat: -rw-r--r-- 2,433 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
package Ocsinventory::Agent::Backend::OS::Generic::Dmidecode::Batteries;
use strict;

sub run {
    my $params = shift;
    my $common = $params->{common};
  
    my $dmidecode = `dmidecode`; # TODO retrieve error
    # some versions of dmidecode do not separate items with new lines
    # so add a new line before each handle
    $dmidecode =~ s/\nHandle/\n\nHandle/g;
    my @dmidecode = split (/\n/, $dmidecode);
    # add a new line at the end
    push @dmidecode, "\n";
  
    s/^\s+// for (@dmidecode);
  
    my $flag;
  
    my $location;
    my $manufacturer;
    my $manufacturedate;
    my $serialnumber;
    my $name;
    my $chemistry;
    my $designcapacity;
    my $designvoltage;
    my $sbdsversion;
    my $maxerror;
    my $oemspecific;
    my $numslot;
  
    foreach (@dmidecode) {
        if (/dmi type 22,/i) { # beginning of Memory Device section
            $flag = 1;
            $numslot++;
        } elsif ($flag && /^$/) { # end of section
            $flag = 0;
            $common->addBatteries({
                LOCATION => $location,
                MANUFACTURER => $manufacturer,
                MANUFACTUREDATE => $manufacturedate,
                SERIALNUMBER => $serialnumber,
                NAME => $name,
                CHEMISTRY => $chemistry,
                DESIGNCAPACITY => $designcapacity,
                DESIGNVOLTAGE => $designvoltage,
                SBDSVERSION => $sbdsversion,
                MAXERROR => $maxerror,
                OEMSPECIFIC => $oemspecific,
            });
  
            $location = $manufacturer = $manufacturedate = $serialnumber = $name = $chemistry = $designcapacity = $designvoltage = $sbdsversion = $maxerror = $oemspecific = undef;
        } elsif ($flag) { # in the section
            $location = $1 if /^Location:\s*(\S+)/i;
            $manufacturer = $1 if /^Manufacturer:\s*(.+)/i;
            $manufacturedate = $1 if /^Manufacture Date:\s*(.+)/i;
            $serialnumber = $1 if /^Serial Number:\s*(.+)/i;
            $name = $1 if /^Name:\s*(.+)/i;
            $chemistry = $1 if /^Chemistry:\s*(.+)/i;
            $designcapacity = $1 if /^Design Capacity:\s*(.+)/i;
            $designvoltage = $1 if /^Design Voltage:\s*(.+)/i;
            $sbdsversion = $1 if /^SBDS Version:\s*(.+)/i;
            $maxerror = $1 if /^Maximum Error:\s*(.+)/i;
            $oemspecific = $1 if /^OEM-specific Information:\s*(.+)/i;
        }
    }
}

1;