lib/PerlDaemon/RunModules.pm


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

package PerlDaemon::RunModules;

sub new ($$$) {
	my ($class, $conf) = @_;

	my $self = bless { conf => $conf }, $class;

	my $modulesdir = $conf->{'daemon.modulesdir'};
	my $logger = $conf->{logger};

        if (-d $modulesdir) {
                $logger->logmsg("Loading modules from $modulesdir");        

        } else {
                $logger->warn("Modules dir $modulesdir does not exist!");        
        }

        return $self;
}

sub do ($) {
	my $self = shift;
	my $conf = $self->{conf};
	my $logger = $conf->{logger};

        $logger->warn("No modules are loaded!");
}

1;