Bye xorg.misc.inc.php
[platal.git] / modules / payment / money / cyberpaiement.inc.php
CommitLineData
0337d704 1<?php
2/***************************************************************************
179afa7f 3 * Copyright (C) 2003-2008 Polytechnique.org *
0337d704 4 * http://opensource.polytechnique.org/ *
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 2 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, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
22class CyberPayment
23{
24 // {{{ properties
25
26 var $val;
27
28 var $urlform;
29 var $nomsite = "la BP Lorraine Champagne";
30 var $infos;
31
32 // }}}
33 // {{{ constructor
eaf30d86 34
0337d704 35 function CyberPayment($val)
36 {
37 $this->val = strtr(sprintf("%.02f", (float)$val), '.', ',');
38 }
39
40 // }}}
41 // {{{ function form()
42
43 function prepareform(&$pay)
44 {
f057316b
FB
45 // toute la doc se trouve sur
46 // http://www.cyberpaiement.tm.fr/donnees.htm
0337d704 47
98a7e9dc 48 global $globals, $platal;
0337d704 49
98a7e9dc 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
53 FROM auth_user_md5
54 WHERE user_id = {?}",S::v('uid'));
f057316b 55 $name = $req->fetchOneCell();
0337d704 56
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);
60
61 $this->urlform = "https://ecom.cimetz.com/telepaie/cgishell.exe/epaie01.exe";
f057316b
FB
62 $this->infos['commercant'] = Array(
63 'CHAMP000' => 510879,
64 'CHAMP001' => 5965,
65 'CHAMP002' => 5429159012,
66 'CHAMP003' => "I",
67 'CHAMP004' => "Polytechnique.org",
68 'CHAMP005' => $roboturl,
69 'CHAMP006' => "Polytechnique.org",
c2ad0ec1 70 'CHAMP007' => $pay->url ? $pay->url : $globals->baseurl . '/' . $platal->ns,
f057316b
FB
71 'CHAMP008' => $pay->mail);
72 $this->infos['client'] = Array(
c2ad0ec1
FB
73 'CHAMP100' => replace_accent($name),
74 'CHAMP101' => replace_accent(S::v('prenom')),
f057316b
FB
75 'CHAMP102' => '.',
76 'CHAMP103' => '.',
77 'CHAMP104' => S::v('bestalias').'@' . $globals->mail->domain,
78 'CHAMP106' => '.',
79 'CHAMP107' => '.',
80 'CHAMP108' => '.',
81 'CHAMP109' => '.',
82 'CHAMP110' => '.');
83 $this->infos['commande'] = Array(
84 'CHAMP200' => $fullref,
85 'CHAMP201' => $this->val,
86 'CHAMP202' => "EUR");
87 $this->infos['divers'] = Array('CHAMP900' => '01');
0337d704 88 }
89
90 // }}}
91}
92
93$api = 'CyberPayment';
94
a7de4ef7 95// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
0337d704 96?>