home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / c / cops_104.zip / cops_104 / checkacct / rhosts.pl < prev    next >
Perl Script  |  1992-03-10  |  864b  |  38 lines
  1. #!/usr/unsup/bin/perl
  2. 'true' || eval 'exec perl -S $0 $argv:q';
  3. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  4. & eval 'exec /usr/local/bin/perl -S $0 $argv:q'
  5.         if 0;
  6.  
  7. $me=$ENV{"USER"};
  8. $end_code=0; 
  9. $networkgrps="";
  10. while (<>) {
  11.     chop;
  12.     @F = split(' ');
  13.     if (/^[ \t]*\+@/) { 
  14.         $networkgrps=$networkgrps . $F[0] . " ";
  15.     }
  16.     elsif ($#F > 0) {
  17.         $machine=$F[0];
  18.         shift(@F);
  19.         while ( $#F > -1 ) {
  20.             if ( $F[0] ne $me )  {
  21.                 $holes{$machine}=$holes{$machine} . $F[0] . " ";
  22.             }
  23.             shift(@F);
  24.         }
  25.          }
  26. }
  27. if ( $networkgrps ne "" )  {
  28.     printf "\nAll users in network group(s) (%s) can login to your account\n",$networkgrps;
  29.     printf "without a password.\n";
  30.     $end_code=1;
  31. }
  32. for ( keys %holes )  {
  33.     printf "\nThese users at %s are allowed to login to your account\n",$_;
  34.     printf "without a password: %s\n", $holes{$_};
  35.     $end_code=1;
  36. }
  37. exit $end_code;
  38.