From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/15297
Path: main.gmane.org!not-for-mail
From: Hans Hagen <pragma@wxs.nl>
Newsgroups: gmane.comp.tex.context
Subject: wrong patch
Date: Tue, 01 Jun 2004 21:19:19 +0200
Sender: ntg-context-admin@ntg.nl
Message-ID: <6.1.1.1.2.20040601211313.01b27780@server-1>
Reply-To: ntg-context@ntg.nl
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
X-Trace: sea.gmane.org 1086117900 28294 80.91.224.253 (1 Jun 2004 19:25:00 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 1 Jun 2004 19:25:00 +0000 (UTC)
Original-X-From: ntg-context-admin@ntg.nl Tue Jun 01 21:24:45 2004
Return-path: <ntg-context-admin@ntg.nl>
Original-Received: from ref.vet.uu.nl ([131.211.172.13] helo=ref.ntg.nl)
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1BVEsO-0002UO-00
	for <gctc-ntg-context-518@gmane.org>; Tue, 01 Jun 2004 21:24:44 +0200
Original-Received: from ref.ntg.nl (localhost.localdomain [127.0.0.1])
	by ref.ntg.nl (Postfix) with ESMTP
	id 904CB10BAC; Tue,  1 Jun 2004 21:19:49 +0200 (MEST)
Original-Received: from mailrelay01.solcon.nl (maillb.solcon.nl [212.45.32.200])
	by ref.ntg.nl (Postfix) with ESMTP id 2D0E310BAC
	for <ntg-context@ntg.nl>; Tue,  1 Jun 2004 21:15:48 +0200 (MEST)
Original-Received: from server-1.pragma-net.nl (dsl-212-84-128-085.solcon.nl [212.84.128.85])
	by mailrelay01.solcon.nl (8.12.11/SQL-8.12.11-5/8.12.11) with ESMTP id i51JKYka029898
	for <ntg-context@ntg.nl>; Tue, 1 Jun 2004 21:20:34 +0200
Original-Received: by server-1.pragma-net.nl (Postfix, from userid 65534)
	id 62C6214B56; Tue,  1 Jun 2004 21:20:39 +0200 (CEST)
Original-Received: from laptop-3.wxs.nl (unknown [10.100.1.191])
	by server-1.pragma-net.nl (Postfix) with ESMTP id 7C2B614B56
	for <ntg-context@ntg.nl>; Tue,  1 Jun 2004 19:20:37 +0000 (UTC)
X-Sender: hagen-mail@server-1
X-Mailer: QUALCOMM Windows Eudora Version 6.1.1.1
Original-To: ntg-context@ntg.nl
X-Virus-Scanned: clamd / ClamAV version 0.70, clamav-milter version 0.70j
Errors-To: ntg-context-admin@ntg.nl
X-BeenThere: ntg-context@ntg.nl
X-Mailman-Version: 2.0.13
Precedence: bulk
List-Help: <mailto:ntg-context-request@ntg.nl?subject=help>
List-Post: <mailto:ntg-context@ntg.nl>
List-Subscribe: <http://www.ntg.nl/mailman/listinfo/ntg-context>,
	<mailto:ntg-context-request@ntg.nl?subject=subscribe>
List-Id: mailing list for ConTeXt users <ntg-context.ntg.nl>
List-Unsubscribe: <http://www.ntg.nl/mailman/listinfo/ntg-context>,
	<mailto:ntg-context-request@ntg.nl?subject=unsubscribe>
List-Archive: <http://www.ntg.nl/pipermail/ntg-context/>
Xref: main.gmane.org gmane.comp.tex.context:15297
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:15297

Hi,

The previous post was wrong; I was playing with write tests recently and 
send an old fragment; the right one is:

sub RunFiles {
my $currentpath = cwd() ;
# test if current path is writable
if (! -w "$currentpath") {
     print " current path readonly : $currentpath\n";
     if ($ENV["TEMP"] && -e $ENV["TEMP"]) {
         $RunPath = $ENV["TEMP"] ;
     } elsif ($ENV["TMP"] && -e $ENV["TMP"]) {
         $RunPath = $ENV["TMP"] ;
     }
}
# test if we need to change paths
if (($RunPath ne "") && (-w "$RunPath")) {
     print "      changing to path : $RunPath\n";
     $InpPath = $currentpath ;
     chdir ($RunPath) ;
}
# start working
     if ($PdfArrange) {


Hans


-------------------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE/POD/CTS
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------