|
|
|
@@ -26,12 +26,12 @@ use SrvMngr qw(theme_list init_session);
|
|
|
|
|
|
|
|
|
|
use POSIX qw(strftime);
|
|
|
|
|
|
|
|
|
|
use esmith::DomainsDB;
|
|
|
|
|
use esmith::ConfigDB;
|
|
|
|
|
use esmith::DomainsDB::UTF8;
|
|
|
|
|
use esmith::ConfigDB::UTF8;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
our $ddb = esmith::DomainsDB->open || die "Couldn't open domains db";
|
|
|
|
|
our $cdb = esmith::ConfigDB->open || die "Couldn't open configuration db";
|
|
|
|
|
my $ddb;
|
|
|
|
|
my $cdb;
|
|
|
|
|
|
|
|
|
|
our $awsdirdata="/home/e-smith/files/users/admin/home/awstats";
|
|
|
|
|
our $REGEXP_DOMAIN = qq([a-zA-Z0-9\-\.]+);
|
|
|
|
@@ -44,6 +44,9 @@ sub main {
|
|
|
|
|
my %aws_datas = ();
|
|
|
|
|
my $title = $c->l('aws_FORM_TITLE');
|
|
|
|
|
|
|
|
|
|
$ddb = esmith::DomainsDB::UTF8->open || die "Couldn't open domains db";
|
|
|
|
|
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn't open configuration db";
|
|
|
|
|
|
|
|
|
|
$aws_datas{trt} = 'LST';
|
|
|
|
|
|
|
|
|
|
my $rec = $cdb->get('AWStats');
|
|
|
|
@@ -100,6 +103,9 @@ sub do_display {
|
|
|
|
|
my $title = $c->l('aws_FORM_TITLE');
|
|
|
|
|
my $result;
|
|
|
|
|
|
|
|
|
|
$ddb = esmith::DomainsDB::UTF8->open || die "Couldn't open domains db";
|
|
|
|
|
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn't open configuration db";
|
|
|
|
|
|
|
|
|
|
my $trt = $c->param('trt') || 'LST';
|
|
|
|
|
my $domain = $c->param('Domain');
|
|
|
|
|
|
|
|
|
@@ -161,6 +167,9 @@ sub do_update {
|
|
|
|
|
$aws_datas{trt} = $trt;
|
|
|
|
|
my ($res, $result) = '';
|
|
|
|
|
|
|
|
|
|
$ddb = esmith::DomainsDB::UTF8->open || die "Couldn't open domains db";
|
|
|
|
|
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn't open configuration db";
|
|
|
|
|
|
|
|
|
|
if ( $trt eq 'UPD' ) {
|
|
|
|
|
|
|
|
|
|
my $status = $c->param('Status');
|
|
|
|
@@ -279,7 +288,7 @@ sub do_update {
|
|
|
|
|
return $c->render( 'awstats' );
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# $cdb = esmith::ConfigDB->open();
|
|
|
|
|
# $cdb = esmith::ConfigDB::UTF8->open();
|
|
|
|
|
|
|
|
|
|
my $message = "'AWStats configuration' update ($trt) DONE";
|
|
|
|
|
$c->app->log->info($message);
|
|
|
|
@@ -352,4 +361,4 @@ sub language_options_list {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1
|
|
|
|
|
1
|