From patchwork Sat Jul 16 23:55:44 2005 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Udo Richter X-Patchwork-Id: 11947 Received: from mail.gmx.de ([213.165.64.20] helo=mail.gmx.net) by www.linuxtv.org with smtp (Exim 4.34) id 1DtwXY-00008S-N5 for vdr@linuxtv.org; Sun, 17 Jul 2005 01:57:52 +0200 Received: (qmail invoked by alias); 16 Jul 2005 23:57:21 -0000 Received: from math-ws1.mathematik.uni-kassel.de (EHLO [127.0.0.1]) [141.51.166.3] by mail.gmx.net (mp005) with SMTP; 17 Jul 2005 01:57:21 +0200 X-Authenticated: #1417946 Message-ID: <42D99E80.90106@gmx.de> Date: Sun, 17 Jul 2005 01:55:44 +0200 From: Udo Richter User-Agent: Mozilla Thunderbird 1.0+ (Windows/20050712) MIME-Version: 1.0 To: Klaus Schmidinger's VDR Subject: Re: [vdr] [ANNOUNCE] vdradmin-0.97-am3.3 References: <200507131233.35386.Andreas.Mair@linogate.com> In-Reply-To: <200507131233.35386.Andreas.Mair@linogate.com> X-Y-GMX-Trusted: 0 X-BeenThere: vdr@linuxtv.org X-Mailman-Version: 2.1.5 Precedence: list Reply-To: Klaus Schmidinger's VDR List-Id: Klaus Schmidinger's VDR List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 16 Jul 2005 23:57:52 -0000 Status: O X-Status: X-Keywords: X-UID: 3581 Hi list. The attached patch fixes the TV grab function of vdradmin-0.97-am3.2+ in case that VDR doesn't run on a root account. Cheers, Udo diff -ru vdradmin-0.97-am3.2/vdradmind.pl vdradmin-0.97-am3.2-patched/vdradmind.pl --- vdradmin-0.97-am3.2-original/vdradmind.pl 2005-05-12 10:24:16.000000000 +0200 +++ vdradmin-0.97-am3.2/vdradmind.pl 2005-05-23 16:34:39.000000000 +0200 @@ -4049,7 +4049,8 @@ ############################################################################# sub grab_picture { my $size = $q->param("size"); - my $file = new File::Temp("vdr-XXXXX", UNLINK => 1, SUFFIX => ".jpg"); + my $file = new File::Temp(TEMPLATE => "vdr-XXXXX", DIR => File::Spec->tmpdir(), UNLINK => 1, SUFFIX => ".jpg"); + chmod 0666,$file; my $maxwidth = 768; my $maxheight = 576; my($width, $height);