use warnings;
use strict;

my $host      = "";

my (@T1_list, $current_T1);

my @check = grep { chomp $_; $_ } <DATA>; 

for (@check) {
    if (m{([0-9]/[0-9]/[0-9])$}) {  
	  push @T1_list, $current_T1 = T1->new (INTERFACE=>$1)
    }
    elsif (m{pri-group}) {
      $current_T1->isPRI (1);
    }
}

if ( @T1_list ) {
    print "T1 Controller Summary:\n\n";
    print scalar(@T1_list) . " total T1 interfaces\n";
    $_->PrintName for @T1_list;
    print scalar(grep $_->isPRI(), @T1_list) ." total voice PRI(s)\n";
    $_->PrintName for (grep $_->isPRI(), @T1_list);
}
else {
    print "No T1 interfaces found";
}

{ package T1;

sub new{
  my ($class, %att) = @_;
  return bless ( {PRI=>0, INTERFACE=>'', %att}, $class);
}

sub isPRI{
  my ($self, $val) = @_;
  defined $val or return $self->{PRI};
  $self->{PRI} = $val;
} 

sub PrintName{
  print $_[0]->{INTERFACE}, "\n";
}
 
1;
} # End of T1