2 /************************************************************************
3 * MXChange v0.2.1 Start: 10/19/2003 *
4 * =============== Last change: 08/12/2004 *
6 * -------------------------------------------------------------------- *
7 * File : what-points.php *
8 * -------------------------------------------------------------------- *
9 * Short description : All your collected points... *
10 * -------------------------------------------------------------------- *
11 * Kurzbeschreibung : Alle Ihrer gesammelten Punkte *
12 * -------------------------------------------------------------------- *
14 * -------------------------------------------------------------------- *
15 * Copyright (c) 2003 - 2008 by Roland Haeder *
16 * For more information visit: http://www.mxchange.org *
18 * This program is free software; you can redistribute it and/or modify *
19 * it under the terms of the GNU General Public License as published by *
20 * the Free Software Foundation; either version 2 of the License, or *
21 * (at your option) any later version. *
23 * This program is distributed in the hope that it will be useful, *
24 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
25 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
26 * GNU General Public License for more details. *
28 * You should have received a copy of the GNU General Public License *
29 * along with this program; if not, write to the Free Software *
30 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, *
32 ************************************************************************/
34 // Some security stuff...
35 if (!defined('__SECURITY')) {
36 $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";
40 // Sets a status message and code
41 function WERNIS_STATUS_MESSAGE ($msg, $status) {
43 $WERNIS['message'] = $msg;
44 $WERNIS['status'] = $status;
47 // Get the status message
48 function GET_WERNIS_ERROR_MESSAGE () {
50 if (isset($WERNIS['message'])) {
52 return $WERNIS['message'];
53 } elseif (isset($WERNIS['status'])) {
54 // Fall-back to status
55 return sprintf(WERNIS_ERROR_STATUS, $WERNIS['status']);
57 // Something bad happend
58 return WERNIS_UNKNOWN_ERROR;
62 // Get the status code
63 function GET_WERNIS_ERROR_CODE () {
65 if (isset($WERNIS['status'])) {
67 return $WERNIS['status'];
69 // Something bad happend
70 return WERNIS_UNKNOWN_ERROR;
74 // Sends out a request to the API and returns it's result
75 function WERNIS_SEND_REQUEST ($scriptName, $requestData = array()) {
76 // Is the requestData an array?
77 if (!is_array($requestData)) {
80 'status' => "failed_general",
81 'message' => WERNIS_API_REQUEST_DATA_INVALID
85 // Is the API id and MD5 hash there?
86 if ((getConfig('wernis_api_id') == "") || (getConfig('wernis_api_md5') == "")) {
89 'status' => "failed_general",
90 'message' => WERNIS_API_REQUEST_DATA_MISSING
94 // Add more request data
95 $requestData['api_id'] = bigintval(getConfig('wernis_api_id'));
96 $requestData['api_key'] = getConfig('wernis_api_md5');
98 // Construct the request string
99 $requestString = getConfig('wernis_api_url') . $scriptName;
101 // Get the raw response from the lower function
102 $response = POST_URL($requestString, $requestData);
104 // Check the response header if all is fine
105 if (strpos($response[0], "200") === false) {
106 // Something bad happend... :(
108 'status' => "request_error",
109 'message' => sprintf(WERNIS_API_REQUEST_ERROR, $response[0])
113 // All (maybe) fine so remove the response header from server
114 $response = $response[(count($response) - 1)];
116 // Prepare the returning result for higher functions
117 if (substr($response, 0, 1) == "&") {
118 // Remove the leading & (which can be used in Flash)
119 $response = substr($response, 1);
122 // Bring back the response
123 $data = explode("=", $response);
125 // Default return array (should not stay empty)
128 // We use only the first two entries (which shall be fine)
129 if ($data[0] === "error") {
130 // The request has failed... :(
132 case "404": // Invalid API ID
133 case "AUTH": // Authorization has failed
135 'status' => "auth_failed",
136 'message' => WERNIS_API_REQUEST_FAILED_AUTH
140 case "LOCKED": // User account is locked!
141 case "PASS": // Bad passphrase entered
142 case "USER": // Missing account or invalid password
144 'status' => "user_failed",
145 'message' => WERNIS_API_REQUEST_FAILED_USER
149 case "OWN": // Transfer to own account
151 'status' => "own_failed",
152 'message' => WERNIS_API_REQUEST_FAILED_OWN
156 case "AMOUNT": // Amount is depleted
158 'status' => "amount_failed",
159 'message' => WERNIS_API_REQUEST_FAILED_AMOUNT
163 case "AMOUNT-SEND": // API amount is depleted
165 'status' => "api_amount_failed",
166 'message' => WERNIS_API_REQUEST_FAILED_API_AMOUNT
170 default: // Unknown error (maybe new?)
171 DEBUG_LOG(__FUNCTION__, __LINE__, sprintf("Unknown error %s from WDS66 API received.", $data[1]));
173 'status' => "request_failed",
174 'message' => sprintf(WERNIS_API_REQUEST_FAILED, $data[1])
182 'response' => $response
190 // Tests the function by calling balance.php on the API
191 function WERNIS_TEST_API () {
192 // Result is always failed
195 // Return the result from the lower functions
196 $return = WERNIS_SEND_REQUEST("balance.php");
198 if ($return['status'] == "OK") {
202 // Status failture text
203 WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
210 // Widthdraw this amount
211 function WERNIS_EXECUTE_WITHDRAW ($wdsId, $userMd5, $amount) {
212 // Is the sponsor extension installed?
213 if (getConfig('wernis_withdraw_active') == "N") {
214 if (!EXT_IS_ACTIVE("sponsor")) {
217 } elseif (!IS_SPONSOR()) {
218 // No sponsor, not allowed to withdraw!
223 // Default is failed attempt
226 // Prepare the purpose
227 $eval = "\$purpose = \"".COMPILE_CODE(sprintf(WERNIS_API_PURPOSE_WITHDRAW, $GLOBALS['userid']))."\";";
230 // Prepare the request data
231 $requestData = array(
232 'sub_request' => "receive",
233 't_uid' => bigintval($wdsId),
235 'r_uid' => getConfig('wernis_refid'),
236 'amount' => bigintval($amount),
237 'purpose' => urlencode(base64_encode($purpose))
240 // Return the result from the lower functions
241 $return = WERNIS_SEND_REQUEST("book.php", $requestData);
243 if ($return['status'] == "OK") {
248 WERNIS_LOG_TRANSFER($wdsId, $amount, 'IN');
250 // Status failture text
251 WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
254 WERNIS_LOG_TRANSFER($wdsId, $amount, 'FAILED', $return['message'], $return['status']);
262 // Payout this amount
263 function WERNIS_EXECUTE_PAYOUT ($wdsId, $amount) {
266 // Default is failed attempt
269 // Prepare the purpose
270 $eval = "\$purpose = \"".COMPILE_CODE(sprintf(WERNIS_API_PURPOSE_PAYOUT, $GLOBALS['userid']))."\";";
273 // Prepare the request data
274 $requestData = array(
275 'sub_request' => "send",
276 't_uid' => getConfig('wernis_refid'),
277 't_md5' => $_CONFIG['wernis_pass_md5'],
278 'r_uid' => bigintval($wdsId),
279 'amount' => bigintval($amount),
280 'purpose' => urlencode(base64_encode($purpose))
283 // Return the result from the lower functions
284 $return = WERNIS_SEND_REQUEST("book.php", $requestData);
286 if ($return['status'] == "OK") {
291 WERNIS_LOG_TRANSFER($wdsId, $amount, 'OUT');
293 // Status failture text
294 WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
297 WERNIS_LOG_TRANSFER($wdsId, $amount, 'FAILED', $return['message'], $return['status']);
304 // Translate the status IN/OUT
305 function WERNIS_TRANSFER_STATUS ($status) {
307 $return = sprintf(WERNIS_STATUS_UNKNWOWN, $status);
309 case "IN": // Withdraw
310 $return = WERNIS_STATUS_WITHDRAW;
313 case "OUT": // Payout
314 $return = WERNIS_STATUS_PAYOUT;
317 case "FAILED": // Payout
318 $return = WERNIS_STATUS_FAILED;
327 function WERNIS_LOG_TRANSFER ($wdsId, $amount, $type = 'FAILED', $message = "", $status = "") {
328 // Register this wernis movement
329 SQL_QUERY_ESC("INSERT INTO `{!MYSQL_PREFIX!}_user_wernis` (`userid`, `wernis_account`, `wernis_amount`, `wernis_timestamp`, `wernis_type`, `wernis_api_message`, `wernis_api_status`) VALUES (%d, %d, %d, UNIX_TIMESTAMP(), '%s', '%s', '%s')",
330 array($GLOBALS['userid'], bigintval($wdsId), bigintval($amount), $type, $message, $status), __FILE__, __LINE__);
333 // Take fees and factor
334 function WERNIS_TAKE_FEE ($points, $mode) {
335 // Payout or withdraw are allowed modes!
336 //* DEBUG: */ echo "mode={$mode},points={$points}<br />\n";
337 if (!in_array($mode, array('payout', 'withdraw'))) {
338 // Log error and abort
339 DEBUG_LOG(__FUNCTION__, __LINE__, "uid={$GLOBALS['userid']},mode={$mode},points={$points}");
343 // Is there a percentage or fixed fee?
344 if (getConfig('wernis_'.$mode.'_fee_percent') > 0) {
346 $points -= $points * getConfig('wernis_'.$mode.'_fee_percent') / 100;
347 } elseif (getConfig('wernis_'.$mode.'_fee_fix') > 0) {
349 $points -= getConfig('wernis_'.$mode.'_fee_fix');
352 // Divide/multiply the factor
353 if ($mode == "payout") {
355 $points = $points / getConfig('wernis_payout_factor');
357 // Multiply for withdraw
358 $points = $points * getConfig('wernis_withdraw_factor');
362 //* DEBUG: */ echo "mode={$mode},points={$points}<br />\n";
366 // Add withdraw fees and factor
367 function WERNIS_ADD_WITHDRAW_FEE ($points) {
368 // Is there a percentage or fixed fee?
369 if (getConfig('wernis_withdraw_fee_percent') > 0) {
371 $points += $points * getConfig('wernis_withdraw_fee_percent') / 100;
372 } elseif (getConfig('wernis_withdraw_fee_fix') > 0) {
374 $points += getConfig('wernis_withdraw_fee_fix');
381 // Add all fees to the array
382 function WERNIS_ADD_FEES_TO_ARRAY (&$array) {
383 // Is the array an array? ;-)
384 if (!is_array($array)) {
385 // Log error and return
386 DEBUG_LOG(__FUNCTION__, __LINE__, " Type ".gettype($array)." != array.");
391 $array['payout_factor'] = TRANSLATE_COMMA(getConfig('wernis_payout_factor'));
392 $array['withdraw_factor'] = TRANSLATE_COMMA(getConfig('wernis_withdraw_factor'));
395 $array['payout_fee_percent'] = TRANSLATE_COMMA(getConfig('wernis_payout_fee_percent'));
396 $array['withdraw_fee_percent'] = TRANSLATE_COMMA(getConfig('wernis_withdraw_fee_percent'));
397 $array['payout_fee_fix'] = TRANSLATE_COMMA(getConfig('wernis_payout_fee_fix'));
398 $array['withdraw_fee_fix'] = TRANSLATE_COMMA(getConfig('wernis_withdraw_fee_fix'));