--- deliantra/Deliantra-Client/Client.xs 2006/09/21 00:16:42 1.155 +++ deliantra/Deliantra-Client/Client.xs 2006/10/01 18:17:37 1.158 @@ -3,6 +3,7 @@ # define _WIN32_WINNT 0x0500 // needed to get win2000 api calls # include # include +# include # 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); @@ -764,7 +795,7 @@ _exit (1); void -_exit (int retval) +_exit (int retval = 0) CODE: _exit (retval); @@ -1335,7 +1366,6 @@ } else cell->darkness = *data++ + 1; - } if (flags & 4)