inc/libs/wernis_functions.php

   1 <?php
   2 /************************************************************************
   3  * Mailer v0.2.1-FINAL                                Start: 10/19/2003 *
   4  * ===================                          Last change: 08/12/2004 *
   5  *                                                                      *
   6  * -------------------------------------------------------------------- *
   7  * File              : what-points.php                                  *
   8  * -------------------------------------------------------------------- *
   9  * Short description : All your collected points...                     *
  10  * -------------------------------------------------------------------- *
  11  * Kurzbeschreibung  : Alle Ihrer gesammelten Punkte                    *
  12  * -------------------------------------------------------------------- *
  13  * $Revision::                                                        $ *
  14  * $Date::                                                            $ *
  15  * $Tag:: 0.2.1-FINAL                                                 $ *
  16  * $Author::                                                          $ *
  17  * -------------------------------------------------------------------- *
  18  * Copyright (c) 2003 - 2009 by Roland Haeder                           *
  19  * Copyright (c) 2009 - 2011 by Mailer Developer Team                   *
  20  * For more information visit: http://www.mxchange.org                  *
  21  *                                                                      *
  22  * This program is free software; you can redistribute it and/or modify *
  23  * it under the terms of the GNU General Public License as published by *
  24  * the Free Software Foundation; either version 2 of the License, or    *
  25  * (at your option) any later version.                                  *
  26  *                                                                      *
  27  * This program is distributed in the hope that it will be useful,      *
  28  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
  29  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
  30  * GNU General Public License for more details.                         *
  31  *                                                                      *
  32  * You should have received a copy of the GNU General Public License    *
  33  * along with this program; if not, write to the Free Software          *
  34  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
  35  * MA  02110-1301  USA                                                  *
  36  ************************************************************************/
  37
  38 // Some security stuff...
  39 if (!defined('__SECURITY')) {
  40         die();
  41 } // END - if
  42
  43 // Sets a status message and code
  44 function WERNIS_STATUS_MESSAGE ($message, $status) {
  45         $GLOBALS['wernis_data']['message'] = $message;
  46         $GLOBALS['wernis_data']['status']  = $status;
  47 }
  48
  49 // Get the status message
  50 function GET_WERNIS_ERROR_MESSAGE () {
  51         if (isset($GLOBALS['wernis_data']['message'])) {
  52                 // Use raw message
  53                 return $GLOBALS['wernis_data']['message'];
  54         } elseif (isset($GLOBALS['wernis_data']['status'])) {
  55                 // Fall-back to status
  56                 return '{%message,WERNIS_ERROR_STATUS=' . $GLOBALS['wernis_data']['status'] . '%}';
  57         } else {
  58                 // Something bad happend
  59                 return '{--WERNIS_UNKNOWN_ERROR--}';
  60         }
  61 }
  62
  63 // Get the status code
  64 function GET_WERNIS_ERROR_CODE () {
  65         if (isset($GLOBALS['wernis_data']['status'])) {
  66                 // Use raw message
  67                 return $GLOBALS['wernis_data']['status'];
  68         } else {
  69                 // Something bad happend
  70                 return '{--WERNIS_UNKNOWN_ERROR--}';
  71         }
  72 }
  73
  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)) {
  78                 // Then abort here!
  79                 return array(
  80                         'status'  => 'failed_general',
  81                         'message' => '{--WERNIS_API_REQUEST_DATA_INVALID--}'
  82                 );
  83         } // END - if
  84
  85         // Is the API id and MD5 hash there?
  86         if ((getWernisApiId() == '') || (getWernisApiMd5() == '')) {
  87                 // Abort here...
  88                 return array(
  89                         'status'  => 'failed_general',
  90                         'message' => '{--WERNIS_API_REQUEST_DATA_MISSING--}'
  91                 );
  92         } // END - if
  93
  94         // Add more request data
  95         $requestData['api_id']  = getWernisApiId();
  96         $requestData['api_key'] = getWernisApiMd5();
  97
  98         // Is a purpose there?
  99         if (isset($requestData['purpose'])) {
 100                 // Eval the purpose
 101                 eval('$purpose = "' . doFinalCompilation($requestData['purpose'], false) . '";');
 102
 103                 // Prepare the purpose, it needs encoding
 104                 $requestData['purpose'] = encodeString($purpose);
 105         } // END - if
 106
 107         // Construct the request string
 108         $requestString = getWernisApiUrl() . $scriptName;
 109
 110         // Get the raw response from the lower function
 111         $response = sendPostRequest($requestString, $requestData);
 112
 113         // Check the response header if all is fine
 114         if (strpos($response[0], '200') === false) {
 115                 // Something bad happend... :(
 116                 return array(
 117                         'status'  => 'request_error',
 118                         'message' => '{%message,WERNIS_API_REQUEST_ERROR=' . $response[0] . '%}'
 119                 );
 120         } // END - if
 121
 122         // All (maybe) fine so remove the response header from server
 123         $responseLine = '*INVALID*';
 124         for ($idx = (count($response) - 1); $idx > 1; $idx--) {
 125                 $line = trim($response[$idx]);
 126                 if (!empty($line)) {
 127                         $responseLine = $line;
 128                         break;
 129                 } // END - if
 130         } // END - for
 131
 132         // Is the response leaded by a & symbol?
 133         if (substr($responseLine, 0, 1) != '&') {
 134                 // Something badly happened on server-side
 135                 return array(
 136                         'status'  => 'request_problem',
 137                         'message' => sprintf(getMessage('WERNIS_API_REQUEST_PROBLEM'), $response[0], secureString($responseLine))
 138                 );
 139         } // END - if
 140
 141         // Remove the leading & (which can be used in Flash)
 142         $responseLine = substr($responseLine, 1);
 143
 144         // Bring back the response
 145         $data = explode('=', $responseLine);
 146
 147         // Default return array (should not stay empty)
 148         $return = array();
 149
 150         // We use only the first two entries (which shall be fine)
 151         if ($data[0] === 'error') {
 152                 // The request has failed... :(
 153                 switch ($data[1]) {
 154                         case '404': // Invalid API id
 155                         case 'AUTH': // Authorization has failed
 156                                 $return = array(
 157                                         'status'  => 'auth_failed',
 158                                         'message' => '{--WERNIS_API_REQUEST_FAILED_AUTH--}'
 159                                 );
 160                                 break;
 161
 162                         case 'LOCKED': // User account is locked!
 163                         case 'PASS': // Bad passphrase entered
 164                         case 'USER': // Missing account or invalid password
 165                                 $return = array(
 166                                         'status'  => 'user_failed',
 167                                         'message' => '{--WERNIS_API_REQUEST_FAILED_USER--}'
 168                                 );
 169                                 break;
 170
 171                         case 'OWN': // Transfer to own account
 172                                 $return = array(
 173                                         'status'  => 'own_failed',
 174                                         'message' => '{--WERNIS_API_REQUEST_FAILED_OWN--}'
 175                                 );
 176                                 break;
 177
 178                         case 'AMOUNT': // Amount is depleted
 179                                 $return = array(
 180                                         'status'  => 'amount_failed',
 181                                         'message' => '{--WERNIS_API_REQUEST_FAILED_AMOUNT--}'
 182                                 );
 183                                 break;
 184
 185                         case 'AMOUNT-SEND': // API amount is depleted
 186                                 $return = array(
 187                                         'status'  => 'api_amount_failed',
 188                                         'message' => '{--WERNIS_API_REQUEST_FAILED_API_AMOUNT--}'
 189                                 );
 190                                 break;
 191
 192                         default: // Unknown error (maybe new?)
 193                                 logDebugMessage(__FUNCTION__, __LINE__, sprintf("Unknown error %s from WDS66 API received.", $data[1]));
 194                                 $return = array(
 195                                         'status'  => 'request_failed',
 196                                         'message' => '{%message,WERNIS_API_REQUEST_FAILED=' . $data[1] . '%}'
 197                                 );
 198                                 break;
 199                 }
 200         } else {
 201                 // All fine here
 202                 $return = array(
 203                         'status'   => 'OK',
 204                         'response' => $responseLine
 205                 );
 206         }
 207
 208         // Return the result
 209         return $return;
 210 }
 211
 212 // Tests the function by calling balance.php on the API
 213 function WERNIS_TEST_API () {
 214         // Result is always failed
 215         $result = false;
 216
 217         // Return the result from the lower functions
 218         $return = WERNIS_SEND_REQUEST('balance.php');
 219
 220         // Did it went smoothly?
 221         if ($return['status'] == 'OK') {
 222                 // All fine!
 223                 $result = true;
 224         } else {
 225                 // Status failure text
 226                 WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
 227         }
 228
 229         // Return result
 230         return $result;
 231 }
 232
 233 // Widthdraw this amount
 234 function WERNIS_EXECUTE_WITHDRAW ($wdsId, $userMd5, $amount) {
 235         // Is the sponsor extension installed?
 236         if (!isWernisWithdrawActive()) {
 237                 if (!isExtensionActive('sponsor')) {
 238                         // No, abort here
 239                         return false;
 240                 } elseif (!isSponsor()) {
 241                         // No sponsor, not allowed to withdraw!
 242                         return false;
 243                 }
 244         } // END - if
 245
 246         // Default is failed attempt
 247         $result = false;
 248
 249         // Prepare the request data
 250         $requestData = array(
 251                 'sub_request' => 'receive',
 252                 't_uid'       => bigintval($wdsId),
 253                 't_md5'       => $userMd5,
 254                 'r_uid'       => getWernisRefid(),
 255                 'amount'      => bigintval($amount),
 256                 'purpose'     => getMaskedMessage('WERNIS_API_PURPOSE_WITHDRAW', getMemberId())
 257         );
 258
 259         // Return the result from the lower functions
 260         $return = WERNIS_SEND_REQUEST('book.php', $requestData);
 261
 262         if ($return['status'] == 'OK') {
 263                 // All fine!
 264                 $result = true;
 265
 266                 // Log the transfer
 267                 WERNIS_LOG_TRANSFER($wdsId, $amount, 'IN');
 268         } else {
 269                 // Status failure text
 270                 WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
 271
 272                 // Log the transfer
 273                 WERNIS_LOG_TRANSFER($wdsId, $amount, 'FAILED', $return['message'], $return['status']);
 274         }
 275
 276         // Return result
 277         return $result;
 278 }
 279
 280
 281 // Payout this amount
 282 function WERNIS_EXECUTE_PAYOUT ($wdsId, $amount) {
 283         // Default is failed attempt
 284         $result = false;
 285
 286         // Prepare the request data
 287         $requestData = array(
 288                 'sub_request' => 'send',
 289                 't_uid'       => getWernisRefid(),
 290                 't_md5'       => getWernisPassMd5(),
 291                 'r_uid'       => bigintval($wdsId),
 292                 'amount'      => bigintval($amount),
 293                 'purpose'     => getMaskedMessage('WERNIS_API_PURPOSE_PAYOUT', getMemberId())
 294         );
 295
 296         // Return the result from the lower functions
 297         $return = WERNIS_SEND_REQUEST('book.php', $requestData);
 298
 299         if ($return['status'] == 'OK') {
 300                 // All fine!
 301                 $result = true;
 302
 303                 // Log the transfer
 304                 WERNIS_LOG_TRANSFER($wdsId, $amount, 'OUT');
 305         } else {
 306                 // Status failure text
 307                 WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
 308
 309                 // Log the transfer
 310                 WERNIS_LOG_TRANSFER($wdsId, $amount, 'FAILED', $return['message'], $return['status']);
 311         }
 312
 313         // Return result
 314         return $result;
 315 }
 316
 317 // Translate the status IN/OUT
 318 function translateWernisTransferStatus ($status) {
 319         // Default status
 320         $return = '{%message,WERNIS_STATUS_UNKNWOWN=' . $status . '%}';
 321
 322         // Which status?
 323         switch ($status) {
 324                 case 'IN': // Withdraw
 325                         $return = '{--WERNIS_STATUS_WITHDRAW--}';
 326                         break;
 327
 328                 case 'OUT': // Payout
 329                         $return = '{--WERNIS_STATUS_PAYOUT--}';
 330                         break;
 331         } // END - switch
 332
 333         // Return the status
 334         return $return;
 335 }
 336
 337 // Log the transfer
 338 function WERNIS_LOG_TRANSFER ($wdsId, $amount, $type = 'FAILED', $message = '', $status = '') {
 339         // Register this wernis movement
 340         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 (%s, %s, %s, UNIX_TIMESTAMP(), '%s', '%s', '%s')",
 341                 array(
 342                         getMemberId(),
 343                         bigintval($wdsId),
 344                         bigintval($amount),
 345                         $type,
 346                         $message,
 347                         $status
 348                 ), __FUNCTION__, __LINE__);
 349 }
 350
 351 // Take fees and factor
 352 function WERNIS_TAKE_FEE ($points, $mode) {
 353         // Payout or withdraw are allowed modes!
 354         //* DEBUG: */ debugOutput('mode='.$mode.',points='.$points);
 355         if (!in_array($mode, array('payout', 'withdraw'))) {
 356                 // Log error and abort
 357                 logDebugMessage(__FUNCTION__, __LINE__, 'userid=' . getMemberId() . ',mode=' . $mode . ',points=' . $points);
 358                 return false;
 359         } // END - if
 360
 361         // Is there a percentage or fixed fee?
 362         if (getConfig('wernis_' . $mode . '_fee_percent') > 0) {
 363                 // Percentage fee
 364                 $points -= $points * getConfig('wernis_'.$mode.'_fee_percent') / 100;
 365         } elseif (getConfig('wernis_' . $mode . '_fee_fix') > 0) {
 366                 // Fixed fee
 367                 $points -= getConfig('wernis_' . $mode . '_fee_fix');
 368         }
 369
 370         // Divide/multiply the factor
 371         if ($mode == 'payout') {
 372                 // Divide for payout
 373                 $points = $points / getWernisPayoutFactor();
 374         } else {
 375                 // Multiply for withdraw
 376                 $points = $points * getWernisWithdrawFactor();
 377         }
 378
 379         // Return value
 380         //* DEBUG: */ debugOutput('mode=' . $mode . ',points=' . $points);
 381         return $points;
 382 }
 383
 384 // Add withdraw fees and factor
 385 function WERNIS_ADD_WITHDRAW_FEE ($points) {
 386         // Is there a percentage or fixed fee?
 387         if (getWernisWithdrawFeePercent() > 0) {
 388                 // Percentage fee
 389                 $points += $points * getWernisWithdrawFeePercent() / 100;
 390         } elseif (getWernisWithdrawFeeFix() > 0) {
 391                 // Fixed fee
 392                 $points += getWernisWithdrawFeeFix();
 393         }
 394
 395         // Return value
 396         return $points;
 397 }
 398
 399 //-----------------------------------------------------------------------------
 400 //                             Wrapper functions
 401 //-----------------------------------------------------------------------------
 402
 403 // Wrapper function for 'wernis_refid'
 404 function getWernisRefid () {
 405         // Do we have cache?
 406         if (!isset($GLOBALS[__FUNCTION__])) {
 407                 // Get config entry
 408                 $GLOBALS[__FUNCTION__] = getConfig('wernis_refid');
 409         } // END - if
 410
 411         // Return cache
 412         return $GLOBALS[__FUNCTION__];
 413 }
 414
 415 // Wrapper function for 'wernis_pass_md5'
 416 function getWernisPassMd5 () {
 417         // Do we have cache?
 418         if (!isset($GLOBALS[__FUNCTION__])) {
 419                 // Get config entry
 420                 $GLOBALS[__FUNCTION__] = getConfig('wernis_pass_md5');
 421         } // END - if
 422
 423         // Return cache
 424         return $GLOBALS[__FUNCTION__];
 425 }
 426
 427 // Wrapper function for 'wernis_api_id'
 428 function getWernisApiId () {
 429         // Do we have cache?
 430         if (!isset($GLOBALS[__FUNCTION__])) {
 431                 // Get config entry
 432                 $GLOBALS[__FUNCTION__] = getConfig('wernis_api_id');
 433         } // END - if
 434
 435         // Return cache
 436         return $GLOBALS[__FUNCTION__];
 437 }
 438
 439 // Wrapper function for 'wernis_api_md5'
 440 function getWernisApiMd5 () {
 441         // Do we have cache?
 442         if (!isset($GLOBALS[__FUNCTION__])) {
 443                 // Get config entry
 444                 $GLOBALS[__FUNCTION__] = getConfig('wernis_api_md5');
 445         } // END - if
 446
 447         // Return cache
 448         return $GLOBALS[__FUNCTION__];
 449 }
 450
 451 // Wrapper function for 'wernis_api_url'
 452 function getWernisApiUrl () {
 453         // Do we have cache?
 454         if (!isset($GLOBALS[__FUNCTION__])) {
 455                 // Get config entry
 456                 $GLOBALS[__FUNCTION__] = getConfig('wernis_api_url');
 457         } // END - if
 458
 459         // Return cache
 460         return $GLOBALS[__FUNCTION__];
 461 }
 462
 463 // Wrapper function for 'wernis_withdraw_active'
 464 function getWernisWithdrawActive () {
 465         // Do we have cache?
 466         if (!isset($GLOBALS[__FUNCTION__])) {
 467                 // Get config entry
 468                 $GLOBALS[__FUNCTION__] = getConfig('wernis_withdraw_active');
 469         } // END - if
 470
 471         // Return cache
 472         return $GLOBALS[__FUNCTION__];
 473 }
 474
 475 // Wrapper function for 'wernis_payout_active'
 476 function getWernisPayoutActive () {
 477         // Do we have cache?
 478         if (!isset($GLOBALS[__FUNCTION__])) {
 479                 // Get config entry
 480                 $GLOBALS[__FUNCTION__] = getConfig('wernis_payout_active');
 481         } // END - if
 482
 483         // Return cache
 484         return $GLOBALS[__FUNCTION__];
 485 }
 486
 487 // Wrapper function for 'wernis_withdraw_active'
 488 function isWernisWithdrawActive () {
 489         // Do we have cache?
 490         if (!isset($GLOBALS[__FUNCTION__])) {
 491                 // Get config entry
 492                 $GLOBALS[__FUNCTION__] = (getConfig('wernis_withdraw_active') == 'Y');
 493         } // END - if
 494
 495         // Return cache
 496         return $GLOBALS[__FUNCTION__];
 497 }
 498
 499 // Wrapper function for 'wernis_payout_active'
 500 function isWernisPayoutActive () {
 501         // Do we have cache?
 502         if (!isset($GLOBALS[__FUNCTION__])) {
 503                 // Get config entry
 504                 $GLOBALS[__FUNCTION__] = (getConfig('wernis_payout_active') == 'Y');
 505         } // END - if
 506
 507         // Return cache
 508         return $GLOBALS[__FUNCTION__];
 509 }
 510
 511 // Wrapper function for 'wernis_withdraw_factor'
 512 function getWernisWithdrawFactor () {
 513         // Do we have cache?
 514         if (!isset($GLOBALS[__FUNCTION__])) {
 515                 // Get config entry
 516                 $GLOBALS[__FUNCTION__] = getConfig('wernis_withdraw_factor');
 517         } // END - if
 518
 519         // Return cache
 520         return $GLOBALS[__FUNCTION__];
 521 }
 522
 523 // Wrapper function for 'wernis_payout_factor'
 524 function getWernisPayoutFactor () {
 525         // Do we have cache?
 526         if (!isset($GLOBALS[__FUNCTION__])) {
 527                 // Get config entry
 528                 $GLOBALS[__FUNCTION__] = getConfig('wernis_payout_factor');
 529         } // END - if
 530
 531         // Return cache
 532         return $GLOBALS[__FUNCTION__];
 533 }
 534
 535 // Wrapper function for 'wernis_withdraw_fee_percent'
 536 function getWernisWithdrawFeePercent () {
 537         // Do we have cache?
 538         if (!isset($GLOBALS[__FUNCTION__])) {
 539                 // Get config entry
 540                 $GLOBALS[__FUNCTION__] = getConfig('wernis_withdraw_fee_percent');
 541         } // END - if
 542
 543         // Return cache
 544         return $GLOBALS[__FUNCTION__];
 545 }
 546
 547 // Wrapper function for 'wernis_withdraw_fee_fix'
 548 function getWernisWithdrawFeeFix () {
 549         // Do we have cache?
 550         if (!isset($GLOBALS[__FUNCTION__])) {
 551                 // Get config entry
 552                 $GLOBALS[__FUNCTION__] = getConfig('wernis_withdraw_fee_fix');
 553         } // END - if
 554
 555         // Return cache
 556         return $GLOBALS[__FUNCTION__];
 557 }
 558
 559 // [EOF]
 560 ?>