File: fixperm

package info (click to toggle)
eperl 2.2.14-21
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,304 kB
  • ctags: 738
  • sloc: ansic: 4,694; perl: 584; sh: 556; makefile: 353
file content (31 lines) | stat: -rwxr-xr-x 663 bytes parent folder | download | duplicates (22)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/bin/sh
##
##  fixperm -- Fix File Permission inside Sourcetree
##  Copyright (c) Ralf S. Engelschall, All Rights Reserved.
##

for p in $*; do
    for file in `find $p -depth -print`; do
    	if [ -f $file ]; then
    	    if [ -x $file ]; then
    	        echo "    $file (FILE/EXEC)"
    			chmod 775 $file
				chown rse.users $file
    		else
    	        echo "    $file (FILE/REGULAR)"
    			chmod 664 $file
				chown rse.users $file
    		fi
    		continue
    	fi
    	if [ -d $file ]; then
    	    echo "    $file (DIR)"
    		chmod 775 $file
		    chown rse.users $file
    		continue
    	fi
    	echo "    $file (UNKNOWN)"
    done
done

##EOF##