/usr/share/perl5/Apache/Ocsinventory/Server/Useragent.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 108 109 110 111 112 113 114 | ################################################################################
## OCSINVENTORY-NG
## Copyleft Guillaume PROTET 2010
## 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::Useragent;
use strict;
# This block specify which wrapper will be used ( your module will be compliant with all mod_perl versions )
BEGIN{
if($ENV{'OCS_MODPERL_VERSION'} == 1){
require Apache::Ocsinventory::Server::Modperl1;
Apache::Ocsinventory::Server::Modperl1->import();
}elsif($ENV{'OCS_MODPERL_VERSION'} == 2){
require Apache::Ocsinventory::Server::Modperl2;
Apache::Ocsinventory::Server::Modperl2->import();
}
}
require Exporter;
our @ISA = qw /Exporter/;
our @EXPORT = qw / _get_useragent /;
# These are the core modules you must include in addition
use Apache::Ocsinventory::Server::System;
use Apache::Ocsinventory::Server::Communication;
use Apache::Ocsinventory::Server::Constants;
# Initialize option
push @{$Apache::Ocsinventory::OPTIONS_STRUCTURE},{
'NAME' => 'USERAGENT',
'HANDLER_PROLOG_READ' => \&useragent_prolog_read,
'HANDLER_PROLOG_RESP' => undef,
'HANDLER_PRE_INVENTORY' => undef,
'HANDLER_POST_INVENTORY' => undef,
'REQUEST_NAME' => undef,
'HANDLER_REQUEST' => undef,
'HANDLER_DUPLICATE' => undef,
'TYPE' => OPTION_TYPE_SYNC,
'XML_PARSER_OPT' => {
'ForceArray' => ['xml_tag']
}
};
#Special hash to define allowed agents to content to OCS server
my %ocsagents = (
'OCS-NG_unified_unix_agent' => undef,
'OCS-NG_windows_client' => [4032,4062],
'OCS-NG_WINDOWS_AGENT' => undef,
'OCS-NG_windows_mobile_agent' => undef,
'OCS-NG_iOS_agent' => undef,
'OCS-NG_Android_agent' => undef,
);
sub useragent_prolog_read{
my $current_context=shift;
my $stop = 1; #We stop PROLOG by default
my $srvver = $Apache::Ocsinventory::VERSION;
my $useragent= &_get_useragent;
if (grep /^($useragent->{'NAME'})$/, keys %ocsagents) {
$useragent->{'VERSION'} =~ s/(\d)\.(\d)(.*)/$1\.$2/g;
unless ($ocsagents{$useragent->{NAME}}) { #If no version specifed in hash
if ($useragent->{'VERSION'} <= $srvver) {
$stop=0;
}
} elsif ($useragent->{'VERSION'} >= $ocsagents{$useragent->{'NAME'}}[0] && $useragent->{'VERSION'} <= $ocsagents{$useragent->{'NAME'}}[1]) { #For old windows agent versions compatibility
$stop= 0;
}
}
#If external references file exists
if ($ENV{'OCS_OPT_EXT_USERAGENTS_FILE_PATH'} && -f $ENV{'OCS_OPT_EXT_USERAGENTS_FILE_PATH'}) {
open(FILE, $ENV{'OCS_OPT_EXT_USERAGENTS_FILE_PATH'}) or die "Cannot open $ENV{'OCS_OPT_EXT_USERAGENTS_FILE_PATH'} file !!";
my @ext_useragents = <FILE>; chomp @ext_useragents;
close FILE;
#Removing comments lines
@ext_useragents = grep { !/^\#/ } @ext_useragents;
$stop = 0 if (grep(/^$Apache::Ocsinventory::CURRENT_CONTEXT{'USER_AGENT'}$/, @ext_useragents));
}
#Does we have to stop PROLOG ?
if ($stop) {
&_log(400,'useragent','Bad agent or agent version too recent for server !!') if $ENV{'OCS_OPT_LOGLEVEL'};
return BAD_USERAGENT;
}
else {
return PROLOG_CONTINUE;
}
}
sub _get_useragent {
my $useragent = {};
$Apache::Ocsinventory::CURRENT_CONTEXT{'USER_AGENT'} =~ m/(.*)_v(.*)$/;
$useragent->{'NAME'} = $1;
$useragent->{'VERSION'} = $2;
return $useragent;
}
1;
|