autoopen-full

setenv LOG /Users/<YOURUSERNAME>/Downloads/FolderActionLog.txt
setenv OPENTHESE "pdf,png,jpg,jpeg,mp4,avi,mov,torrent"

echo "Evaluating the following files for opening on "`date` >> $LOG
echo $* >> $LOG

#This assumes that all files submitted have absolute paths
perl -e 'my @exts=split(",",shift(@ARGV));my $pat=join("|",@exts);my @fs=();foreach(@ARGV){if(m%^/%){push(@fs,$_)}else{$fs[-1].="\\ ".$_}}foreach(grep {/\.($pat)\z/i} @fs){system("open " . $_)}' $OPENTHESE $* >>& $LOG