/usr/share/perl5/Apache/Ocsinventory/Server/Capacities/Download/Inventory.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 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | ################################################################################
## 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::Capacities::Download::Inventory;
require Exporter;
our @ISA = qw /Exporter/;
our @EXPORT = qw /
get_history_xml
get_history_db
update_history_full
update_history_diff
/;
use strict;
use Apache::Ocsinventory::Server::System;
sub get_history_xml{
my $result = shift;
my $base = $result->{CONTENT}->{DOWNLOAD}->{HISTORY}->{PACKAGE};
my @ret;
for( @$base ){
push @ret, $_->{ID};
}
return @ret;
}
sub get_history_db{
my ( $hardwareId, $dbh ) = @_;
my $sth = $dbh->prepare('SELECT PKG_ID from download_history WHERE HARDWARE_ID=?');
my @ret;
if( $sth->execute( $hardwareId ) ){
while( my $row = $sth->fetchrow_hashref ){
push @ret, $row->{PKG_ID};
}
}
else{
&_log(2502, 'download');
}
return @ret;
}
sub update_history_full{
my ( $hardwareId, $dbh, $pkgList ) = @_;
my ( @blacklist, $already_set );
$dbh->do('DELETE FROM download_history WHERE HARDWARE_ID=?', {}, $hardwareId);
my $sth = $dbh->prepare('INSERT INTO download_history(HARDWARE_ID, PKG_ID) VALUE(?,?)');
for my $entry ( @{ $pkgList }) {
# fix the history handling bug (agent side)
$already_set=0;
for(@blacklist){
if($_ eq $entry){
$already_set=1;
last;
}
}
if(!$already_set){
push @blacklist, $entry;
$sth->execute( $hardwareId, $entry );
}
}
}
sub update_history_diff{
my ( $hardwareId, $dbh, $fromXml, $fromDb ) = @_;
my @alreadyhandled;
for my $l_xml (@$fromXml){
my $found = 0;
for my $i_db (0..(@{$fromDb}-1)){
next unless $fromDb->[$i_db];
if($fromDb->[$i_db] eq $l_xml){
$found = 1;
# The value has been found, we have to delete it from the db list
# (elements remaining will be deleted)
delete $fromDb->[$i_db];
last;
}
}
if(!$found){
$dbh->do( 'INSERT INTO download_history(HARDWARE_ID, PKG_ID) VALUE(?,?)', {}, $hardwareId, $l_xml )
unless grep /\Q$l_xml\E/, @alreadyhandled;
}
push @alreadyhandled, $l_xml;
}
for( @$fromDb ){
next if !defined ($_);
$dbh->do( 'DELETE FROM download_history WHERE HARDWARE_ID=? AND PKG_ID=?', {}, $hardwareId, $_ );
}
}
1;
|