~grubng-dev/grubng/clients-perl

« back to all changes in this revision

Viewing changes to Client/Configmanager.pm

  • Committer: yagnesh
  • Date: 2011-06-26 06:20:58 UTC
  • Revision ID: s_yagnesh@yahoo.com-20110626062058-gz2d86sl8x3j4amn
Added POD to all modules; added Makefile.PL; moved modules under /lib/ dir

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
# This program is free software: you can redistribute it and/or modify
2
 
# it under the terms of the GNU General Public License as published by
3
 
# the Free Software Foundation, either version 3 of the License, or
4
 
# (at your option) any later version.
5
 
#
6
 
# This program is distributed in the hope that it will be useful,
7
 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
8
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
9
 
# GNU General Public License for more details.
10
 
#
11
 
# You should have received a copy of the GNU General Public License
12
 
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
13
 
 
14
 
#####################################################################################
15
 
# Grub::Client::Configmanager
16
 
# Reads config.pm and returns specific config sections to callers
17
 
# 5/9/2011
18
 
#####################################################################################
19
 
package Client::Configmanager;
20
 
 
21
 
use strict;
22
 
use Carp;
23
 
require Exporter;
24
 
use Client::Config qw(%cfg);
25
 
 
26
 
@Client::Configmanager::ISA = qw(Exporter);
27
 
@Client::Configmanager::EXPORT_OK = qw(get_loggers get_workunithandler_cfg);
28
 
 
29
 
#############################################################
30
 
# Grub::Client::Configmanager
31
 
# Returns the loggers config section from config file
32
 
# 4/29/2011
33
 
#############################################################
34
 
sub get_loggers{
35
 
  return $cfg{'loggers'};
36
 
}
37
 
 
38
 
#############################################################
39
 
# Grub::Client::Configmanager
40
 
# Returns the workunithandler config section from config file
41
 
# 4/29/2011
42
 
#############################################################
43
 
sub get_workunithandler_cfg{
44
 
  return $cfg{'workunitcfg'};
45
 
}
46