src/lib/Torrus/Collector/CDef_Params.pm

   1 #
   2 #  Copyright (C) 2004  Christian Schnidrig
   3 #
   4 #  This program is free software; you can redistribute it and/or modify
   5 #  it under the terms of the GNU General Public License as published by
   6 #  the Free Software Foundation; either version 2 of the License, or
   7 #  (at your option) any later version.
   8 #
   9 #  This program is distributed in the hope that it will be useful,
  10 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 #  GNU General Public License for more details.
  13 #
  14 #  You should have received a copy of the GNU General Public License
  15 #  along with this program; if not, write to the Free Software
  16 #  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17
  18 # Christian Schnidrig <christian.schnidrig@bluewin.ch>
  19
  20
  21 # Parameter definitions for CDef collector plugin
  22
  23 package Torrus::Collector::CDef_Params;
  24
  25 use strict;
  26 use warnings;
  27
  28 our $VERSION = 1.0;
  29
  30 ###  Initialize the configuration validator with module-specific parameters
  31 our %params =
  32     (
  33      'rpn-expr'                 => undef,
  34      'cdef-collector-delay'     => undef,
  35      'cdef-collector-tolerance' => undef,
  36      );
  37
  38
  39 sub initValidatorLeafParams
  40 {
  41     my $hashref = shift;
  42     $hashref->{'ds-type'}{'collector'}{'collector-type'}{'cdef'} =
  43         \%params;
  44     return;
  45 }
  46
  47
  48 my %admInfoParamCategories =
  49     (
  50      'cdef-collector-delay'        => 'CDef_Collector',
  51      'cdef-collector-tolerance'    => 'CDef_Collector',
  52      );
  53
  54
  55 sub initAdmInfo
  56 {
  57     my $map = shift;
  58     my $categories = shift;
  59
  60     $map->{'ds-type'}{'collector'}{'collector-type'}{'cdef'} =
  61         \%params;
  62
  63     while( my ($pname, $category) = each %admInfoParamCategories )
  64     {
  65         $categories->{$pname} = $category;
  66     }
  67     return;
  68 }
  69
  70
  71
  72 1;