home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / tools.zip / fixfiles next >
Text File  |  2011-08-17  |  305b  |  15 lines
  1. #!/opt/local/bin/kermit +
  2. for i 1 \v(argc) 1 {
  3.     if not def \&_[i] break
  4.     if link \&_[i] continue
  5.     xecho  \&_[i]...
  6.     .perms = 644
  7.     if directory \&_[i] .perms = 755
  8.     chmod \m(perms) \&_[i]
  9.     if fail exit
  10.     !chgrp kermit \&_[i]
  11.     if fail exit
  12.     echo OK
  13. }
  14. exit 0 Done.
  15.