Re: [MacPerl] Anyone deal with CGI.pm in here?

[Chris Nandor <pudge@pobox.com>]

At 15.17 -0500 1999.02.24, Walter Torres wrote:
>I made a change to my copy to deal with the temp space on my Win32 and my
>UNIX, I was thinking of adding a Mac specific directive to deal with a temp
>space, if it needed it.

Well, CGI.pm does it like this:

my ($vol) = $MAC ? MacPerl::Volumes() =~ /:(.*)/ : "";
unless ($TMPDIRECTORY) {
    @TEMP=("${SL}usr${SL}tmp","${SL}var${SL}tmp",
	   "C:${SL}temp","${SL}tmp","${SL}temp",
	   "${vol}${SL}Temporary Items",
	   "${SL}WWW_ROOT");
    unshift(@TEMP,$ENV{'TMPDIR'}) if exists $ENV{'TMPDIR'};

That is, looks in "${vol}${SL}Temporary Items", or uses $ENV{TMPDIR} if
available.  Probably, though, you are better off using the new_tmpfile()
method in IO::File.  It uses the system's tmpfile routine, and the file is
automatically unlinked when closed.

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch