#!/usr/bin/perl
# get information about current site(s) configuration
# run as ansible module
# gathering facts about sites
# options:
# "name=list password=0 status=finished type=DBName site=default"
# dbname=sitemanager0
use strict;
use warnings;
use lib "/opt/webdir/lib";
use Output;
use Pool;
use bxSites;
use Data::Dumper;
use Getopt::Long;
use File::Basename qw( dirname basename );
#my $log_file = "/tmp/test.log";
#open( my $h, '>', $log_file )
# or die "Cannot open file $log_file: $!";
# program options
my $prog_name = basename $0;
my $prog_dir = dirname $0;
my $o_action = "status"; # type of action that script must do.
# status - information about site(s) that live on this system
# list - list all sites and its info
# cluster_test - test cluster and scale modules for sites
my $o_site = undef; # site short name
my $o_hiden = 0; # hiden or not password value
my $o_request = 'all'; # output only for defined attribute
my $o_dbname = undef;
my $o_status = undef;
my $o_install = undef;
my $o_site_dir = undef;
my $o_site_error = undef;
# get command line options
my $opt_file = $ARGV[0];
#print $h "opt_file=$opt_file\n";
# if change opts via module options
if ($opt_file) {
open( my $oh, $opt_file ) or die "Cannot open $opt_file: $!";
my $lines = <$oh>;
#print $h "data=$lines\n";
if ( defined $lines ) {
my @opts = split( /\s+/, $lines );
foreach my $opt (@opts) {
if ( $opt =~ /=/ ) {
my ( $key, $val ) = split( "=", $opt );
if ( $val =~ /^\'.+\'$/ ) {
$val = substr $val, 1, -1;
}
elsif ( $val =~ /^\".+\"$/ ) {
$val = substr $val, 1, -1;
}
#print $h $opt, "\n";
$o_action = $val if ( $key eq "name" );
$o_site = $val if ( $key eq "site" );
$o_hiden = $val if ( $key eq "password" );
$o_request = $val if ( $key eq "type" );
$o_status = $val if ( $key eq "status" );
$o_dbname = $val if ( $key eq "dbname" );
$o_install = $val if ( $key eq "install" );
$o_site_dir = $val if ( $key eq "site_dir" );
$o_site_error = $val if ( $key eq "error" );
}
}
}
close $oh;
}
#close $h;
# process request
my $sites = undef;
if ( $o_action =~ /^list$/ ) {
my $filters = {};
if ( defined $o_site && $o_site !~ /^NOT_DEFINED$/ ) {
$filters->{'SiteName'} = $o_site;
}
if ( defined $o_status && $o_status !~ /^NOT_DEFINED$/ ) {
$filters->{'SiteStatus'} = $o_status;
}
if ( defined $o_dbname && $o_dbname !~ /^NOT_DEFINED$/ ) {
$filters->{'DBName'} = $o_dbname;
}
if ( defined $o_install && $o_install !~ /^NOT_DEFINED$/ ) {
$filters->{'SiteInstall'} = $o_install;
}
if ( defined $o_site_dir && $o_site_dir !~ /^NOT_DEFINED$/ ) {
$filters->{'DocumentRoot'} = $o_site_dir;
}
if ( defined $o_site_error ) {
$filters->{'error'} = $o_site_error;
}
my $bx = bxSites->new( filters => $filters );
$sites = $bx->listSite();
}
elsif ( $o_action =~ /^status$/ ) {
my $bx = bxSite->new(
site_name => $o_site,
site_dir => $o_site_dir,
);
$sites = $bx->statusSite();
}
elsif ( $o_action =~ /^cluster_test$/ ) {
my $bx = bxSites->new();
$sites = $bx->testClusterConfig();
}
else {
$sites = Output->new(
error => 1,
message => "Unknown action option. PLease use -h for help message."
);
}
print $sites->printAnsible( $o_request, $o_hiden, $o_status );
Mini Shell