#!/usr/bin/perl

use strict;

my $config='/etc/ha.d/ha.cf';
my $status='/usr/bin/cl_status';
my @links;
my @nodes;

open(CONF,$config) or die "Can't open $config\n";
while(<CONF>) {
  if(/^bcast/) {
    my @st = split;
    splice(@st,0,1);
    push @links, @st;
  }
  if(/^mcast/) {
    my @st = split;
    push @links, (@st)[1];
  }
  if(/^node/) {
    my @st = split;
    splice(@st,0,1);
    push @nodes, @st;
  }
}
close(CONF);

foreach my $node (@nodes) {
  foreach my $link (@links) {
    my $status = qx($status hblinkstatus $node $link);
    chomp($status);
    print "$node $link: $status\n";
  }
}