#!/usr/bin/perl

# showcomms
# John Jacobsen, NPX Designs, Inc., jacobsen\@npxdesigns.com
# Started: Thu Mar 11 17:14:07 2004

package MY_PACKAGE;
use strict;

foreach my $card(0..7) {
    next if ! -d "/proc/driver/domhub/card$card";
    foreach my $pair(0..3) {
	foreach my $dom('A'..'B') {
	    my $comstatproc = "/proc/driver/domhub/card$card/pair$pair/dom$dom/comstat";
	    my $iscomproc = "/proc/driver/domhub/card$card/pair$pair/dom$dom/is-communicating";
	    my $iscom = `cat $iscomproc`;
	    if($iscom =~ /is communicating/) {
		print "$card $pair $dom is communicating.\n";
		print `cat $comstatproc`; print "\n";
	    }
	}
    }
}

__END__

