#!/usr/bin/perl

#$Id: print_device_aliases.pl,v 1.2 2007/01/02 17:58:07 hutch Exp $

use strict;
use warnings;

my $seen_node;
my @devalias;

open PRTCONF, "prtconf -pv|" or die;
while(<PRTCONF>) {
   chomp;
   if (/^\s+name:  '(.*)'/) {
      # We've seen the end of the devaliases
      last if $1 eq "aliases";
      # Otherwise, wrong "Node" section, clear array and $seen_node
      undef $seen_node;
      undef @devalias;
   }
   push @devalias, "$_" if $seen_node;
   $seen_node = 1 if /^\s+Node/;
}

close PRTCONF;

foreach (@devalias) {
   s/^\s+//g;
   print "$_\n";
}