0.2.1/inc/extensions/ext-beg.php

   1 <?php\r
   2 /************************************************************************\r
   3  * MXChange v0.2.1                                    Start: 09/25/2004 *\r
   4  * ================                             Last change: 09/25/2004 *\r
   5  *                                                                      *\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
  13  *                                                                      *\r
  14  * -------------------------------------------------------------------- *\r
  15  * Copyright (c) 2003 - 2007 by Roland Haeder                           *\r
  16  * For more information visit: http://www.mxchange.org                  *\r
  17  *                                                                      *\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
  22  *                                                                      *\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
  27  *                                                                      *\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
  33 \r
  34 // Some security stuff...\r
  35 if ((ereg(basename(__FILE__), $_SERVER['PHP_SELF'])))\r
  36 {\r
  37         $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4)."/security.php";\r
  38         require($INC);\r
  39 }\r
  40 \r
  41 // Version number\r
  42 $EXT_VERSION = "0.2.5";\r
  43 \r
  44 // Auto-set extension version\r
  45 if (empty($EXT_VER)) $EXT_VER = $EXT_VERSION;\r
  46 \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
  49 \r
  50 switch ($EXT_LOAD_MODE)\r
  51 {\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&uuml;tung usw. k&ouml;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
  67 KEY (userid),\r
  68 PRIMARY KEY(id)\r
  69 ) TYPE=MyISAM";\r
  70 \r
  71         // Load CSS file?\r
  72         $EXT_CSS = "Y";\r
  73         break;\r
  74 \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
  81         break;\r
  82 \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
  88         break;\r
  89 \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
  95         break;\r
  96 \r
  97 case "update": // Update an extension\r
  98         switch ($EXT_VER)\r
  99         {\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 &quot;Solid-Business&quot; eingebaut.";\r
 103                 break;\r
 104 \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> &uuml;berfl&uuml;ssige HTML-Tags entfernt.";\r
 108                 break;\r
 109 \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
 112 \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
 115                 break;\r
 116 \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 = "&Uuml;berlange Kommastellen bei Punktangaben aus Bettellink und Gastbereich entfernt und Admin-Templates repariert (&quot;Unbekannte Spalte <U>beg_points_ma</U>&quot;).";\r
 120                 break;\r
 121 \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&uuml; wurde die Beschreibung aus dem Gastmen&uuml; verwendet.";\r
 125                 break;\r
 126 \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
 129 \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
 132                 break;\r
 133 \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
 136 \r
 137                 // Update notes (these will be set as task text!)\r
 138                 $UPDATE_NOTES = "Zeitsperre gegen die selbe IP-Nummer hinzugef&uuml;gt.";\r
 139                 break;\r
 140 \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
 144                 break;\r
 145 \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
 149                 break;\r
 150 \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
 154                 break;\r
 155 \r
 156         case "0.1.2":\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
 161 \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
 173 \r
 174                 // Update notes (these will be set as task text!)\r
 175                 $UPDATE_NOTES = "Optionale Bettel-Rallye m&ouml;glich. Und die erbettelten {!POINTS!} k&ouml;nnen entweder nur dem bettelndem Mitglied direkt oder auch seinem Werber gutgeschrieben werden k&ouml;nnen.";\r
 176                 break;\r
 177 \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&ouml;scht.";\r
 181                 break;\r
 182 \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
 186                 break;\r
 187 \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&uuml;tung und auch die Bettel-Rallye k&ouml;nnen Sie hier einstellen.' WHERE what='config_beg' LIMIT 1";\r
 190 \r
 191                 // Update notes (these will be set as task text!)\r
 192                 $UPDATE_NOTES = "Fehlendes Template im Admin-Bereich hinzugef&uuml;gt. Im Admin-Bereich Hinweis hinzugef&uuml;gt, wenn Bettel-Rallye inaktiv ist. Bitte Script inc/monthly_beg.php l&ouml;schen!";\r
 193                 break;\r
 194 \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
 198                 break;\r
 199 \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
 209 \r
 210                 // Update notes (these will be set as task text!)\r
 211                 $UPDATE_NOTES = "Die Mitglieder k&ouml;nnen nun optional automatisch &uuml;ber eine aktivierte und/oder deaktivierte Bettel-Rallye informiert werden. Beide Benachrichtigungen k&ouml;nnen Sie unter <STRONG>Einstellungen --&gt; 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
 212                 break;\r
 213 \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&auml;glichen Reset beseitigt.";\r
 217                 break;\r
 218 \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&uuml;pften Modules eingebunden.";\r
 222                 break;\r
 223 \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&auml;chstes nach wer als letztes Online war umsortiert.";\r
 227                 break;\r
 228 \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 &#39;uid&#39;</STRONG> beseitigt.";\r
 232                 break;\r
 233 \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
 236 \r
 237                 // Update notes (these will be set as task text!)\r
 238                 $UPDATE_NOTES = "Eigene User-ID von Bettel-Rallye ausschliessbar.";\r
 239                 break;\r
 240 \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&ouml;nnen nur best&auml;tigte Accounts betteln.";\r
 244                 break;\r
 245 \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
 249 \r
 250                 // Update notes (these will be set as task text!)\r
 251                 $UPDATE_NOTES = "Mitgliedsmen&uuml; komplett umgebaut.";\r
 252                 break;\r
 253 \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
 257                 break;\r
 258         }\r
 259         break;\r
 260 \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
 280         unset($DUMMY);\r
 281 \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
 286 \r
 287         if (defined('__DAILY_RESET') && (!DEBUG_MODE) && ($CSS != 1))\r
 288         {\r
 289                 // Daily reset was run so let's check if begging rallye is active\r
 290                 if ($CONFIG['beg_rallye'] == "Y")\r
 291                 {\r
 292                         // Check for our winers\r
 293                         $INC_POOL[] = PATH."inc/monthly/monthly_beg.php";\r
 294                 }\r
 295                  else\r
 296                 {\r
 297                         // Reset begging points\r
 298                         $INC_POOL[] = PATH."inc/reset/reset_beg.php";\r
 299                 }\r
 300         }\r
 301 \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
 304         {\r
 305                 // Include file for sending out mails\r
 306                 $INC_POOL[] = PATH."inc/mails/beg_mails.php";\r
 307         }\r
 308 \r
 309         // Return code for the URL\r
 310         define('CODE_BEG_SAME_AS_OWN', 100);\r
 311         break;\r
 312 }\r
 313 \r
 314 // Language file prefix\r
 315 $EXT_LANG_PREFIX = "beg";\r
 316 \r
 317 // Extension is always active?\r
 318 $EXT_ALWAYS_ACTIVE = "N";\r
 319 \r
 320 //\r
 321 ?>\r