controller support for choice of a host to show from the information dashboard has been added

lib/admin/Controller/dashboard.pm

@@ -42,21 +42,28 @@ sub system : Local {
     my ( $self, $c ) = @_;
     $c->stash->{template} = 'tt/dashboard.tt';
 
+    my @hosts = get_host_list();
+
+    $c->stash->{hosts} = \@hosts;
+
+    my $selected_host = grep($c->request->params->{server_to_show}, @hosts) ? $c->request->params->{server_to_show} : $hosts[0];
+
+    $c->stash->{selected_host} = $selected_host;
+
     my @plotdata = ();
-    push @plotdata, {name=>"mem", title=>"Free Physical Memory", 
-        url=>[qw(
-		/rrd/get?path=memory/memory-free.rrd
-		/rrd/get?path=memory/memory-cached.rrd
-		/rrd/get?path=memory/memory-buffered.rrd
-	)], si=>1};
+    push @plotdata, {name=>"mem", title=>"Free Physical Memory", url=>[(
+    		"/rrd/get?path=$selected_host/memory/memory-free.rrd",
+    		"/rrd/get?path=$selected_host/memory/memory-cached.rrd",
+    		"/rrd/get?path=$selected_host/memory/memory-buffered.rrd"
+    )], si=>1};
     push @plotdata, {name=>"swap", title=>"Free Swap Memory", 
-        url=>"/rrd/get?path=swap/swap-free.rrd", si=>1};
+        url=>"/rrd/get?path=$selected_host/swap/swap-free.rrd", si=>1};
     push @plotdata, {name=>"load", title=>"Load", 
-        url=>"/rrd/get?path=load/load.rrd", si=>0};
+        url=>"/rrd/get?path=$selected_host/load/load.rrd", si=>0};
     push @plotdata, {name=>"rdisk", title=>"Root Disk", 
-        url=>"/rrd/get?path=df/df-root.rrd", si=>1};
+        url=>"/rrd/get?path=$selected_host/df/df-root.rrd", si=>1};
     push @plotdata, {name=>"ldisk", title=>"Network Traffic", 
-        url=>"/rrd/get?path=interface/if_octets-eth0.rrd", si=>1};
+        url=>"/rrd/get?path=$selected_host/interface/if_octets-eth0.rrd", si=>1};
 
     $c->stash->{ctx} = "system";
     $c->stash->{plotdata} = \@plotdata;
@@ -69,15 +76,23 @@ sub voip : Local {
     my ( $self, $c ) = @_;
     $c->stash->{template} = 'tt/dashboard.tt';
 
+    my @hosts = get_host_list();
+
+    $c->stash->{hosts} = \@hosts;
+
+    my $selected_host = grep($c->request->params->{server_to_show}, @hosts) ? $c->request->params->{server_to_show} : $hosts[0];
+
+    $c->stash->{selected_host} = $selected_host;
+
     my @plotdata = ();
     push @plotdata, {name=>"provsub", title=>"Provisioned Subscribers", 
-        url=>"/rrd/get?path=ngcp/oss_provisioned_subscribers.rrd", si=>0};
+        url=>"/rrd/get?path=$selected_host/ngcp/oss_provisioned_subscribers.rrd", si=>0};
     push @plotdata, {name=>"regsubs", title=>"Registered Subscribers", 
-        url=>"/rrd/get?path=ngcp/kam_usrloc_regusers.rrd", si=>0};
+        url=>"/rrd/get?path=$selected_host/ngcp/kam_usrloc_regusers.rrd", si=>0};
     push @plotdata, {name=>"actdlg", title=>"Active Calls", 
-        url=>"/rrd/get?path=ngcp/kam_dialog_active.rrd", si=>0};
+        url=>"/rrd/get?path=$selected_host/ngcp/kam_dialog_active.rrd", si=>0};
     push @plotdata, {name=>"sipr", title=>"SIP Register Latency", 
-        url=>"/rrd/get?path=ngcp/sip_option.rrd", si=>0};
+        url=>"/rrd/get?path=$selected_host/ngcp/sip_option.rrd", si=>0};
 
     $c->stash->{ctx} = "voip";
     $c->stash->{plotdata} = \@plotdata;
@@ -96,13 +111,21 @@ sub sipstats: Local {
                                                       );
     $c->stash->{stats} = $stats;
 
+    my @hosts = get_host_list();
+
+    $c->stash->{hosts} = \@hosts;
+
+    my $selected_host = grep($c->request->params->{server_to_show}, @hosts) ? $c->request->params->{server_to_show} : $hosts[0];
+
+    $c->stash->{selected_host} = $selected_host;
+
     my @plotdata = ();
     push @plotdata, {name=>"numpacketsperday", title=>"Captured SIP Packets per Day", 
-        url=>"/rrd/get?path=ngcp/sipstats_num_packets_perday.rrd", si=>0};
+        url=>"/rrd/get?path=$selected_host/ngcp/sipstats_num_packets_perday.rrd", si=>0};
     push @plotdata, {name=>"numpackets", title=>"Overall Available SIP Packets", 
-        url=>"/rrd/get?path=ngcp/sipstats_num_packets.rrd", si=>0};
+        url=>"/rrd/get?path=$selected_host/ngcp/sipstats_num_packets.rrd", si=>0};
     push @plotdata, {name=>"partsize", title=>"Size of Capture Table", 
-        url=>"/rrd/get?path=ngcp/sipstats_partition_size.rrd", si=>1};
+        url=>"/rrd/get?path=$selected_host/ngcp/sipstats_partition_size.rrd", si=>1};
 
     $c->stash->{ctx} = "sipstats";
     $c->stash->{plotdata} = \@plotdata;
@@ -111,6 +134,20 @@ sub sipstats: Local {
     return 1;
 }
 
+sub get_host_list {
+    my $rrd_dirs = '/var/lib/collectd/rrd';
+    my @hosts = qw();
+
+    open(RRD_DIRS, "find $rrd_dirs -mindepth 1 -maxdepth 1 -type d | sort |") || die "can't use find in $rrd_dirs";
+    while (<RRD_DIRS>) {
+      chomp;
+      s|.*/||;
+      push @hosts, $_;
+    }
+
+    return @hosts;
+}
+
 =head1 BUGS AND LIMITATIONS
 
 =over