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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
package FusionInventory::Agent::Task::Deploy::DiskFree;
use strict;
use warnings;
use base 'Exporter';
use English qw(-no_match_vars);
use FusionInventory::Agent::Tools;
use UNIVERSAL::require;
our @EXPORT = qw(
getFreeSpace
);
sub getFreeSpace {
my $freeSpace =
$OSNAME eq 'MSWin32' ? _getFreeSpaceWindows(@_) :
$OSNAME eq 'solaris' ? _getFreeSpaceSolaris(@_) :
_getFreeSpace(@_);
return $freeSpace;
}
sub _getFreeSpaceWindows {
my (%params) = @_;
my $logger = $params{logger};
FusionInventory::Agent::Tools::Win32->require();
if ($EVAL_ERROR) {
$logger->error(
"Failed to load FusionInventory::Agent::Tools::Win32: $EVAL_ERROR"
);
return;
}
my $letter;
if ($params{path} !~ /^(\w):/) {
$logger->error("Path parse error: ".$params{path});
return;
}
$letter = $1.':';
my $freeSpace;
foreach my $object (FusionInventory::Agent::Tools::Win32::getWMIObjects(
moniker => 'winmgmts:{impersonationLevel=impersonate,(security)}!//./',
class => 'Win32_LogicalDisk',
properties => [ qw/Caption FreeSpace/ ]
)) {
next unless lc($object->{Caption}) eq lc($letter);
my $t = $object->{FreeSpace};
if ($t && $t =~ /(\d+)\d{6}$/) {
$freeSpace = $1;
}
}
return $freeSpace;
}
sub _getFreeSpaceSolaris {
my (%params) = @_;
return unless -d $params{path};
return getFirstMatch(
command => "df -b $params{path}",
pattern => qr/^\S+\s+(\d+)\d{3}[^\d]/,
logger => $params{logger}
);
}
sub _getFreeSpace {
my (%params) = @_;
return unless -d $params{path};
return getFirstMatch(
command => "df -Pk $params{path}",
pattern => qr/^\S+\s+\S+\s+\S+\s+(\d+)\d{3}[^\d]/,
logger => $params{logger}
);
}
1;
|
