2 /************************************************************************
3 * Mailer v0.2.1-FINAL Start: 10/07/2004 *
4 * =================== Last change: 10/07/2004 *
6 * -------------------------------------------------------------------- *
7 * File : what-transfer.php *
8 * -------------------------------------------------------------------- *
9 * Short description : Point transfers *
10 * -------------------------------------------------------------------- *
11 * Kurzbeschreibung : Punktetransfers *
12 * -------------------------------------------------------------------- *
15 * $Tag:: 0.2.1-FINAL $ *
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 *
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. *
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. *
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, *
36 ************************************************************************/
38 // Some security stuff...
39 if (!defined('__SECURITY')) {
41 } elseif (!isMember()) {
42 redirectToIndexMemberOnlyModule();
45 // Add description as navigation point
46 addYouAreHereLink('member', __FILE__);
48 if ((!isExtensionActive('transfer')) && (!isAdmin())) {
49 loadTemplate('admin_settings_saved', false, generateExtensionInactiveNotInstalledMessage('transfer'));
53 // Check for mode in GET
55 if (isGetRequestParameterSet('mode')) {
56 $mode = getRequestParameter('mode');
60 if ((getUserData('opt_in') != 'Y') && ($mode == 'new')) {
65 case 'new': // Start new transfer
66 // Get total points and subtract the balance amount from it = maximum transferable points
67 $total = getTotalPoints(getMemberId());
69 // Remember maximum value for template
70 $content['max_transferable'] = round($total - getConfig('transfer_balance') - 0.5);
74 if (getConfig('transfer_code') > 0) {
76 $code = generateRandomCode(getConfig('transfer_code'), postRequestParameter('code_chk'), getMemberId(), $content['max_transferable']);
77 $valid_code = ($code == postRequestParameter('code'));
79 // Zero length (= disabled) is always valid!
84 $valid_pass = ($pass == generateHash(postRequestParameter('password'), $pass));
86 // Test transfer amount
87 $valid_amount = ((isPostRequestParameterSet('points')) && (postRequestParameter('points') <= $content['max_transferable']));
89 // Test reason for transfer
90 $valid_reason = (isPostRequestParameterSet('reason'));
92 // Test if a recipient is selected
93 $valid_recipient = isValidUserId(postRequestParameter('to_userid'));
95 // Check for nickname extension and set additional data
96 // @TODO Rewrite this to a filter
98 if (isExtensionActive('nickname')) {
99 $add = ', `nickname`';
102 // Re-check receivers and own personal data
103 $result = SQL_QUERY_ESC("SELECT `userid`, `gender`, `surname`, `family`, `email`".$add." FROM `{?_MYSQL_PREFIX?}_user_data` WHERE `userid` IN ('%s','%s') AND `status`='CONFIRMED' LIMIT 2",
106 bigintval(postRequestParameter('to_userid'))
107 ), __FILE__, __LINE__);
109 // Do we have two entries?
110 $valid_data = (SQL_NUMROWS($result) == 2);
112 // Final check if all is fine
113 if ($valid_code && $valid_data && $valid_pass && $valid_amount && $valid_reason && $valid_recipient) {
114 // Let's start the transfer and load user data
115 $content['sender'] = SQL_FETCHARRAY($result);
116 $content['recipient'] = SQL_FETCHARRAY($result);
118 // Is the nickname extension not installed?
119 if (!isExtensionActive('nickname')) {
120 // Fix empty nicknames
121 $content['sender']['nickname'] = '';
122 $content['recipient']['nickname'] = '';
125 // Prepare variables for testing
126 $TEST_NICK_SENDER = $content['sender']['nickname'];
127 $TEST_NICK_REC = $content['recipient']['nickname'];
129 // Default is userids for subject line
130 $SENDER = getMemberId();
131 $RECIPIENT = bigintval(postRequestParameter('to_userid'));
133 // If nickname is installed we can set the nickname
134 // @TODO Rewrite this to a filter
135 if (isExtensionActive('nickname')) {
136 if (($TEST_NICK_SENDER != getMemberId()) && (!empty($TEST_NICK_SENDER))) {
137 $SENDER = $content['sender']['nickname'];
140 if (($TEST_NICK_REC != postRequestParameter('to_userid')) && (!empty($TEST_NICK_REC))) {
141 $RECIPIENT = $content['recipient']['nickname'];
145 // Remember transfer reason and fancy date/time in constants
146 $content['reason'] = secureString(postRequestParameter('reason'));
147 $content['expires'] = '{%config,createFancyTime=transfer_age%}';
149 // Generate tranafer id
150 $content['trans_id'] = bigintval(generateRandomCode('10', mt_rand(0, 99999), getMemberId(), postRequestParameter('reason')));
152 // Add entries to both tables
153 SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_user_transfers_in` (`userid`, `from_userid`, `points`, `reason`, `time_trans`, `trans_id`) VALUES (%s,%s,%s,'%s', UNIX_TIMESTAMP(),%s)",
154 array(bigintval(postRequestParameter('to_userid')), getMemberId(), bigintval(postRequestParameter('points')), postRequestParameter('reason'), $content['trans_id']), __FILE__, __LINE__);
155 SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_user_transfers_out` (`userid`, `to_userid`, `points`, `reason`, `time_trans`, `trans_id`) VALUES (%s,%s,%s,'%s', UNIX_TIMESTAMP(),%s)",
156 array(getMemberId(), bigintval(postRequestParameter('to_userid')), bigintval(postRequestParameter('points')), postRequestParameter('reason'), $content['trans_id']), __FILE__, __LINE__);
158 // Add points to account *directly* ...
159 addPointsDirectly('transfer', bigintval(postRequestParameter('to_userid')), bigintval(postRequestParameter('points')));
161 // ... and add it to current user's used points
162 subtractPoints('transfer', getMemberId(), postRequestParameter('points'));
164 // First send email to recipient
165 $message = loadEmailTemplate('member_transfer_recipient', $content, postRequestParameter('to_userid'));
166 sendEmail($content['recipient']['email'], '{--TRANSFER_MEMBER_RECIPIENT_SUBJECT--}' . ': ' . $SENDER, $message);
168 // Second send email to sender
169 $message = loadEmailTemplate('member_transfer_sender', $content, getMemberId());
170 sendEmail($content['sender']['email'], '{--TRANSFER_MEMBER_SENDER_SUBJECT--}' . ': ' . $RECIPIENT, $message);
172 // At last send admin mail(s)
173 $adminSubject = sprintf("%s (%s->%s)", '{--TRANSFER_ADMIN_SUBJECT--}', $SENDER, $RECIPIENT);
174 sendAdminNotification($adminSubject, 'admin_transfer_points', $content);
176 // Transfer is completed
177 loadTemplate('admin_settings_saved', false, '<div>{--TRANSFER_COMPLETED--}' . '</div><div><a href="{%url=modules.php?module=login&what=transfer%}">{--TRANSFER_CONTINUE_OVERVIEW--}</a></div>');
178 } elseif ($valid_code === false) {
179 // Invalid Touring code!
180 loadTemplate('admin_settings_unsaved', false, '{--TRANSFER_INVALID_CODE--}');
181 unsetPostRequestParameter('ok');
182 } elseif ($valid_pass === false) {
183 // Wrong password entered
184 loadTemplate('admin_settings_unsaved', false, '{--TRANSFER_INVALID_PASSWORD--}');
185 unsetPostRequestParameter('ok');
186 } elseif ($valid_amount === false) {
187 // Too much points entered
188 loadTemplate('admin_settings_unsaved', false, '{--TRANSFER_INVALID_POINTS--}');
189 unsetPostRequestParameter('ok');
190 } elseif ($valid_reason === false) {
191 // No transfer reason entered
192 loadTemplate('admin_settings_unsaved', false, '{--TRANSFER_INVALID_REASON--}');
193 unsetPostRequestParameter('ok');
194 } elseif ($valid_recipient === false) {
195 // No recipient selected
196 loadTemplate('admin_settings_unsaved', false, '{--TRANSFER_INVALID_RECIPIENT--}');
197 unsetPostRequestParameter('ok');
198 } elseif ($valid_data === false) {
199 // No recipient/sender selected
200 loadTemplate('admin_settings_unsaved', false, '{--TRANSFER_INVALID_DATA--}');
201 unsetPostRequestParameter('ok');
205 SQL_FREERESULT($result);
210 if (isExtensionActive('nickname')) {
211 // Load userid and nickname
212 $result = SQL_QUERY_ESC("SELECT `userid`, `nickname` FROM `{?_MYSQL_PREFIX?}_user_data` WHERE `status`='CONFIRMED' AND `opt_in`='Y' AND `userid` != '%s' ORDER BY `userid` ASC",
213 array(getMemberId()), __FILE__, __LINE__);
216 $result = SQL_QUERY_ESC("SELECT `userid`, `userid` FROM `{?_MYSQL_PREFIX?}_user_data` WHERE `status`='CONFIRMED' AND `opt_in`='Y' AND `userid` != '%s' ORDER BY `userid` ASC",
217 array(getMemberId()), __FILE__, __LINE__);
220 if (!SQL_HASZERONUMS($result)) {
222 $OUT = '<select name="to_userid" size="1" class="form_select">
223 <option value="0">{--SELECT_NONE--}</option>';
224 // @TODO Try to rewrite his to $content = SQL_FETCHARRAY(), see some lines above for two different queries
225 while (list($userid, $nick) = SQL_FETCHROW($result)) {
226 $OUT .= ' <option value="' . $userid . '"';
227 if ((isPostRequestParameterSet('to_userid')) && (postRequestParameter('to_userid') == $userid)) $OUT .= ' selected="selected"';
229 if (($nick != $userid) && (!empty($nick))) {
239 $content['to_disabled'] = '';
242 SQL_FREERESULT($result);
244 // No one else is opt-in
245 $OUT = loadTemplate('admin_settings_saved', true, '{--TRANSFER_NO_ONE_ELSE_OPT_IN--}');
246 $content['to_disabled'] = ' disabled="disabled"';
249 // Transfer output to constant for the template
250 $content['userid_selection'] = $OUT;
253 if (getConfig('transfer_code') > 0) {
254 // Generate random number
255 $rand = mt_rand(0, 99999);
257 // Generate CAPTCHA code
258 $code = generateRandomCode(getConfig('transfer_code'), $rand, getMemberId(), $content['max_transferable']);
260 // Generate image (HTML code)
261 $img = generateImageOrCode($code, false);
263 // Add all and hidden field
264 $content['captcha_code'] = '<input type="hidden" name="code_chk" value="' . $rand . '" /><input type="text" name="code" class="form_field" size="5" maxlength="7"' . $content['to_disabled'] . ' /> ' . $img;
267 $content['captcha_code'] = loadTemplate('admin_settings_saved', true, '{--TRANSFER_NO_CODE--}');
270 // Init points/reason
271 $content['points'] = '';
272 $content['reason'] = '';
274 // Transfer maybe already entered valued'
275 if (isPostRequestParameterSet('ok')) {
276 // Get values from form
277 $content['points'] = postRequestParameter('points');
278 $content['reason'] = postRequestParameter('reason');
282 loadTemplate('member_transfer_new', false, $content);
286 case 'list_in': // List only incoming transactions
287 case 'list_out': // List only outgoing transactions
288 // As you can see I put list_in and list_out together. I now do a switch() again on it for the right SQL command
289 $nothingMessage = '';
292 $sql = "SELECT `trans_id`, `from_userid` AS party_userid, `points`, `reason`, `time_trans` FROM `{?_MYSQL_PREFIX?}_user_transfers_in` WHERE `userid`=%s ORDER BY `time_trans` DESC LIMIT {?transfer_max?}";
293 $nothingMessage = '{--TRANSFER_NO_INCOMING_TRANSFERS--}';
294 $content['balance'] = '{--TRANSFER_TOTAL_INCOMING--}';
295 $content['title'] = '{--TRANSFER_LIST_INCOMING--}';
299 $sql = "SELECT `trans_id`, `to_userid` AS party_userid, `points`, `reason`, `time_trans` FROM `{?_MYSQL_PREFIX?}_user_transfers_out` WHERE `userid`=%s ORDER BY `time_trans` DESC LIMIT {?transfer_max?}";
300 $nothingMessage = '{--TRANSFER_NO_OUTGOING_TRANSFERS--}';
301 $content['balance'] = '{--TRANSFER_TOTAL_OUTGOING--}';
302 $content['title'] = '{--TRANSFER_LIST_OUTGOING--}';
306 // Run the SQL command and set total points to zero
308 $result = SQL_QUERY_ESC($sql, array(getMemberId()), __FILE__, __LINE__);
310 // Do we have entries?
311 if (!SQL_HASZERONUMS($result)) {
313 while ($content = SQL_FETCHARRAY($result)) {
314 // Rewrite points, out is subtracted
315 if ($type == 'OUT') {
316 $content['points'] = $content['points'] * -1;
319 // Prepare content for template
320 $$content['time_trans'] = generateDateTime($content['time_trans'], 3);
323 $OUT .= loadTemplate('member_transfer_row2', true, $content);
325 // Add points and switch color
326 $totalPoints += $content['points'];
330 SQL_FREERESULT($result);
332 // Nothing for in or out
334 <td colspan="5" align="center" class="bottom">
335 ' . loadTemplate('admin_settings_saved', true, $nothingMessage) . '
340 // ... and add them to a constant for the template
341 $content['rows'] = $OUT;
343 // Remeber total amount
344 $content['total'] = $totalPoints;
346 // Load final template
347 loadTemplate('member_transfer_list', false, $content);
350 case 'list_all': // List all transactions
352 * Fill a temporary table with data from both tables. This is much
353 * easier to code and unstandable by you as sub-SELECT queries. I know
354 * this is not the fastest way but it shall be fine for now.
357 // First of all create the per-user temporary table
358 $result = SQL_QUERY_ESC("CREATE TEMPORARY TABLE `{?_MYSQL_PREFIX?}_%s_transfers_tmp` (
359 `trans_id` VARCHAR(12) NOT NULL DEFAULT '',
360 `party_userid` BIGINT(20) UNSIGNED NOT NULL DEFAULT 0,
361 `points` BIGINT(20) UNSIGNED NOT NULL DEFAULT 0,
362 `reason` VARCHAR(255) NOT NULL DEFAULT '',
363 `time_trans` VARCHAR(10) NOT NULL DEFAULT 0,
364 `trans_type` ENUM('IN','OUT') NOT NULL DEFAULT 'IN',
366 ) TYPE = HEAP COMMENT = 'Temporary transfer table'", array(getMemberId()), __FILE__, __LINE__);
368 // Let's begin with the incoming list
369 $result = SQL_QUERY_ESC("SELECT `trans_id`, `from_userid`, `points`, `reason`, `time_trans` FROM `{?_MYSQL_PREFIX?}_user_transfers_in` WHERE `userid`=%s ORDER BY `id` ASC LIMIT {?transfer_max?}",
370 array(getMemberId()), __FILE__, __LINE__);
371 while ($DATA = SQL_FETCHROW($result)) {
373 $DATA = implode("','", $DATA);
374 $res_temp = SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_%s_transfers_tmp` (`trans_id`, `party_userid`, `points`, `reason`, `time_trans`, `trans_type`) VALUES ('" . $DATA . "')", array(getMemberId()), __FILE__, __LINE__);
378 SQL_FREERESULT($result);
380 // As the last table transfer data from outgoing table to temporary
381 $result = SQL_QUERY_ESC("SELECT `trans_id`, `to_userid`, `points`, `reason`, `time_trans` FROM `{?_MYSQL_PREFIX?}_user_transfers_out` WHERE `userid`=%s ORDER BY `id` LIMIT {?transfer_max?}",
382 array(getMemberId()), __FILE__, __LINE__);
383 while ($DATA = SQL_FETCHROW($result)) {
385 $DATA = implode("','", $DATA);
386 $res_temp = SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_%s_transfers_tmp` (`trans_id`, `party_userid`, `points`, `reason`, `time_trans`, `trans_type`) VALUES ('" . $DATA . "')", array(getMemberId()), __FILE__, __LINE__);
390 SQL_FREERESULT($result);
392 // Search for entries
393 $result = SQL_QUERY_ESC("SELECT `party_userid`, `trans_id`, `points`, `reason`, `time_trans`, `trans_type` FROM `{?_MYSQL_PREFIX?}_%s_transfers_tmp` ORDER BY `time_trans` DESC",
394 array(getMemberId()), __FILE__, __LINE__);
397 if (!SQL_HASZERONUMS($result)) {
400 while ($content = SQL_FETCHARRAY($result)) {
401 // Rewrite points if OUT
402 if ($content['trans_type'] == 'OUT') {
403 $content['points'] = $content['points'] * -1;
406 // Prepare content for template
407 $content['time'] = generateDateTime($content['time_trans'], 3);
410 $OUT .= loadTemplate('member_transfer_row', true, $content);
412 // Add points and switch color
413 $total += $content['points'];
416 // Nothing for in and out
418 <td colspan="5" align="center" class="bottom">
419 ' . loadTemplate('admin_settings_saved', true, '{--TRANSFER_NO_INOUT_TRANSFERS--}') . '
425 SQL_FREERESULT($result);
427 // ... and add them to a constant for the template
428 $content['rows'] = $OUT;
430 // Remeber total amount
431 $content['total'] = $total;
434 $content['title'] = '{--TRANSFER_LIST_ALL--}';
436 // Set "balance" word
437 $content['balance'] = '{--TRANSFER_TOTAL_BALANCE--}';
439 // At the end we don't need a temporary table in memory
440 $result = SQL_QUERY_ESC("DROP TABLE IF EXISTS `{?_MYSQL_PREFIX?}_%s_transfers_tmp`", array(getMemberId()), __FILE__, __LINE__);
442 // Load final template
443 loadTemplate('member_transfer_list', false, $content);
445 // Free some memory...
446 SQL_FREERESULT($result);
449 default: // Overview page
450 // Check incoming transfers
451 $totalIn = countSumTotalData(getMemberId(), 'user_transfers_in', 'id', 'userid', true);
452 $content['in_link'] = $totalIn;
454 $content['in_link'] = '<a href="{%url=modules.php?module=login&what=transfer&mode=list_in%}">' . $totalIn . '</a>';
457 // Check outgoing transfers
458 $totalOut = countSumTotalData(getMemberId(), 'user_transfers_out', 'id', 'userid', true);
460 $content['out_link'] = $totalOut;
462 $content['out_link'] = '<a href="{%url=modules.php?module=login&what=transfer&mode=list_out%}">' . $totalOut . '</a>';
465 // Add all to total amount
466 $total = $totalIn + $totalOut;
468 // Total transactions
469 $content['all_link'] = $total;
471 $content['all_link'] = '<a href="{%url=modules.php?module=login&what=transfer&mode=list_all%}">{%pipe,translateComma=' . $total . '%}</a>';
476 SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_user_data` SET `opt_in`='%s' WHERE `userid`=%s LIMIT 1",
477 array(postRequestParameter('opt_in'), getMemberId()), __FILE__, __LINE__);
479 // "Settings saved..."
480 loadTemplate('admin_settings_saved', false, '{--SETTINGS_SAVED--}');
484 foreach (array('allow_y','allow_n') as $entry) {
485 $content[$entry] = '';
488 // Set current selection
489 $content['allow_' . strtolower(getUserData('opt_in'))] = ' checked="checked"';
491 // Set 'new transfer' link according to above option
492 switch (getUserData('opt_in')) {
494 $content['new_link'] = '<a href="{%url=modules.php?module=login&what=transfer&mode=new%}" title="{--TRANSFER_NOW_TITLE--}">{--TRANSFER_NOW_LINK--}</a>';
498 $content['new_link'] = '{--TRANSFER_PLEASE_ALLOW_OPT_IN--}';
502 // Check for latest out-transfers
503 $result = SQL_QUERY_ESC("SELECT
506 `{?_MYSQL_PREFIX?}_user_transfers_out`
508 `time_trans` > (UNIX_TIMESTAMP() - {?transfer_timeout?}) AND
515 ), __FILE__, __LINE__);
517 // Do we have an entry?
518 if (SQL_NUMROWS($result) == 1) {
519 // Load newest transaction
520 list($newest) = SQL_FETCHROW($result);
521 $content['settings'] = getMaskedMessage('TRANSFER_LATEST_IS', generateDateTime($newest, 3));
524 $content['settings'] = loadTemplate('member_transfer_settings', true, $content);
528 SQL_FREERESULT($result);
531 loadTemplate('member_transfer_overview', false, $content);