Tweet
Tweet
Tweet
Tweet
#!/usr/bin/perl -w
use strict;
use warnings;
use Net::CloudStack;
use YAML::Tiny;
use Data::Dumper;
use JSON;
use XML::Simple;
my ($xml_json,$send_request);
my $yaml = YAML::Tiny->new;
$yaml = YAML::Tiny->read('cs-api.yml');
my $obj;
if(defined($yaml->[0]->{xml_json})){
$xml_json = $yaml->[0]->{xml_json};
}
else{
$xml_json = 'json';
}
if(defined($yaml->[0]->{send_request})){
$send_request = $yaml->[0]->{send_request};
}
else{
$send_request = 'no';
}
my $api = Net::CloudStack->new(
api_key => $yaml->[0]->{api_key},
secret_key => $yaml->[0]->{secret_key},
base_url => $yaml->[0]->{base_url},
api_path => $yaml->[0]->{api_path},
xml_json => $xml_json,
send_request => $send_request,
);
my $cmd = $ARGV[0];
if(defined($ARGV[1])){
$api->${cmd}("$ARGV[1]");
}
else{
$api->${cmd};
}
print Dumper($api->url);
print Dumper($api->response);
if($api->xml_json =~ /json/i){
$obj = from_json($api->response);
}
else{
my $parser = XML::Simple->new;
$obj = $parser->XMLin($api->response);
}
print Dumper($obj);
if($api->xml_json =~ /json/i){
foreach (keys %$obj){
print Dumper($obj->{$_}->{jobid});
}
}
else{
print Dumper($obj->{jobid});
}
exit;
---
api_key: ***
secret_key: ***
base_url: http://*.*.*.*
api_path: portal/client/api? #your API PATH
xml_json: json
send_request: yes
# ./cs-api.pl startVirtualMachine id=521
$VAR1 = 'http://*.*.*.*/portal/client/api?apikey=*****&command=startVirtualMachine&id=521&response=json&signature=***';
$VAR1 = '{
"startvirtualmachineresponse" : {
"jobid" : 2114
}
}
';
$VAR1 = {
'startvirtualmachineresponse' => {
'jobid' => 2114
}
};
$VAR1 = 2114;
Tweet
Tweet
Tweet