Discussion :

[tAKAmAkA]

Bonjour à tous,

Comment faire pour ouvrir la page de connexion en lui passant le login/mdp ?

L'idée étant d'ouvrir l'application à partir d'un lien dans un email.

Merci de votre attention

[Eaques]

Bonjour,

Il y a bien une piste avec la fonction pageparamètre

Dans le mail, tu indique le nom du site avec un lien. Dans le lien, il faut préciser le paramètre. donc par exemple : http://www.toto.com?cle="xxxx"

Dans WEBDEV, tu peux relire ce paramètre avec la fonction pageparamètre et la tu fais ce que tu veux avec la clé récupérée.

[tAKAmAkA]

Merci (avec un peu de retard)
C'est effectivement ce qu'il faut faire.
Il est préférable de crypter les paramètres à cause du mot de passe, bien sûr.
par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
PROCÉDURE PRG_UrlCrypteEncode(sP1 = "", sP2 = "", sP3 = "", sP4 = "")
sParametresAcrypter est une chaîne ANSI = ChaîneConstruit("%1|%2|%3|%4|", sP1, sP2, sP3, sP4)
Trace("En clair à crypter = " + sParametresAcrypter)
sParametresAcrypter = Crypte(sParametresAcrypter,"Ak4L9xxxxxxxxxx8K4",crypteAnsi)
//Trace("Crypte = " + sParametresAcrypter)
sParametresAcrypter = "?PARAM1=" + sParametresAcrypter
Trace("Param = " + sParametresAcrypter)
sParametresAcrypter = URLEncode(sParametresAcrypter)
Trace("URLEncode = " + sParametresAcrypter)
RENVOYER sParametresAcrypter

et un decodage dans le code du projet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sParametres est une chaîne ANSI
//trace("PageParamètre(PARAM1)  = " + PageParamètre("PARAM1"))
sParametres = URLDécode(PageParamètre("PARAM1"))
//trace("URLDécode = " + sparametres)
sParametres = Décrypte(sParametres, "Ak4L9xxxxxxxxxx8K4",crypteAnsi)
//Trace("Decrypte = " + sParametres)
SI Taille(ExtraitChaîne(sParametres,1,"|")) > 1 ALORS
    gsUtilisateur = ExtraitChaîne(sParametres,1,"|")
FIN
SI Taille(ExtraitChaîne(sParametres,2,"|")) > 1 ALORS
    gsMotDePasse = ExtraitChaîne(sParametres,2,"|")
FIN
SI Taille(ExtraitChaîne(sParametres,3,"|")) > 1 ALORS
    gsPage = ExtraitChaîne(sParametres,3,"|")
FIN
SI Taille(ExtraitChaîne(sParametres,4,"|")) > 1 ALORS
    gsParametres = ExtraitChaîne(sParametres,4,"|")
FIN