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
|
package Ocsinventory::Agent::Backend::OS::Linux::Uptime;
use strict;
sub check {
my $params = shift;
my $common = $params->{common};
$common->can_read("/proc/uptime")
}
sub run {
my $params = shift;
my $common = $params->{common};
# Uptime
open UPTIME, "/proc/uptime";
my $uptime = <UPTIME>;
$uptime =~ s/^(.+)\s+.+/$1/;
close UPTIME;
# Uptime conversion
my ($UYEAR, $UMONTH , $UDAY, $UHOUR, $UMIN, $USEC) = (gmtime ($uptime))[5,4,3,2,1,0];
# Write in ISO format
$uptime=sprintf "%02d-%02d-%02d %02d:%02d:%02d", ($UYEAR-70), $UMONTH, ($UDAY-1), $UHOUR, $UMIN, $USEC;
chomp(my $DeviceType =`uname -m`);
# TODO$h->{'CONTENT'}{'HARDWARE'}{'DESCRIPTION'} = [ "$DeviceType/$uptime" ];
$common->setHardware({ DESCRIPTION => "$DeviceType/$uptime" });
}
1
|
