home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3527 < prev    next >
Encoding:
Internet Message Format  |  1991-06-23  |  35.4 KB
  1. From: df@sei.cmu.edu (Dan Farmer)
  2. Newsgroups: alt.sources
  3. Subject: perl COPS, 3/3
  4. Message-ID: <27545@as0c.sei.cmu.edu>
  5. Date: 22 Jun 91 04:29:32 GMT
  6.  
  7. #!/bin/sh
  8. # this is p-cops.103.03 (part 3 of a multipart archive)
  9. # do not concatenate these parts, unpack them in order with /bin/sh
  10. # file beta/passwd continued
  11. #
  12. if test ! -r _shar_seq_.tmp; then
  13.     echo 'Please unpack part 1 first!'
  14.     exit 1
  15. fi
  16. (read Scheck
  17.  if test "$Scheck" != 3; then
  18.     echo Please unpack part "$Scheck" next!
  19.     exit 1
  20.  else
  21.     exit 0
  22.  fi
  23. ) < _shar_seq_.tmp || exit 1
  24. if test ! -f _shar_wnt_.tmp; then
  25.     echo 'x - still skipping beta/passwd'
  26. else
  27. echo 'x - continuing file beta/passwd'
  28. sed 's/^X//' << 'SHAR_EOF' >> 'beta/passwd' &&
  29. stupak:*OdHloLgJnVCgI:131:20:Kenneth Stupak:/usr/users/stupak:/bin/csh
  30. rdp:fZ3tNW/ICf0TI:159:78:Richard Pethia:/usr/users/rdp:/usr/local/bin/tcsh
  31. connelly:u1KPqdq.5rML6:2955:20:John Connelly:/usr/users/connelly:/bin/csh
  32. ecd:T2iMJ3K55qFOA:2993:78:Edward DeHart:/usr/users/ecd:/usr/local/bin/tcsh
  33. tgp:uAONGKl7Smc/U:2999:70:Tod Pike:/usr/users/tgp:/bin/csh
  34. pjg:*UTkWVHoPfhANw:3086:20:Patrick Glasso:/usr/users/pjg:/bin/csh
  35. ph:*xisuhVETJw.Vo:3144:78:Paul Holbrook:/usr/users/ph:/bin/false
  36. krvw:VaYVunaqW4D9.:3145:78:Kenneth R. van Wyk:/usr/users/krvw:/usr/local/bin/tcsh
  37. tjm:s3oXhld2/.ngc:3159:20:Todd Miller:/usr/users/tjm:/bin/csh
  38. cfalkens:yhJpwSRg/b4LI:3202:78:Carolyn Falkenstern:/usr/users/cfalkens:/bin/csh
  39. byf:ZFRZIqr1ijgs2:3217:78:Barbara Fraser:/usr/users/byf:/usr/local/bin/tcsh
  40. df::3271:78:Dan Farmer:/usr/users/df:/usr/local/bin/tcsh
  41. brg:*:3366:78:Barbara Gratz:/usr/users/brg:/usr/local/bin/tcsh
  42. nobody:*:65534:20:Nobody:/usr/nobody:/bin/date
  43. news:*:8000:8000:News Maintainer:/usr/users/news:/bin/date
  44. lizard:jW4Gl.3ncbiZg:8002:78:BYF's Play Thing:/usr/users/lizard:/usr/local/bin/tcsh
  45. SHAR_EOF
  46. echo 'File beta/passwd is complete' &&
  47. chmod 0600 beta/passwd ||
  48. echo 'restore of beta/passwd failed'
  49. Wc_c="`wc -c < 'beta/passwd'`"
  50. test 1555 -eq "$Wc_c" ||
  51.     echo 'beta/passwd: original size 1555, current size' "$Wc_c"
  52. rm -f _shar_wnt_.tmp
  53. fi
  54. # ============= beta/passwd.chk ==============
  55. if test -f 'beta/passwd.chk' -a X"$1" != X"-c"; then
  56.     echo 'x - skipping beta/passwd.chk (File already exists)'
  57.     rm -f _shar_wnt_.tmp
  58. else
  59. > _shar_wnt_.tmp
  60. echo 'x - extracting beta/passwd.chk (Text)'
  61. sed 's/^X//' << 'SHAR_EOF' > 'beta/passwd.chk' &&
  62. #!/bin/sh -- need to mention perl here to avoid recursion
  63. 'true' || eval 'exec perl -S $0 $argv:q';
  64. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  65. & eval 'exec /usr/local/bin/perl -S $0 $argv:q'
  66. X        if 0;
  67. X
  68. #
  69. #   passwd.chk
  70. #
  71. # composer@chem.bu.edu
  72. #
  73. # Check password file -- /etc/passwd -- for incorrect number of fields,
  74. # duplicate uid's, non-alphanumeric uids, and non-numeric group id's.
  75. # 
  76. # Mechanism:  This script ensures that each line of the passwd file (in
  77. # $etc, line 47) has 7 fields and is non-blank, as well as examining the
  78. # file for any duplicate users.  It then checks to ensure that the first
  79. # character of the login name is alphanumeric, and that all uid and gid
  80. # numbers are indeed numeric and non-negative.  It also checks the
  81. # validity of the home directory.
  82. # 
  83. # For yellow pages passwords, it does the same checking, but in order to
  84. # get a listing of all members of the password file, it does a "ypcat
  85. # passwd" and uses the output from that as a passwd file.
  86. # 
  87. # The /etc/passwd file has a very specific format, making the task fairly
  88. # simple.  Normally it has lines with 7 fields, each field separated by a
  89. # colon (:).  The first field is the user id, the second field is the
  90. # encrypted password (an asterix (*) means the group has no password,
  91. # otherwise the first two characters are the salt), the third field is the
  92. # user id number, the fourth field is the group id number, the fifth field
  93. # is the GECOS field (basically holds miscellaneous information, varying
  94. # from site to site), the sixth field is the home directory of the user,
  95. # and lastly the seventh field is the login shell of the user.  No blank
  96. # lines should be present.  Uid's will be flagged if over 8 chars, unless
  97. # the $OVER_8 variable (line 45) is set to "YES".
  98. # 
  99. # If a line begins with a plus sign (+), it is a yellow pages entry.  See
  100. # passwd(5) for more information, if this applies to your site.
  101. # 
  102. X
  103. require 'pathconf.pl';
  104. require 'pass.cache.pl';
  105. #   Used for Sun C2 security group file. 'FALSE' (default) will flag
  106. # valid C2 passwd syntax as an error, 'TRUE' attempts to validate it.
  107. # Thanks to Pete Troxell for pointing this out.
  108. $C2='FALSE' if undef($C2);
  109. X
  110. #  Some systems allow long uids; set this to 'TRUE', if so (thanks
  111. # to Pete Shipley (lot of petes around here, eh?)):
  112. $OVER_8='NO' if undef($OVER_8);
  113. X
  114. package passwd_chk;
  115. X
  116. #
  117. # Important files:
  118. $etc_passwd = $'PASSWD || '/etc/passwd';
  119. X
  120. #   Check $etc_passwd for potential problems, or use the alternate method
  121. # set in cops.cf:
  122. if (!"$'GET_PASSWD") {
  123. X    open(Passwd, $etc_passwd) ||
  124. X        warn "$0: Can't open $etc_passwd: $!\n";
  125. X    }
  126. else {
  127. X    open(Passwd, "$'GET_PASSWD|") ||
  128. X        warn "$0: Can't open $etc_passwd: $!\n";
  129. X    }
  130. &chk_passwd_file_format('Passwd');
  131. close Passwd;
  132. X
  133. # check ypcat passwd for potential problems... (same checks)
  134. if (-s $'YPCAT && -x _) {
  135. X    open(YPasswd, "$'YPCAT passwd 2>/dev/null |")
  136. X    || die "$0: Can't popen $'YPCAT: $!\n";
  137. X    &chk_passwd_file_format('YPasswd');
  138. X    close YPasswd;
  139. }
  140. X  
  141. sub chk_passwd_file_format {
  142. X    local($file) = @_;
  143. X    local($W) = "Warning!  $file file,";
  144. X    undef %users;
  145. X  
  146. X    while (<$file>) {
  147. X    # should really check for correct YP syntax
  148. X    next if /^[-+]/;    # skipping YP lines for now
  149. X
  150. X    print "$W line $., is blank\n", next if /^\s*$/;
  151. X
  152. X    # make code a little more readable .. use names.. 
  153. X    ($user,$pass,$uid,$gid,$gcos,$home,$shell) = split(?:?);
  154. X    $users{$user}++;    # keep track of dups
  155. X    print "$W line $., does not have 7 fields:\n\t$_" if (@_ != 7);
  156. X    print "$W line $., nonalphanumeric username:\n\t$_"
  157. X        if $user !~ /^[A-Za-z0-9]+$/;
  158. X    print "$W line $., numeric username:\n\t$_"
  159. X        if $user =~ /^\d+$/;
  160. X    print "$W line $., login name > 8 characters:\n\t$_"
  161. X        if ( ! $OVER_8 && length($user) > 8);
  162. X    print "$W line $., no password:\n\t$_" unless $pass;
  163. X    print "$W line $., invalid password field for C2:\n\t$_"
  164. X        if ($C2 && $pass =~ /^##/ && "##$user" ne $pass);
  165. X    if ($uid !~ /^\d+$/) {
  166. X        if ($uid < 0) {
  167. X        print "$W line $., negative user id (uid):\n\t$_";
  168. X        } else {
  169. X        print "$W line $., nonnumeric user id (uid):\n\t$_";
  170. X        }
  171. X    }
  172. X    # what about checks for certain ranges of UIDs .. -composer
  173. X    print "$W line $., user $user has uid == 0 and is not root\n\t$_"
  174. X        if $uid == 0 && $user ne "root";
  175. X    print "$W line $., nonnumeric group id (gid):\n\t$_"
  176. X        unless $gid =~ /^\d+$/;
  177. X    print "$W line $., invalid home directory:\n\t$_"
  178. X        unless $home =~ m:^/:;
  179. X
  180. X    }
  181. X    # find duplicate usernames
  182. X    # not the best way, but it works ...
  183. X    $dup_warned = 0;
  184. X    for (sort keys %users) {
  185. X    (print "Warning!  Duplicate username(s) found in $file:\n"),
  186. X        $dup_warned++ if !$dup_warned && $users{$_} > 1;
  187. X    print "$_ " if $users{$_} > 1;
  188. X    }
  189. X    print "\n" if $dup_warned;
  190. }
  191. X  
  192. 1;
  193. # end of passwd.chk file
  194. SHAR_EOF
  195. chmod 0700 beta/passwd.chk ||
  196. echo 'restore of beta/passwd.chk failed'
  197. Wc_c="`wc -c < 'beta/passwd.chk'`"
  198. test 4773 -eq "$Wc_c" ||
  199.     echo 'beta/passwd.chk: original size 4773, current size' "$Wc_c"
  200. rm -f _shar_wnt_.tmp
  201. fi
  202. # ============= beta/pathconf.pl ==============
  203. if test -f 'beta/pathconf.pl' -a X"$1" != X"-c"; then
  204.     echo 'x - skipping beta/pathconf.pl (File already exists)'
  205.     rm -f _shar_wnt_.tmp
  206. else
  207. > _shar_wnt_.tmp
  208. echo 'x - extracting beta/pathconf.pl (Text)'
  209. sed 's/^X//' << 'SHAR_EOF' > 'beta/pathconf.pl' &&
  210. $YPCAT = '/usr/bin/ypcat';
  211. $STRINGS = '/usr/ucb/strings';
  212. $TFTP = '/usr/ucb/tftp';
  213. $UUDECODE = '/usr/bin/uudecode';
  214. $CMP = '/bin/cmp';
  215. $LS = '/bin/ls';
  216. X
  217. # end of perl needed programs
  218. X
  219. $AWK = '/bin/awk';
  220. $CAT = '/bin/cat';
  221. $CC = '/bin/cc';
  222. $CHMOD = '/bin/chmod';
  223. $COMM = '/usr/bin/comm';
  224. $CP = '/bin/cp';
  225. $DATE = '/bin/date';
  226. $DIFF = '/bin/diff';
  227. $ECHO = '/bin/echo';
  228. $EGREP = '/usr/bin/egrep';
  229. $EXPR = '/bin/expr';
  230. $FIND = '/usr/bin/find';
  231. $GREP = '/bin/grep';
  232. $MAIL = '/bin/mail';
  233. $MKDIR = '/bin/mkdir';
  234. $MV = '/bin/mv';
  235. $RM = '/bin/rm';
  236. $SED = '/bin/sed';
  237. $SH = '/bin/sh';
  238. $SORT = '/usr/bin/sort';
  239. $TEST = '/bin/test';
  240. $TOUCH = '/usr/bin/touch';
  241. $UNIQ = '/usr/bin/uniq';
  242. X
  243. 1;
  244. SHAR_EOF
  245. chmod 0700 beta/pathconf.pl ||
  246. echo 'restore of beta/pathconf.pl failed'
  247. Wc_c="`wc -c < 'beta/pathconf.pl'`"
  248. test 677 -eq "$Wc_c" ||
  249.     echo 'beta/pathconf.pl: original size 677, current size' "$Wc_c"
  250. rm -f _shar_wnt_.tmp
  251. fi
  252. # ============= beta/pathconf.sh ==============
  253. if test -f 'beta/pathconf.sh' -a X"$1" != X"-c"; then
  254.     echo 'x - skipping beta/pathconf.sh (File already exists)'
  255.     rm -f _shar_wnt_.tmp
  256. else
  257. > _shar_wnt_.tmp
  258. echo 'x - extracting beta/pathconf.sh (Text)'
  259. sed 's/^X//' << 'SHAR_EOF' > 'beta/pathconf.sh' &&
  260. YPCAT = '/usr/bin/ypcat';
  261. STRINGS = '/usr/ucb/strings';
  262. TFTP = '/usr/ucb/tftp';
  263. UUDECODE = '/usr/bin/uudecode';
  264. X
  265. # end of perl needed programs
  266. X
  267. AWK = '/bin/awk';
  268. CAT = '/bin/cat';
  269. CC = '/bin/cc';
  270. CHMOD = '/bin/chmod';
  271. CMP = '/bin/cmp';
  272. COMM = '/usr/bin/comm';
  273. CP = '/bin/cp';
  274. DATE = '/bin/date';
  275. DIFF = '/bin/diff';
  276. ECHO = '/bin/echo';
  277. EGREP = '/usr/bin/egrep';
  278. EXPR = '/bin/expr';
  279. FIND = '/usr/bin/find';
  280. GREP = '/bin/grep';
  281. LS = '/bin/ls';
  282. MAIL = '/bin/mail';
  283. MKDIR = '/bin/mkdir';
  284. MV = '/bin/mv';
  285. RM = '/bin/rm';
  286. SED = '/bin/sed';
  287. SH = '/bin/sh';
  288. SORT = '/usr/bin/sort';
  289. TEST = '/bin/test';
  290. TOUCH = '/usr/bin/touch';
  291. UNIQ = '/usr/bin/uniq';
  292. SHAR_EOF
  293. chmod 0700 beta/pathconf.sh ||
  294. echo 'restore of beta/pathconf.sh failed'
  295. Wc_c="`wc -c < 'beta/pathconf.sh'`"
  296. test 644 -eq "$Wc_c" ||
  297.     echo 'beta/pathconf.sh: original size 644, current size' "$Wc_c"
  298. rm -f _shar_wnt_.tmp
  299. fi
  300. # ============= beta/rc.chk ==============
  301. if test -f 'beta/rc.chk' -a X"$1" != X"-c"; then
  302.     echo 'x - skipping beta/rc.chk (File already exists)'
  303.     rm -f _shar_wnt_.tmp
  304. else
  305. > _shar_wnt_.tmp
  306. echo 'x - extracting beta/rc.chk (Text)'
  307. sed 's/^X//' << 'SHAR_EOF' > 'beta/rc.chk' &&
  308. #!/bin/sh -- need to mention perl here to avoid recursion
  309. 'true' || eval 'exec perl -S $0 $argv:q';
  310. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  311. & eval 'exec /usr/local/bin/perl -S $0 $argv:q'
  312. X        if 0;
  313. X
  314. #
  315. #  Usage: rc.chk
  316. #
  317. #  This checks pathnames and files inside the shell script files /etc/rc*
  318. # for writability.  The commands inside the files /etc/rc* are executed when
  319. # the machine is booted, so are of special interest.
  320. #
  321. # Made easy by chk_strings :-)
  322. #
  323. # Name: Martin Foord    Username: maf  Date: Thu Jan 17 15:11:09 EST 1991 
  324. # Email: maf%dbsm.oz.au@munnari.oz.au
  325. #
  326. X
  327. require 'chk_strings.pl';
  328. X
  329. # probably don't need to, but might want to do &'glob("/etc/rc*") instead.. ;-)
  330. @all_rc_files = ("/etc/rc*", "/etc/*rc", "/etc/rc*.d/*",
  331. X         "/etc/shutdown.d/*", "/etc/inittab");
  332. X
  333. for $file (@all_rc_files) {
  334. X    while (<${file}>) {
  335. X        if (-r $_) {
  336. X            &chk_strings($_);
  337. X            }
  338. X        }
  339. X    }
  340. X
  341. 1;
  342. SHAR_EOF
  343. chmod 0700 beta/rc.chk ||
  344. echo 'restore of beta/rc.chk failed'
  345. Wc_c="`wc -c < 'beta/rc.chk'`"
  346. test 897 -eq "$Wc_c" ||
  347.     echo 'beta/rc.chk: original size 897, current size' "$Wc_c"
  348. rm -f _shar_wnt_.tmp
  349. fi
  350. # ============= beta/reconfig.pl ==============
  351. if test -f 'beta/reconfig.pl' -a X"$1" != X"-c"; then
  352.     echo 'x - skipping beta/reconfig.pl (File already exists)'
  353.     rm -f _shar_wnt_.tmp
  354. else
  355. > _shar_wnt_.tmp
  356. echo 'x - extracting beta/reconfig.pl (Text)'
  357. sed 's/^X//' << 'SHAR_EOF' > 'beta/reconfig.pl' &&
  358. #!/bin/sh  # need to mention perl here to avoid recursion
  359. # NOTE:
  360. #   If you know where perl is and your system groks #!, put its
  361. # pathname at the top to make this a tad faster.
  362. #
  363. # the following magic is from the perl man page
  364. # and should work to get us to run with perl 
  365. # even if invoked as an sh or csh or foosh script.
  366. # notice we don't use full path cause we don't
  367. # know where the user has perl on their system.
  368. #
  369. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' 
  370. & eval 'exec perl -S $0 $argv:q'
  371. X    if $running_under_some_stupid_shell_instead_of_perl;
  372. X
  373. #  Target shell scripts in question:
  374. $COPS_CONFIG="pathconf.pl";
  375. X
  376. #  Potential directories to find commands:
  377. @all_dirs=("/bin",
  378. X       "/usr/bin",
  379. X       "/usr/ucb",
  380. X       "/usr/local/bin",  # scary
  381. X       "/usr/bsd");
  382. X
  383. # uncomment next line if you want your own current path used instead
  384. #
  385. # @all_dirs = split(/:/, $ENV{'PATH'});
  386. X
  387. #  Target commands in question, sans those checked above:
  388. @all_commands= ("cc", "awk", "cat",
  389. X        "chmod", "cmp", "comm", "cp",
  390. X        "date", "diff", "echo", "egrep", "expr",
  391. X        "find", "grep", "ls", "mail",
  392. X        "mkdir", "mv", "rm", "sed",
  393. X        "sh", "sort", "test", "tftp", "touch",
  394. X        "uudecode", "uniq", "ypcat");
  395. X
  396. @want{@all_commands} = ();
  397. X
  398. %exceptions=   ('strings', 'chk_strings',
  399. X                'tftp', 'misc.chk',
  400. X        'cmp', 'ftp.chk',
  401. X                'uudecode', 'misc.chk');
  402. X
  403. # grab the current values:
  404. open COPS_CONFIG || die "Can't open $COPS_CONFIG: $!\n";
  405. X
  406. $new = "$COPS_CONFIG.$$";
  407. open(NEW_CONFIG, ">$new") || die "Can't open $new: $!\n";
  408. X
  409. while (<COPS_CONFIG>) {
  410. X    unless (/\$(\w+)\s*=\s*(['"])(\S*)\2/) {
  411. X    print NEW_CONFIG;
  412. X    next;
  413. X    } 
  414. X    ($cap_command, $path) = ($1, $3);
  415. X    ($command = $cap_command) =~ tr/A-Z/a-z/;
  416. X    unless (($newpath = &getpath($command)) || $command =~ /^yp/) {
  417. X    warn "Warning!  no path for $command!\n";
  418. X    warn "          $exceptions{$command} will not work as planned!\n"
  419. X             if $exceptions{$command};
  420. X    $errors++;
  421. X    } else {
  422. X    delete $want{$command};
  423. X    } 
  424. X    print "old $path now in $newpath\n" if $newpath ne $path;
  425. X    print NEW_CONFIG "\$$cap_command = '$newpath';\n";
  426. X
  427. }
  428. X
  429. for (sort keys %want) {
  430. X    delete $want{$_} if $path = &getpath($_);
  431. X    tr/a-z/A-Z/;
  432. X    print NEW_CONFIG '$', $_, " = '", $path, "';\n";
  433. } 
  434. X
  435. close(COPS_CONFIG) || die "can't close $COPS_CONFIG: $!\n";
  436. close(NEW_CONFIG) || die "can't close $new: $!\n";
  437. X
  438. if (@missing = keys %want) {
  439. X     warn "Warning!   missing paths for @missing!\n";
  440. X     warn "The shell version may not work right!\n";
  441. } 
  442. X
  443. X
  444. if ($errors) {
  445. X    print STDERR "Not all paths were found: write anyway? ";
  446. X    # what about removing NEW_CONFIG, $new ??
  447. X    exit 1 if <STDIN> !~ /^\s*y/i;
  448. X    print STDERR "Ok, but this might not be right...\n";
  449. } 
  450. X
  451. $old = "$COPS_CONFIG.old";
  452. X
  453. rename($COPS_CONFIG, $old)
  454. X    || die "can't rename $COPS_CONFIG to $old: $!\n";
  455. X
  456. rename($new, $COPS_CONFIG)
  457. X    || die "can't rename $new to $COPS_CONFIG: $!\n";
  458. X
  459. X
  460. open COPS_CONFIG || die "can't re-open $COPS_CONFIG: $!\n";
  461. ($SH_CONF = $COPS_CONFIG) =~ s/\.pl$/.sh/;
  462. open (SH_CONF, ">$SH_CONF") || die "can't create $SH_CONF: $!\n";
  463. X
  464. while (<COPS_CONFIG>) {
  465. X    s/^\$//;
  466. X    print SH_CONF;
  467. } 
  468. close SH_CONF || die "can't close $SH_CONF: $!\n";
  469. X
  470. Xexit 0;
  471. X
  472. #############
  473. X
  474. sub getpath {
  475. X    local($cmd) = @_;
  476. X    local($path);
  477. X
  478. X    for (@all_dirs) {
  479. X    return $path if -x ($path = "$_/$cmd");
  480. X    } 
  481. X    '';
  482. } 
  483. SHAR_EOF
  484. chmod 0700 beta/reconfig.pl ||
  485. echo 'restore of beta/reconfig.pl failed'
  486. Wc_c="`wc -c < 'beta/reconfig.pl'`"
  487. test 3358 -eq "$Wc_c" ||
  488.     echo 'beta/reconfig.pl: original size 3358, current size' "$Wc_c"
  489. rm -f _shar_wnt_.tmp
  490. fi
  491. # ============= beta/root.chk ==============
  492. if test -f 'beta/root.chk' -a X"$1" != X"-c"; then
  493.     echo 'x - skipping beta/root.chk (File already exists)'
  494.     rm -f _shar_wnt_.tmp
  495. else
  496. > _shar_wnt_.tmp
  497. echo 'x - extracting beta/root.chk (Text)'
  498. sed 's/^X//' << 'SHAR_EOF' > 'beta/root.chk' &&
  499. #!/bin/sh -- need to mention perl here to avoid recursion
  500. 'true' || eval 'exec perl -S $0 $argv:q';
  501. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  502. & eval 'exec /usr/local/bin/perl -S $0 $argv:q'
  503. X        if 0;
  504. X
  505. #
  506. #  Usage: root.chk
  507. #
  508. #  This script checks pathnames inside root's startup files for 
  509. # writability, improper umask settings (world writable), non-root
  510. # entries in /.rhosts, writable binaries in root's path,
  511. # and to ensure that root is in /etc/ftpuser.
  512. #
  513. # Also check for a single "+" in /etc/hosts.equiv (world is trusted),
  514. # and that /bin, /etc and certain key files are root owned, so that you
  515. # can't, say, rcp from a host.equived machine and blow over the password
  516. # file... this may or may not be bad, decide for yourself.
  517. # Startup files are /.login /.cshrc /.profile
  518. #
  519. #  Mechanism:  These files contain paths and filenames that are stripped
  520. # out using "grep".  These strings are then processed by the "is_able"
  521. # program to see if they are world writable.  Strings of the form:
  522. #
  523. #    path=(/bin /usr/bin .)
  524. #        and
  525. #    PATH=/bin:/usr/bin:.:
  526. #
  527. # are checked  to ensure that "." is not in the path.  All
  528. # results are echoed to standard output.  In addition, some effort was
  529. # put into parsing out paths with multiple lines; e.g. ending in "\",
  530. # and continuing on the next line.  Also, all executable files and 
  531. # directories in there are checked for writability as well.
  532. #
  533. #  For umask stuff, simply grep for umask in startup files, and check
  534. # umask value.  For /etc/ftpuser, simple grep to check if root is in
  535. # the file.  For /etc/hosts.equiv, just check to see if "+" is alone
  536. # on a line by awking it.
  537. #
  538. X
  539. # rewritten in perl by tchrist@convex.com
  540. # 
  541. X
  542. # root startup/important files
  543. X
  544. require 'file_owner.pl';
  545. require 'fgrep.pl';
  546. require 'suckline.pl';
  547. require 'is_able.pl';
  548. require 'chk_strings.pl';
  549. require 'glob.pl';
  550. X
  551. package root_chk;
  552. X
  553. # use -a true if you care about non-executables
  554. # in root's path
  555. X
  556. $ARGV[0] eq '-a' && ($all_files++, shift);
  557. X
  558. die "usage: root.chk [-a]\n" if @ARGV;
  559. X
  560. $W = 'Warning! ';
  561. X
  562. $cshrc    = '/.cshrc';
  563. $profile= '/.profile';
  564. $rhosts = '/.rhosts';
  565. X
  566. $| = 1;
  567. X
  568. @big_files= ('/.login', '/.cshrc', '/.profile', '/.logout' );
  569. X
  570. # root should own *at least* these, + $big_files; you can check for all files
  571. # in /bin & /etc, or just the directories (the default.)
  572. # root_files="/bin /bin/* /etc /etc/* $big_files $rhosts"
  573. @root_files= ('/bin','/etc',@big_files,$rhosts,'/etc/passwd','/etc/group');
  574. X
  575. # misc important stuff
  576. $ftp='/etc/ftpusers';
  577. $equiv='/etc/hosts.equiv';
  578. X
  579. #   should't have anyone but root owning /bin or /etc files/directories
  580. # In case some of the critical files don't exist (/.rhost), toss away error
  581. # messages
  582. X
  583. if (@bad_files = grep (-e && &'Owner($_), @root_files)) {
  584. X    print "$W  Root does not own the following file(s):\n";
  585. X    print "\t@bad_files\n";
  586. } 
  587. X
  588. local($chk_strings'recurse) = 1 unless defined $chk_strings'recurse;
  589. X
  590. for $file (@big_files) {
  591. X    open file || next;
  592. X
  593. X    &'chk_strings($file);
  594. X
  595. X    # check for group or other writable umask
  596. X    while (<file>) {
  597. X    next if /^\s*#/;
  598. X    next unless /umask\s*(\d+)/;
  599. X    next unless ~oct($1) & 022;
  600. X    print "$W root's umask set to $1 in $file\n";
  601. X    } 
  602. } 
  603. X
  604. print "$W $ftp exists and root is not in it\n" 
  605. X    if -e $ftp && !&'fgrep($ftp,'root');
  606. X
  607. print "$W A \"+\" entry exists in $equiv!\n" if &'fgrep($equiv, '^\+$');
  608. X
  609. if (open rhosts) {
  610. X    while (<rhosts>) {
  611. X    next unless /\S+\s+(\S+)/ && $1 ne 'root';
  612. X    print "$W Non-root entry in $rhosts! $1\n";
  613. X    }
  614. } 
  615. close(rhosts);
  616. X
  617. undef @rootpath;
  618. X
  619. # checking paths...
  620. #
  621. # Get the root paths from $csh.
  622. X
  623. if (open(CSHRC, $cshrc)) {
  624. X    $path = '';
  625. X    while (<CSHRC>) {
  626. X    next if /^\s*#/;
  627. X    chop unless /\\$/;
  628. X    if (/set\s+path\s*=/) {
  629. X        $_ = &'suckline($cshrc, $_);
  630. X        s/.*set\s+path\s*=\s*//;
  631. X        s/\((.*)\)/$1/;
  632. X        s/#.*/./;
  633. X        @tmppath = grep($_ ne '', split(' '));
  634. X        for (@tmppath) { $whence{$_} .= " " . $cshrc; } 
  635. X        push(@rootpath, @tmppath);
  636. X    } 
  637. X    } 
  638. X    close(CSHRC);
  639. } 
  640. X
  641. if (open login) {
  642. X    $path = '';
  643. X    while (<cshrc>) {
  644. X    next if /^\s*#/;
  645. X    chop unless /\\$/;
  646. X    if (/set\s+path\s*=/) {
  647. X        $_ = &'suckline('login', $_);
  648. X        s/.*set\s+path\s*=\s*//;
  649. X        s/\((.*)\)/$1/;
  650. X        s/#.*/./;
  651. X        @tmppath = grep($_ ne '', split(' '));
  652. X        for (@tmppath) { $whence{$_} .= " " . $login; } 
  653. X        push(@rootpath, @tmppath);
  654. X    } 
  655. X    } 
  656. X    close(login);
  657. }
  658. X
  659. if (open profile) {
  660. X    $path = '';
  661. X    while (<profile>) {
  662. X    next if /^\s*#/;
  663. X    chop unless /\\$/;
  664. X    if (/PATH=/) {
  665. X        $_ = &'suckline('profile', $_);
  666. X        s/.*PATH=//;
  667. X        s/#.*//;
  668. X        @tmppath = split(/:/);
  669. X        for (@tmppath) { $whence{$_} .= " " . $profile; } 
  670. X        push(@rootpath, @tmppath);
  671. X    } 
  672. X    } 
  673. X    close(profile);
  674. } 
  675. X
  676. for (keys %whence) {
  677. X    $whence{$_} =~ s/^ //;
  678. X    $whence{$_} =~ s/ / and /g;
  679. } 
  680. X
  681. undef %seen;
  682. grep($seen{$_}++, @rootpath);
  683. X
  684. $is_able'silent = 1;
  685. for (keys %seen) {
  686. X    if (!-e && $_ ne ".") {
  687. X    print "$W path component $_ in $whence{$_} doesn't exist!\n";
  688. X    next;
  689. X    } 
  690. X
  691. X    if (/^\.?$/) {  # null -> dot
  692. X    print "$W \".\" (or current directory) is in root's path in $whence{$_}!\n";
  693. X    } elsif (&'is_writable($_)) {
  694. X    print "$W Directory $_ is _World_ writable and in root's path in $whence{$_}!\n";
  695. X    next;
  696. X    }
  697. X
  698. X    foreach $file (&'glob("$_/*")) {
  699. X    # can't just check -x here, as that depends on current user
  700. X    $is_executable = -f $file && (&'Mode($file) & 0111);
  701. X    if (($all_files || $is_executable) && 
  702. X            ($how = &'is_writable($file, 'w', 'w'))) {
  703. X        print "$W _World_ $how ",
  704. X            $is_executable ? 'executable' : 'file',
  705. X        " $file in root path component $_ from $whence{$_}!\n";
  706. X    } 
  707. X    }
  708. } 
  709. X
  710. $is_able'silent = 0;
  711. X
  712. 1;
  713. SHAR_EOF
  714. chmod 0700 beta/root.chk ||
  715. echo 'restore of beta/root.chk failed'
  716. Wc_c="`wc -c < 'beta/root.chk'`"
  717. test 5609 -eq "$Wc_c" ||
  718.     echo 'beta/root.chk: original size 5609, current size' "$Wc_c"
  719. rm -f _shar_wnt_.tmp
  720. fi
  721. # ============= beta/rules.pl ==============
  722. if test -f 'beta/rules.pl' -a X"$1" != X"-c"; then
  723.     echo 'x - skipping beta/rules.pl (File already exists)'
  724.     rm -f _shar_wnt_.tmp
  725. else
  726. > _shar_wnt_.tmp
  727. echo 'x - extracting beta/rules.pl (Text)'
  728. sed 's/^X//' << 'SHAR_EOF' > 'beta/rules.pl' &&
  729. sub apply_rules {
  730. X    local($op, $value, @plan) = @_;
  731. X
  732. X    printf("eval($op $value): %s\n", &ascii_plan(@plan)) if $opt_d;
  733. X
  734. X    #
  735. X    # apply UID attack rules...
  736. X    #
  737. X    if ($op eq "u") {
  738. X    #
  739. X    # If we can replace /etc/passwd or /usr/lib/aliases, we can grant 
  740. X    # any uid. 
  741. X    #
  742. X    &addto("r", "/etc/passwd", @plan);
  743. X        &addto("r", "/usr/lib/aliases", @plan);
  744. X        &addto("r", "/etc/aliases", @plan);
  745. X
  746. X    #
  747. X    # Check CF's for all usernames with this uid.
  748. X    #
  749. uname_loop:
  750. X    foreach $uname (split(/ /, $uid2names{$value})) {
  751. X        $home = $uname2dir{$uname};
  752. X
  753. X        next uname_loop unless $home;
  754. X
  755. X        if ($home eq "/") {
  756. X        $home = "";
  757. X        }
  758. X        &addto("r", "$home/.rhosts", @plan);
  759. X        &addto("r", "$home/.login", @plan);
  760. X        &addto("r", "$home/.logout", @plan);
  761. X        &addto("r", "$home/.cshrc", @plan);
  762. X        &addto("r", "$home/.profile", @plan);
  763. X    }
  764. X
  765. X    #
  766. X    # Controlling files for root...
  767. X    #
  768. X    @rootlist = ( 
  769. X        "/etc/rc", "/etc/rc.boot", "/etc/rc.single", 
  770. X        "/etc/rc.config", "/etc/rc.local", "/usr/lib/crontab",
  771. X        "/usr/spool/cron/crontabs",
  772. X        );
  773. X
  774. X    if ($value eq "0") {
  775. X        foreach $file (@rootlist) {
  776. X            &addto("r", $file, @plan);
  777. X        }
  778. X        # Experimental!
  779. X        # you can remove this if desired - tjt
  780. X        #do "rc.prog";
  781. X    }
  782. X
  783. X    #
  784. X    # Other CFs for non-root folks...
  785. X    #
  786. X    if ($value ne "0") {
  787. X        &addto("r", "/etc/hosts.equiv", @plan);
  788. X        if (-s "/etc/hosts.equiv") {
  789. X        &addto("r", "/etc/hosts", @plan);
  790. X        }
  791. X    }
  792. X
  793. X    #
  794. X    # Plans for attacking GIDs...
  795. X    #
  796. X    } elsif ($op eq "g") {    # apply gid attack rules
  797. X
  798. X    #
  799. X    # If we can replace /etc/group we can become any group
  800. X    #                  
  801. X        &addto("r", "/etc/group", @plan);
  802. X
  803. X    #
  804. X    # If we can grant any member of a group we can grant that group
  805. X    #
  806. member_loop:
  807. X    foreach $uname (split(/ /, $gid2members{$value})) {
  808. X        if (! defined($uname2uid{$uname})) {
  809. X        printf(stderr "group '%s' member '%s' doesn't exist.\n",
  810. X            $value,
  811. X            $uname);
  812. X        next member_loop;
  813. X        }
  814. X
  815. X        &addto("u", $uname2uid{$uname}, @plan);
  816. X    }
  817. X
  818. X    #
  819. X    # Plans for attacking files...
  820. X    #
  821. X
  822. X    } elsif ($op eq "r" || $op eq "w") {
  823. X
  824. X        ($owner, $group, $other) = &filewriters($value);
  825. X
  826. X    &addto("u", $owner, @plan) if ($owner ne "");
  827. X    &addto("g", $group, @plan) if ($group ne "");
  828. X    &addto("u", "-1", @plan) if ($other);
  829. X
  830. X    #
  831. X    # If the goal is to replace the file, check the parent directory...
  832. X    #
  833. X    if ($op eq "r") {
  834. X        $parent = $value;
  835. X        $parent =~ s#/[^/]*$##;     # strip last / and remaining stuff
  836. X
  837. X        if ($parent eq "") {
  838. X        $parent = "/";
  839. X        }
  840. X
  841. X        if ($parent ne $value) {
  842. X        &addto("r", $parent, @plan);
  843. X        }
  844. X    }
  845. X
  846. X    } else {            # wow, bad $type of object!
  847. X    printf(stderr "kuang: bad op in apply_rules!\n");
  848. X    printf(stderr "op '%s' value '%s' plan '%s'\n",
  849. X        $op,
  850. X        $value,
  851. X        &ascii_plan(@plan));
  852. X    exit(1);
  853. X    }
  854. }
  855. X
  856. 1;
  857. X
  858. SHAR_EOF
  859. chmod 0600 beta/rules.pl ||
  860. echo 'restore of beta/rules.pl failed'
  861. Wc_c="`wc -c < 'beta/rules.pl'`"
  862. test 2768 -eq "$Wc_c" ||
  863.     echo 'beta/rules.pl: original size 2768, current size' "$Wc_c"
  864. rm -f _shar_wnt_.tmp
  865. fi
  866. # ============= beta/stat.pl ==============
  867. if test -f 'beta/stat.pl' -a X"$1" != X"-c"; then
  868.     echo 'x - skipping beta/stat.pl (File already exists)'
  869.     rm -f _shar_wnt_.tmp
  870. else
  871. > _shar_wnt_.tmp
  872. echo 'x - extracting beta/stat.pl (Text)'
  873. sed 's/^X//' << 'SHAR_EOF' > 'beta/stat.pl' &&
  874. ;# $Header: stat.pl,v 3.0.1.1 90/08/09 04:01:34 lwall Locked $
  875. ;# Usage:
  876. ;#    require 'stat.pl';
  877. ;#    @ary = stat(foo);
  878. ;#    $st_dev = @ary[$ST_DEV];
  879. ;#
  880. $ST_DEV =    0 + $[;
  881. $ST_INO =    1 + $[;
  882. $ST_MODE =    2 + $[;
  883. $ST_NLINK =    3 + $[;
  884. $ST_UID =    4 + $[;
  885. $ST_GID =    5 + $[;
  886. $ST_RDEV =    6 + $[;
  887. $ST_SIZE =    7 + $[;
  888. $ST_ATIME =    8 + $[;
  889. $ST_MTIME =    9 + $[;
  890. $ST_CTIME =    10 + $[;
  891. $ST_BLKSIZE =    11 + $[;
  892. $ST_BLOCKS =    12 + $[;
  893. X
  894. ;# Usage:
  895. ;#    require 'stat.pl';
  896. ;#    do Stat('foo');        # sets st_* as a side effect
  897. ;#
  898. sub Stat {
  899. X    ($st_dev,$st_ino,$st_mode,$st_nlink,$st_uid,$st_gid,$st_rdev,$st_size,
  900. X    $st_atime,$st_mtime,$st_ctime,$st_blksize,$st_blocks) = stat(shift(@_));
  901. }
  902. X
  903. 1;
  904. SHAR_EOF
  905. chmod 0700 beta/stat.pl ||
  906. echo 'restore of beta/stat.pl failed'
  907. Wc_c="`wc -c < 'beta/stat.pl'`"
  908. test 653 -eq "$Wc_c" ||
  909.     echo 'beta/stat.pl: original size 653, current size' "$Wc_c"
  910. rm -f _shar_wnt_.tmp
  911. fi
  912. # ============= beta/suckline.pl ==============
  913. if test -f 'beta/suckline.pl' -a X"$1" != X"-c"; then
  914.     echo 'x - skipping beta/suckline.pl (File already exists)'
  915.     rm -f _shar_wnt_.tmp
  916. else
  917. > _shar_wnt_.tmp
  918. echo 'x - extracting beta/suckline.pl (Text)'
  919. sed 's/^X//' << 'SHAR_EOF' > 'beta/suckline.pl' &&
  920. #
  921. #  As title implies... :-)
  922. #
  923. sub main'suckline {
  924. X    local($file, $_) = @_;
  925. #   local($package) = caller;
  926. X
  927. #   $file =~ s/^([^']+)$/$package'$1/; 
  928. X    {
  929. X    if (s/\\\n?$//) {
  930. X        $_ .= <$file>;
  931. X        redo;
  932. X    }
  933. X    } 
  934. X    $_;
  935. }
  936. X
  937. 1;
  938. SHAR_EOF
  939. chmod 0700 beta/suckline.pl ||
  940. echo 'restore of beta/suckline.pl failed'
  941. Wc_c="`wc -c < 'beta/suckline.pl'`"
  942. test 229 -eq "$Wc_c" ||
  943.     echo 'beta/suckline.pl: original size 229, current size' "$Wc_c"
  944. rm -f _shar_wnt_.tmp
  945. fi
  946. # ============= beta/suid.chk ==============
  947. if test -f 'beta/suid.chk' -a X"$1" != X"-c"; then
  948.     echo 'x - skipping beta/suid.chk (File already exists)'
  949.     rm -f _shar_wnt_.tmp
  950. else
  951. > _shar_wnt_.tmp
  952. echo 'x - extracting beta/suid.chk (Text)'
  953. sed 's/^X//' << 'SHAR_EOF' > 'beta/suid.chk' &&
  954. #!/bin/sh -- need to mention perl here to avoid recursion
  955. 'true' || eval 'exec perl -S $0 $argv:q';
  956. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  957. & eval 'exec /usr/local/bin/perl -S $0 $argv:q'
  958. X        if 0;
  959. X
  960. #
  961. #  Usage: suid.chk [-n] [-s secure_dir] [search_starting_directory]
  962. #
  963. #   Shell script intended to be run periodically by cron in order
  964. #   to spot changes in files with the suid or sgid bits set.
  965. #
  966. #    suid.chk    840919        Prentiss Riddle
  967. #
  968. #     This changes into the $SECURE directory first, then 
  969. #   uses find(1) to search the directories in $SEARCH for all
  970. #   files with the 4000 or 2000 permission bits set.  $STOP is a file
  971. #   containing "ls -gildsa" output for known setuid or setgid programs.
  972. #   Any additions or changes to this list represent potential security
  973. #   problems, so they are reported.
  974. #
  975. #  Modified 8/15/89, Dan Farmer:
  976. #    Just changed the program/doc names and some of the temp
  977. #  files to make it fit in with the rest of the programs....
  978. #  Modified 12/26/90, df
  979. #       Now flags SUID shell scripts and world writeable SUID files, too.
  980. #
  981. #  Rewritten in perl, 1/17/91, df
  982. #  Major hacks by tchrist 5/14/91
  983. #
  984. X
  985. require "hostname.pl";
  986. require "is_able.pl";
  987. require "file_owner.pl";
  988. require "pathconf.pl";
  989. require "chk_strings.pl";
  990. require "pass.cache.pl";
  991. package suid_chk; # name space protection
  992. $debug=0;
  993. X
  994. #
  995. # Getopts stuff
  996. $usage = "Usage: $0 [-n] [-s secure_dir] [starting_directory]\n";
  997. require 'getopts.pl';
  998. # Process the command args; Either specify verbose or an alternate config file:
  999. die $usage unless &`Getopts('ns:');
  1000. X
  1001. $suid_dir = $'SECURE || '.';
  1002. if (defined($opt_s)) { $suid_dir = $opt_s; }
  1003. X
  1004. # Do NFS stuff?  Yes unless opt:
  1005. if (defined($opt_n)) { $skip_nfs = $opt_n; }
  1006. else { $skip_nfs = 0; }
  1007. X
  1008. $STOP="$suid_dir/suid.stop";
  1009. $TEMPOLD="$suid_dir/fsold$$";
  1010. $TEMPCUR="$suid_dir/fscur$$";
  1011. $TEMPNEW="$suid_dir/fsnew$$";
  1012. $TEMPGON="$suid_dir/fsgon$$";
  1013. $TEMPM="$suid_dir/fsm$$";
  1014. X
  1015. if (@ARGV > 1) { die $usage; }
  1016. elsif (@ARGV == 1) { $start_dir = shift; }
  1017. X
  1018. # these may be terribly rash assumptions....
  1019. $start_dir="/" unless defined $start_dir;
  1020. $find_can_ls = 1 unless defined $find_can_ls;
  1021. X
  1022. $NONFS = '-type d \( -fstype nfs -prune \) -o' if $skip_nfs;  
  1023. $find_ls = $find_can_ls ? '-ls' : "-exec $'LS -gilds {} \\;";
  1024. X
  1025. die "Error -- Security directory $suid_dir doesn't exist\n"
  1026. X    unless -d $suid_dir;
  1027. unless (-d $suid_dir) {
  1028. X    mkdir($suid_dir, 0700) || die "can't mkdir $suid_dir: $!";
  1029. } 
  1030. chdir $suid_dir || die "can't chdir $suid_dir: $!\n";
  1031. X
  1032. # find the setuid programs and sort
  1033. &run("$'FIND $start_dir $NONFS -type f \\( -perm -4000 -o -perm -2000 \\) $find_ls | $'SORT > $TEMPCUR");
  1034. X
  1035. # compare with the sorted stop list
  1036. # create stop file if needed
  1037. if (! -f $STOP) { open(S,">$STOP"); close(S); }
  1038. X
  1039. &run("$'SORT <$STOP >$TEMPOLD");
  1040. &run("$'COMM -13 $TEMPOLD $TEMPCUR | $'SORT +8 >$TEMPNEW");
  1041. &run("$'COMM -23 $TEMPOLD $TEMPCUR | $'SORT +8 >$TEMPGON");
  1042. X
  1043. local($is_able'silent) = 1;
  1044. local($chk_strings'recurse) = 0 unless defined $chk_strings'recurse;
  1045. X
  1046. # report changes
  1047. if (-s $TEMPNEW || -s $TEMPGON) {
  1048. X    if (-s $TEMPNEW) {
  1049. X    open TEMPNEW || die "Can't open $TEMPNEW: $!\n";
  1050. X    while (<TEMPNEW>) {
  1051. X        ($file) = /(\S+)$/;
  1052. X
  1053. X        # don't want SUID files to be world writable!
  1054. X        # although *reasonable* systems clear the bit on write
  1055. X        print "Warning!  SUID file $file is _World_ writable!\n" 
  1056. X        if &'is_able ($file, "w", "w"); 
  1057. X            
  1058. X        if (-r $file && -f _ && -T $file) {
  1059. X        print "Warning!  ", &'Owner($file) ? '' : 'ROOT-owned ', 
  1060. X            "SUID file $file is a non-binary, executable file!\n";
  1061. X        }
  1062. X
  1063. X        &'chk_strings($file) if -r _;
  1064. X    }
  1065. X    close TEMPNEW;
  1066. X    }
  1067. X
  1068. X    if (-s $TEMPNEW) {
  1069. X    open TEMPNEW || die "Can't reopen $TEMPNEW: $!\n";
  1070. X    print "\nThese files are newly setuid/setgid:\n\n";
  1071. X    print while <TEMPNEW>;
  1072. X    }
  1073. X
  1074. X    if (-s $TEMPGON) {
  1075. X    open TEMPGON || die "Can't reopen $TEMPGON: $!\n";
  1076. X    print "\nThese files are no longer setuid/setgid:\n\n";
  1077. X    print while <TEMPGON>;
  1078. X    }
  1079. X
  1080. }
  1081. X
  1082. unlink $TEMPOLD, $TEMPCUR, $TEMPNEW, $TEMPGON;
  1083. X
  1084. sub run {
  1085. X    print "running: $_[0]\n" if $debug;
  1086. X    system $_[0];
  1087. X    warn "command $_[0] returned $?" if $?;
  1088. } 
  1089. X
  1090. #  end it all....
  1091. X
  1092. 1;
  1093. SHAR_EOF
  1094. chmod 0700 beta/suid.chk ||
  1095. echo 'restore of beta/suid.chk failed'
  1096. Wc_c="`wc -c < 'beta/suid.chk'`"
  1097. test 4128 -eq "$Wc_c" ||
  1098.     echo 'beta/suid.chk: original size 4128, current size' "$Wc_c"
  1099. rm -f _shar_wnt_.tmp
  1100. fi
  1101. # ============= beta/suid.stop ==============
  1102. if test -f 'beta/suid.stop' -a X"$1" != X"-c"; then
  1103.     echo 'x - skipping beta/suid.stop (File already exists)'
  1104.     rm -f _shar_wnt_.tmp
  1105. else
  1106. > _shar_wnt_.tmp
  1107. echo 'x - extracting beta/suid.stop (Text)'
  1108. sed 's/^X//' << 'SHAR_EOF' > 'beta/suid.stop' &&
  1109. SHAR_EOF
  1110. chmod 0700 beta/suid.stop ||
  1111. echo 'restore of beta/suid.stop failed'
  1112. Wc_c="`wc -c < 'beta/suid.stop'`"
  1113. test 0 -eq "$Wc_c" ||
  1114.     echo 'beta/suid.stop: original size 0, current size' "$Wc_c"
  1115. rm -f _shar_wnt_.tmp
  1116. fi
  1117. # ============= beta/user.chk ==============
  1118. if test -f 'beta/user.chk' -a X"$1" != X"-c"; then
  1119.     echo 'x - skipping beta/user.chk (File already exists)'
  1120.     rm -f _shar_wnt_.tmp
  1121. else
  1122. > _shar_wnt_.tmp
  1123. echo 'x - extracting beta/user.chk (Text)'
  1124. sed 's/^X//' << 'SHAR_EOF' > 'beta/user.chk' &&
  1125. #!/bin/sh -- need to mention perl here to avoid recursion
  1126. 'true' || eval 'exec perl -S $0 $argv:q';
  1127. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  1128. & eval 'exec /usr/local/bin/perl -S $0 $argv:q'
  1129. X        if 0;
  1130. X
  1131. #
  1132. #  This combines user.chk and home.chk.  It searches for home directories
  1133. # and various user startup files for world writability, as well as flagging
  1134. # any .rhosts and .netrc files that are readable.  You can change the
  1135. # files checked by changing @ftable and @readables, respectively.
  1136. # 
  1137. X
  1138. #
  1139. # check for writable files in all user's homes
  1140. #
  1141. require "pass.cache.pl";
  1142. require "is_able.pl";
  1143. X
  1144. # files checked for:
  1145. @ftable = ("rhosts", "profile", "login", "logout", "cshrc",
  1146. X       "bashrc", "bash_profile", "inputrc", "screenrc",
  1147. X       "kshrc", "tcshrc", "netrc", "forward", "dbxinit",
  1148. X       "distfile", "exrc", "emacsrc", "remote", "mh_profile",
  1149. X       "xinitrc", "xsession", "Xdefaults", "Xresources", "rninit");
  1150. X
  1151. @readables = ("netrc", "rhosts");
  1152. X
  1153. local(%done);
  1154. X
  1155. # what's the point of doing a keys and using $i ??
  1156. # why not just do "for $dir (values %uname2dir) {" ????
  1157. for $i (keys %uname2dir) {
  1158. X    $dir = $uname2dir{$i};
  1159. X    #   I don't want to hear about every file in their home dir, if 
  1160. X    # is WW, but still need to check the .netrc file for readability...
  1161. X    next unless $dir;
  1162. X    next if $done{$dir}++;
  1163. X    if (-e $dir) { 
  1164. X        if (&is_able($dir, "w", "w")) {
  1165. X            for $r (@readables) {
  1166. X                if (-s "$dir/.$r") {
  1167. X                    &is_able("$dir/.$r", "w", "r");
  1168. X        }
  1169. X        }
  1170. X            next;
  1171. X    }
  1172. X        for $file (@ftable) {
  1173. X            $foo_file = $dir . "/.$file";
  1174. X            if (-e $foo_file) {
  1175. X                &is_able($foo_file, "w", "w");
  1176. X                for $r (@readables) {
  1177. X                    if ($file eq $r && -s $foo_file) {
  1178. X                        &is_able($foo_file, "w", "r");
  1179. X            }
  1180. X        }
  1181. X        }
  1182. X    }
  1183. X    }
  1184. }
  1185. X
  1186. 1;
  1187. SHAR_EOF
  1188. chmod 0700 beta/user.chk ||
  1189. echo 'restore of beta/user.chk failed'
  1190. Wc_c="`wc -c < 'beta/user.chk'`"
  1191. test 1870 -eq "$Wc_c" ||
  1192.     echo 'beta/user.chk: original size 1870, current size' "$Wc_c"
  1193. rm -f _shar_wnt_.tmp
  1194. fi
  1195. # ============= beta/yagrip.pl ==============
  1196. if test -f 'beta/yagrip.pl' -a X"$1" != X"-c"; then
  1197.     echo 'x - skipping beta/yagrip.pl (File already exists)'
  1198.     rm -f _shar_wnt_.tmp
  1199. else
  1200. > _shar_wnt_.tmp
  1201. echo 'x - extracting beta/yagrip.pl (Text)'
  1202. sed 's/^X//' << 'SHAR_EOF' > 'beta/yagrip.pl' &&
  1203. #Yet Another Getopt Routine In Perl
  1204. # jgreely@cis.ohio-state.edu, 89/11/1
  1205. #usage:
  1206. #&getopt("f:bar") ||
  1207. #    die &usage("script","f:bar","oo","[files ...]");
  1208. #
  1209. sub getopt {
  1210. X    local($_,$flag,$opt,$f,$r,@temp) = @_;
  1211. X    @temp = split(/(.):/);
  1212. X    while ($#temp >= $[) {
  1213. X        $flag .= shift(@temp);
  1214. X        $opt .= shift(@temp);
  1215. X    }
  1216. X    while ($_ = $ARGV[0], /^-(.)(.*)/ && shift(@ARGV)) {
  1217. X        ($f,$r) = ($1,$2);
  1218. X        last if $f eq '-';
  1219. X        if (index($flag,$f) >= $[) {
  1220. X            eval "\$opt_$f++;";
  1221. X            $r =~ /^(.)(.*)/,redo if $r ne '';
  1222. X        }elsif (index($opt,$f) >= $[) {
  1223. X            $r = $r eq '' ? shift(@ARGV) : $r;
  1224. X            eval "\$opt_$f = \$r;";
  1225. X        }else{
  1226. X            print STDERR "Unrecognized switch \"-$f\".\n";
  1227. X            return 0;
  1228. X        }
  1229. X    }
  1230. X    return 1;
  1231. }
  1232. X
  1233. #usage: usage:
  1234. # &usage(progname,arglist,@names,@last);
  1235. #ex:
  1236. # &usage("script","f:bar","oo","[file ...]");
  1237. #would return
  1238. # "usage: script [-f oo] [-bar] [file ...]"
  1239. #
  1240. sub usage {
  1241. X    local($prog,$_,@list) = @_;
  1242. X    local($string,$flag,@string,@temp,@last) = ();
  1243. X    @temp = split(/(.):/);
  1244. X    push(@string,"usage:",$prog);
  1245. X    while ($#temp >= $[) {
  1246. X        if (($flag = shift(@temp)) ne '') {
  1247. X            push(@string,"[-$flag]");
  1248. X        }
  1249. X        if (($flag = shift(@temp)) ne '') {
  1250. X            push(@string,sprintf("[-%s %s]",$flag,shift(@list)));
  1251. X        }
  1252. X    }
  1253. X    push(@string,@list) if $#list >= $[;
  1254. X    return join(' ',@string) . "\n";
  1255. }
  1256. 1;
  1257. SHAR_EOF
  1258. chmod 0600 beta/yagrip.pl ||
  1259. echo 'restore of beta/yagrip.pl failed'
  1260. Wc_c="`wc -c < 'beta/yagrip.pl'`"
  1261. test 1274 -eq "$Wc_c" ||
  1262.     echo 'beta/yagrip.pl: original size 1274, current size' "$Wc_c"
  1263. rm -f _shar_wnt_.tmp
  1264. fi
  1265. rm -f _shar_seq_.tmp
  1266. echo You have unpacked the last part
  1267. exit 0
  1268.