home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / nfinger < prev    next >
Encoding:
Text File  |  1991-08-09  |  3.3 KB  |  155 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # nfinger -- finger people at their home machines
  4. #         as defined in the /usr/lib/aliases 
  5. #         dbm file.  recursively resolve all
  6. #         aliases first, so works on lists
  7.  
  8. dbmopen(ALIAS,'/usr/lib/aliases',undef) || die "can't dbmopen aliases: $!";
  9.  
  10. chop($localhost = `hostname`);
  11.  
  12. @finger_opts = ();
  13. while ($ARGV[0] =~ /^-/) { 
  14.     if ($ARGV[0] eq '-v') {
  15.     $verbose++;
  16.     shift;
  17.     } else {
  18.     push(@finger_opts, shift); 
  19.     }
  20. } 
  21.  
  22. while ($user = shift) { 
  23.     undef %seen;
  24.     $seeking++;
  25.     push(@finger, &resolve($user)); 
  26. }
  27.  
  28. undef %seen;
  29. @ofinger = @finger;
  30. for (@finger) {
  31.     s/^\\//;
  32.     s/\s//g;
  33.     push(@nfinger, $_) unless $seen{$_}++ || m#^\s*("\s*)?[|/]#;
  34. } 
  35. @finger = sort @nfinger;
  36.  
  37. if ($seeking && !@finger) {
  38.     printf STDERR "$0: can't finger only pipes and files! (@ofinger)\n";
  39.     exit 1;
  40. } 
  41.  
  42. $exec = "/usr/ucb/finger @finger_opts @finger\n";
  43.  
  44. print $exec if $verbose;
  45.  
  46.  
  47. exec $exec unless grep(/-.*s/, @finger_opts);
  48.     
  49.  
  50. open (FINGER, "$exec 2>&1 |") || die "Can't open finger pipe\n";
  51.  
  52. $mask = "%-8s%s";
  53. $\ = "\n";
  54. $| = 1;
  55. $localhost = sprintf("%-8s", $localhost);
  56. $localhost =~ s/\..*//;            # trim spurious domain noise
  57.  
  58. while (<FINGER>) {
  59.     s/\s*$//;
  60.     next if /^$/;
  61.     if (/^\[([^\]]*)\]$/) {
  62.     $host = $1;
  63.     $host =~ s/\..*//;
  64.     $host = sprintf("%-8s", $host);
  65.     $sawhost = 1;
  66.     } elsif (/^Login/) {
  67.     if (!$printed++) {
  68.         substr($_, 9, 0) = 'Home    ';
  69.         s/   Name/Name   /;
  70.         print;
  71.     }
  72.     $host = $localhost unless $sawhost;
  73.     $sawhost = 0;
  74.     } elsif (/^\S+:/) {
  75.     $sawhost = /^finger:/;
  76.     print STDERR "$host <$_>";
  77.     } else {
  78.     substr($_, 9, 0) = $host;
  79.     print;
  80.     } 
  81. } 
  82. close FINGER || die "$0: error running finger, status was $?\n";
  83.  
  84. ##############################################################
  85.  
  86. sub resolve {
  87.     local($addr,$alias,@list);
  88.     local(@addrs) = @_;
  89.  
  90.     for $addr (@addrs) {
  91.     unless (defined $ALIAS{"$addr\0"}) {
  92.         push(@list, &forward($addr));
  93.         next;
  94.     } 
  95.     chop($alias = $ALIAS{"$addr\0"});
  96.         
  97.     $alias =~ s/^\s*(.*)\s*$/$1/;
  98.     $alias =~ s/^([^!]*)!([^!]+)$/$2@$1/;
  99.  
  100.     if ($alias eq "$addr@$localhost" || $alias eq $addr) {
  101.         push(@list, &forward($addr));
  102.     }  else {
  103.         print "[ $addr -> $alias ]\n" if $verbose;
  104.         push(@list,&resolve(split(/\s*,\s*/,$alias)));
  105.     }
  106.     } 
  107.     return @list;
  108. } 
  109.  
  110.  
  111. ##############################################################
  112.  
  113. sub forward {
  114.      local($user) = @_;
  115.      local($forward); 
  116.  
  117.      $seen{$addr}++ && return $addr;
  118.  
  119.      return $user if $user =~ /^\s*"?[|\/]/;
  120.      return $user if $user =~ /^\s*.+@.+$/;
  121.      return $user if $user =~ /^\s*.+\\?!.+$/;
  122.      return $user if $user =~ /^\s*\\/;
  123.  
  124.      if (($forward = &logdir($user)) && -r $forward .= '/.forward') {
  125.     if (!open forward) {
  126.         print STDERR "$0: cannot open $forward: $!\n";
  127.     } else {
  128.         print "[ $user -> $forward ]\n" if $verbose;
  129.         chop($user = <forward>);
  130.         close forward;
  131.         print "[ $forward -> $user ]\n" if $verbose;
  132.         return &resolve(split(/,/,$user));
  133.     }
  134.      } 
  135.      return $user;
  136.  
  137. } 
  138.  
  139. ##############################################################
  140.  
  141. sub logdir {
  142.     if (! $been_here_before++) { # might make it much faster
  143.     setpwent unless $dbm_passwd = dbmopen(PASSWD,'/etc/passwd', undef);
  144.     }
  145.  
  146.     if ($dbm_passwd) {
  147.     return '' unless defined $PASSWD{$_[0]};
  148.     local(@a);
  149.     @a = split(/[\000]+/,$PASSWD{$_[0]});
  150.     return $a[$#a-1];
  151.     } else {
  152.     return (getpwnam($_[0]))[7];
  153.     }
  154. } 
  155.