--- deliantra/Deliantra-Client/DC.pm	2006/09/29 00:56:05	1.121
+++ deliantra/Deliantra-Client/DC.pm	2006/10/01 14:48:50	1.122
@@ -140,6 +140,25 @@
    print $fh to_json $::CFG;
 }
 
+sub http_proxy {
+   my @proxy = win32_proxy_info;
+
+   if (@proxy) {
+      "http://" . (@proxy < 2 ? "" : @proxy < 3 ? "$proxy[1]\@" : "$proxy[1]:$proxy[2]\@") . $proxy[0]
+   } elsif (exists $ENV{http_proxy}) {
+      $ENV{http_proxy}
+   } else {
+     ()
+   }
+}
+
+sub set_proxy {
+   my $proxy = http_proxy
+      or return;
+
+   $ENV{http_proxy} = $proxy;
+}
+
 our $DB_ENV;
 our $DB_STATE;