Welcome to Epoxy Empourium
Oops! Page Not Found.
Sorry but we are unable to find the page that you are looking for.
Back to Home
?? Go up: /usr
#!/usr/bin/perl
# Cluebringer administration tool
# Copyright (C) 2009-2011, AllWorldIT
# Copyright (C) 2008, LinuxRulz
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use lib('/usr/local/lib/cbpolicyd-2.1','/usr/lib/cbpolicyd-2.1','/usr/lib64/cbpolicyd-2.1','awitpt');
use Config::IniFiles;
use Getopt::Long;
use cbp::logging;
use cbp::version;
print("Policyd Admin Tool (ClueBringer) v".VERSION." - Copyright (c) 2007-2010 AllWorldIT\n");
# Fire up commandline processing...
my %opts;
GetOptions(
\%opts,
"help",
"config:s",
"cleanup",
"debug",
);
# Check for some args
if ($opts{'help'}) {
displayHelp();
exit 0;
}
# Set defaults
my $cfg;
$cfg->{'config_file'} = "/etc/cbpolicyd/cluebringer.conf";
# Check if we must override
if (defined($opts{'config'}) && $opts{'config'} ne "") {
$cfg->{'config_file'} = $opts{'config'};
}
# Check config file exists
if (! -f $cfg->{'config_file'}) {
print(STDERR "ERROR: No configuration file '".$cfg->{'config_file'}."' found!\n");
displayHelp();
exit 1;
}
# Use config file, ignore case
tie my %inifile, 'Config::IniFiles', (
-file => $cfg->{'config_file'},
-nocase => 1
) or die "Failed to open config file '".$cfg->{'config_file'}."': $!";
# Copy config
my %config = %inifile;
# FIXME: This now generates a warning as Config::Inifiles doesn't implement UNTIE
# untie(%inifile);
# Our fake server...
my $server;
#
# Check what to do
#
# We must cleanup
if ($opts{'cleanup'}) {
loadModules();
# Loop with modules
foreach my $module ( sort { $b->{'priority'} <=> $a->{'priority'} } @{$server->{'modules'}} ) {
$server->log(LOG_INFO,"Module: " . $module->{'name'});
# If we have a cleanup module, run it
if (defined($module->{'cleanup'})) {
$server->log(LOG_INFO," -> running cleanup...");
$module->{'cleanup'}($server);
}
}
# Huh, nothing todo...
} else {
print(STDERR "ERROR: Nothing to do!\n");
displayHelp();
exit 1;
}
#
# Misc functions
#
# Register plugin info
sub plugin_register {
my ($self,$module,$info) = @_;
# If no info, return
if (!defined($info)) {
$server->log(LOG_ERR,"Plugin info not found for module => $module");
return -1;
}
# Set real module name & save
$info->{'Module'} = $module;
push(@{$self->{'modules'}},$info);
# If we should, init the module
if (defined($info->{'init'})) {
$info->{'init'}($self);
}
return 0;
}
# Function to load our modules
sub loadModules
{
# Pull in module list
my $modules = $config{'server'}{'modules'};
my @modulelist;
if (ref($config{'server'}{'modules'}) eq "ARRAY") {
foreach my $module (@{$modules}) {
$module =~ s/\s+//g;
# Skip comments
next if ($module =~ /^#/);
$module = "modules/$module";
push(@modulelist,$module);
}
} else {
my @splitModules = split(/\s+/,$config{'server'}{'modules'});
foreach my $module (@splitModules) {
# Skip comments
next if ($module =~ /^#/);
$module = "modules/$module";
push(@modulelist,$module);
}
}
# Emulate server
$server = new cbpserver;
$server->{'inifile'} = \%config;
# Init everything
$server->init();
# Load modules
foreach my $module (@modulelist) {
# Split off dir and mod name
$module =~ /^(\w+)\/(\w+)$/;
my ($mod_dir,$mod_name) = ($1,$2);
# Load module
my $res = eval("
use cbp::${mod_dir}::${mod_name};
plugin_register(\$server,\"${mod_name}\",\$cbp::${mod_dir}::${mod_name}::pluginInfo);
");
if ($@ || (defined($res) && $res != 0)) {
$server->log(LOG_ERR,"WARNING: Error loading plugin $module ($@)");
}
}
}
# Display help
sub displayHelp {
print(<<EOF);
Usage: $0 [args]
--config=<file> Configuration file
--debug Put into debug mode
--cleanup Cleanup database records
EOF
}
# Server emulation
package cbpserver;
use strict;
use warnings;
use cbp::logging;
use cbp::config;
use awitpt::db::dbilayer;
use awitpt::db::dblayer;
# Return oursevles
sub new
{
my $class = shift;
my $self = {
};
bless $self, $class;
return $self;
};
sub init
{
my $self = shift;
# Init config
cbp::config::Init($self);
# Init system stuff
$self->{'client'}->{'dbh'} = awitpt::db::dbilayer::Init($self,'cbp');
if (!defined($self->{'client'}->{'dbh'})) {
$self->log(LOG_WARN,"Failed to Initialize: ".awitpt::db::dbilayer::internalError()." ($$)");
die;
}
if ($self->{'client'}->{'dbh'}->connect()) {
$self->log(LOG_WARN,"Failed to connect to database: ".$self->{'client'}->{'dbh'}->Error()." ($$)");
die;
}
# Setup database handle
awitpt::db::dblayer::setHandle($self->{'client'}->{'dbh'});
}
sub log
{
my ($self,$level,@msg) = @_;
# FIXME: we shouldn't ignore $level
print(@msg, "\n");
}
# Load modules we need and run cleanup() function
# Cleanup session_tracking older than 24hr
# Cleanup quotas_tracking
# - check last update, if its older than now - period, remove
# CheckHelo
# - Remove checkhelo_tracking older than specified period, default to 1 month
# vim: ts=4
Sorry but we are unable to find the page that you are looking for.
Back to Home