Current File : //proc/self/root/proc/self/root/proc/self/root/proc/11982/cwd/opt/webdir/bin/bx-provider
#!/usr/bin/perl
# get providers list, use it's for additional actions
use strict;
use warnings;
use lib "/opt/webdir/lib";
use bxMC;
use Output;
use Pool;
use bxProvider;
use bxProviders;
use Data::Dumper;
use Getopt::Long;
use File::Basename qw( dirname basename );
# program options
my $prog_name = basename $0;
my $prog_dir = dirname $0;
my $o_action = "list"; # type of action that script must do.
# options - supported action by special provider
# configs - list supported configurations
# list - list all providers that installed on host
# install - create initial directories structure for provider
# init - additional action while pool created
# order - request host configuration for pool
# order_status - status of the request
# order_to_host- create host in the pool
# orders_list - all orders and they statuses
my $o_format = 'plain'; # format of stdout message
my $o_verbose = 0;
my $o_help = undef;
my $o_provider = undef; # provider name
my $o_provider_config = undef; # configuration ID for host request
my $o_provider_request= undef; # request ID for status request
my $o_provider_archive= undef; # archive with provider files (install op)
my @script_actions = qw(status list install uninstall pool configs order orders_list order_status order_to_host);
# get command line options
Getopt::Long::Configure ("bundling");
my $result_option = GetOptions(
'v' => \$o_verbose, 'verbose' => \$o_verbose,
'h' => \$o_help, 'help' => \$o_help,
"a:s" => \$o_action, 'action:s' => \$o_action,
"o:s" => \$o_format, 'output:s' => \$o_format,
"provider:s" => \$o_provider,
"config_id:s" => \$o_provider_config,
"task_id:s" => \$o_provider_request,
"archive:s" => \$o_provider_archive,
) or unknown_arg();
# help message
if ($o_help) { print_help($prog_name, 0) };
# test action
if (!grep(/^$o_action$/, @script_actions)){ print_help($prog_name, 1); }
# formt output
if ($o_format !~ /^(json|plain|te?xt)$/) { print_help($prog_name, 1); }
if ($o_format =~ /^te?xt$/) { $o_format = "plain" };
my $provider = bxProvider->new(
name => $o_provider,
debug => $o_verbose,
);
my $provider_action = undef;
# create folders and untar archive to directory
if ($o_action =~ /^install$/){
$provider_action = $provider->installProvider($o_provider_archive);
}elsif($o_action =~ /^uninstall$/){
$provider_action = $provider->uninstallProvider();
}elsif($o_action =~ /^status$/){
$provider_action = $provider->optionsProvider();
}elsif($o_action =~ /^configs$/){
$provider_action = $provider->configsProvider();
}elsif($o_action =~ /^order$/){
$provider_action = $provider->order2Provider($o_provider_config);
}elsif($o_action =~ /^orders_list$/){
if($o_provider){
$provider_action = $provider->listOrders4Provider();
}else{
my $providers = bxProviders->new();
$provider_action = $providers->listOrders4Providers();
}
}elsif($o_action =~ /^order_status$/){
$provider_action = $provider->order_status2Provider($o_provider_request);
}elsif($o_action =~ /^order_to_host$/){
$provider_action = $provider->order_to_hostProvider($o_provider_request);
}elsif($o_action =~ /^list$/){
my $providers = bxProviders->new();
$provider_action = $providers->listProviders;
}else{
$provider_action = Output->new(
error => 1,
message => "Unknown action=$o_action"
);
}
$provider_action->print($o_format);
exit 0;
# print usage
sub print_usage {
my $prog = shift;
my $action_text = join('|',@script_actions);
print "Usage: $prog [-vh] [-a $action_text] [--provider provider_name]
[--config_id configuration_id] [--task_id configuration_task_id] [--archive /path/to/archive.tar.gz ] \n";
}
# help message
sub print_help {
my $prog = shift;
my $exit = shift;
my $action_text = join('|',@script_actions);
print_usage( $prog );
print <<EOT;
Options:
-h|--help - show this message
-v|--verbose - enable verbose mode.
-a|--action - provider actions: $action_text
-o|
--provider - provider name that serve the request
--archive - upload files for install operation
--config_id - send request to the provider for host with defined configuration
--task_id - get info about config request
Ex.
* list all installed providers
$prog -o json
* get status and supported options for provider
$prog -a status --provider amazon
* get list of configurations
$prog -a configs --provider amazon
* create default files and folder for provider, upload files from directory to provider
$prog -a install --provider amazon --archive /tmp/amazon.tar.gz
* run provider action after ssh key will be created (while pool is create) - testing options
$prog -a pool --provider amazon
* delete all providers data
$prog -a uninstall --provider amazon
* get configurations for provider
$prog -a configs --provider amazon
* request configuration
$prog -a order --provider amazon --config_id 123
* status of requsted configuration
$prog -a order_status --provider amazon --task_id 987
* check status of requested configuration,
if status=finished create request for adding host to the pool
$prog -a order_to_host --provider amazon --task_id 987
* get list of orders (modification time, current status)
$prog -a orders_list --provider amazon
EOT
;
exit;
}
Mini Shell