--- xtcdsubmit.pl-dist	2005-11-30 11:53:27.000000000 -0600
+++ xtcdsubmit.pl	2005-11-30 11:57:15.000000000 -0600
@@ -22,6 +22,10 @@
 # user agent for interacting with HTTP protocol
 $ua = LWP::UserAgent->new('agent' => 'XTCD/Angus', 'timeout' => 30);
 
+# use the http_proxy environment configured from xentestcd.sh
+# Nov 30 2005            Joe Ammond (joe.ammond@xxxxxxxxxxxxxxx)
+$ua->env_proxy;
+
 # function to detect if we can access the network.
 # returns true if the network is operational, else false.
 sub network_available {