You are viewing a plain text version of this content. The canonical link for it is here.
Posted to users@cloudstack.apache.org by Vladimir Melnik <v....@uplink.ua> on 2014/06/30 14:24:55 UTC
MonkeyMan - a perl5 library for managing your Apache CloudStack
installation
Dear colleagues,
If you administrating CloudStack installations, you may find it useful.
If you love Perl5, you may consider it interesting.
I'm developing a library and some set of tools for managing
CloudStack-based infrastructure from the command line. It's going to
become a smart system for doing lots of administrative tasks, so it's
only the beginning for now. :-)
But what we have at the moment?
As about tools, we can do such things from UNIX-shell...
For example, let's assume you want to check state of the VM having
a certain IP-address AND being a member of a certain domain:
admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306
<?xml version="1.0" encoding="UTF-8"?>
<listvirtualmachinesresponse>
<virtualmachine>
<id>99b885d4-70d7-4efc-8a4e-53417893fb19</id>
<name>99b885d4-70d7-4efc-8a4e-53417893fb19</name>
[...]
Or, if you want to, you can get certain parameters of this output:
admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306 \
-x //state -x //hostname -x //instancename
<state>Running</state>
<hostname>h2.c1.p1.z1.tucha13.net</hostname>
<instancename>i-51-135-VM</instancename>
You can reset the VM found by your desired criterias:
admin> mm_vm_reset has_instancename=i-13-666-VM
Want to listen to someone's network interface? No problem.
admin> mm_vm_tcpdump has_ipaddress=10.1.1.253
tcpdump: WARNING: vnet17: no IPv4 address assigned
tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
listening on vnet17, link-type EN10MB (Ethernet), capture size 65535 bytes
15:21:01.845886 IP 10.1.1.1.36686 > 10.1.1.253.imaps: Flags [S], seq 316746440, win 14600, options [mss 1460,sackOK,TS val 1959872931 ecr 0,nop,wscale 6], length 0
15:21:01.846023 IP 10.1.1.253.imaps > 10.1.1.1.36686: Flags [S.], seq 2234071684, ack 316746441, win 14480, options [mss 1460,sackOK,TS val 2579908884 ecr 1959872931,nop,wscale 6], length 0
^^^ The script have found the hostname and the instance name, logged
into the host, analyzed output of "virsh dumpxml ...", found the
interface's name (vnet17) and launched tcpdump.
And you can use all these things not only from the command-line, as you
can use the object oriented library using all these things from your own
Perl5 scripts.
Let's assume you want to find and load all the information about some
domain:
my $domain = eval { MonkeyMan::CloudStack::Elements::Domain->new(
mm => $mm,
load_dom => {
conditions => {
path => 'ROOT/CUSTOMERS/ZALOOPA'
}
}
)};
if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Domain->new(): $@"); next; }
Voila, now you have the corresponding object's reference in the $domain
variable. You can do some easy tricks with that domain. It's pretty easy
to get any parameter:
my $domain_id = $domain->get_parameter('id');
unless(defined($domain_id)) {
$log->warn("Can't get the ID of the domain" .
($domain->has_error ? (": " . $domain->error_message) : undef)
);
next;
}
What if you want to get all volumes belongs to this domain? It's easy:
my $volumz = $domain->find_related_to_me("volume");
$log->logdie($domain->error_message) unless defined($volumz);
No kidding, you have the reference to the list of XML::LibXML documents
who have the <domainid> parameter corresponding to this domain. You can
easily initialize them as objects to do other cool things with these
volumes:
foreach my $volume_dom (@{ $volumz }) {
my $volume = eval { MonkeyMan::CloudStack::Elements::Volume->new(
mm => $mm,
load_dom => {
dom => $volume_dom # the XML document
}
); };
if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Volume->new(): $@"); next; }
Oh, well, too much words... :-)
Would you like to use it? You're strongly welcome:
https://github.com/melnik13/monkeyman/
Would you like to develop it with me? Feel free to drop me a line.
A great week to you all!
--
V.Melnik
Re: MonkeyMan - a perl5 library for managing your Apache CloudStack
installation
Posted by ilya musayev <il...@gmail.com>.
Vladimir
This looks very promising and interesting.
Can i setup new cloudstack environment by export content from 1 ACS
zone, making unique changes and uploading config to setup another ACS zone?
Thanks for putting together perl interface to ACS.
Regards,
ilya
On 6/30/14, 5:24 AM, Vladimir Melnik wrote:
> Dear colleagues,
>
> If you administrating CloudStack installations, you may find it useful.
> If you love Perl5, you may consider it interesting.
>
> I'm developing a library and some set of tools for managing
> CloudStack-based infrastructure from the command line. It's going to
> become a smart system for doing lots of administrative tasks, so it's
> only the beginning for now. :-)
>
> But what we have at the moment?
>
> As about tools, we can do such things from UNIX-shell...
>
> For example, let's assume you want to check state of the VM having
> a certain IP-address AND being a member of a certain domain:
>
> admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306
>
> <?xml version="1.0" encoding="UTF-8"?>
> <listvirtualmachinesresponse>
> <virtualmachine>
> <id>99b885d4-70d7-4efc-8a4e-53417893fb19</id>
> <name>99b885d4-70d7-4efc-8a4e-53417893fb19</name>
> [...]
>
> Or, if you want to, you can get certain parameters of this output:
>
> admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306 \
> -x //state -x //hostname -x //instancename
>
> <state>Running</state>
> <hostname>h2.c1.p1.z1.tucha13.net</hostname>
> <instancename>i-51-135-VM</instancename>
>
> You can reset the VM found by your desired criterias:
>
> admin> mm_vm_reset has_instancename=i-13-666-VM
>
> Want to listen to someone's network interface? No problem.
>
> admin> mm_vm_tcpdump has_ipaddress=10.1.1.253
> tcpdump: WARNING: vnet17: no IPv4 address assigned
> tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
> listening on vnet17, link-type EN10MB (Ethernet), capture size 65535 bytes
> 15:21:01.845886 IP 10.1.1.1.36686 > 10.1.1.253.imaps: Flags [S], seq 316746440, win 14600, options [mss 1460,sackOK,TS val 1959872931 ecr 0,nop,wscale 6], length 0
> 15:21:01.846023 IP 10.1.1.253.imaps > 10.1.1.1.36686: Flags [S.], seq 2234071684, ack 316746441, win 14480, options [mss 1460,sackOK,TS val 2579908884 ecr 1959872931,nop,wscale 6], length 0
>
> ^^^ The script have found the hostname and the instance name, logged
> into the host, analyzed output of "virsh dumpxml ...", found the
> interface's name (vnet17) and launched tcpdump.
>
> And you can use all these things not only from the command-line, as you
> can use the object oriented library using all these things from your own
> Perl5 scripts.
>
> Let's assume you want to find and load all the information about some
> domain:
>
> my $domain = eval { MonkeyMan::CloudStack::Elements::Domain->new(
> mm => $mm,
> load_dom => {
> conditions => {
> path => 'ROOT/CUSTOMERS/ZALOOPA'
> }
> }
> )};
>
> if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Domain->new(): $@"); next; }
>
> Voila, now you have the corresponding object's reference in the $domain
> variable. You can do some easy tricks with that domain. It's pretty easy
> to get any parameter:
>
> my $domain_id = $domain->get_parameter('id');
>
> unless(defined($domain_id)) {
> $log->warn("Can't get the ID of the domain" .
> ($domain->has_error ? (": " . $domain->error_message) : undef)
> );
> next;
> }
>
> What if you want to get all volumes belongs to this domain? It's easy:
>
> my $volumz = $domain->find_related_to_me("volume");
> $log->logdie($domain->error_message) unless defined($volumz);
>
> No kidding, you have the reference to the list of XML::LibXML documents
> who have the <domainid> parameter corresponding to this domain. You can
> easily initialize them as objects to do other cool things with these
> volumes:
>
> foreach my $volume_dom (@{ $volumz }) {
>
> my $volume = eval { MonkeyMan::CloudStack::Elements::Volume->new(
> mm => $mm,
> load_dom => {
> dom => $volume_dom # the XML document
> }
> ); };
> if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Volume->new(): $@"); next; }
>
> Oh, well, too much words... :-)
>
> Would you like to use it? You're strongly welcome:
>
> https://github.com/melnik13/monkeyman/
>
> Would you like to develop it with me? Feel free to drop me a line.
>
> A great week to you all!
>
>
Re: MonkeyMan - a perl5 library for managing your Apache CloudStack
installation
Posted by Vladimir Melnik <v....@uplink.ua>.
Oh, I like it too, thanks to Danil Kolesnichenko <d....@tucha.ua> for the artwork!
On Mon, Jun 30, 2014 at 10:17:34PM +0530, Rohit Yadav wrote:
> Thanks for sharing Vladimir, love the mascot :)
>
> Cheers.
--
V.Melnik
Re: MonkeyMan - a perl5 library for managing your Apache CloudStack
installation
Posted by Rohit Yadav <ro...@shapeblue.com>.
Thanks for sharing Vladimir, love the mascot :)
Cheers.
> Vladimir Melnik wrote:
> Dear colleagues,
>
> If you administrating CloudStack installations, you may find it useful.
> If you love Perl5, you may consider it interesting.
>
> I'm developing a library and some set of tools for managing
> CloudStack-based infrastructure from the command line. It's going to
> become a smart system for doing lots of administrative tasks, so it's
> only the beginning for now. :-)
>
> But what we have at the moment?
>
> As about tools, we can do such things from UNIX-shell...
>
> For example, let's assume you want to check state of the VM having
> a certain IP-address AND being a member of a certain domain:
>
> admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306
>
> <?xml version="1.0" encoding="UTF-8"?>
> <listvirtualmachinesresponse>
> <virtualmachine>
> <id>99b885d4-70d7-4efc-8a4e-53417893fb19</id>
> <name>99b885d4-70d7-4efc-8a4e-53417893fb19</name>
> [...]
>
> Or, if you want to, you can get certain parameters of this output:
>
> admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306 \
> -x //state -x //hostname -x //instancename
>
> <state>Running</state>
> <hostname>h2.c1.p1.z1.tucha13.net</hostname>
> <instancename>i-51-135-VM</instancename>
>
> You can reset the VM found by your desired criterias:
>
> admin> mm_vm_reset has_instancename=i-13-666-VM
>
> Want to listen to someone's network interface? No problem.
>
> admin> mm_vm_tcpdump has_ipaddress=10.1.1.253
> tcpdump: WARNING: vnet17: no IPv4 address assigned
> tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
> listening on vnet17, link-type EN10MB (Ethernet), capture size 65535 bytes
> 15:21:01.845886 IP 10.1.1.1.36686> 10.1.1.253.imaps: Flags [S], seq 316746440, win 14600, options [mss 1460,sackOK,TS val 1959872931 ecr 0,nop,wscale 6], length 0
> 15:21:01.846023 IP 10.1.1.253.imaps> 10.1.1.1.36686: Flags [S.], seq 2234071684, ack 316746441, win 14480, options [mss 1460,sackOK,TS val 2579908884 ecr 1959872931,nop,wscale 6], length 0
>
> ^^^ The script have found the hostname and the instance name, logged
> into the host, analyzed output of "virsh dumpxml ...", found the
> interface's name (vnet17) and launched tcpdump.
>
> And you can use all these things not only from the command-line, as you
> can use the object oriented library using all these things from your own
> Perl5 scripts.
>
> Let's assume you want to find and load all the information about some
> domain:
>
> my $domain = eval { MonkeyMan::CloudStack::Elements::Domain->new(
> mm => $mm,
> load_dom => {
> conditions => {
> path => 'ROOT/CUSTOMERS/ZALOOPA'
> }
> }
> )};
>
> if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Domain->new(): $@"); next; }
>
> Voila, now you have the corresponding object's reference in the $domain
> variable. You can do some easy tricks with that domain. It's pretty easy
> to get any parameter:
>
> my $domain_id = $domain->get_parameter('id');
>
> unless(defined($domain_id)) {
> $log->warn("Can't get the ID of the domain" .
> ($domain->has_error ? (": " . $domain->error_message) : undef)
> );
> next;
> }
>
> What if you want to get all volumes belongs to this domain? It's easy:
>
> my $volumz = $domain->find_related_to_me("volume");
> $log->logdie($domain->error_message) unless defined($volumz);
>
> No kidding, you have the reference to the list of XML::LibXML documents
> who have the<domainid> parameter corresponding to this domain. You can
> easily initialize them as objects to do other cool things with these
> volumes:
>
> foreach my $volume_dom (@{ $volumz }) {
>
> my $volume = eval { MonkeyMan::CloudStack::Elements::Volume->new(
> mm => $mm,
> load_dom => {
> dom => $volume_dom # the XML document
> }
> ); };
> if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Volume->new(): $@"); next; }
>
> Oh, well, too much words... :-)
>
> Would you like to use it? You're strongly welcome:
>
> https://github.com/melnik13/monkeyman/
>
> Would you like to develop it with me? Feel free to drop me a line.
>
> A great week to you all!
>
>
--
Rohit Yadav
Software Architect, ShapeBlue
M. +91 88 262 30892 | rohit.yadav@shapeblue.com
Blog: bhaisaab.org | Twitter: @_bhaisaab
Find out more about ShapeBlue and our range of CloudStack related services
IaaS Cloud Design & Build<http://shapeblue.com/iaas-cloud-design-and-build//>
CSForge – rapid IaaS deployment framework<http://shapeblue.com/csforge/>
CloudStack Consulting<http://shapeblue.com/cloudstack-consultancy/>
CloudStack Infrastructure Support<http://shapeblue.com/cloudstack-infrastructure-support/>
CloudStack Bootcamp Training Courses<http://shapeblue.com/cloudstack-training/>
This email and any attachments to it may be confidential and are intended solely for the use of the individual to whom it is addressed. Any views or opinions expressed are solely those of the author and do not necessarily represent those of Shape Blue Ltd or related companies. If you are not the intended recipient of this email, you must neither take any action based upon its contents, nor copy or show it to anyone. Please contact the sender if you believe you have received this email in error. Shape Blue Ltd is a company incorporated in England & Wales. ShapeBlue Services India LLP is a company incorporated in India and is operated under license from Shape Blue Ltd. Shape Blue Brasil Consultoria Ltda is a company incorporated in Brasil and is operated under license from Shape Blue Ltd. ShapeBlue is a registered trademark.
Re: MonkeyMan - a perl5 library for managing your Apache CloudStack
installation
Posted by Vladimir Melnik <v....@uplink.ua>.
On Mon, Jun 30, 2014 at 02:59:12PM +0200, sebgoa wrote:
> > Would you like to develop it with me? Feel free to drop me a line.
> you might want to forward this mail to the dev list.
I'll do!
> > A great week to you all!
> Awesome work, thanks for sharing
Thank you! Always glad to share :)
--
V.Melnik
Re: MonkeyMan - a perl5 library for managing your Apache CloudStack installation
Posted by sebgoa <ru...@gmail.com>.
On Jun 30, 2014, at 2:24 PM, Vladimir Melnik <v....@uplink.ua> wrote:
> Dear colleagues,
>
> If you administrating CloudStack installations, you may find it useful.
> If you love Perl5, you may consider it interesting.
>
> I'm developing a library and some set of tools for managing
> CloudStack-based infrastructure from the command line. It's going to
> become a smart system for doing lots of administrative tasks, so it's
> only the beginning for now. :-)
>
> But what we have at the moment?
>
> As about tools, we can do such things from UNIX-shell...
>
> For example, let's assume you want to check state of the VM having
> a certain IP-address AND being a member of a certain domain:
>
> admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306
>
> <?xml version="1.0" encoding="UTF-8"?>
> <listvirtualmachinesresponse>
> <virtualmachine>
> <id>99b885d4-70d7-4efc-8a4e-53417893fb19</id>
> <name>99b885d4-70d7-4efc-8a4e-53417893fb19</name>
> [...]
>
> Or, if you want to, you can get certain parameters of this output:
>
> admin> mm_vm_info has_ipaddress=10.1.1.127 has_domain=A201306 \
> -x //state -x //hostname -x //instancename
>
> <state>Running</state>
> <hostname>h2.c1.p1.z1.tucha13.net</hostname>
> <instancename>i-51-135-VM</instancename>
>
> You can reset the VM found by your desired criterias:
>
> admin> mm_vm_reset has_instancename=i-13-666-VM
>
> Want to listen to someone's network interface? No problem.
>
> admin> mm_vm_tcpdump has_ipaddress=10.1.1.253
> tcpdump: WARNING: vnet17: no IPv4 address assigned
> tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
> listening on vnet17, link-type EN10MB (Ethernet), capture size 65535 bytes
> 15:21:01.845886 IP 10.1.1.1.36686 > 10.1.1.253.imaps: Flags [S], seq 316746440, win 14600, options [mss 1460,sackOK,TS val 1959872931 ecr 0,nop,wscale 6], length 0
> 15:21:01.846023 IP 10.1.1.253.imaps > 10.1.1.1.36686: Flags [S.], seq 2234071684, ack 316746441, win 14480, options [mss 1460,sackOK,TS val 2579908884 ecr 1959872931,nop,wscale 6], length 0
>
Very nice :)
> ^^^ The script have found the hostname and the instance name, logged
> into the host, analyzed output of "virsh dumpxml ...", found the
> interface's name (vnet17) and launched tcpdump.
>
> And you can use all these things not only from the command-line, as you
> can use the object oriented library using all these things from your own
> Perl5 scripts.
>
> Let's assume you want to find and load all the information about some
> domain:
>
> my $domain = eval { MonkeyMan::CloudStack::Elements::Domain->new(
> mm => $mm,
> load_dom => {
> conditions => {
> path => 'ROOT/CUSTOMERS/ZALOOPA'
> }
> }
> )};
>
> if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Domain->new(): $@"); next; }
>
> Voila, now you have the corresponding object's reference in the $domain
> variable. You can do some easy tricks with that domain. It's pretty easy
> to get any parameter:
>
> my $domain_id = $domain->get_parameter('id');
>
> unless(defined($domain_id)) {
> $log->warn("Can't get the ID of the domain" .
> ($domain->has_error ? (": " . $domain->error_message) : undef)
> );
> next;
> }
>
> What if you want to get all volumes belongs to this domain? It's easy:
>
> my $volumz = $domain->find_related_to_me("volume");
> $log->logdie($domain->error_message) unless defined($volumz);
>
> No kidding, you have the reference to the list of XML::LibXML documents
> who have the <domainid> parameter corresponding to this domain. You can
> easily initialize them as objects to do other cool things with these
> volumes:
>
> foreach my $volume_dom (@{ $volumz }) {
>
> my $volume = eval { MonkeyMan::CloudStack::Elements::Volume->new(
> mm => $mm,
> load_dom => {
> dom => $volume_dom # the XML document
> }
> ); };
> if($@) { $log->warn("Can't MonkeyMan::CloudStack::Elements::Volume->new(): $@"); next; }
>
> Oh, well, too much words... :-)
>
> Would you like to use it? You're strongly welcome:
>
> https://github.com/melnik13/monkeyman/
>
> Would you like to develop it with me? Feel free to drop me a line.
>
you might want to forward this mail to the dev list.
> A great week to you all!
>
Awesome work, thanks for sharing
>
> --
> V.Melnik