make server browser remember last used password for every server

addons/ui/CfgEventHandlers.hpp

@@ -6,7 +6,7 @@ class Extended_PreStart_EventHandlers {
 
 class Extended_PreInit_EventHandlers {
     class ADDON {
-        clientInit = QUOTE(call COMPILE_FILE(XEH_preClientInit));
+        init = QUOTE(call COMPILE_FILE(XEH_preInit));
     };
 };
 
@@ -20,4 +20,7 @@ class Extended_DisplayLoad_EventHandlers {
     class RscDisplayMultiplayerSetup {
         ADDON = QUOTE(_this call (uiNamespace getVariable 'FUNC(initDisplayMultiplayerSetup)'));
     };
+    class RscDisplayPassword {
+        ADDON = QUOTE(_this call (uiNamespace getVariable 'FUNC(initDisplayPassword)'));
+    };
 };

addons/ui/XEH_preInit.sqf

@@ -0,0 +1,32 @@
+#include "script_component.hpp"
+
+[
+    QGVAR(StorePasswords), "LIST",
+    [LLSTRING(StoreServerPasswords), LLSTRING(StoreServerPasswordsTooltip)],
+    LLSTRING(Category),
+    [[1, 0, -1], [
+        [LLSTRING(SavePasswords), LLSTRING(SavePasswordsTooltip)],
+        [LLSTRING(DoNotSavePasswords), LLSTRING(DoNotSavePasswordsTooltip)],
+        [LLSTRING(DeletePasswords), LLSTRING(DeletePasswordsTooltip)]
+    ], 0],
+    2,
+    {
+        if (_this isEqualTo -1) then {
+            profileNamespace setVariable [QGVAR(ServerPasswords), nil];
+        };
+
+        profileNamespace setVariable [QGVAR(StorePasswords), _this];
+        saveProfileNamespace;
+    }
+] call cba_settings_fnc_init;
+
+if (hasInterface) then {
+    call COMPILE_FILE(flexiMenu\init);
+
+    // recreate after loading a savegame
+    addMissionEventHandler ["Loaded", {
+        if (!isNil QGVAR(ProgressBarParams)) then {
+            QGVAR(ProgressBar) cutRsc [QGVAR(ProgressBar), "PLAIN"];
+        };
+    }];
+};

addons/ui/XEH_preStart.sqf

@@ -2,3 +2,4 @@
 
 PREP(initDisplayInterrupt);
 PREP(initDisplayMultiplayerSetup);
+PREP(initDisplayPassword);

addons/ui/fnc_initDisplayPassword.sqf

@@ -0,0 +1,41 @@
+#include "script_component.hpp"
+
+if (profileNamespace getVariable [QGVAR(StorePasswords), 1] < 1) exitWith {};
+
+params ["_display"];
+private _ctrlConfirm = _display displayCtrl IDC_OK;
+private _ctrlPassword = _display displayCtrl IDC_PASSWORD;
+private _ctrlServerList = (uinamespace getVariable "RscDisplayMultiplayer") displayCtrl IDC_MULTI_SESSIONS;
+
+_ctrlConfirm ctrlAddEventHandler ["ButtonClick", {
+    params ["_ctrlConfirm"];
+    private _display = ctrlParent _ctrlConfirm;
+    private _ctrlPassword = _display displayCtrl IDC_PASSWORD;
+    private _ctrlServerList = (uinamespace getVariable "RscDisplayMultiplayer") displayCtrl IDC_MULTI_SESSIONS;
+
+    private _server = _ctrlServerList lbData lbCurSel _ctrlServerList;
+    private _password = ctrlText _ctrlPassword;
+    //diag_log ["write", _server, _password];
+
+    // store password in cache
+    private _passwordCache = profileNamespace getVariable [QGVAR(ServerPasswords), [[], []]];
+    private _index = (_passwordCache select 0) find _server;
+    if (_index isEqualTo -1) then {
+        _index = (_passwordCache select 0) pushBack _server;
+    };
+    (_passwordCache select 1) set [_index, _password];
+    profileNamespace setVariable [QGVAR(ServerPasswords), _passwordCache];
+    saveProfileNamespace;
+}];
+
+private _server = _ctrlServerList lbData lbCurSel _ctrlServerList;
+
+// read password from cache
+private _passwordCache = profileNamespace getVariable [QGVAR(ServerPasswords), [[], []]];
+private _index = (_passwordCache select 0) find _server;
+private _password = (_passwordCache select 1) param [_index, ""];
+//diag_log ["read", _server, _password];
+
+if (_password != "") then {
+    _ctrlPassword ctrlSetText _password;
+};

addons/ui/stringtable.xml

@@ -29,5 +29,41 @@
             <Chinesesimp>进度条的位置。</Chinesesimp>
             <Polish>Pozycja paska postępu.</Polish>
         </Key>
+        <Key ID="STR_CBA_Ui_Category">
+            <English>CBA UI</English>
+            <German>CBA UI</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_StoreServerPasswords">
+            <English>Store server passwords</English>
+            <German>Serverpasswörter speichern</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_StoreServerPasswordsTooltip">
+            <English>Setting to store the passwords entered when connecting to a multiplayer server.</English>
+            <German>Einstellung zum Speichern der beim Betreten eines Mehrspielerservers eingegebenen Passwörter.</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_SavePasswords">
+            <English>Save passwords</English>
+            <German>Passwörter speichern</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_SavePasswordsTooltip">
+            <English>Passwords are stored when connecting to a multiplayer server.</English>
+            <German>Passwörter werden beim Verbinden mit einem Mehrspielerserver gespeichert.</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_DoNotSavePasswords">
+            <English>Do not save passwords</English>
+            <German>Passwörter nicht speichern</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_DoNotSavePasswordsTooltip">
+            <English>Passwords are not stored when connecting to a multiplayer server. Already stored passwords will not be automatically entered.</English>
+            <German>Passwörter werden beim Verbinden mit einem Mehrspielerserver nicht gespeichert. Bereits gespeicherte Passwörter werden nicht automatisch eingegeben.</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_DeletePasswords">
+            <English>Delete passwords</English>
+            <German>Passwörter löschen</German>
+        </Key>
+        <Key ID="STR_CBA_Ui_DeletePasswordsTooltip">
+            <English>Passwords are not stored when connecting to a multiplayer server. Already stored passwords are deleted from the profile.</English>
+            <German>Passwörter werden beim Verbinden mit einem Mehrspielerserver nicht gespeichert. Bereits gespeicherte Passwörter werden aus dem Profil gelöscht.</German>
+        </Key>
     </Package>
 </Project>