Title: [opsview] [10127] Added util for printing newock format for host group hierarchy
- Revision
- 10127
- Author
- tvoon
- Date
- 2012-09-20 23:41:15 +0100 (Thu, 20 Sep 2012)
Log Message
Added util for printing newock format for host group hierarchy
Modified Paths
Added Paths
Modified: trunk/opsview-core/filelist
===================================================================
--- trunk/opsview-core/filelist 2012-09-20 16:19:26 UTC (rev 10126)
+++ trunk/opsview-core/filelist 2012-09-20 22:41:15 UTC (rev 10127)
@@ -679,6 +679,7 @@
f nagios:nagios 0755 /usr/local/nagios/utils/move_device_between_servers utils/move_device_between_servers
f nagios:nagios 0755 /usr/local/nagios/utils/generate_schema utils/generate_schema
f nagios:nagios 0755 /usr/local/nagios/utils/generate_schema_2 utils/generate_schema_2
+f nagios:nagios 0755 /usr/local/nagios/utils/hostgroup_newick utils/hostgroup_newick
f nagios:nagios 0755 /usr/local/nagios/utils/list_timeperiod_users utils/list_timeperiod_users
f nagios:nagios 0755 /usr/local/nagios/utils/list_unknown_devices utils/list_unknown_devices
f nagios:nagios 0755 /usr/local/nagios/utils/mass_submit_passive_results utils/mass_submit_passive_results
Added: trunk/opsview-core/utils/hostgroup_newick.pl
===================================================================
--- trunk/opsview-core/utils/hostgroup_newick.pl (rev 0)
+++ trunk/opsview-core/utils/hostgroup_newick.pl 2012-09-20 22:41:15 UTC (rev 10127)
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use Opsview::Schema;
+
+my $schema = Opsview::Schema->my_connect;
+
+my $rs = $schema->resultset( "Hostgroups" );
+
+my $top = $rs->find(1);
+
+my $identifier = shift @ARGV || "name";
+
+sub return_newick_format {
+ my $hg = shift;
+ my @children = $hg->children;
+ my $prefix = "";
+ if (@children) {
+ my @childnames;
+ foreach my $child (@children) {
+ push @childnames, return_newick_format($child);
+ }
+ $prefix = "(" . join( ",", @childnames ) . ")";
+ }
+ return $prefix . $hg->$identifier;
+}
+
+print return_newick_format($top) . $/;
Property changes on: trunk/opsview-core/utils/hostgroup_newick.pl
___________________________________________________________________
Added: svn:executable
+ *
_______________________________________________
Opsview-checkins mailing list
[email protected]
http://lists.opsview.org/lists/listinfo/opsview-checkins
