source: ocsinventory-agent/trunk/fuentes/lib/Ocsinventory/Agent/Backend/AccessLog.pm @ 468

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 397 bytes
Line 
1package Ocsinventory::Agent::Backend::AccessLog;
2
3sub run {
4  my $params = shift;
5  my $common = $params->{common};
6
7  my ($YEAR, $MONTH , $DAY, $HOUR, $MIN, $SEC) = (localtime
8    (time))[5,4,3,2,1,0];
9  my $date=sprintf "%02d-%02d-%02d %02d:%02d:%02d",
10  ($YEAR+1900), ($MONTH+1), $DAY, $HOUR, $MIN, $SEC;
11
12  $common->setAccessLog ({
13      USERID => 'N/A',
14      LOGDATE => $date
15    });
16
17}
18
191;
Note: See TracBrowser for help on using the repository browser.