home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / unix / shell / 3496 < prev    next >
Encoding:
Text File  |  1992-08-15  |  2.0 KB  |  54 lines
  1. Newsgroups: comp.unix.shell
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!nucsrl!ddsw1!dattier
  3. From: dattier@ddsw1.mcs.com (David W. Tamkin)
  4. Subject: Re: Octal chmod status
  5. Message-ID: <1992Aug16.025615.23956@ddsw1.mcs.com>
  6. Organization: Contributor Account at ddsw1, Chicago, Illinois  60657
  7. References: <17205.2219215579@kcbbs.gen.nz> <MERLYN.92Aug9093023@romulus.reed.edu> <22411@sybase.sybase.com>
  8. Date: Sun, 16 Aug 1992 02:56:15 GMT
  9. X-Disclaimer:  Material posted in this article is the sole responsibility of
  10.                 the poster and does not represent MCSNet or the system owners.
  11. Lines: 41
  12.  
  13. hsc@sybase.com (Howard Cohen) wrote in <22411@sybase.sybase.com>:
  14.  
  15. | Well, here's a brute force method I've used successfully.  This can
  16. | certainly be done in a smarter way, and it could also be made to understand
  17. | things like the sticky bit, the setuid bit, the setgid bit, etc.  I didn't
  18. | need that stuff though because I knew the files were source code.
  19. | 
  20. | ------------------------- cut here --------------------------------------
  21. | 
  22. | #!/bin/sh
  23. | 
  24. | LSPERMS=`ls -l "$1" | sed -e "s:^\([^  ][^     ]*\).*:\1:"`
  25. | USR=`echo $LSPERMS X| sed -e "s:.\(...\).*:\1:"`
  26. | GRP=`echo $LSPERMS X| sed -e "s:....\(...\).*:\1:"`
  27. | OTH=`echo $LSPERMS X| sed -e "s:.......\(...\).*:\1:"`
  28.  
  29. How about this to replace those four lines:
  30.  
  31. eval `ls -ld "$1" | sed 's/^.\(...\)\(...\)\(...\).*/USR=\1 GRP=\2 OTH=\3/'`
  32.  
  33. | PERMS=""
  34. | for elem in $USR $GRP $OTH
  35. | do
  36. |      case "$elem" in
  37. |        ---)    PERMS="${PERMS}0";;
  38. |        --x)    PERMS="${PERMS}1";;
  39. |        -w-)    PERMS="${PERMS}2";;
  40. |        -wx)    PERMS="${PERMS}3";;
  41. |        r--)    PERMS="${PERMS}4";;
  42. |        r-x)    PERMS="${PERMS}5";;
  43. |        rw-)    PERMS="${PERMS}6";;
  44. |        rwx)    PERMS="${PERMS}7";;
  45. |      esac
  46. | done
  47. | 
  48. | echo $PERMS
  49.  
  50. The rest is pretty darn clever.
  51.  
  52. David W. Tamkin   Box 59297   Northtown Station, Illinois  60659-0297
  53. dattier@ddsw1.mcs.com    CompuServe: 73720,1570    MCI Mail: 426-1818
  54.