fapweb: showajax.php annotate

annotate showajax.php @ 139:75cf14ee99a7

More work on party information system.

author	Matti Hamalainen <ccr@tnsp.org>
date	Tue, 22 Oct 2013 23:58:41 +0300
parents	aeebfedb5709
children	20ca8edfb01a

rev	line source
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 <?
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 //
136 aeebfedb5709 Add some copyright headers. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	3 // FAPWeb Simple Demoparty System
aeebfedb5709 Add some copyright headers. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	4 // Party information display system AJAX backend module
aeebfedb5709 Add some copyright headers. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	5 // (C) Copyright 2012-2013 Tecnic Software productions (TNSP)
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 //
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7 require "mconfig.inc.php";
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	8 require "msite.inc.php";
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	10
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	11 function stPrintCompoEntry($entry, $class, $compo, $title = false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	12 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	13 echo
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	14 " <div class=\"".$class."\">\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	15
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	16 if ($title !== false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	17 echo
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	18 " <div class=\"title\">".$title."</div>\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	19
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	20 echo
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	21 " <div class=\"entryIndex\">#".$entry["show_id"]."</div>\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	22 " <div class=\"entryName\">".chentities($entry["name"])."</div>\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	23
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	24 if ($compo["showAuthors"])
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	25 echo " <div class=\"entryAuthor\">".chentities($entry["author"])."</div>\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	26
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	27 echo
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	28 " <div class=\"entryInfo\">".chentities($entry["info"])."</div>\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	29 " </div>\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	30 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	31
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	32 function stPrintCompoPage($compo, $entry, $prev)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	33 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	34 echo
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	35 " <div class=\"compoHeader\">\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	36 " <img src=\"img/fapsm.png\" /><br />\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	37 " <div class=\"title\">".chentities($compo["name"])." competition</div>\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	38 " </div>\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	39
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	40 if ($entry !== false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	41 stPrintCompoEntry($entry, "compoNext", $compo, false);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	42
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	43 if ($prev !== false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	44 stPrintCompoEntry($prev, "compoPrev", $compo, "Previous entry");
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	45 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	46
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	47
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	48 function stPrintRotationPage($page)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	49 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	50 echo
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	51 " <div class=\"showHeader\">\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	52 " <img src=\"img/fapsm.png\" /><br />\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	53 " </div>\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	54 " <div class=\"showText\">\n".
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	55 $page["text"].
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	56 " </div>\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	57 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	58
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	59
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	60 // Handle requests
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	61 stSetupCacheControl();
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	62
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	63 if (!stConnectSQLDB())
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	64 die("Could not connect to SQL database.");
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	65
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	66
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	67 // Fetch party display variables and settings
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	68 if (($res = stExecSQL("SELECT * FROM displayVars")) !== FALSE)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	69 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	70 $displayVars = array();
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	71 $displayVarsChanged = array();
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	72
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	73 foreach ($res as $row)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	74 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	75 switch ($row["vtype"])
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	76 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	77 case VT_INT: $val = intval($row["vint"]); break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	78 case VT_BOOL: $val = intval($row["vint"]) ? true : false; break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	79 case VT_STR: $val = $row["vstr"]; break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	80 case VT_TEXT: $val = $row["vtext"]; break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	81 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	82 $displayVars[$row["key"]] = $val;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	83 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	84 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	85 else
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	86 exit;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	87
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	88
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	89 function stGetDisplayVar($name)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	90 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	91 global $displayVars;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	92 if (isset($displayVars[$name]))
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	93 return $displayVars[$name];
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	94 else
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	95 die("No display setting for '".$name."'.\n");
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	96 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	97
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	98
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	99 function stSetDisplayVar($name, $value)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	100 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	101 global $displayVars, $displayVarsChanged;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	102 if (isset($displayVars[$name]))
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	103 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	104 $displayVars[$name] = $value;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	105 $displayVarsChanged[$name] = true;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	106 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	107 else
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	108 die("No display setting for '".$name."'.\n");
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	109 }
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	110
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	111
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	112 $action = stChkRequestItem("action") ? $_REQUEST["action"] : "";
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	113 switch ($action)
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	114 {
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	115 case "check":
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	116 // Check if there has been any change
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	117 $changed = FALSE;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	118 if (stGetDisplayVar("tempPageDuration") > 0 && stGetDisplayVar("tempPage") > 0)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	119 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	120 $sql = stPrepareSQL("SELECT * FROM displayPages WHERE id=%d",
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	121 stGetDisplayVar("tempPage"));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	122
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	123 if (($res = stFetchSQL($sql)) !== false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	124 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	125 stSetDisplayVar("tempPageDuration", 0);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	126 stSetDisplayVar("activePageMode", SMODE_ROTATE);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	127 stSetDisplayVar("activePage", stGetDisplayVar("tempPage"));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	128 stSetDisplayVar("activePageExpire", time() + stGetDisplayVar("tempPageDuration"));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	129 $changed = TRUE;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	130 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	131 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	132 else
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	133 switch (stGetDisplayVar("showMode"))
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	134 {
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	135 case SMODE_ROTATE:
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	136 default:
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	137 stSetDisplayVar("activePageMode", SMODE_ROTATE);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	138
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	139 if (stGetDisplayVar("rotateList") == 0)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	140 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	141 stSetDisplayVar("rotateList", 1);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	142 stSetDisplayVar("activePageExpire", 0);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	143 $changed = TRUE;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	144 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	145
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	146 if (time() >= stGetDisplayVar("activePageExpire") &&
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	147 stGetDisplayVar("rotateList") > 0)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	148 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	149 error_log("page rotated");
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	150
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	151 // Get list of pages from active rotation list
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	152 $list = stGetDisplayVar("rotateList");
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	153 $sql = stPrepareSQL(
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	154 "SELECT * FROM displayListPages WHERE list_id=%d ORDER BY id",
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	155 $list);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	156
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	157 if (($pageList = stFetchSQL($sql)) !== false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	158 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	159 // Get page at current index
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	160 $index = stGetDisplayVar("rotateListIndex");
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	161
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	162 if (count($pageList) < $index)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	163 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	164 $page_id = $pageList[$index]["page_id"];
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	165 stSetDisplayVar("activePage", $page_id);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	166 stSetDisplayVar("activePageExpire", time() + stGetDisplayVar("rotatePageTime"));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	167 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	168
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	169 // Rotate to next page
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	170 if (++$index >= count($pageList))
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	171 $index = 0;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	172
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	173 stSetDisplayVar("rotateListIndex", $index);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	174 $changed = TRUE;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	175 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	176 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	177 else
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	178 if (stGetDisplayVar("activePage") != -1)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	179 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	180 // Emergency page
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	181 stSetDisplayVar("activePage", -1);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	182 stSetDisplayVar("activePageExpire", time() + stGetDisplayVar("rotatePageTime"));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	183 $changed = TRUE;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	184 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	185 break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	186
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	187 case SMODE_COMPO:
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	188 break;
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	189 }
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	190
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	191 $changed = FALSE;
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	192
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	193
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	194 echo $changed ? "changed" : "nochange";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	195 stSetStatus(200, "OK");
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	196 break;
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	197
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	198 case "get":
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	199 // Based on the currently active mode ...
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	200 switch (stGetDisplayVar("activePageMode"))
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201 {
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	202 case SMODE_ROTATE:
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	203 // Page rotation mode, display currently active page
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	204 if (stGetDisplayVar("activePage") > 0)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	205 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	206 $sql = stPrepareSQL("SELECT * FROM displayPages WHERE id=%d",
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	207 stGetDisplayVar("activePage"));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	208
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	209 if (($page = stFetchSQL($sql)) !== false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	210 stPrintRotationPage($page);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	211 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	212 else
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	213 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	214 echo "<div>ERROR!</div>\n";
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	215 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	216 break;
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	217
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	218 case SMODE_COMPO:
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	219 // Competition mode
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	220 $compo = stFetchSQL(stPrepareSQL(
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	221 "SELECT * FROM compos WHERE id=%d",
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	222 stGetDisplayVar("compoCompo")));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	223
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	224 $prev = stFetchSQL(stPrepareSQL(
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	225 "SELECT * FROM entries WHERE id=%d",
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	226 stGetDisplayVar("compoPrevEntry")));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	227
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	228 $entry = stFetchSQL(stPrepareSQL(
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	229 "SELECT * FROM entries WHERE id=%d",
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	230 stGetDisplayVar("compoCurrEntry")));
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	231
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	232 if ($compo !== false)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	233 stPrintCompoPage($compo, $entry, $prev);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	234 break;
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	235 }
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	236 break;
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	237
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	238 default:
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	239 stSetStatus(404, "Not Found");
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	240 break;
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	241 }
71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	242
139 75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	243
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	244 // Save changed variables
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	245 foreach (stExecSQL("SELECT * FROM displayVars") as $item)
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	246 if (isset($displayVarsChanged[$item["key"]]))
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	247 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	248 $val = $displayVars[$item["key"]];
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	249 switch ($item["vtype"])
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	250 {
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	251 case VT_INT: $vsql = stPrepareSQL("vint=%d", $val); break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	252 case VT_BOOL: $vsql = stPrepareSQL("vint=%d", $val ? 1 : 0); break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	253 case VT_STR: $vsql = stPrepareSQL("vstr=%s", $val); break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	254 case VT_TEXT: $vsql = stPrepareSQL("vtext=%s", $val); break;
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	255 }
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	256
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	257 $sql = "UPDATE displayVars SET ".$vsql." WHERE key=".$db->quote($item["key"]);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	258 stExecSQL($sql);
75cf14ee99a7 More work on party information system. Matti Hamalainen <ccr@tnsp.org> parents: 136 diff changeset	259 }
126 71c35d5302c2 More work on cleanups, and AJAX modularization. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260 ?>

Mercurial > hg > fapweb

annotate showajax.php @ 139:75cf14ee99a7