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 / perl / user.chk < prev    next >
Text File  |  1992-03-10  |  2KB  |  63 lines
  1. #!/bin/sh -- need to mention perl here to avoid recursion
  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. #
  8. #  This combines user.chk and home.chk.  It searches for home directories
  9. # and various user startup files for world writability, as well as flagging
  10. # any .rhosts and .netrc files that are readable.  You can change the
  11. # files checked by changing @ftable and @readables, respectively.
  12. # 
  13.  
  14. #
  15. # check for writable files in all user's homes
  16. #
  17. require "pass.cache.pl";
  18. require "is_able.pl";
  19.  
  20. # files checked for:
  21. @ftable = ("rhosts", "profile", "login", "logout", "cshrc",
  22.        "bashrc", "bash_profile", "inputrc", "screenrc",
  23.        "kshrc", "tcshrc", "netrc", "forward", "dbxinit",
  24.        "distfile", "exrc", "emacsrc", "remote", "mh_profile",
  25.        "xinitrc", "xsession", "Xdefaults", "Xresources", "rninit");
  26.  
  27. @readables = ("netrc", "rhosts");
  28.  
  29. local(%done);
  30.  
  31. # what's the point of doing a keys and using $i ??
  32. # why not just do "for $dir (values %uname2dir) {" ????
  33. for $i (keys %uname2dir) {
  34.     $dir = $uname2dir{$i};
  35.     #   I don't want to hear about every file in their home dir, if 
  36.     # is WW, but still need to check the .netrc file for readability...
  37.     next unless $dir;
  38.     next if $done{$dir}++;
  39.     if (-e $dir) { 
  40.         if (&is_able($dir, "w", "w")) {
  41.             for $r (@readables) {
  42.                 if (-s "$dir/.$r") {
  43.                     &is_able("$dir/.$r", "w", "r");
  44.         }
  45.         }
  46.             next;
  47.     }
  48.         for $file (@ftable) {
  49.             $foo_file = $dir . "/.$file";
  50.             if (-e $foo_file) {
  51.                 &is_able($foo_file, "w", "w");
  52.                 for $r (@readables) {
  53.                     if ($file eq $r && -s $foo_file) {
  54.                         &is_able($foo_file, "w", "r");
  55.             }
  56.         }
  57.         }
  58.     }
  59.     }
  60. }
  61.  
  62. 1;
  63.