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
|
package Ocsinventory::Agent::Backend::OS::HPUX::Drives;
sub check { $^O =~ /hpux/ }
sub run {
my $params = shift;
my $common = $params->{common};
my $type;
my $fs;
my $lv;
my $total;
my $free;
for ( `fstyp -l | grep -v nfs` ) {
if ( /^\s*$/ ) { #Blank line
next;
}
$type=$_;
for ( `bdf -t $type `) {
if ( /Filesystem/ ) { ; } ;
if ( /^(\S+)\s(\d+)\s+(\d+)\s+(\d+)\s+(\d+%)\s+(\S+)/ ) {
$lv=$1;
$total=$2;
$free=$3;
$fs=$6;
$common->addDrives({
FREE => $free,
FILESYSTEM => $fs,
TOTAL => $total,
TYPE => $type,
VOLUMN => $lv,
});
};
if ( /^(\S+)\s/) {
$lv=$1;
};
if ( /(\d+)\s+(\d+)\s+(\d+)\s+(\d+%)\s+(\S+)/) {
$total=$1;
$free=$3;
$fs=$5;
# print "fs $fs lv $lv total $total free $free type $type\n";
$common->addDrives({
FREE => $free,
FILESYSTEM => $fs,
TOTAL => $total,
TYPE => $type,
VOLUMN => $lv,
});
};
};
};
}
1;
|
