From db4792359e5e01ebcd2d5c1914ef860d8a6bdbe1 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Date: Mon, 9 Jan 2012 22:50:35 +0100
Subject: [PATCH] fix download-dir and perm

---
 gearman/transmission.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gearman/transmission.pl b/gearman/transmission.pl
index 15a959b..220da18 100755
--- a/gearman/transmission.pl
+++ b/gearman/transmission.pl
@@ -55,9 +55,14 @@ $worker->register_function( $name . '_torrent_download' => sub {
 	my $dir = (getpwnam($user))[7] || die "no user $user";
 
 	my $to_dir = "$torrent_dir/download/$user";
-	mkdir $to_dir unless -e $to_dir;
+	if ( ! -e $to_dir ) {
+		mkdir $to_dir;
+		# fix perm
+		my ($uid,$gid) = (stat($torrent_dir))[4,5];
+		chown $uid, $gid, $to_dir;
+	}
 
-	$tc->add( filename => "$dir/$path", download_dir => $to_dir );
+	$tc->add( filename => "$dir/$path", 'download-dir' => $to_dir );
 
 	return $to_dir;
 } );
-- 
2.20.1