dlls/inetcpl.cpl/connections.c

   1 /*
   2  * Copyright 2018 Piotr Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  *
  18  */
  19
  20 #include <stdarg.h>
  21 #include <windef.h>
  22 #include <winbase.h>
  23 #include <winnls.h>
  24 #include <wininet.h>
  25 #include <winuser.h>
  26 #include <winreg.h>
  27
  28 #include "inetcpl.h"
  29 #include "wine/debug.h"
  30
  31 WINE_DEFAULT_DEBUG_CHANNEL(inetcpl);
  32
  33 static BOOL initdialog_done;
  34
  35 static void connections_on_initdialog(HWND hwnd)
  36 {
  37     INTERNET_PER_CONN_OPTION_LISTW list;
  38     INTERNET_PER_CONN_OPTIONW options[3];
  39     WCHAR *address, *port, *pac_url;
  40     DWORD size, flags;
  41
  42     SendMessageW(GetDlgItem(hwnd, IDC_EDIT_PAC_SCRIPT),
  43             EM_LIMITTEXT, INTERNET_MAX_URL_LENGTH, 0);
  44     SendMessageW(GetDlgItem(hwnd, IDC_EDIT_PROXY_SERVER),
  45             EM_LIMITTEXT, INTERNET_MAX_URL_LENGTH-10, 0);
  46     SendMessageW(GetDlgItem(hwnd, IDC_EDIT_PROXY_PORT), EM_LIMITTEXT, 8, 0);
  47
  48     list.dwSize = sizeof(list);
  49     list.pszConnection = NULL;
  50     list.dwOptionCount = ARRAY_SIZE(options);
  51     list.pOptions = options;
  52
  53     options[0].dwOption = INTERNET_PER_CONN_FLAGS;
  54     options[1].dwOption = INTERNET_PER_CONN_PROXY_SERVER;
  55     options[2].dwOption = INTERNET_PER_CONN_AUTOCONFIG_URL;
  56     size = sizeof(list);
  57     if(!InternetQueryOptionW(NULL, INTERNET_OPTION_PER_CONNECTION_OPTION, &list, &size))
  58         return;
  59
  60     flags = options[0].Value.dwValue;
  61     address = options[1].Value.pszValue;
  62     pac_url = options[2].Value.pszValue;
  63
  64     TRACE("flags = %lx\n", flags);
  65     TRACE("ProxyServer = %s\n", wine_dbgstr_w(address));
  66     TRACE("AutoConfigURL = %s\n", wine_dbgstr_w(pac_url));
  67
  68     if (flags & PROXY_TYPE_AUTO_DETECT)
  69         CheckDlgButton(hwnd, IDC_USE_WPAD, BST_CHECKED);
  70
  71     if(flags & PROXY_TYPE_PROXY)
  72     {
  73         CheckDlgButton(hwnd, IDC_USE_PROXY_SERVER, BST_CHECKED);
  74         EnableWindow(GetDlgItem(hwnd, IDC_EDIT_PROXY_SERVER), TRUE);
  75         EnableWindow(GetDlgItem(hwnd, IDC_EDIT_PROXY_PORT), TRUE);
  76     }
  77
  78     if(address)
  79     {
  80         port = wcschr(address, ':');
  81         if(port)
  82         {
  83             *port = 0;
  84             port++;
  85         }
  86         SetDlgItemTextW(hwnd, IDC_EDIT_PROXY_SERVER, address);
  87         if(port)
  88             SetDlgItemTextW(hwnd, IDC_EDIT_PROXY_PORT, port);
  89     }
  90
  91     if(flags & PROXY_TYPE_AUTO_PROXY_URL)
  92     {
  93         CheckDlgButton(hwnd, IDC_USE_PAC_SCRIPT, BST_CHECKED);
  94         EnableWindow(GetDlgItem(hwnd, IDC_EDIT_PAC_SCRIPT), TRUE);
  95     }
  96     if(pac_url)
  97         SetDlgItemTextW(hwnd, IDC_EDIT_PAC_SCRIPT, pac_url);
  98
  99     GlobalFree(address);
 100     GlobalFree(pac_url);
 101     return;
 102 }
 103
 104 static INT_PTR connections_on_command(HWND hwnd, WPARAM wparam)
 105 {
 106     BOOL checked;
 107
 108     switch (wparam)
 109     {
 110         case IDC_USE_PAC_SCRIPT:
 111             checked = IsDlgButtonChecked(hwnd, IDC_USE_PAC_SCRIPT);
 112             EnableWindow(GetDlgItem(hwnd, IDC_EDIT_PAC_SCRIPT), checked);
 113             break;
 114         case IDC_USE_PROXY_SERVER:
 115             checked = IsDlgButtonChecked(hwnd, IDC_USE_PROXY_SERVER);
 116             EnableWindow(GetDlgItem(hwnd, IDC_EDIT_PROXY_SERVER), checked);
 117             EnableWindow(GetDlgItem(hwnd, IDC_EDIT_PROXY_PORT), checked);
 118     }
 119
 120     switch (wparam)
 121     {
 122         case IDC_USE_WPAD:
 123         case IDC_USE_PAC_SCRIPT:
 124         case IDC_USE_PROXY_SERVER:
 125         case MAKEWPARAM(IDC_EDIT_PAC_SCRIPT, EN_CHANGE):
 126         case MAKEWPARAM(IDC_EDIT_PROXY_SERVER, EN_CHANGE):
 127         case MAKEWPARAM(IDC_EDIT_PROXY_PORT, EN_CHANGE):
 128             if(initdialog_done)
 129                 SendMessageW(GetParent(hwnd), PSM_CHANGED, (WPARAM)hwnd, 0);
 130             return TRUE;
 131     }
 132
 133     return FALSE;
 134 }
 135
 136 static INT_PTR connections_on_notify(HWND hwnd, WPARAM wparam, LPARAM lparam)
 137 {
 138     WCHAR proxy[INTERNET_MAX_URL_LENGTH];
 139     WCHAR pac_script[INTERNET_MAX_URL_LENGTH];
 140     PSHNOTIFY *psn = (PSHNOTIFY*)lparam;
 141     DWORD proxy_len, port_len, pac_script_len;
 142     INTERNET_PER_CONN_OPTION_LISTW list;
 143     INTERNET_PER_CONN_OPTIONW options[3];
 144     DWORD flags;
 145
 146     if(psn->hdr.code != PSN_APPLY)
 147         return FALSE;
 148
 149     flags = IsDlgButtonChecked(hwnd, IDC_USE_PROXY_SERVER) ? PROXY_TYPE_PROXY : PROXY_TYPE_DIRECT;
 150
 151     proxy_len = GetDlgItemTextW(hwnd, IDC_EDIT_PROXY_SERVER, proxy, ARRAY_SIZE(proxy));
 152     if(proxy_len)
 153     {
 154         proxy[proxy_len++] = ':';
 155         port_len = GetDlgItemTextW(hwnd, IDC_EDIT_PROXY_PORT, proxy+proxy_len,
 156                 ARRAY_SIZE(proxy)-proxy_len);
 157         if(!port_len)
 158         {
 159             proxy[proxy_len++] = '8';
 160             proxy[proxy_len++] = '0';
 161             proxy[proxy_len] = 0;
 162         }
 163     }
 164     else
 165     {
 166         flags = PROXY_TYPE_DIRECT;
 167     }
 168
 169     pac_script_len = GetDlgItemTextW(hwnd, IDC_EDIT_PAC_SCRIPT,
 170             pac_script, ARRAY_SIZE(pac_script));
 171     if(pac_script_len && IsDlgButtonChecked(hwnd, IDC_USE_PAC_SCRIPT))
 172         flags |= PROXY_TYPE_AUTO_PROXY_URL;
 173
 174     if(IsDlgButtonChecked(hwnd, IDC_USE_WPAD))
 175         flags |= PROXY_TYPE_AUTO_DETECT;
 176
 177     TRACE("flags = %lx\n", flags);
 178     TRACE("ProxyServer = %s\n", wine_dbgstr_w(proxy));
 179     TRACE("AutoConfigURL = %s\n", wine_dbgstr_w(pac_script));
 180
 181     list.dwSize = sizeof(list);
 182     list.pszConnection = NULL;
 183     list.dwOptionCount = ARRAY_SIZE(options);
 184     list.pOptions = options;
 185
 186     options[0].dwOption = INTERNET_PER_CONN_FLAGS;
 187     options[0].Value.dwValue = flags;
 188     options[1].dwOption = INTERNET_PER_CONN_PROXY_SERVER;
 189     options[1].Value.pszValue = proxy;
 190     options[2].dwOption = INTERNET_PER_CONN_AUTOCONFIG_URL;
 191     options[2].Value.pszValue = pac_script;
 192     return InternetSetOptionW(NULL, INTERNET_OPTION_PER_CONNECTION_OPTION, &list, sizeof(list));
 193 }
 194
 195 INT_PTR CALLBACK connections_dlgproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
 196 {
 197     switch (msg)
 198     {
 199         case WM_INITDIALOG:
 200             connections_on_initdialog(hwnd);
 201             initdialog_done = TRUE;
 202             break;
 203         case WM_COMMAND:
 204             return connections_on_command(hwnd, wparam);
 205         case WM_NOTIFY:
 206             return connections_on_notify(hwnd, wparam, lparam);
 207     }
 208     return FALSE;
 209 }