ba5d83c97aeefbf316193744e89b1299daf0909a
[mailer.git] / inc / modules / member / what-wernis.php
1 <?php
2 /************************************************************************
3  * MXChange v0.2.1                                    Start: 04/12/2004 *
4  * ================                             Last change: 11/16/2004 *
5  *                                                                      *
6  * -------------------------------------------------------------------- *
7  * File              : what-wernis.php                                  *
8  * -------------------------------------------------------------------- *
9  * Short description : Wernis requests                                  *
10  * -------------------------------------------------------------------- *
11  * Kurzbeschreibung  : Auszahlungsanfragen                              *
12  * -------------------------------------------------------------------- *
13  * $Revision::                                                        $ *
14  * $Date::                                                            $ *
15  * $Tag:: 0.2.1-FINAL                                                 $ *
16  * $Author::                                                          $ *
17  * Needs to be in all Files and every File needs "svn propset           *
18  * svn:keywords Date Revision" (autoprobset!) at least!!!!!!            *
19  * -------------------------------------------------------------------- *
20  * Copyright (c) 2003 - 2008 by Roland Haeder                           *
21  * For more information visit: http://www.mxchange.org                  *
22  *                                                                      *
23  * This program is free software; you can redistribute it and/or modify *
24  * it under the terms of the GNU General Public License as published by *
25  * the Free Software Foundation; either version 2 of the License, or    *
26  * (at your option) any later version.                                  *
27  *                                                                      *
28  * This program is distributed in the hope that it will be useful,      *
29  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
30  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
31  * GNU General Public License for more details.                         *
32  *                                                                      *
33  * You should have received a copy of the GNU General Public License    *
34  * along with this program; if not, write to the Free Software          *
35  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
36  * MA  02110-1301  USA                                                  *
37  ************************************************************************/
38
39 // Some security stuff...
40 if (!defined('__SECURITY')) {
41         $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), '/inc') + 4) . '/security.php';
42         require($INC);
43 } elseif (!IS_MEMBER()) {
44         // User is not logged in
45         redirectToUrl('modules.php?module=index');
46 } elseif ((!EXT_IS_ACTIVE('wernis')) && (!IS_ADMIN())) {
47         addFatalMessage(__FILE__, __LINE__, generateExtensionInactiveNotInstalledMessage('wernis'));
48         return;
49 }
50
51 // Add description as navigation point
52 ADD_DESCR('member', __FILE__);
53
54 // Check if the admin has entered the data
55 if ((getConfig('wernis_api_id') == '') || (getConfig('wernis_api_md5') == '')) {
56         // Something important is missing...
57         LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_API_DATA_MISSING'));
58         return;
59 } // END - if
60
61 // Init the content array and points
62 $content = array(); $points = false;
63
64 // Is the mode set (withdraw or payout)
65 if ((!REQUEST_ISSET_GET('mode')) || (REQUEST_GET('mode') == 'choose')) {
66         // Let the user choose what he wants to do
67         $content['refid']    = getConfig(('wernis_refid'));
68         $content['wds66_id'] = 0;
69
70         // Get WDS66 id
71         $result = SQL_QUERY_ESC("SELECT wernis_userid FROM `{!_MYSQL_PREFIX!}_user_data` WHERE userid=%s LIMIT 1",
72                 array(getUserId()), __FILE__, __LINE__);
73
74         // Are there some entries?
75         if (SQL_NUMROWS($result) == 1) {
76                 // Fetch ID
77                 list($content['wds66_id']) = SQL_FETCHROW($result);
78         } // END - if
79
80         // Free result
81         SQL_FREERESULT($result);
82
83         // Is there an ID?
84         if ((!empty($content['wds66_id'])) && (!REQUEST_ISSET_GET('mode'))) {
85                 // Then use an other "mode"
86                 REQUEST_SET_GET('mode', 'list');
87
88                 // And load all rows!
89                 $result = SQL_QUERY_ESC("SELECT `id`,`wernis_account`,`wernis_amount`,`wernis_timestamp`,`wernis_type` FROM `{!_MYSQL_PREFIX!}_user_wernis` WHERE `userid` = %s ORDER BY `wernis_timestamp` DESC",
90                         array(getUserId()), __FILE__, __LINE__);
91
92                 // Load all rows
93                 $content['rows'] = ''; $SW = 2;
94                 while ($data = SQL_FETCHARRAY($result)) {
95                         // Prepare data for output
96                         $rowContent = array(
97                                 'stamp'    => generateDateTime($data['wernis_timestamp'], '2'),
98                                 'points'   => translateComma($data['wernis_amount']),
99                                 'acc'      => bigintval($data['wernis_account']),
100                                 'status'   => WERNIS_TRANSFER_STATUS($data['wernis_type']),
101                                 'raw_type' => strtolower($data['wernis_type']),
102                                 'sw'       => $SW,
103                         );
104
105                         // Load row template
106                         $content['rows'] .= LOAD_TEMPLATE('member_wernis_mode_list_row', true, $rowContent);
107                         $SW = 3 - $SW;
108                 }
109
110                 // Free result
111                 SQL_FREERESULT($result);
112         } else {
113                 // Default links are not active!
114                 $content['payout_link']   = '<em>{--WERNIS_MEMBER_PAYOUT_DISABLED--}</em>';
115                 $content['withdraw_link'] = '<em>{--WERNIS_MEMBER_WITHDRAW_DISABLED--}</em>';
116
117                 // Is the payout mode active?
118                 if (getConfig('wernis_payout_active') == 'Y') {
119                         // Add link
120                         $content['payout_link'] = "<a class=\"menu_blur\" style=\"height: 40px\" href=\"{!URL!}/modules.php?module=login&amp;what=wernis&amp;mode=payout\"><div style=\"padding-top: 10px\">{--MEMBER_WERNIS_MODE_PAYOUT--}</div></a>";
121                 } // END - if
122
123                 // Is the withdraw mode active?
124                 if (getConfig('wernis_withdraw_active') == 'Y') {
125                         // Add link
126                         $content['withdraw_link'] = "<a class=\"menu_blur\" style=\"height: 40px\" href=\"{!URL!}/modules.php?module=login&amp;what=wernis&amp;mode=withdraw\"><div style=\"padding-top: 10px\">{--MEMBER_WERNIS_MODE_WITHDRAW--}</div></a>";
127                 } // END - if
128
129                 // Mode chooser! ;-)
130                 REQUEST_SET_GET('mode', 'choose');
131         }
132 } elseif ((REQUEST_GET('mode') == 'payout') && (getConfig('wernis_payout_active') == 'Y')) {
133         // Get total points and check if the user can request a payout
134         $points = GET_TOTAL_DATA(getUserId(), 'user_points', 'points') - GET_TOTAL_DATA(getUserId(), 'user_data', 'used_points');
135
136         // Remove the registration fee
137         $points = $points - getConfig('points_register');
138
139         // Is there a percentage or fixed fee?
140         $points = WERNIS_TAKE_FEE($points, 'payout');
141
142         // Is this enougth for a payout?
143         if ($points < getConfig('wernis_min_payout')) {
144                 // No, then abort here
145                 LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_MIN_PAYOUT'), translateComma(getConfig('wernis_min_payout'))));
146                 return;
147         } // END - if
148
149         // No dots here...
150         $points = explode('.', $points);
151         $points = bigintval($points[0]);
152
153         // Add points to content array
154         $content['points']     = translateComma($points);
155         $content['min_points'] = translateComma(getConfig('wernis_min_payout'));
156
157         // Add fees to array
158         WERNIS_ADD_FEES_TO_ARRAY($content);
159
160         // Get WDS66 id
161         $content['wds66_id'] = '';
162         $result = SQL_QUERY_ESC("SELECT wernis_userid FROM `{!_MYSQL_PREFIX!}_user_data` WHERE userid=%s LIMIT 1",
163                 array(getUserId()), __FILE__, __LINE__);
164
165         // Are there some entries?
166         if (SQL_NUMROWS($result) == 1) {
167                 // Fetch ID
168                 list($content['wds66_id']) = SQL_FETCHROW($result);
169         } // END - if
170
171         // Free result
172         SQL_FREERESULT($result);
173 } elseif ((REQUEST_GET('mode') == 'withdraw') && (getConfig('wernis_withdraw_active') == 'Y')) {
174         // Get total points for just displaying them
175         $points = GET_TOTAL_DATA(getUserId(), 'user_points', 'points') - GET_TOTAL_DATA(getUserId(), 'user_data', 'used_points');
176
177         // Prepare data for the template
178         $content['points']     = translateComma($points);
179         $content['min_points'] = translateComma(getConfig('wernis_min_withdraw'));
180         $content['wds66_id']   = '';
181
182         // Add fees to array
183         WERNIS_ADD_FEES_TO_ARRAY($content);
184
185         // Get WDS66 id
186         $result = SQL_QUERY_ESC("SELECT wernis_userid FROM `{!_MYSQL_PREFIX!}_user_data` WHERE userid=%s LIMIT 1",
187                 array(getUserId()), __FILE__, __LINE__);
188
189         // Are there some entries?
190         if (SQL_NUMROWS($result) == 1) {
191                 // Fetch ID
192                 list($content['wds66_id']) = SQL_FETCHROW($result);
193         } // END - if
194
195         // Free result
196         SQL_FREERESULT($result);
197 } else {
198         // Invalid mode!
199         LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_MODE_INVALID'), REQUEST_GET('mode')));
200         return;
201 }
202
203 // Is the formular sent?
204 if ((isFormSent()) && (REQUEST_ISSET_GET('mode'))) {
205         // Is the user ID and password set?
206         if (!REQUEST_ISSET_POST(('wds66_id'))) {
207                 // Nothing entered in WDS66 user ID
208                 LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_EMPTY_USERNAME'));
209         } elseif (!REQUEST_ISSET_POST(('wds66_password'))) {
210                 // Nothing entered in WDS66 password
211                 LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_EMPTY_PASSWORD'));
212         } elseif (!REQUEST_ISSET_POST(('amount'))) {
213                 // Nothing entered in amount
214                 LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_EMPTY_AMOUNT'));
215         } elseif (REQUEST_POST('wds66_id') != bigintval(REQUEST_POST('wds66_id'))) {
216                 // Only numbers in account ID!
217                 LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_INVALID_USERNAME'));
218         } elseif (REQUEST_POST('amount') != bigintval(REQUEST_POST('amount'))) {
219                 // Only numbers in amount!
220                 LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_INVALID_AMOUNT'));
221         } else {
222                 // Check input data depending on the mode and execute the requested mode
223                 switch (REQUEST_GET('mode')) {
224                         case "withdraw": // Widthdraws WDS66 -> This exchange
225                                 if (REQUEST_POST('amount') < getConfig('wernis_min_withdraw')) {
226                                         // Not enougth entered!
227                                         LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_AMOUNT_SMALLER_MIN'), getConfig(('wernis_min_withdraw'))));
228                                 } else {
229                                         // All is fine here so do the withdraw
230                                         $success = WERNIS_EXECUTE_WITHDRAW(REQUEST_POST('wds66_id'), md5(REQUEST_POST('wds66_password')), REQUEST_POST('amount'));
231                                         if ($success === true) {
232                                                 // Add it to this amount
233                                                 unset($GLOBALS['ref_level']);
234                                                 ADD_POINTS_REFSYSTEM_DIRECT('wernis_withdraw', getUserId(), bigintval(REQUEST_POST('amount')));
235
236                                                 // Update the user data as well..
237                                                 SQL_QUERY_ESC("UPDATE `{!_MYSQL_PREFIX!}_user_data` SET `wernis_userid`=%s WHERE userid=%s LIMIT 1",
238                                                         array(bigintval(REQUEST_POST('wds66_id')), getUserId()), __FILE__, __LINE__);
239
240                                                 // All done!
241                                                 LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_WITHDRAW_DONE'));
242                                                 return;
243                                         } elseif ((GET_WERNIS_ERROR_CODE() == "user_failed") || (GET_WERNIS_ERROR_CODE() == "own_failed") || (GET_WERNIS_ERROR_CODE() == "amount_failed")) {
244                                                 // Wrong login data
245                                                 LOAD_TEMPLATE('admin_settings_saved', false, GET_WERNIS_ERROR_MESSAGE());
246                                         } else {
247                                                 // Something went wrong
248                                                 LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_WITHDRAW_FAILED'), GET_WERNIS_ERROR_MESSAGE()));
249                                         }
250                                 }
251                                 break;
252
253                         case 'payout': // Payout this exchange -> WDS66
254                                 if (REQUEST_POST('amount') < getConfig('wernis_min_payout')) {
255                                         // Not enougth entered!
256                                         LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_AMOUNT_SMALLER_MIN'), getConfig(('wernis_min_payout'))));
257                                 } elseif (REQUEST_POST('amount') > $points) {
258                                         // Not enougth points left!
259                                         LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_PAYOUT_POINTS_DEPLETED'), bigintval(REQUEST_POST('amount')), bigintval($points)));
260                                 } else {
261                                         // All is fine here so do the withdraw
262                                         $success = WERNIS_EXECUTE_PAYOUT(REQUEST_POST('wds66_id'), REQUEST_POST('amount'));
263                                         if ($success === true) {
264                                                 // Sub points
265                                                 SUB_POINTS('wernis_payout', getUserId(), REQUEST_POST('amount'));
266
267                                                 // Update WDS66 id
268                                                 SQL_QUERY_ESC("UPDATE `{!_MYSQL_PREFIX!}_user_data` SET `wernis_userid`=%s WHERE userid=%s LIMIT 1",
269                                                         array(bigintval(REQUEST_POST('wds66_id')), getUserId()), __FILE__, __LINE__);
270
271                                                 // All done!
272                                                 LOAD_TEMPLATE('admin_settings_saved', false, getMessage('WERNIS_MEMBER_PAYOUT_DONE'));
273                                                 return;
274                                         } elseif ((GET_WERNIS_ERROR_CODE() == 'user_failed') || (GET_WERNIS_ERROR_CODE() == 'own_failed') || (GET_WERNIS_ERROR_CODE() == 'amount_failed') || (GET_WERNIS_ERROR_CODE() == 'api_amount_failed')) {
275                                                 // Wrong login data
276                                                 LOAD_TEMPLATE('admin_settings_saved', false, GET_WERNIS_ERROR_MESSAGE());
277                                         } else {
278                                                 // Something went wrong
279                                                 LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_WITHDRAW_FAILED'), GET_WERNIS_ERROR_MESSAGE()));
280                                         }
281                                 }
282                                 break;
283
284                         default: // Invalid mode!
285                                 DEBUG_LOG(__FILE__, __LINE__, sprintf("Invalid mode %s detected.", REQUEST_GET('mode')));
286                                 LOAD_TEMPLATE('admin_settings_saved', false, sprintf(getMessage('WERNIS_MEMBER_MODE_INVALID'), REQUEST_GET('mode')));
287                                 return;
288                 }
289         }
290 } // END - if
291
292 // Prepare mode for template name
293 $mode = sprintf("member_wernis_mode_%s", REQUEST_GET('mode'));
294
295 // Load the template
296 LOAD_TEMPLATE($mode, false, $content);
297
298 //
299 ?>