#!/afs/athena/contrib/perl/perl

# alias_ckeck <aliases-file> <alias> <alias>...

@ALIST = @ARGV;

@ARGV = shift(@ALIST);

while (<>) {
  s/;.*$//g;
  s/\s+//g;

  /^([^:]+):(.*)$/;

  $addr{$1}=$2 if $1;
}

&check_alias (@ALIST);

sub check_alias {
  while(@_) {
    local($cur) = shift(@_);
    if ($addr{$cur}) {
        print "Checking expansion for $cur...\n";
	&check_alias(split(/,/,$addr{$cur}));
        print "...done with $cur\n";
    } else {
	print "Address $cur:\n";
	system "/mit/marc/perl/expn.pl $cur";
    }
  }
}