#!/opt/bin/perl
#
# chmodder v1.0
# Released: 10/4/97
# Author  : Brent Hendricks
#

use File::Find;

$gid = getgrnam($ARGV[0]) if $#ARGV == 0;

find(\&wanted, ".");
sub wanted {
     chown $<,$gid,$_;
     if ( $File::Find::name =~ /^\.\/web/ ) {
	  chmod 02775, $_ if  -d && -o;
	  chmod 0664, $_  if !-d && -o;
     }
     else {
	  chmod 02770, $_ if  -d && -o;
	  chmod 0660, $_  if !-d && -o;
     }
}

chmod 0770, $0;