79f9af8e8c8de09f9c94a75f3a55eb92c872192f
2 /***************************************************************************
3 * Copyright (C) 2003-2007 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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 2 of the License, or *
9 * (at your option) any later version. *
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. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
29 var $nomsite = "la BP Lorraine Champagne";
35 function CyberPayment($val)
37 $this->val
= strtr(sprintf("%.02f", (float)$val), '.', ',');
41 // {{{ function form()
43 function prepareform(&$pay)
45 // toute la doc se trouve sur
46 // http://www.cyberpaiement.tm.fr/donnees.htm
48 global $globals, $platal;
50 $roboturl = str_replace("https://","http://", $globals->baseurl
)
51 . '/' . $platal->ns
. "payment/cyber_return/".S
::v('uid')."?comment=".urlencode(Env
::v('comment'))."&CHAMPBPX";
52 $req = XDB
::query("SELECT IF(nom_usage!='', nom_usage, nom) AS nom
54 WHERE user_id = {?}",S
::v('uid'));
55 $name = $req->fetchOneCell();
57 // on constuit la reference de la transaction
58 $prefix = ($pay->flags
->hasflag('unique')) ?
str_pad("",15,"0") : rand_url_id();
59 $fullref = substr("$prefix-xorg-{$pay->id}",-15);
61 $this->urlform
= "https://ecom.cimetz.com/telepaie/cgishell.exe/epaie01.exe";
62 $this->infos
['commercant'] = Array(
65 'CHAMP002' => 5429159012,
67 'CHAMP004' => "Polytechnique.org",
68 'CHAMP005' => $roboturl,
69 'CHAMP006' => "Polytechnique.org",
70 'CHAMP007' => $globals->baseurl
. '/' . $platal->ns
,
71 'CHAMP008' => $pay->mail
);
72 $this->infos
['client'] = Array(
74 'CHAMP101' => S
::v('prenom'),
77 'CHAMP104' => S
::v('bestalias').'@polytechnique.org',
83 $this->infos
['commande'] = Array(
84 'CHAMP200' => $fullref,
85 'CHAMP201' => $this->val
,
87 $this->infos
['divers'] = Array('CHAMP900' => '01');
93 $api = 'CyberPayment';
95 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: