Alexandre Julliard : Revert "winetest: Let the scripts autodetect the work directory."

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 80227edd9887f6ca1bde397ec9199298ec41bcaf
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=80227edd9887f6ca1bde397ec9199298ec41bcaf

Author: Alexandre Julliard <julliard at winehq.org>
Date:   Thu Jun  8 16:17:34 2017 +0200

Revert "winetest: Let the scripts autodetect the work directory."

This reverts commit c9170c8554a3837712b40f529c56165bbbc9f347.
It doesn't work with the Apache configuration on the WineHQ server.

Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 winetest/INSTALL.txt   |  1 +
 winetest/build-errors  | 10 ++--------
 winetest/build-index   | 13 +++----------
 winetest/dissect       | 13 +++----------
 winetest/gather        | 14 ++++----------
 winetest/winetest.conf |  2 ++
 6 files changed, 15 insertions(+), 38 deletions(-)

diff --git a/winetest/INSTALL.txt b/winetest/INSTALL.txt
index b10788c..d13d1cf 100644
--- a/winetest/INSTALL.txt
+++ b/winetest/INSTALL.txt
@@ -32,6 +32,7 @@ Read-only source code account:
   should be available as $HOME/tools/winetest/INSTALL.txt).
     git clone git://source.winehq.org/git/tools.git
 - Edit $HOME/tools/winetest/winetest.conf to set:
+    $workdir = "/home/winehq/sites/winetest";
     $gitdir = "/home/wine/wine.git";
 
 Web site account:
diff --git a/winetest/build-errors b/winetest/build-errors
index f41824f..2d25ae3 100755
--- a/winetest/build-errors
+++ b/winetest/build-errors
@@ -33,7 +33,8 @@ sub BEGIN
     }
     unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
 }
-
+use vars qw/$workdir/;
+require "winetest.conf";
 
 my $name0=$0;
 $name0 =~ s+^.*/++;
@@ -62,13 +63,6 @@ sub long_date($)
 # Generate a table of the errors encountered during processing
 #
 
-require Cwd;
-my $workdir = Cwd::cwd();
-if (!-f "$workdir/report.css")
-{
-    error("'$workdir' is not a valid work directory\n");
-    exit 2;
-}
 chdir($workdir) or die "could not chdir to the work directory: $!";
 
 my @errors;
diff --git a/winetest/build-index b/winetest/build-index
index dc413cd..dcd9795 100755
--- a/winetest/build-index
+++ b/winetest/build-index
@@ -34,7 +34,7 @@ sub BEGIN
     }
     unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
 }
-use vars qw/$gitdir $gitweb/;
+use vars qw/$workdir $gitdir $gitweb/;
 require "winetest.conf";
 
 my $name0=$0;
@@ -62,11 +62,11 @@ sub get_build_info($)
     {
         ($date, $subject) = ($1, $2);
         # Make sure the directory's mtime matches the commit time
-        utime $date, $date, "data/$build";
+        utime $date, $date, "$workdir/data/$build";
     }
     else
     {
-        $date = (stat "data/$build")[9];
+        $date = (stat "$workdir/data/$build")[9];
         $subject = "";
     }
     return ($date, $subject);
@@ -113,13 +113,6 @@ my @groups = (\%w95, \%w98, \%me, \%nt3, \%nt4, \%w2k, \%xp, \%w2k3, \%vista, \%
 # Grab the build list and archive the old results
 #
 
-require Cwd;
-my $workdir = Cwd::cwd();
-if (!-f "$workdir/report.css")
-{
-    error("'$workdir' is not a valid work directory\n");
-    exit 2;
-}
 chdir($workdir) or die "could not chdir to the work directory: $!";
 
 my @builds;
diff --git a/winetest/dissect b/winetest/dissect
index 1e4a5fe..99e50fb 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -48,7 +48,7 @@ sub BEGIN
     }
     unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
 }
-use vars qw/$gitdir $gitweb $maxmult $maxuserskips $maxfailedtests $maxfilesize $acceptprediluvianwin/;
+use vars qw/$workdir $gitdir $gitweb $maxmult $maxuserskips $maxfailedtests $maxfilesize $acceptprediluvianwin/;
 require "winetest.conf";
 
 my $name0=$0;
@@ -81,11 +81,11 @@ sub get_build_info($)
     {
         ($date, $subject) = ($1, $2);
         # Make sure the directory's mtime matches the commit time
-        utime $date, $date, "data/$build";
+        utime $date, $date, "$workdir/data/$build";
     }
     else
     {
-        $date = (stat "data/$build")[9];
+        $date = (stat "$workdir/data/$build")[9];
         $subject = "";
     }
     return ($date, $subject);
@@ -105,13 +105,6 @@ sub short_date($)
 # Command line processing
 #
 
-require Cwd;
-my $workdir = Cwd::cwd();
-if (!-f "$workdir/report.css")
-{
-    error("'$workdir' is not a valid work directory\n");
-    exit 2;
-}
 chdir($workdir) or die "could not chdir to the work directory: $!";
 
 my ($update, $report);
diff --git a/winetest/gather b/winetest/gather
index 28227a3..94f3541 100755
--- a/winetest/gather
+++ b/winetest/gather
@@ -45,7 +45,7 @@ sub BEGIN
     }
     unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
 }
-use vars qw/$gitdir $gitweb/;
+use vars qw/$workdir $gitdir $gitweb/;
 require "winetest.conf";
 
 my $name0=$0;
@@ -76,11 +76,11 @@ sub get_build_info($)
     {
         ($date, $subject) = ($1, $2);
         # Make sure the directory's mtime matches the commit time
-        utime $date, $date, "data/$build";
+        utime $date, $date, "$workdir/data/$build";
     }
     else
     {
-        $date = (stat "data/$build")[9];
+        $date = (stat "$workdir/data/$build")[9];
         $subject = "";
     }
     return ($date, $subject);
@@ -175,13 +175,7 @@ my %idmap = (95=>\%w95, 98=>\%w98, me=>\%me, nt3=>\%nt3, nt4=>\%nt4, 2000=>\%w2k
 # Pick a build to work on
 #
 
-require Cwd;
-my $workdir = Cwd::cwd();
-if (!-f "$workdir/report.css")
-{
-    error("'$workdir' is not a valid work directory\n");
-    exit 2;
-}
+
 chdir($workdir) or die "could not chdir to the work directory: $!";
 
 my ($outdated,undef) = glob "data/*/outdated";
diff --git a/winetest/winetest.conf b/winetest/winetest.conf
index 0d35d11..ba15514 100644
--- a/winetest/winetest.conf
+++ b/winetest/winetest.conf
@@ -1,5 +1,7 @@
 # Hey Emacs! This is a -*-cperl-*- file!
 
+$workdir = "/home/winehq/opt/winetest";
+
 $gitdir = "/home/winehq/opt/source/git/wine.git";
 $gitweb = "//source.winehq.org/git/wine.git";