home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / mkusrhosts < prev    next >
Encoding:
Text File  |  1991-08-09  |  619 b   |  28 lines
  1. #!/usr/bin/perl
  2. #
  3. # mkusrhosts
  4.  
  5. $\ = ' ';                                   # set ORS = ' ';
  6. $| = 1;                                     # unbuffer stdout
  7.  
  8.  
  9. $rsh = "/usr/ucb/rsh";
  10. $hosts = '/usr/hosts';
  11. $machines = '/usr/adm/MACHINES';
  12.  
  13. open machines                        || die "can't open $machines: $!";
  14.  
  15. -d $hosts || mkdir($hosts, 0755)         || die "can't mkdir $hosts: $!";
  16.  
  17. chdir $hosts                                  || die "can't chdir to $hosts: $!";
  18.  
  19. unlink <*>;
  20.  
  21. while (<machines>) {
  22.     chop;
  23.     s/\s.*//;
  24.     link ($rsh, $_)                         || die "couldn't make link to $_: $!";
  25.     print;
  26. }
  27. print "\n";
  28.