#!/usr/bin/perl -w
use strict;
use Getopt::Long;
use File::Find;

my %opts = (
	verbose => '', 
	directory => './', 
	filemode => '', 
	dirmode => ''
);

if(!GetOptions('verbose' => \$opts{'verbose'},
					'filemode:s' => \$opts{'filemode'},
					'dirmode:s' => \$opts{'dirmode'})) {
	usagedie();
}
#make sure each argument passed is either a file or directory
foreach (@ARGV) {
	usagedie() if (!-f || !-d);
}
#we need to perform at least one option
usagedie() if (!$opts{'filemode'} && !$opts{'dirmode'});

#use default directory if argument not set on command line
find(\&fileop, $opts{'directory'}) unless @ARGV;
find(\&fileop, @ARGV) if @ARGV;

sub fileop {
	#set the right permissions based on if a file or a directory
	#only set permissions of the mode is set
	chmod oct($opts{'filemode'}), $_ if -f && $opts{'filemode'};
	chmod oct($opts{'dirmode'}), $_ if -d && $opts{'dirmode'};
	print $File::Find::name . "\n" if $opts{'verbose'} && (-f || -d);
}

sub usagedie {
	print "Usage: setperm.pl [-v] [-f perm] [-d perm] [Directory]\n";
	print "-v, --verbose\t show files changed by script\n";
	print "-f, --filemode\t octal mode to change files to\n";
	print "-d, --dirmode\t octal mode to change directories to\n";
	exit(0);
}