--- deliantra/Deliantra-Client/Client.xs	2006/09/21 14:47:51	1.156
+++ deliantra/Deliantra-Client/Client.xs	2006/10/01 14:48:50	1.157
@@ -3,6 +3,7 @@
 # define _WIN32_WINNT 0x0500 // needed to get win2000 api calls
 # include <malloc.h>
 # include <windows.h>
+# include <wininet.h>
 # pragma warning(disable:4244)
 #endif
 
@@ -653,6 +654,36 @@
 #endif
 
 void
+win32_proxy_info ()
+	PPCODE:
+{
+#ifdef _WIN32
+        INTERNET_PROXY_INFO proxyinfo;
+        char buffer[2048];
+        DWORD buflen;
+
+        EXTEND (SP, 3);
+	
+        buflen = sizeof (buffer);
+        if (InternetQueryOption (0, INTERNET_OPTION_PROXY, (void *)buffer, &buflen))
+          if (((INTERNET_PROXY_INFO *)buffer)->dwAccessType == INTERNET_OPEN_TYPE_PROXY)
+            {
+              PUSHs (newSVpv (((INTERNET_PROXY_INFO *)buffer)->lpszProxy, 0));
+
+              buflen = sizeof (buffer);
+              if (InternetQueryOption (0, INTERNET_OPTION_PROXY_USERNAME, (void *)buffer, &buflen))
+                {
+                  PUSHs (newSVpv (buffer, 0));
+
+                  buflen = sizeof (buffer);
+                  if (InternetQueryOption (0, INTERNET_OPTION_PROXY_PASSWORD, (void *)buffer, &buflen))
+                    PUSHs (newSVpv (buffer, 0));
+                }
+            }
+#endif
+}
+
+void
 add_font (char *file)
 	CODE:
         FcConfigAppFontAddFile (0, (const FcChar8 *)file);