Just for your info. ----- Forwarded message from Vladimir Melnik <v.mel...@uplink.ua> -----
Date: Mon, 30 Jun 2014 15:24:55 +0300 From: Vladimir Melnik <v.mel...@uplink.ua> To: us...@cloudstack.apache.org Subject: MonkeyMan - a perl5 library for managing your Apache CloudStack installation User-Agent: Mutt/1.5.20 (2009-12-10) 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 ----- End forwarded message ----- -- V.Melnik