home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / validate.pl < prev    next >
Text File  |  1997-05-19  |  1KB  |  35 lines
  1. ;# $RCSfile: validate.pl,v $$Revision: 1.3 $$Date: 1997/05/19 12:32:09 $
  2.  
  3. ;# The validate routine takes a single multiline string consisting of
  4. ;# lines containing a filename plus a file test to try on it.  (The
  5. ;# file test may also be a 'cd', causing subsequent relative filenames
  6. ;# to be interpreted relative to that directory.)  After the file test
  7. ;# you may put '|| die' to make it a fatal error if the file test fails.
  8. ;# The default is '|| warn'.  The file test may optionally have a ! prepended
  9. ;# to test for the opposite condition.  If you do a cd and then list some
  10. ;# relative filenames, you may want to indent them slightly for readability.
  11. ;# If you supply your own "die" or "warn" message, you can use $file to
  12. ;# interpolate the filename.
  13.  
  14. ;# Filetests may be bunched:  -rwx tests for all of -r, -w and -x.
  15. ;# Only the first failed test of the bunch will produce a warning.
  16.  
  17. ;# The routine returns the number of warnings issued.
  18.  
  19. ;# Usage:
  20. ;#    require "validate.pl";
  21. ;#    $warnings += do validate('
  22. ;#    /vmunix            -e || die
  23. ;#    /boot            -e || die
  24. ;#    /bin            cd
  25. ;#        csh            -ex
  26. ;#        csh            !-ug
  27. ;#        sh            -ex
  28. ;#        sh            !-ug
  29. ;#    /usr            -d || warn "What happened to $file?\n"
  30. ;#    ');
  31.  
  32. use File::CheckTree;
  33.  
  34. 1;
  35.