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 / chk_strings next >
Text File  |  1992-03-10  |  1KB  |  48 lines
  1. #!/bin/sh  # need to mention perl here to avoid recursion
  2. #
  3. #  Usage: chk_strings filename
  4. #
  5. #  This will check pathnames inside executable files for writability,
  6. # The big string "@ignores" is a list of files that are ignored by
  7. # this; you can set it to whatever you want -- default is:
  8. # '^/tmp/?' and '^/(var|usr)/tmp/?'
  9. # 
  10. #  No program root EVER runs should be show up here.
  11. #
  12. # NOTE:
  13. #   If you know where perl is and your system groks #!, put its
  14. # pathname at the top to make this a tad faster.
  15. #
  16. # the following magic is from the perl man page
  17. # and should work to get us to run with perl 
  18. # even if invoked as an sh or csh or foosh script.
  19. # notice we don't use full path cause we don't
  20. # know where the user has perl on their system.
  21. #
  22. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' 
  23. & eval 'exec perl -S $0 $argv:q'
  24.     if $running_under_some_stupid_shell_instead_of_perl;
  25.  
  26. package main;
  27.  
  28. $| = 1;
  29.  
  30. require 'getopts.pl';
  31. require 'chk_strings.pl';
  32.  
  33. die "Usage: $0 [-rd] file ...\n" unless &Getopts('rd') && @ARGV;
  34.  
  35. package chk_strings;
  36.  
  37. $debug = $'opt_d;
  38. $recurse = $'opt_r;
  39. @ignores = ( '^/tmp/?', '^/(var|usr)/tmp/?' )
  40.     unless defined @ignores;
  41.  
  42. #%paths = ();  # faster than local
  43.  
  44. for (@'ARGV) { 
  45.     (warn("$0: $_: $!\n"), next) unless -e;
  46.     &'chk_strings($_); 
  47. } 
  48.