+// Widthdraw this amount
+function WERNIS_EXECUTE_WITHDRAW ($wdsId, $userMd5, $amount) {
+ // Is the sponsor extension installed?
+ if (getConfig('wernis_withdraw_active') != "Y") {
+ if (!EXT_IS_ACTIVE("sponsor")) {
+ // No, abort here
+ return false;
+ } elseif (!IS_SPONSOR()) {
+ // No sponsor, not allowed to withdraw!
+ return false;
+ }
+ } // END - if
+
+ // 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' => getConfig('wernis_refid'),
+ 'amount' => bigintval($amount),
+ 'purpose' => encodeString($purpose, false)
+ );
+
+ // 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, $amount) {
+ // Default is failed attempt
+ $result = false;
+
+ // Prepare the purpose
+ $eval = "\$purpose = \"".COMPILE_CODE(sprintf(getMessage('WERNIS_API_PURPOSE_PAYOUT'), $GLOBALS['userid']))."\";";
+ eval($eval);
+
+ // Prepare the request data
+ $requestData = array(
+ 'sub_request' => "send",
+ 't_uid' => getConfig('wernis_refid'),
+ 't_md5' => getConfig('wernis_pass_md5'),
+ 'r_uid' => bigintval($wdsId),
+ 'amount' => bigintval($amount),
+ 'purpose' => encodeString($purpose, false)
+ );
+
+ // 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
+ 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), __FUNCTION__, __LINE__);
+}
+
+// Take fees and factor
+function WERNIS_TAKE_FEE ($points, $mode) {
+ // 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__, __LINE__, "uid={$GLOBALS['userid']},mode={$mode},points={$points}");
+ return false;
+ } // END - if
+
+ // Is there a percentage or fixed fee?
+ if (getConfig('wernis_'.$mode.'_fee_percent') > 0) {
+ // Percentage fee
+ $points -= $points * getConfig('wernis_'.$mode.'_fee_percent') / 100;
+ } elseif (getConfig('wernis_'.$mode.'_fee_fix') > 0) {
+ // Fixed fee
+ $points -= getConfig('wernis_'.$mode.'_fee_fix');
+ }
+
+ // Divide/multiply the factor
+ if ($mode == "payout") {
+ // Divide for payout
+ $points = $points / getConfig('wernis_payout_factor');
+ } else {
+ // Multiply for withdraw
+ $points = $points * getConfig('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) {
+ // Is there a percentage or fixed fee?
+ if (getConfig('wernis_withdraw_fee_percent') > 0) {
+ // Percentage fee
+ $points += $points * getConfig('wernis_withdraw_fee_percent') / 100;
+ } elseif (getConfig('wernis_withdraw_fee_fix') > 0) {
+ // Fixed fee
+ $points += getConfig('wernis_withdraw_fee_fix');
+ }
+
+ // Return value
+ return $points;
+}
+
+// Add all fees to the array
+function WERNIS_ADD_FEES_TO_ARRAY (&$array) {
+ // Is the array an array? ;-)
+ if (!is_array($array)) {
+ // Log error and return
+ DEBUG_LOG(__FUNCTION__, __LINE__, " Type ".gettype($array)." != array.");
+ return;
+ } // END - if
+
+ // Add both factors
+ $array['payout_factor'] = TRANSLATE_COMMA(getConfig('wernis_payout_factor'));
+ $array['withdraw_factor'] = TRANSLATE_COMMA(getConfig('wernis_withdraw_factor'));
+
+ // Add all fees
+ $array['payout_fee_percent'] = TRANSLATE_COMMA(getConfig('wernis_payout_fee_percent'));
+ $array['withdraw_fee_percent'] = TRANSLATE_COMMA(getConfig('wernis_withdraw_fee_percent'));
+ $array['payout_fee_fix'] = TRANSLATE_COMMA(getConfig('wernis_payout_fee_fix'));
+ $array['withdraw_fee_fix'] = TRANSLATE_COMMA(getConfig('wernis_withdraw_fee_fix'));
+}
+