[Xorg] Xorg Tinderbox & firewalls

[Alan Coopersmith]

In order to get tinderbox running through our firewall (which requires
http proxy servers for http and socks proxies for cvs) I had to make
two simple changes to the tinderbox scripts.

The first I think is safe to go in the default since it simply checks
the environment for http_proxy settings:

--- /net/alf/export/alanc/X.org/tb/tinderclient/tinderclient.pl Mon Mar  8 12:10:25 2004
+++ ./tinderclient.pl   Sun Jul 25 22:13:41 2004
@@ -204,6 +204,7 @@
    $this->{MACHINE_NAME} = $machine_name;
    # The user agent object
    $this->{UA} = new LWP::UserAgent;
+       $this->{UA}->env_proxy();
    $this->{UA}->agent("TinderboxClient/" . $TinderClient::PROTOCOL_VERSION);
    # the tinderclient.log out
    $this->{LOG_OUT} = undef;

The second should probably be made configurable if it's added to the files
in CVS, otherwise just noted in the instructions for anyone who wants to do
this, since it adds "runsocks" to the CVS commands:

--- /net/alf/export/alanc/X.org/tb/tinderclient/TinderClientModules/XMonolithic.pm      Sat Jul 17 13:21:56 2004
+++ ./TinderClientModules/XMonolithic.pm        Sun Jul 25 22:14:21 2004
@@ -45,11 +45,11 @@
         $hostdef = $hostdef . "#define CcCmd ccache gcc\n";
         $hostdef = $hostdef . "#define CplusplusCmd ccache g++\n";
      }

      # Build the cvs checkout cmd - note, the cvsroot variable must be set in the
      # Tinderbox.
-    $checkout_cmd = "cvs -z3 -d $cvsroot co -P ";
-    $update_cmd = "cvs -z3 -d $cvsroot update -P ";
+    $checkout_cmd = "runsocks cvs -z3 -d $cvsroot co -P ";
+    $update_cmd = "runsocks cvs -z3 -d $cvsroot update -P ";

      if ($branch) {
         $checkout_cmd .= "-r$branch ";


-- 
	-Alan Coopersmith-           alan.coopersmith at sun.com
	 Sun Microsystems, Inc. - X Window System Engineering