head	1.2;
access;
symbols
	ePerl_2_2_14:1.1.1.1 RSE:1.1.1;
locks; strict;
comment	@# @;


1.2
date	99.05.02.15.21.07;	author rse;	state dead;
branches;
next	1.1;

1.1
date	99.05.02.14.43.39;	author rse;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	99.05.02.14.43.39;	author rse;	state Exp;
branches;
next	;


desc
@@


1.2
log
@*** empty log message ***
@
text
@#!/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##
@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@Import of ePerl 2.2.14
@
text
@@