1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
//Récupération de tous les paramètres de la page
I est un entier=1
gsTemp=PageParamètre(I)
TANTQUE gsTemp<>"" ET gsTemp<>EOT
SI gsChaine<>"" ALORS
gsChaine+="&"
FIN
gsChaine+=gsTemp
I++
gsTemp=PageParamètre(I)
FIN
gsChaine="https://www.sandbox.paypal.com/cgi-bin/webscr?"+gsChaine
SI PAS gbBKO ALORS
//Vérifier que l'identifiant unique est bien unique
HLitRecherchePremier(Transactions_Paypal,ID_Transaction,gsUnikID)
SI HTrouve(Transactions_Paypal) ALORS
gsMessage="Erreur ID Duppliqué"
gbBKO=Vrai
FIN
FIN
//Envoi d'une requête au site paypal pour valider la transaction
SI PAS gbBKO ALORS
SI HTTPRequête(URLEncode(gsChaine)) ALORS
// INFO(gsCustom,gsChaine,HTTPDonneRésultat(HTTPRésultat))
SI Majuscule(HTTPDonneRésultat(httpRésultat))<>"VERIFIED" ALORS
gsMessage="RESULTAT : "+HTTPDonneRésultat(httpRésultat)
gbBKO=Vrai
FIN
SINON
gsMessage="ERREUR HTTP REQUETE"
gbBKO=Vrai
FIN
FIN |
