dolibarr 20.0.0
paybox.lib.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2008-2009 Laurent Destailleur <eldy@users.sourceforge.net>
3 * Copyright (C) 2005-2007 Regis Houssin <regis.houssin@inodbox.com>
4 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 3 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <https://www.gnu.org/licenses/>.
18 */
19
40function print_paybox_redirect($PRICE, $CURRENCY, $EMAIL, $urlok, $urlko, $TAG)
41{
42 global $conf, $langs, $db;
43
44 dol_syslog("Paybox.lib::print_paybox_redirect", LOG_DEBUG);
45
46 // Clean parameters
47 $PBX_IDENTIFIANT = "2"; // Identifiant pour v2 test
48 if (getDolGlobalString('PAYBOX_PBX_IDENTIFIANT')) {
49 $PBX_IDENTIFIANT = getDolGlobalString('PAYBOX_PBX_IDENTIFIANT');
50 }
51 $IBS_SITE = "1999888"; // Site test
52 if (getDolGlobalString('PAYBOX_IBS_SITE')) {
53 $IBS_SITE = getDolGlobalString('PAYBOX_IBS_SITE');
54 }
55 $IBS_RANG = "99"; // Rang test
56 if (getDolGlobalString('PAYBOX_IBS_RANG')) {
57 $IBS_RANG = getDolGlobalString('PAYBOX_IBS_RANG');
58 }
59 $IBS_DEVISE = "840"; // Currency (Dollar US by default)
60 if ($CURRENCY == 'EUR') {
61 $IBS_DEVISE = "978";
62 }
63 if ($CURRENCY == 'USD') {
64 $IBS_DEVISE = "840";
65 }
66
67 $URLPAYBOX = "";
68 if ($conf->global->PAYBOX_CGI_URL_V1) {
69 $URLPAYBOX = getDolGlobalString('PAYBOX_CGI_URL_V1');
70 }
71 if ($conf->global->PAYBOX_CGI_URL_V2) {
72 $URLPAYBOX = getDolGlobalString('PAYBOX_CGI_URL_V2');
73 }
74
75 if (empty($IBS_DEVISE)) {
76 dol_print_error(null, "Paybox setup param PAYBOX_IBS_DEVISE not defined");
77 return -1;
78 }
79 if (empty($URLPAYBOX)) {
80 dol_print_error(null, "Paybox setup param PAYBOX_CGI_URL_V1 and PAYBOX_CGI_URL_V2 undefined");
81 return -1;
82 }
83 if (empty($IBS_SITE)) {
84 dol_print_error(null, "Paybox setup param PAYBOX_IBS_SITE not defined");
85 return -1;
86 }
87 if (empty($IBS_RANG)) {
88 dol_print_error(null, "Paybox setup param PAYBOX_IBS_RANG not defined");
89 return -1;
90 }
91
92 $conf->global->PAYBOX_HASH = 'sha512';
93
94 // Definition des parameters vente produit pour paybox
95 $IBS_CMD = $TAG;
96 $IBS_TOTAL = $PRICE * 100; // En centimes
97 $IBS_MODE = 1; // Mode formulaire
98 $IBS_PORTEUR = $EMAIL;
99 $IBS_RETOUR = "montant:M;ref:R;auto:A;trans:T"; // Format of the validation GET parameter in reply (url to define for paybox)
100 $IBS_TXT = ' '; // Use a space
101 $IBS_EFFECTUE = $urlok;
102 $IBS_ANNULE = $urlko;
103 $IBS_REFUSE = $urlko;
104 $IBS_BKGD = "#FFFFFF";
105 $IBS_WAIT = "2000";
106 $IBS_LANG = "GBR"; // By default GBR=English (FRA, GBR, ESP, ITA et DEU...)
107 if (preg_match('/^FR/i', $langs->defaultlang)) {
108 $IBS_LANG = "FRA";
109 }
110 if (preg_match('/^ES/i', $langs->defaultlang)) {
111 $IBS_LANG = "ESP";
112 }
113 if (preg_match('/^IT/i', $langs->defaultlang)) {
114 $IBS_LANG = "ITA";
115 }
116 if (preg_match('/^DE/i', $langs->defaultlang)) {
117 $IBS_LANG = "DEU";
118 }
119 if (preg_match('/^NL/i', $langs->defaultlang)) {
120 $IBS_LANG = "NLD";
121 }
122 if (preg_match('/^SE/i', $langs->defaultlang)) {
123 $IBS_LANG = "SWE";
124 }
125 $IBS_OUTPUT = 'E';
126 $PBX_SOURCE = 'HTML';
127 $PBX_TYPEPAIEMENT = 'CARTE';
128 $PBX_HASH = getDolGlobalString('PAYBOX_HASH');
129 $PBX_TIME = dol_print_date(dol_now(), 'dayhourrfc', 'gmt');
130
131 $msg = "PBX_IDENTIFIANT=".$PBX_IDENTIFIANT.
132 "&PBX_MODE=".$IBS_MODE.
133 "&PBX_SITE=".$IBS_SITE.
134 "&PBX_RANG=".$IBS_RANG.
135 "&PBX_TOTAL=".$IBS_TOTAL.
136 "&PBX_DEVISE=".$IBS_DEVISE.
137 "&PBX_CMD=".$IBS_CMD.
138 "&PBX_PORTEUR=".$IBS_PORTEUR.
139 "&PBX_RETOUR=".$IBS_RETOUR.
140 "&PBX_EFFECTUE=".$IBS_EFFECTUE.
141 "&PBX_ANNULE=".$IBS_ANNULE.
142 "&PBX_REFUSE=".$IBS_REFUSE.
143 "&PBX_TXT=".$IBS_TXT.
144 "&PBX_BKGD=".$IBS_BKGD.
145 "&PBX_WAIT=".$IBS_WAIT.
146 "&PBX_LANGUE=".$IBS_LANG.
147 "&PBX_OUTPUT=".$IBS_OUTPUT.
148 "&PBX_SOURCE=".$PBX_SOURCE.
149 "&PBX_TYPEPAIEMENT=".$PBX_TYPEPAIEMENT;
150 // "&PBX_HASH=".$PBX_HASH;
151 // "&PBX_TIME=".$PBX_TIME;
152
153 $binKey = pack("H*", dol_decode($conf->global->PAYBOX_HMAC_KEY));
154
155 $hmac = strtoupper(hash_hmac($PBX_HASH, $msg, $binKey));
156
157
158 dol_syslog("Soumission Paybox", LOG_DEBUG);
159 dol_syslog("IBS_MODE: $IBS_MODE", LOG_DEBUG);
160 dol_syslog("IBS_SITE: $IBS_SITE", LOG_DEBUG);
161 dol_syslog("IBS_RANG: $IBS_RANG", LOG_DEBUG);
162 dol_syslog("IBS_TOTAL: $IBS_TOTAL", LOG_DEBUG);
163 dol_syslog("IBS_DEVISE: $IBS_DEVISE", LOG_DEBUG);
164 dol_syslog("IBS_CMD: $IBS_CMD", LOG_DEBUG);
165 dol_syslog("IBS_PORTEUR: $IBS_PORTEUR", LOG_DEBUG);
166 dol_syslog("IBS_RETOUR: $IBS_RETOUR", LOG_DEBUG);
167 dol_syslog("IBS_EFFECTUE: $IBS_EFFECTUE", LOG_DEBUG);
168 dol_syslog("IBS_ANNULE: $IBS_ANNULE", LOG_DEBUG);
169 dol_syslog("IBS_REFUSE: $IBS_REFUSE", LOG_DEBUG);
170 dol_syslog("IBS_BKGD: $IBS_BKGD", LOG_DEBUG);
171 dol_syslog("IBS_WAIT: $IBS_WAIT", LOG_DEBUG);
172 dol_syslog("IBS_LANG: $IBS_LANG", LOG_DEBUG);
173 dol_syslog("IBS_OUTPUT: $IBS_OUTPUT", LOG_DEBUG);
174 dol_syslog("PBX_IDENTIFIANT: $PBX_IDENTIFIANT", LOG_DEBUG);
175 dol_syslog("PBX_SOURCE: $PBX_SOURCE", LOG_DEBUG);
176 dol_syslog("PBX_TYPEPAIEMENT: $PBX_TYPEPAIEMENT", LOG_DEBUG);
177 dol_syslog("PBX_HASH: $PBX_HASH", LOG_DEBUG);
178 dol_syslog("PBX_TIME: $PBX_TIME", LOG_DEBUG);
179
180 top_httphead();
181
182 print '<html>'."\n";
183 print '<head>'."\n";
184 print '</head>'."\n";
185 print '<body>'."\n";
186 print "\n";
187
188 // Formulaire pour module Paybox
189 print '<form action="'.$URLPAYBOX.'" NAME="Submit" method="POST">'."\n";
190
191 // For Paybox V2 (PBX_xxx)
192 print '<!-- Param for Paybox v2 -->'."\n";
193 print '<input type="hidden" name="PBX_IDENTIFIANT" value="'.$PBX_IDENTIFIANT.'">'."\n";
194 print '<input type="hidden" name="PBX_MODE" value="'.$IBS_MODE.'">'."\n";
195 print '<input type="hidden" name="PBX_SITE" value="'.$IBS_SITE.'">'."\n";
196 print '<input type="hidden" name="PBX_RANG" value="'.$IBS_RANG.'">'."\n";
197 print '<input type="hidden" name="PBX_TOTAL" value="'.$IBS_TOTAL.'">'."\n";
198 print '<input type="hidden" name="PBX_DEVISE" value="'.$IBS_DEVISE.'">'."\n";
199 print '<input type="hidden" name="PBX_CMD" value="'.$IBS_CMD.'">'."\n";
200 print '<input type="hidden" name="PBX_PORTEUR" value="'.$IBS_PORTEUR.'">'."\n";
201 print '<input type="hidden" name="PBX_RETOUR" value="'.$IBS_RETOUR.'">'."\n";
202 print '<input type="hidden" name="PBX_EFFECTUE" value="'.$IBS_EFFECTUE.'">'."\n";
203 print '<input type="hidden" name="PBX_ANNULE" value="'.$IBS_ANNULE.'">'."\n";
204 print '<input type="hidden" name="PBX_REFUSE" value="'.$IBS_REFUSE.'">'."\n";
205 print '<input type="hidden" name="PBX_TXT" value="'.$IBS_TXT.'">'."\n";
206 print '<input type="hidden" name="PBX_BKGD" value="'.$IBS_BKGD.'">'."\n";
207 print '<input type="hidden" name="PBX_WAIT" value="'.$IBS_WAIT.'">'."\n";
208 print '<input type="hidden" name="PBX_LANGUE" value="'.$IBS_LANG.'">'."\n";
209 print '<input type="hidden" name="PBX_OUTPUT" value="'.$IBS_OUTPUT.'">'."\n";
210 print '<input type="hidden" name="PBX_SOURCE" value="'.$PBX_SOURCE.'">'."\n";
211 print '<input type="hidden" name="PBX_TYPEPAIEMENT" value="'.$PBX_TYPEPAIEMENT.'">'."\n";
212 print '<input type="hidden" name="PBX_HASH" value="'.$PBX_HASH.'">'."\n";
213 print '<input type="hidden" name="PBX_TIME" value="'.$PBX_TIME.'">'."\n";
214 // Footprint of parameters
215 print '<input type="hidden" name="PBX_HMAC" value="'.$hmac.'">'."\n";
216 print '</form>'."\n";
217
218
219 print "\n";
220 print '<script type="text/javascript">'."\n";
221 print ' document.Submit.submit();'."\n";
222 print '</script>'."\n";
223 print "\n";
224 print '</body></html>'."\n";
225 print "\n";
226
227 return 1;
228}
dol_now($mode='auto')
Return date for now.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
if(!defined( 'NOREQUIREMENU')) if(!empty(GETPOST('seteventmessages', 'alpha'))) if(!function_exists("llxHeader")) top_httphead($contenttype='text/html', $forcenocache=0)
Show HTTP header.
print_paybox_redirect($PRICE, $CURRENCY, $EMAIL, $urlok, $urlko, $TAG)
Create a redirect form to paybox form.
dol_decode($chain, $key='1')
Decode a base 64 encoded + specific delta change.