feat(apk): creer un coffre local seulement en debogage (AllowCreateLocal)
En release le telephone ne sait que reprendre le coffre du depot : l'ecran d'accueil n'offre plus que Download vault, et RegisterLocal refuse aussi. Depot vide (404) ou conteneur illisible : rien n'est cree. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
+23
@@ -27,6 +27,17 @@ unit mainApk;
|
||||
demanderait le PUT cote serveur et une fusion cote client.
|
||||
}
|
||||
|
||||
// CREER UN COFFRE SUR LE TELEPHONE : ESSAIS SEULEMENT.
|
||||
//
|
||||
// Un coffre ne ici n'existe nulle part ailleurs : le poste ne le connait pas,
|
||||
// et personne ne peut le rendre a qui perd son mot de passe. En release le
|
||||
// telephone ne sait donc que REPRENDRE le coffre du depot ; depot vide ou
|
||||
// fichier illisible, il ne se passe rien - surtout pas un coffre neuf qui
|
||||
// masquerait un reglage a corriger.
|
||||
{$IFDEF DEBUG}
|
||||
{$DEFINE AllowCreateLocal}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
@@ -563,7 +574,13 @@ begin
|
||||
else if HasLocalContainer then
|
||||
WebCall('PM.setAuthMode("login")')
|
||||
else
|
||||
{$IFDEF AllowCreateLocal}
|
||||
WebCall('PM.setAuthMode("register")');
|
||||
{$ELSE}
|
||||
// 'download' : meme ecran, sans les champs de creation - il ne reste que
|
||||
// les reglages du depot et le bouton qui va chercher le coffre.
|
||||
WebCall('PM.setAuthMode("download")');
|
||||
{$ENDIF}
|
||||
PushUnlockMode;
|
||||
|
||||
LCanOpen := HasVault and not FVaultUnreadable;
|
||||
@@ -1984,6 +2001,12 @@ end;
|
||||
procedure TForm8.RegisterLocal(const AUser, APwd: string);
|
||||
begin
|
||||
if FBusy then Exit;
|
||||
{$IFNDEF AllowCreateLocal}
|
||||
// La page ne propose plus la creation, mais la commande existe toujours :
|
||||
// elle se refuse ici aussi, pour que l'interdit ne tienne pas qu'a l'ecran.
|
||||
StatusErr('Download the vault from the repository');
|
||||
Exit;
|
||||
{$ENDIF}
|
||||
if AUser = '' then
|
||||
begin
|
||||
StatusErr('Pick a username');
|
||||
|
||||
Reference in New Issue
Block a user