/usr/share/perl5/Apache/Ocsinventory/Server/Inventory/Update/Hardware.pm is in ocsinventory-server 2.0.5-1.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | ###############################################################################
## OCSINVENTORY-NG
## Copyleft Pascal DANEK 2008
## Web : http://www.ocsinventory-ng.org
##
## This code is open source and may be copied and modified as long as the source
## code is always made freely available.
## Please refer to the General Public Licence http://www.gnu.org/ or Licence.txt
################################################################################
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=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})."
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;
|