This file is indexed.

/usr/share/perl5/Apache/Ocsinventory/Server/Inventory/Capacities.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
###############################################################################
## 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::Capacities;

use strict;

require Exporter;

our @ISA = qw /Exporter/;

our @EXPORT = qw /
  _pre_options
  _post_options
/;

use Apache::Ocsinventory::Server::Constants;
use Apache::Ocsinventory::Server::System qw /
  :server 
  _modules_get_pre_inventory_options 
  _modules_get_post_inventory_options
/;

sub _pre_options{
  for(&_modules_get_pre_inventory_options()){
    last if $_== 0;
    if (&$_(\%Apache::Ocsinventory::CURRENT_CONTEXT) == INVENTORY_STOP){
      return INVENTORY_STOP;
    }
  }
}

sub _post_options{
  for(&_modules_get_post_inventory_options()){
    last if $_== 0;
    &$_(\%Apache::Ocsinventory::CURRENT_CONTEXT);
  }
}
1;