+
+// 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'), getUserId()))."\";";
+ 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(getMessage('WERNIS_STATUS_UNKNWOWN'), $status);
+ switch ($status) {
+ case 'IN': // Withdraw
+ $return = getMessage('WERNIS_STATUS_WITHDRAW');
+ break;
+
+ case 'OUT': // Payout
+ $return = getMessage('WERNIS_STATUS_PAYOUT');
+ break;
+
+ case 'FAILED': // Payout
+ $return = getMessage('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(getUserId(), 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={getUserId()},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'] = translateComma(getConfig('wernis_payout_factor'));
+ $array['withdraw_factor'] = translateComma(getConfig('wernis_withdraw_factor'));
+
+ // Add all fees
+ $array['payout_fee_percent'] = translateComma(getConfig('wernis_payout_fee_percent'));
+ $array['withdraw_fee_percent'] = translateComma(getConfig('wernis_withdraw_fee_percent'));
+ $array['payout_fee_fix'] = translateComma(getConfig('wernis_payout_fee_fix'));
+ $array['withdraw_fee_fix'] = translateComma(getConfig('wernis_withdraw_fee_fix'));
+}
+