Alexandre Julliard : Revert "winetest: Get the work directory directly from the web server."
Alexandre Julliard
julliard at winehq.org
Thu Jun 8 15:53:53 CDT 2017
Module: tools
Branch: master
Commit: 02c466dd9c3f8cefdbf7f03cfca1f2fce99e4eae
URL: http://source.winehq.org/git/tools.git/?a=commit;h=02c466dd9c3f8cefdbf7f03cfca1f2fce99e4eae
Author: Alexandre Julliard <julliard at winehq.org>
Date: Thu Jun 8 16:18:01 2017 +0200
Revert "winetest: Get the work directory directly from the web server."
This reverts commit 0708ab216e005ae740a5346ca6ae1bb308cbe6a5.
It doesn't work with the Apache configuration on the WineHQ server.
Signed-off-by: Alexandre Julliard <julliard at winehq.org>
---
winetest/vhost_winetest.conf | 1 -
winetest/winetest.cgi | 6 +++---
2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/winetest/vhost_winetest.conf b/winetest/vhost_winetest.conf
index 6d72ccc..797aac3 100644
--- a/winetest/vhost_winetest.conf
+++ b/winetest/vhost_winetest.conf
@@ -17,7 +17,6 @@
BEGIN
{
unshift @INC, "/home/wine/tools/winetest";
- $::workdir = "/home/winehq/sites/winetest";
}
</Perl>
diff --git a/winetest/winetest.cgi b/winetest/winetest.cgi
index a2aebef..9a4ad71 100755
--- a/winetest/winetest.cgi
+++ b/winetest/winetest.cgi
@@ -18,7 +18,7 @@
use strict;
use warnings;
-use vars qw/$maxfilesize/;
+use vars qw/$workdir $maxfilesize/;
BEGIN {
require "winetest.conf";
@@ -29,7 +29,7 @@ use File::Temp qw(tempdir);
use CGI qw(:standard);
# Cater for some overhead
$CGI::POST_MAX = $maxfilesize + 1024;
-$ENV{TMPDIR} = "$::workdir/queue";
+$ENV{TMPDIR} = "$workdir/queue";
my $name = param ("reportfile");
my $error = cgi_error ();
@@ -47,7 +47,7 @@ sub move_file($)
{
my ($filename) = @_;
my $orig = tmpFileName($filename);
- my $tmpdir = tempdir ("repXXXXX", DIR => "$::workdir/queue");
+ my $tmpdir = tempdir ("repXXXXX", DIR => "$workdir/queue");
chmod 0777, $tmpdir;
chmod 0666&~umask, $orig;
my $size = -s $orig;
More information about the wine-cvs
mailing list