+ if ($return['status'] == "OK") {
+ // All fine!
+ $result = true;
+ } else {
+ // Status failture text
+ WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
+ }
+
+ // Return result
+ return $result;
+}
+
+// Widthdraw this amount
+function WERNIS_EXECUTE_WITHDRAW ($wdsId, $userMd5, $amount) {
+ global $_CONFIG;
+
+ // Is the sponsor extension installed?
+ if (!EXT_IS_ACTIVE("sponsor")) {
+ // No, abort here
+ return false;
+ } elseif (!IS_SPONSOR()) {
+ // No sponsor, not allowed to withdraw!
+ return false;
+ }
+
+ // Default is failed attempt
+ $result = false;
+
+ // Prepare the purpose
+ $eval = "\$purpose = \"".COMPILE_CODE(sprintf(WERNIS_API_PURPOSE_WITHDRAW, $GLOBALS['userid']))."\";";
+ eval($eval);
+
+ // Prepare the request data
+ $requestData = array(
+ 'sub_request' => "receive",
+ 't_uid' => bigintval($wdsId),
+ 't_md5' => $userMd5,
+ 'r_uid' => $_CONFIG['wernis_refid'],
+ 'amount' => bigintval($amount),
+ 'purpose' => urlencode(base64_encode($purpose))
+ );
+
+ // Return the result from the lower functions
+ $return = WERNIS_SEND_REQUEST("book.php", $requestData);
+
+ if ($return['status'] == "OK") {
+ // All fine!
+ $result = true;
+
+ // Log the transfer
+ WERNIS_LOG_TRANSFER($wdsId, $amount, 'IN');
+ } else {
+ // Status failture text
+ WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
+
+ // Log the transfer
+ WERNIS_LOG_TRANSFER($wdsId, $amount, 'FAILED', $return['message'], $return['status']);
+ }
+
+ // Return result
+ return $result;
+}
+
+
+// Payout this amount
+function WERNIS_EXECUTE_PAYOUT ($wdsId, $userMd5, $amount) {
+ global $_CONFIG;
+
+ // Default is failed attempt
+ $result = false;
+
+ // Prepare the purpose
+ $eval = "\$purpose = \"".COMPILE_CODE(sprintf(WERNIS_API_PURPOSE_PAYOUT, $GLOBALS['userid']))."\";";
+ eval($eval);
+
+ // Prepare the request data
+ $requestData = array(
+ 'sub_request' => "send",
+ 't_uid' => bigintval($wdsId),
+ 't_md5' => $userMd5,
+ 'r_uid' => $_CONFIG['wernis_refid'],
+ 'amount' => bigintval($amount),
+ 'purpose' => urlencode(base64_encode($purpose))
+ );
+
+ // Return the result from the lower functions
+ $return = WERNIS_SEND_REQUEST("book.php", $requestData);
+
+ if ($return['status'] == "OK") {
+ // All fine!
+ $result = true;
+
+ // Log the transfer
+ WERNIS_LOG_TRANSFER($wdsId, $amount, 'OUT');
+ } else {
+ // Status failture text
+ WERNIS_STATUS_MESSAGE($return['message'], $return['status']);
+
+ // Log the transfer
+ WERNIS_LOG_TRANSFER($wdsId, $amount, 'FAILED', $return['message'], $return['status']);
+ }
+
+ // Return result
+ return $result;
+}
+
+// Translate the status IN/OUT
+function WERNIS_TRANSFER_STATUS ($status) {
+ // Default status
+ $return = sprintf(WERNIS_STATUS_UNKNWOWN, $status);
+ switch ($status) {
+ case "IN": // Withdraw
+ $return = WERNIS_STATUS_WITHDRAW;
+ break;
+
+ case "OUT": // Payout
+ $return = WERNIS_STATUS_PAYOUT;
+ break;
+
+ case "FAILED": // Payout
+ $return = WERNIS_STATUS_FAILED;
+ break;
+ }
+
+ // Return the status
+ return $return;
+}
+
+// Log the transfer
+function WERNIS_LOG_TRANSFER ($wdsId, $amount, $type = 'FAILED', $message = "", $status = "") {
+ // Register this wernis movement
+ $result = 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')",
+ array($GLOBALS['userid'], bigintval($wdsId), bigintval($amount), $type, $message, $status), __FILE__, __LINE__);
+}
+
+// Take fees and factor
+function WERNIS_TAKE_FEE ($points, $mode) {
+ global $_CONFIG;
+
+ // Payout or withdraw are allowed modes!
+ //* DEBUG: */ echo "mode={$mode},points={$points}<br />\n";
+ if (!in_array($mode, array('payout', 'withdraw'))) {
+ // Log error and abort
+ DEBUG_LOG(__FUNCTION__.":uid={$GLOBALS['userid']},mode={$mode},points={$points}");
+ return false;
+ } // END - if
+
+ // Is there a percentage or fixed fee?
+ if ($_CONFIG['wernis_'.$mode.'_fee_percent'] > 0) {
+ // Percentage fee
+ $points -= $points * $_CONFIG['wernis_'.$mode.'_fee_percent'] / 100;
+ } elseif ($_CONFIG['wernis_'.$mode.'_fee_fix'] > 0) {
+ // Fixed fee
+ $points -= $_CONFIG['wernis_'.$mode.'_fee_fix'];
+ }
+
+ // Divide/multiply the factor
+ if ($mode == "payout") {
+ // Divide for payout
+ $points = $points / $_CONFIG['wernis_payout_factor'];
+ } else {
+ // Multiply for withdraw
+ $points = $points * $_CONFIG['wernis_withdraw_factor'];
+ }
+
+ // Return value
+ //* DEBUG: */ echo "mode={$mode},points={$points}<br />\n";
+ return $points;
+}
+
+// Add withdraw fees and factor
+function WERNIS_ADD_WITHDRAW_FEE ($points) {
+ global $_CONFIG;
+
+ // Is there a percentage or fixed fee?
+ if ($_CONFIG['wernis_withdraw_fee_percent'] > 0) {
+ // Percentage fee
+ $points += $points * $_CONFIG['wernis_withdraw_fee_percent'] / 100;
+ } elseif ($_CONFIG['wernis_withdraw_fee_fix'] > 0) {
+ // Fixed fee
+ $points += $_CONFIG['wernis_withdraw_fee_fix'];
+ }
+
+ // Return value
+ return $points;
+}
+
+// Add all fees to the array
+function WERNIS_ADD_FEES_TO_ARRAY (&$array) {
+ global $_CONFIG;
+
+ // Is the array an array? ;-)
+ if (!is_array($array)) {
+ // Log error and return
+ DEBUG_LOG(__FUNCTION__.": Type ".gettype($array)." != array.");
+ return;
+ } // END - if
+
+ // Add both factors
+ $array['payout_factor'] = TRANSLATE_COMMA($_CONFIG['wernis_payout_factor']);
+ $array['withdraw_factor'] = TRANSLATE_COMMA($_CONFIG['wernis_withdraw_factor']);
+
+ // Add all fees
+ $array['payout_fee_percent'] = TRANSLATE_COMMA($_CONFIG['wernis_payout_fee_percent']);
+ $array['withdraw_fee_percent'] = TRANSLATE_COMMA($_CONFIG['wernis_withdraw_fee_percent']);
+ $array['payout_fee_fix'] = TRANSLATE_COMMA($_CONFIG['wernis_payout_fee_fix']);
+ $array['withdraw_fee_fix'] = TRANSLATE_COMMA($_CONFIG['wernis_withdraw_fee_fix']);