home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2112 / nfinger < prev   
Encoding:
Text File  |  1990-12-28  |  3.3 KB  |  152 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.  
  57. while (<FINGER>) {
  58.     s/\s*$//;
  59.     next if /^$/;
  60.     if (/^\[([^\]]*)\]$/) {
  61.     $host = sprintf("%-8s", $1);
  62.     $sawhost = 1;
  63.     } elsif (/^Login/) {
  64.     if (!$printed++) {
  65.         substr($_, 9, 0) = 'Home    ';
  66.         s/   Name/Name   /;
  67.         print;
  68.     }
  69.     $host = $localhost unless $sawhost;
  70.     $sawhost = 0;
  71.     } elsif (/^\S+:/) {
  72.     $sawhost = /^finger:/;
  73.     print STDERR "$host <$_>";
  74.     } else {
  75.     substr($_, 9, 0) = $host;
  76.     print;
  77.     } 
  78. } 
  79. close FINGER || die "$0: error running finger, status was $?\n";
  80.  
  81. ##############################################################
  82.  
  83. sub resolve {
  84.     local($addr,$alias,@list);
  85.     local(@addrs) = @_;
  86.  
  87.     for $addr (@addrs) {
  88.     unless (defined $ALIAS{"$addr\0"}) {
  89.         push(@list, &forward($addr));
  90.         next;
  91.     } 
  92.     chop($alias = $ALIAS{"$addr\0"});
  93.         
  94.     $alias =~ s/^\s*(.*)\s*$/$1/;
  95.     $alias =~ s/^([^!]*)!([^!]+)$/$2@$1/;
  96.  
  97.     if ($alias eq "$addr@$localhost" || $alias eq $addr) {
  98.         push(@list, &forward($addr));
  99.     }  else {
  100.         print "[ $addr -> $alias ]\n" if $verbose;
  101.         push(@list,&resolve(split(/\s*,\s*/,$alias)));
  102.     }
  103.     } 
  104.     return @list;
  105. } 
  106.  
  107.  
  108. ##############################################################
  109.  
  110. sub forward {
  111.      local($user) = @_;
  112.      local($forward); 
  113.  
  114.      $seen{$addr}++ && return $addr;
  115.  
  116.      return $user if $user =~ /^\s*"?[|\/]/;
  117.      return $user if $user =~ /^\s*.+@.+$/;
  118.      return $user if $user =~ /^\s*.+\\?!.+$/;
  119.      return $user if $user =~ /^\s*\\/;
  120.  
  121.      if (($forward = &logdir($user)) && -r $forward .= '/.forward') {
  122.     if (!open forward) {
  123.         print STDERR "$0: cannot open $forward: $!\n";
  124.     } else {
  125.         print "[ $user -> $forward ]\n" if $verbose;
  126.         chop($user = <forward>);
  127.         close forward;
  128.         print "[ $forward -> $user ]\n" if $verbose;
  129.         return &resolve(split(/,/,$user));
  130.     }
  131.      } 
  132.      return $user;
  133.  
  134. } 
  135.  
  136. ##############################################################
  137.  
  138. sub logdir {
  139.     if (! $been_here_before++) { # might make it much faster
  140.     setpwent unless $dbm_passwd = dbmopen(PASSWD,'/etc/passwd', undef);
  141.     }
  142.  
  143.     if ($dbm_passwd) {
  144.     return '' unless defined $PASSWD{$_[0]};
  145.     local(@a);
  146.     @a = split(/[\000]+/,$PASSWD{$_[0]});
  147.     return $a[$#a-1];
  148.     } else {
  149.     return (getpwnam($_[0]))[7];
  150.     }
  151. } 
  152.