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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
###############################################################################
## Copyright 2005-2016 OCSInventory-NG/OCSInventory-Server contributors.
## See the Contributors file for more details about them.
##
## This file is part of OCSInventory-NG/OCSInventory-ocsreports.
##
## OCSInventory-NG/OCSInventory-Server is free software: you can redistribute
## it and/or modify it under the terms of the GNU General Public License as
## published by the Free Software Foundation, either version 2 of the License,
## or (at your option) any later version.
##
## OCSInventory-NG/OCSInventory-Server is distributed in the hope that it
## will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
## of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with OCSInventory-NG/OCSInventory-ocsreports. if not, write to the
## Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
## MA 02110-1301, USA.
################################################################################
package Apache::Ocsinventory::Server::Inventory::Update::Hardware;
use strict;
require Exporter;
our @ISA = qw /Exporter/;
our @EXPORT = qw / _hardware /;
use Apache::Ocsinventory::Server::Inventory::Cache;
use Apache::Ocsinventory::Server::Constants;
use Apache::Ocsinventory::Server::System qw / :server /;
sub _hardware{
my $sectionMeta = shift;
my $result = $Apache::Ocsinventory::CURRENT_CONTEXT{'XML_ENTRY'};
my $base = $result->{CONTENT}->{HARDWARE};
my $ua = $Apache::Ocsinventory::CURRENT_CONTEXT{'USER_AGENT'};
my $deviceId = $Apache::Ocsinventory::CURRENT_CONTEXT{'DATABASE_ID'};
my $dbh = $Apache::Ocsinventory::CURRENT_CONTEXT{'DBI_HANDLE'};
# We replace all data but quality and fidelity. The last come becomes the last date.
my $userid = '';
$userid = "USERID=".$dbh->quote($base->{USERID})."," if( $base->{USERID}!~/(system|localsystem)/i );
my $ipAddress = &_get_default_iface();
$dbh->do("UPDATE hardware SET USERAGENT=".$dbh->quote($ua).",
LASTDATE=".((defined($base->{LASTDATE})&&($base->{LASTDATE} ne "1970-01-01"))?$dbh->quote($base->{LASTDATE}):"NOW()").",
LASTCOME=NOW(),
CHECKSUM=(".(defined($base->{CHECKSUM})?$base->{CHECKSUM}:CHECKSUM_MAX_VALUE)."|CHECKSUM|1),
NAME=".$dbh->quote($base->{NAME}).",
WORKGROUP=".$dbh->quote($base->{WORKGROUP}).",
USERDOMAIN=".$dbh->quote($base->{USERDOMAIN}).",
OSNAME=".$dbh->quote($base->{OSNAME}).",
OSVERSION=".$dbh->quote($base->{OSVERSION}).",
OSCOMMENTS=".$dbh->quote($base->{OSCOMMENTS}).",
PROCESSORT=".$dbh->quote($base->{PROCESSORT}).",
PROCESSORS=".(defined($base->{PROCESSORS})?$base->{PROCESSORS}:0).",
PROCESSORN=".(defined($base->{PROCESSORN})?$base->{PROCESSORN}:0).",
MEMORY=".(defined($base->{MEMORY})?$base->{MEMORY}:0).",
SWAP=".(defined($base->{SWAP})?$base->{SWAP}:0).",
IPADDR=".$dbh->quote($ipAddress).",
DNS=".$dbh->quote($base->{DNS}).",
DEFAULTGATEWAY=".$dbh->quote($base->{DEFAULTGATEWAY}).",
ETIME=NULL,
$userid
TYPE=".(defined($base->{TYPE})?$base->{TYPE}:0).",
DESCRIPTION=".$dbh->quote($base->{DESCRIPTION}).",
WINCOMPANY=".$dbh->quote($base->{WINCOMPANY}).",
WINOWNER=".$dbh->quote($base->{WINOWNER}).",
WINPRODID=".$dbh->quote($base->{WINPRODID}).",
WINPRODKEY=".$dbh->quote($base->{WINPRODKEY}).",
IPSRC=".$dbh->quote($Apache::Ocsinventory::CURRENT_CONTEXT{IPADDRESS}).",
UUID=".$dbh->quote($base->{UUID}).",
ARCH=".$dbh->quote($base->{ARCH}).",
CATEGORY_ID=".$dbh->quote($base->{CATEGORY_ID})."
WHERE ID=".$deviceId)
or return(1);
#We feed cache tables associated to hardware fields
if ($ENV{OCS_OPT_INVENTORY_CACHE_ENABLED}) {
my $cache_values =[];
for (keys %{ $sectionMeta->{field_cached}} ) {
#Feeding array for cache values
$cache_values->[ $sectionMeta->{field_cached}->{$_} ] = $base->{$_};
}
&_cache( 'add', 'hardware', $sectionMeta, $cache_values );
}
$dbh->commit unless $ENV{'OCS_OPT_INVENTORY_TRANSACTION'};
0;
}
sub _get_default_iface{
return undef if !defined $Apache::Ocsinventory::CURRENT_CONTEXT{XML_ENTRY}->{CONTENT}->{NETWORKS};
my $networks = $Apache::Ocsinventory::CURRENT_CONTEXT{XML_ENTRY}->{CONTENT}->{NETWORKS};
for( @$networks ){
if( $_->{IPADDRESS} eq $Apache::Ocsinventory::CURRENT_CONTEXT{IPADDRESS}){
return $_->{IPADDRESS};
}
}
return $Apache::Ocsinventory::CURRENT_CONTEXT{XML_ENTRY}->{CONTENT}->{HARDWARE}->{IPADDR};
}
1;
|
