#!/usr/local/share/bin/perl -w
#^^^^^^^^^^^^^^^^^^^^ Update pathname to where you have Perl installed

# A quick-n-dirty example of a getnetgroup command - use as you see fit

&setup_defaults;
&parse_args;
&doit;
exit(); 

sub usage {
   print <<EOF;
getnetgroup takes a "named" entry and returns a list of hosts one per line
   getnetgroup [options - see below] [host(s}] [named entries]
      -help             Print this page
      -usage            Print this page
EOF
}


sub setup_defaults{
   @unix_hosts = ( 
       "unix1",
       "unix2" );

   @non_unix_hosts = (
       "NT1",
       "NT2") ;

   $| = 1;           # buffer output
}


sub parse_args {
   @entries=();
   foreach $_ (@ARGV) {
      if (( /^-u.*/ ) || ( /^-h.*/)) {
         &usage(); 
      } elsif ( /all-hosts/ ) {
         push(@entries,"unix-hosts"); 
         push(@entries,"non-unix-hosts"); 
      } else {
         push(@entries,$_); 
      }
   }
}


sub doit {
   foreach $_ (@entries) {
      if ( /^unix-hosts/ ) {
         foreach $host (@unix_hosts) { print "$host\n"; } 
      } elsif ( /^non-unix-hosts/ ) {
         foreach $host (@non_unix_hosts) { print "$host\n"; } 
      } else {
         print "$_\n";
      }
   }
}
