/usr/share/perl5/Apache/Ocsinventory/Server/Inventory/Export.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 | ###############################################################################
## 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::Export;
use strict;
require Exporter;
our @ISA = qw /Exporter/;
our @EXPORT = qw / _generate_ocs_file /;
use Apache::Ocsinventory::Server::System qw / :server /;
sub _generate_ocs_file{
return if !$ENV{'OCS_OPT_GENERATE_OCS_FILES'};
my $ocs_path = $ENV{'OCS_OPT_OCS_FILES_PATH'};
my $ocs_file_name = $Apache::Ocsinventory::CURRENT_CONTEXT{'DEVICEID'};
my $ocs_file = $ocs_path.'/'.$ocs_file_name.'.ocs';
my $format;
my $v=1;
$format = 'ocs' unless $format = $ENV{'OCS_OPT_OCS_FILES_FORMAT'};
if(!$ENV{'OCS_OPT_OCS_FILES_OVERWRITE'}){
while(-e $ocs_file){
$ocs_file=~s/(.+-\d{4}(-\d{2}){5})(?:-\d+)?\.ocs/$1-$v.ocs/;
$v++;
}
}
if( !open FILE, ">$ocs_file" ){
&_log(520,'postinventory',"$ocs_file: $!") if $ENV{'OCS_OPT_LOGLEVEL'};
}
else{
if($format=~/^ocs$/i){
binmode FILE ;
print FILE ${$Apache::Ocsinventory::CURRENT_CONTEXT{'RAW_DATA'}};
}
elsif($format=~/^xml$/i){
print FILE ${$Apache::Ocsinventory::CURRENT_CONTEXT{'DATA'}};
}
else{
&_log(521,'postinventory','wrong file format') if $ENV{'OCS_OPT_LOGLEVEL'};
}
close(FILE);
}
return;
}
1;
|