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
|
package Ocsinventory::Agent::Backend::OS::HPUX::Bios;
use strict;
###
# Version 1.1
# Correction of Bug n 522774
#
# thanks to Marty Riedling for this correction
#
###
sub check { $^O =~ /hpux/ }
sub run {
my $params = shift;
my $common = $params->{common};
my $BiosVersion;
my $BiosDate;
my $SystemModel;
my $SystemSerial;
$SystemModel=`model`;
if ($common->can_run ("machinfo")) {
foreach (`machinfo`) {
if (/Firmware\s+revision\s?[:=]\s+(\S+)/) {
$BiosVersion=$1;
}
if (/achine\s+serial\s+number\s?[:=]\s+(\S+)/) {
$SystemSerial=$1;
}
}
} else {
for (`echo 'sc product cpu;il' | /usr/sbin/cstm | grep "PDC Firmware"`) {
if (/Revision:\s+(\S+)/){
$BiosVersion="PDC $1";
}
}
for (`echo 'sc product system;il' | /usr/sbin/cstm | grep "System Serial Number"`) {
if (/:\s+(\w+)/) {
$SystemSerial=$1;
}
}
}
$common->setBios ({
BVERSION => $BiosVersion,
BDATE => $BiosDate,
BMANUFACTURER => "HP",
SMANUFACTURER => "HP",
SMODEL => $SystemModel,
SSN => $SystemSerial,
});
}
1;
|
