2 /************************************************************************
\r
3 * MXChange v0.2.1 Start: 09/25/2004 *
\r
4 * ================ Last change: 09/25/2004 *
\r
6 * -------------------------------------------------------------------- *
\r
7 * File : ext-beg.php *
\r
8 * -------------------------------------------------------------------- *
\r
9 * Short description : Begging link *
\r
10 * -------------------------------------------------------------------- *
\r
11 * Kurzbeschreibung : Bettel-Link *
\r
12 * -------------------------------------------------------------------- *
\r
14 * -------------------------------------------------------------------- *
\r
15 * Copyright (c) 2003 - 2007 by Roland Haeder *
\r
16 * For more information visit: http://www.mxchange.org *
\r
18 * This program is free software; you can redistribute it and/or modify *
\r
19 * it under the terms of the GNU General Public License as published by *
\r
20 * the Free Software Foundation; either version 2 of the License, or *
\r
21 * (at your option) any later version. *
\r
23 * This program is distributed in the hope that it will be useful, *
\r
24 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
\r
25 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
\r
26 * GNU General Public License for more details. *
\r
28 * You should have received a copy of the GNU General Public License *
\r
29 * along with this program; if not, write to the Free Software *
\r
30 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, *
\r
31 * MA 02110-1301 USA *
\r
32 ************************************************************************/
\r
34 // Some security stuff...
\r
35 if ((ereg(basename(__FILE__), $_SERVER['PHP_SELF'])))
\r
37 $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4)."/security.php";
\r
42 $EXT_VERSION = "0.2.5";
\r
44 // Auto-set extension version
\r
45 if (empty($EXT_VER)) $EXT_VER = $EXT_VERSION;
\r
47 // Version history array (add more with , "0.1" and so on)
\r
48 $EXT_VER_HISTORY = array("0.0", "0.0.1", "0.0.2", "0.0.3", "0.0.4", "0.0.5", "0.0.6", "0.0.7", "0.0.8", "0.0.9", "0.1.0", "0.1.1", "0.1.2", "0.1.3", "0.1.4", "0.1.5", "0.1.6", "0.1.7", "0.1.8", "0.1.9", "0.2.0", "0.2.1", "0.2.2", "0.2.3", "0.2.4", "0.2.5");
\r
50 switch ($EXT_LOAD_MODE)
\r
52 case "register": // Do stuff when installtion is running (modules.php?module=admin&action=login is called)
\r
53 // SQL commands to run
\r
54 $SQLs[] = "INSERT INTO "._MYSQL_PREFIX."_admin_menu (action, what, title, descr, sort) VALUES('setup', 'config_beg', 'Bettel-Link', 'IP-Sperre, {!POINTS!}-Vergütung usw. können Sie hier einstellen.', 10)";
\r
55 $SQLs[] = "INSERT INTO "._MYSQL_PREFIX."_guest_menu (action, what, title, sort, visible, locked) VALUES ('main', 'beg', '{!POINTS!} erbetteln!', 4, 'Y', 'Y')";
\r
56 $SQLs[] = "INSERT INTO "._MYSQL_PREFIX."_member_menu (action, what, title, sort, visible, locked) VALUES ('main', 'beg', 'Ihr Bettel-Link', 6, 'Y', 'Y')";
\r
57 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_timeout bigint(20) not null default '600'";
\r
58 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_uid_timeout bigint(20) not null default '1800'";
\r
59 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_points double(20,5) not null default '0.00100'";
\r
60 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_user_data ADD beg_clicks bigint(20) not null default '0'";
\r
61 $SQLs[] = "DROP TABLE IF EXISTS "._MYSQL_PREFIX."_beg_ips";
\r
62 $SQLs[] = "CREATE TABLE "._MYSQL_PREFIX."_beg_ips (
\r
63 id bigint(20) not null auto_increment,
\r
64 userid bigint(20) not null default '0',
\r
65 remote_ip varchar(15) not null default '0.0.0.0',
\r
66 timeout varchar(10) not null default '',
\r
75 case "remove": // Do stuff when removing extension
\r
76 // SQL commands to run
\r
77 $SQLs[] = "DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_admin_menu WHERE what='config_beg' OR what='list_beg' LIMIT 2";
\r
78 $SQLs[] = "DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_guest_menu WHERE what='beg' LIMIT 1";
\r
79 $SQLs[] = "DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_member_menu WHERE what='beg' OR what='beg2' LIMIT 2";
\r
80 $SQLs[] = "DROP TABLE IF EXISTS "._MYSQL_PREFIX."_beg_ips";
\r
83 case "activate": // Do stuff when admin activates this extension
\r
84 // SQL commands to run
\r
85 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_guest_menu SET visible='Y', locked='N' WHERE what='beg' LIMIT 1";
\r
86 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_member_menu SET visible='Y', locked='N' WHERE what='beg' LIMIT 1";
\r
87 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_mod_reg SET locked='N', hidden='N', admin_only='N', mem_only='N' WHERE module='beg' LIMIT 1";
\r
90 case "deactivate": // Do stuff when admin deactivates this extension
\r
91 // SQL commands to run
\r
92 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_guest_menu SET visible='Y', locked='Y' WHERE what='beg' LIMIT 1";
\r
93 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_member_menu SET visible='Y', locked='Y' WHERE what='beg' LIMIT 1";
\r
94 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_mod_reg SET locked='Y' WHERE module='beg' LIMIT 1";
\r
97 case "update": // Update an extension
\r
100 case "0.0.1": // SQL queries for v0.0.1
\r
101 // Update notes (these will be set as task text!)
\r
102 $UPDATE_NOTES = "Design "Solid-Business" eingebaut.";
\r
105 case "0.0.2": // SQL queries for v0.0.2
\r
106 // Update notes (these will be set as task text!)
\r
107 $UPDATE_NOTES = "Seit <A href=\"".SERVER_URL."/patches/340-Gast_Mitgliedsmenue_Deaktivieren.zip\">Patch 340</A> überflüssige HTML-Tags entfernt.";
\r
110 case "0.0.3": // SQL queries for v0.0.3
\r
111 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_points_max double(20,5) not null default '0.10000'";
\r
113 // Update notes (these will be set as task text!)
\r
114 $UPDATE_NOTES = "Maximale Obergrenze an {!POINTS!} einstellbar (Standart: 0,1 {!POINTS!})";
\r
117 case "0.0.4": // SQL queries for v0.0.4
\r
118 // Update notes (these will be set as task text!)
\r
119 $UPDATE_NOTES = "Überlange Kommastellen bei Punktangaben aus Bettellink und Gastbereich entfernt und Admin-Templates repariert ("Unbekannte Spalte <U>beg_points_ma</U>").";
\r
122 case "0.0.5": // SQL queries for v0.0.5
\r
123 // Update notes (these will be set as task text!)
\r
124 $UPDATE_NOTES = "Im Mitgliedsmenü wurde die Beschreibung aus dem Gastmenü verwendet.";
\r
127 case "0.0.6": // SQL queries for v0.0.6
\r
128 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_uid bigint(20) not null default '0'";
\r
130 // Update notes (these will be set as task text!)
\r
131 $UPDATE_NOTES = "Ein Mitgliedsaccount (empfehlenswert ist Ihr eigenes!) kann zum Abbuchen der {!POINTS!} verwendet werden. Template <U>admin_config_beg.tpl</U> (und pro!) nicht vergessen, zu aktualisieren.";
\r
134 case "0.0.8": // SQL queries for v0.0.8
\r
135 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_ip_timeout bigint(20) not null default '1800'";
\r
137 // Update notes (these will be set as task text!)
\r
138 $UPDATE_NOTES = "Zeitsperre gegen die selbe IP-Nummer hinzugefügt.";
\r
141 case "0.0.9": // SQL queries for v0.0.9
\r
142 // Update notes (these will be set as task text!)
\r
143 $UPDATE_NOTES = "Bitte verschieben Sie die beg-Templates (Ordner: ".PATH."/templates/".GET_LANGUAGE()."/html/) in den neuen Order beg!";
\r
146 case "0.1.0": // SQL queries for v0.1.0
\r
147 // Update notes (these will be set as task text!)
\r
148 $UPDATE_NOTES = "Abspeichern von Einstellungen repariert.";
\r
151 case "0.1.1": // SQL queries for v0.1.1
\r
152 // Update notes (these will be set as task text!)
\r
153 $UPDATE_NOTES = "Vorbereitung auf die neue Mediendaten v0.0.4.";
\r
157 // Get current month
\r
158 $curr = date("m", time());
\r
159 if (strlen($curr) == 1) $curr = "0".$curr;
\r
160 if ($curr == "00") $curr = "12";
\r
162 // SQL queries for v0.1.2
\r
163 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_mode enum('DIRECT', 'REF') not null default 'REF'";
\r
164 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_month char(2) not null default '".$curr."'";
\r
165 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_ranks tinyint(4) not null default '10'";
\r
166 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_active enum('Y', 'N') not null default 'N'";
\r
167 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_rallye enum('Y', 'N') not null default 'N'";
\r
168 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_user_data ADD beg_points double(21,5) not null default '0.00000'";
\r
169 $VIS = "N"; $LOCKED = "Y";
\r
170 if (EXT_IS_ACTIVE("beg")) { $VIS = "Y"; $LOCKED = "N"; }
\r
171 $SQLs[] = "INSERT INTO "._MYSQL_PREFIX."_member_menu (action, what, title, visible, locked, sort) VALUES ('main', 'beg2', 'Bettel-Rallye', '".$VIS."', '".$LOCKED."', '7')";
\r
172 $SQLs[] = "INSERT INTO "._MYSQL_PREFIX."_admin_menu (action, what, title, descr, sort) VALUES('user', 'list_beg', 'Bettel-Rallye', 'Listet alle Teilnehmer der monatlichen Bettel-Rallye auf.', '12')";
\r
174 // Update notes (these will be set as task text!)
\r
175 $UPDATE_NOTES = "Optionale Bettel-Rallye möglich. Und die erbettelten {!POINTS!} können entweder nur dem bettelndem Mitglied direkt oder auch seinem Werber gutgeschrieben werden können.";
\r
178 case "0.1.3": // SQL queries for v0.1.3
\r
179 // Update notes (these will be set as task text!)
\r
180 $UPDATE_NOTES = "Erbettelte {!POINTS!} werden nach Deaktivierung der Bettel-Rallye gelöscht.";
\r
183 case "0.1.4": // SQL queries for v0.1.4
\r
184 // Update notes (these will be set as task text!)
\r
185 $UPDATE_NOTES = "Rechtlichen Hinweis im Mitgliedsbereich vergessen (<STRONG>member_list_beg.tpl</STRONG>); Template <STRONG>member_beg_404.tpl</STRONG> fehlte!";
\r
188 case "0.1.5": // SQL queries for v0.1.5
\r
189 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_admin_menu SET title='Bettellink/-rallye', descr='IP-Sperre, {!POINTS!}-Vergütung und auch die Bettel-Rallye können Sie hier einstellen.' WHERE what='config_beg' LIMIT 1";
\r
191 // Update notes (these will be set as task text!)
\r
192 $UPDATE_NOTES = "Fehlendes Template im Admin-Bereich hinzugefügt. Im Admin-Bereich Hinweis hinzugefügt, wenn Bettel-Rallye inaktiv ist. Bitte Script inc/monthly_beg.php löschen!";
\r
195 case "0.1.6": // SQL queries for v0.1.6
\r
196 // Update notes (these will be set as task text!)
\r
197 $UPDATE_NOTES = "Es wurden immer dem ersten bettelndem Mitglied die {!POINTS!} gutgeschrieben.";
\r
200 case "0.1.7": // SQL queries for v0.1.7
\r
201 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_ral_en_notify enum('Y', 'N') not null default 'N'";
\r
202 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_ral_di_notify enum('Y', 'N') not null default 'N'";
\r
203 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_new_mem_notify enum('Y', 'N') not null default 'N'";
\r
204 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_notify_bonus double(20,5) not null default '0.00000'";
\r
205 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_notify_wait bigint(20) not null default '30'";
\r
206 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_user_data ADD beg_ral_notify bigint(20) not null default '0'";
\r
207 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_user_data ADD beg_ral_en_notify bigint(20) not null default '0'";
\r
208 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_user_data ADD beg_ral_di_notify bigint(20) not null default '0'";
\r
210 // Update notes (these will be set as task text!)
\r
211 $UPDATE_NOTES = "Die Mitglieder können nun optional automatisch über eine aktivierte und/oder deaktivierte Bettel-Rallye informiert werden. Beide Benachrichtigungen können Sie unter <STRONG>Einstellungen --> Bettel-Link/-rallye</STRONG> seperat ein- und ausschalten! Zudem ist eine Sperre gegen eingeloggte Mitglieder eingebaut, die das Klicken auf den eigenen Bettel-Link etwas erschweren soll.";
\r
214 case "0.1.8": // SQL queries for v0.1.8
\r
215 // Update notes (these will be set as task text!)
\r
216 $UPDATE_NOTES = "Fehler im täglichen Reset beseitigt.";
\r
219 case "0.1.9": // SQL queries for v0.1.9
\r
220 // Update notes (these will be set as task text!)
\r
221 $UPDATE_NOTES = "De-/Aktivieren des mit dieser Erweiterung verknüpften Modules eingebunden.";
\r
224 case "0.2.0": // SQL queries for v0.2.0
\r
225 // Update notes (these will be set as task text!)
\r
226 $UPDATE_NOTES = "Bei ".POINTS."-Gleichstand wird als nächstes nach wer als letztes Online war umsortiert.";
\r
229 case "0.2.1": // SQL queries for v0.2.1
\r
230 // Update notes (these will be set as task text!)
\r
231 $UPDATE_NOTES = "Fehler <STRONG>unknown column 'uid'</STRONG> beseitigt.";
\r
234 case "0.2.2": // SQL queries for v0.2.2
\r
235 $SQLs[] = "ALTER TABLE "._MYSQL_PREFIX."_config ADD beg_include_own enum('Y', 'N') not null default 'N'";
\r
237 // Update notes (these will be set as task text!)
\r
238 $UPDATE_NOTES = "Eigene User-ID von Bettel-Rallye ausschliessbar.";
\r
241 case "0.2.3": // SQL queries for v0.2.3
\r
242 // Update notes (these will be set as task text!)
\r
243 $UPDATE_NOTES = "Abfrage des Account-Status eingebaut. Es können nur bestätigte Accounts betteln.";
\r
246 case "0.2.4": // SQL queries for v0.2.4
\r
247 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_member_menu SET action='extras', sort='1' WHERE what='beg' LIMIT 1";
\r
248 $SQLs[] = "UPDATE "._MYSQL_PREFIX."_member_menu SET action='rals', sort='3', title='Bettel-Rallye' WHERE what='beg2' LIMIT 1";
\r
250 // Update notes (these will be set as task text!)
\r
251 $UPDATE_NOTES = "Mitgliedsmenü komplett umgebaut.";
\r
254 case "0.2.5": // SQL queries for v0.2.5
\r
255 // Update notes (these will be set as task text!)
\r
256 $UPDATE_NOTES = "Fehlerhinweis bei deaktivierter Erweiterung verbessert.";
\r
261 default: // Do stuff when extension is loaded
\r
262 $DUMMY = LOAD_CONFIG("0");
\r
263 $CONFIG['beg_timeout'] = $DUMMY['beg_timeout']; // Global timeout
\r
264 $CONFIG['beg_uid_timeout'] = $DUMMY['beg_uid_timeout']; // Timeout for one userid
\r
265 $CONFIG['beg_ip_timeout'] = $DUMMY['beg_ip_timeout']; // Timeout for one IP number
\r
266 $CONFIG['beg_points'] = $DUMMY['beg_points']; // Minimum beggable points
\r
267 $CONFIG['beg_points_max'] = $DUMMY['beg_points_max']; // Maximum beggable points
\r
268 $CONFIG['beg_uid'] = $DUMMY['beg_uid']; // Account to subtract begged points from
\r
269 $CONFIG['beg_mode'] = $DUMMY['beg_mode']; // Payment mode: direct or over referral system?
\r
270 $CONFIG['beg_month'] = $DUMMY['beg_month']; // Current month
\r
271 $CONFIG['beg_ranks'] = $DUMMY['beg_ranks']; // Maximum member who will win
\r
272 $CONFIG['beg_active'] = $DUMMY['beg_active']; // Only active members can win?
\r
273 $CONFIG['beg_rallye'] = $DUMMY['beg_rallye']; // Is the begging rallye activated?
\r
274 $CONFIG['beg_ral_en_notify'] = $DUMMY['beg_ral_en_notify']; // Notify members on enabled rallye?
\r
275 $CONFIG['beg_ral_di_notify'] = $DUMMY['beg_ral_di_notify']; // Notify members on disabled rallye?
\r
276 $CONFIG['beg_notify_bonus'] = $DUMMY['beg_notify_bonus']; // When points are > 0 and bonus extension is installed, a bonus mail with this amount of points will be send instead of an enable-notification!
\r
277 $CONFIG['beg_new_mem_notify'] = $DUMMY['beg_new_mem_notify']; // Notify members on disabled rallye?
\r
278 $CONFIG['beg_notify_wait'] = $DUMMY['beg_notify_wait']; // Time to wait in seconds for bonus mails
\r
279 $CONFIG['beg_include_own'] = $DUMMY['beg_include_own']; // Include webmaster's own userid in rallye?
\r
282 // Remove old entries
\r
283 $OLD = $CONFIG['beg_timeout'];
\r
284 if ($CONFIG['beg_uid_timeout'] > $OLD) $OLD = $CONFIG['beg_uid_timeout'];
\r
285 $result_ext = SQL_QUERY("DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_beg_ips WHERE timeout < ".(time() - $OLD - 60*60), __FILE__, __LINE__);
\r
287 if (defined('__DAILY_RESET') && (!DEBUG_MODE) && ($CSS != 1))
\r
289 // Daily reset was run so let's check if begging rallye is active
\r
290 if ($CONFIG['beg_rallye'] == "Y")
\r
292 // Check for our winers
\r
293 $INC_POOL[] = PATH."inc/monthly/monthly_beg.php";
\r
297 // Reset begging points
\r
298 $INC_POOL[] = PATH."inc/reset/reset_beg.php";
\r
302 // Check for beg rallye is active and send mails out
\r
303 if (($CONFIG['beg_rallye'] == "Y") && ($CONFIG['beg_new_mem_notify'] == "Y"))
\r
305 // Include file for sending out mails
\r
306 $INC_POOL[] = PATH."inc/mails/beg_mails.php";
\r
309 // Return code for the URL
\r
310 define('CODE_BEG_SAME_AS_OWN', 100);
\r
314 // Language file prefix
\r
315 $EXT_LANG_PREFIX = "beg";
\r
317 // Extension is always active?
\r
318 $EXT_ALWAYS_ACTIVE = "N";
\r