Mercurial > hg > fapweb
annotate msite.inc.php @ 32:36392d1d6b5f
Moar work.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Mon, 10 Dec 2012 11:14:05 +0200 |
| parents | 7be3f8cf1f7a |
| children | 5bf22431176c |
| rev | line source |
|---|---|
| 0 | 1 <? |
| 2 // | |
|
9
fa9b66f596bb
More work on settings storage.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
3 // FAPWEB - Demo Party Website System System |
|
fa9b66f596bb
More work on settings storage.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
4 // (C) Copyright 2012 Matti 'ccr' Hamalainen <ccr@tnsp.org> |
| 0 | 5 // |
|
9
fa9b66f596bb
More work on settings storage.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
6 |
|
fa9b66f596bb
More work on settings storage.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
7 // Globals and definitions |
| 0 | 8 $errorSet = FALSE; |
| 9 $errorMsg = ""; | |
| 10 | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
11 define("VT_STR", 1); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
12 define("VT_INT", 2); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
13 define("VT_BOOL", 3); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
14 define("VT_TEXT", 4); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
15 |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
16 |
| 32 | 17 if (function_exists("ini_set")) |
| 18 { | |
| 19 // Use cookies to store the session ID on the client side | |
| 20 @ini_set("session.use_only_cookies", 1); | |
| 21 | |
| 22 // Disable transparent Session ID support | |
| 23 @ini_set("session.use_trans_sid", 0); | |
| 24 } | |
| 25 | |
| 26 | |
| 0 | 27 function stError($msg) |
| 28 { | |
| 29 global $errorSet, $errorMsg; | |
| 30 $errorSet = TRUE; | |
| 31 $errorMsg .= "<li>".$msg."</li>\n"; | |
| 32 } | |
| 33 | |
| 34 | |
| 35 function stCheckHTTPS() | |
| 36 { | |
| 37 return isset($_SERVER["HTTPS"]) && ($_SERVER["HTTPS"] != "" && $_SERVER["HTTPS"] != "off"); | |
| 38 } | |
| 39 | |
| 40 | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
41 function stSetupCacheControl() |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
42 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
43 header("Cache-Control: must-revalidate, no-store, private"); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
44 header("Expires: Sat, 26 Jul 1997 05:00:00 GMT"); // Date in the past |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
45 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
46 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
47 |
| 32 | 48 function stSessionExpire() |
| 0 | 49 { |
| 32 | 50 global $sessionType; |
| 51 | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
52 // Check for session expiration |
| 32 | 53 if (!isset($_SESSION[$sessionType]) || !isset($_SESSION[$sessionType]["expires"])) |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
54 { |
| 32 | 55 if (stGetSetting("debug")) error_log("Session ".$sessionType." expires due to expire time not set."); |
| 56 stSessionEnd(); | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
57 return FALSE; |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
58 } |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
59 |
| 32 | 60 if ($_SESSION[$sessionType]["expires"] < time()) |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
61 { |
| 32 | 62 if (stGetSetting("debug")) error_log("Session ".$sessionType." / ".session_id()." expires due to timeout ".$_SESSION[$sessionType]["expires"]." < ".time()); |
| 63 stSessionEnd(); | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
64 return FALSE; |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
65 } |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
66 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
67 // Add more time to expiration |
| 32 | 68 $timeout = stGetSetting($_SESSION[$sessionType]["timeout"], 0); |
| 69 if (stGetSetting("debug")) error_log("Adding more time to ".$sessionType." session ".session_id()." :: ".$timeout); | |
| 70 $_SESSION[$sessionType]["expires"] = time() + $timeout * 60; | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
71 return TRUE; |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
72 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
73 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
74 |
| 32 | 75 function stSessionEnd() |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
76 { |
| 32 | 77 global $sessionType; |
| 78 $result = FALSE; | |
| 79 | |
| 80 if (stGetSetting("debug")) error_log("Request END session ".$sessionType); | |
| 81 | |
| 82 if (@session_start() === TRUE && isset($_SESSION)) | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
83 { |
| 32 | 84 // End current session type |
| 85 if (isset($_SESSION[$sessionType])) | |
| 86 { | |
| 87 if (stGetSetting("debug")) error_log("END session ".$sessionType." / ".$_SESSION[$sessionType]["expires"]); | |
| 88 $_SESSION[$sessionType] = array(); | |
| 89 unset($_SESSION[$sessionType]); | |
| 90 $result = TRUE; | |
| 91 } | |
| 92 | |
| 93 // If all session types are ended, clear the cookies etc | |
| 94 if (!isset($_SESSION["user"]) && !isset($_SESSION["admin"])) | |
| 95 { | |
| 96 if (stGetSetting("debug")) error_log("Clearing all session data."); | |
| 97 $_SESSION = array(); | |
| 98 | |
| 99 if (ini_get("session.use_cookies")) | |
| 100 { | |
| 101 $params = session_get_cookie_params(); | |
| 102 setcookie(session_name(), "", time() - 242000, | |
| 103 $params["path"], $params["domain"], | |
| 104 $params["secure"], $params["httponly"] | |
| 105 ); | |
| 106 } | |
| 107 | |
| 108 @session_destroy(); | |
| 109 } | |
| 110 } | |
| 111 | |
| 112 return $result; | |
| 113 } | |
| 114 | |
| 115 | |
| 116 function stSessionStart($key, $timeout) | |
| 117 { | |
| 118 global $sessionType; | |
| 119 | |
| 120 if (@session_start() === TRUE) | |
| 121 { | |
| 122 if (stGetSetting("debug")) error_log("START ".$sessionType." session OK."); | |
| 123 $_SESSION[$sessionType] = array( | |
| 124 "key" => $key, | |
| 125 "timeout" => $timeout, | |
| 126 "expires" => time() + stGetSetting($timeout) * 60, | |
| 127 "message" => "", | |
| 128 "status" => 0, | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
129 ); |
| 32 | 130 return TRUE; |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
131 } |
| 32 | 132 else |
| 133 { | |
| 134 if (stGetSetting("debug")) error_log("START ".$sessionType." session --FAILED--"); | |
| 135 return FALSE; | |
| 136 } | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
137 } |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
138 |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
139 |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
140 function stAdmSessionAuth() |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
141 { |
| 32 | 142 if (@session_start() === TRUE && |
| 143 stGetSessionItem("key", FALSE) == stGetSetting("admPassword")) | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
144 { |
| 32 | 145 if (stGetSetting("debug")) error_log("AUTH admin session OK."); |
| 146 return stSessionExpire(); | |
| 0 | 147 } |
| 148 else | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
149 { |
| 32 | 150 if (stGetSetting("debug")) error_log("AUTH admin session FAIL."); |
| 0 | 151 return FALSE; |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
152 } |
| 0 | 153 } |
| 154 | |
| 155 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
156 function stUserSessionAuth() |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
157 { |
| 32 | 158 global $sessionType; |
| 159 | |
| 160 if (@session_start() === TRUE && | |
| 161 isset($_SESSION[$sessionType]) && | |
| 162 isset($_SESSION[$sessionType]["key"])) | |
| 163 return stSessionExpire(); | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
164 else |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
165 return FALSE; |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
166 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
167 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
168 |
| 32 | 169 function stSetSessionStatus($status) |
| 0 | 170 { |
| 32 | 171 global $sessionType; |
| 172 if (isset($_SESSION[$sessionType]) || session_start() === TRUE) | |
| 0 | 173 { |
| 32 | 174 if ($status >= 0) |
| 175 stSetSessionItem("prevstatus", stGetSessionItem("status", FALSE)); | |
| 176 | |
| 177 stSetSessionItem("status", $status); | |
| 0 | 178 } |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
179 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
180 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
181 |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
182 function stReloadSettings() |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
183 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
184 global $siteSettings; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
185 $res = stExecSQL("SELECT * FROM settings"); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
186 if ($res !== FALSE) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
187 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
188 foreach ($res as $row) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
189 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
190 switch ($row["vtype"]) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
191 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
192 case VT_INT: $val = intval($row["vint"]); break; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
193 case VT_BOOL: $val = intval($row["vint"]) ? true : false; break; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
194 case VT_STR: $val = $row["vstr"]; break; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
195 case VT_TEXT: $val = $row["vtext"]; break; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
196 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
197 $siteSettings[$row["key"]] = $val; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
198 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
199 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
200 else |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
201 die("Error fetching site settings."); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
202 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
203 |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
204 |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
205 function stGetSetting($name) |
| 0 | 206 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
207 global $siteSettings; |
| 0 | 208 if (isset($siteSettings[$name])) |
| 209 return $siteSettings[$name]; | |
| 210 else | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
211 die("No config value for '".$name."'.\n"); |
| 0 | 212 } |
| 213 | |
| 214 | |
| 215 function stChkSetting($name) | |
| 216 { | |
| 217 global $siteSettings; | |
| 218 return isset($siteSettings[$name]) && $siteSettings[$name]; | |
| 219 } | |
| 220 | |
| 221 | |
| 222 function stSpecURL($id) | |
| 223 { | |
| 224 global $specURLs; | |
| 225 if (isset($specURLs[$id])) | |
| 226 return "<a href=\"".$specURLs[$id][0]."\">".$specURLs[$id][1]."</a>"; | |
| 227 else | |
| 228 return ""; | |
| 229 } | |
| 230 | |
| 231 | |
| 232 function stPrintSpecURL($id) | |
| 233 { | |
| 234 echo stSpecURL($id); | |
| 235 } | |
| 236 | |
| 237 | |
| 238 function dhentities($str) | |
| 239 { | |
| 240 return str_replace(array("<",">"), array("<", ">"), htmlentities($str, ENT_NOQUOTES, "UTF-8")); | |
| 241 } | |
| 242 | |
| 243 | |
| 244 function chentities($str) | |
| 245 { | |
| 246 return htmlentities($str, ENT_NOQUOTES, "UTF-8"); | |
| 247 } | |
| 248 | |
| 249 | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
250 function stGetIDName($name, $id, $prefix = "") |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
251 { |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
252 return |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
253 ($id != "" ? "id=\"".$prefix.$name.$id."\" " : ""). |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
254 ($name != "" ? "name=\"".$prefix.$name.$id."\" " : ""); |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
255 } |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
256 |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
257 |
| 0 | 258 function stGetFormCheckBoxInput($name, $id, $prefix, $checked, $label, $extra = "") |
| 259 { | |
| 260 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
261 "<input ".$extra." type=\"checkbox\" ".stGetIDName($name, $id, $prefix). |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
262 ($checked ? "checked=\"checked\" " : "")." />". |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
263 ($label != "" ? "<label for=\"".$name."\">".$label."</label>" : ""); |
| 0 | 264 } |
| 265 | |
| 266 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
267 function stGetFormRadioButtonInput($name, $id, $prefix, $value, $checked, $label, $extra = "") |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
268 { |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
269 return |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
270 "<input ".$extra." type=\"radio\" ".stGetIDName($name, $id, $prefix). |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
271 ($checked ? "checked=\"checked\" " : "")." value=\"".$value."\" />". |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
272 ($label != "" ? "<label for=\"".$name."\">".$label."</label>" : ""); |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
273 } |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
274 |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
275 |
| 0 | 276 function stGetFormButtonInput($name, $id, $prefix, $label, $onclick = "") |
| 277 { | |
| 278 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
279 "<input type=\"button\" ".stGetIDName($name, $id, $prefix). |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
280 "value=\" ".chentities($label)." \" ". |
| 0 | 281 ($onclick != "" ? "onClick=\"".$onclick."\"" : "")." />"; |
| 282 } | |
| 283 | |
| 284 | |
| 285 function stGetFormTextArea($rows, $cols, $name, $id, $prefix, $value, $extra = "") | |
| 286 { | |
| 287 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
288 "<textarea ".$extra." ".stGetIDName($name, $id, $prefix). |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
289 "rows=\"".$rows."\" cols=\"".$cols."\">". |
| 0 | 290 (isset($value) ? chentities($value) : ""). |
| 291 "</textarea>"; | |
| 292 } | |
| 293 | |
| 294 | |
| 295 function stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra = "") | |
| 296 { | |
| 297 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
298 "<input ".$extra." type=\"text\" ".stGetIDName($name, $id, $prefix). |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
299 "size=\"".$size."\" maxlength=\"".$len."\"". |
| 0 | 300 (isset($value) ? " value=\"".chentities($value)."\"" : ""). |
| 301 " />"; | |
| 302 } | |
| 303 | |
| 304 | |
| 305 function stGetFormPasswordInput($name, $id, $prefix) | |
| 306 { | |
| 307 return | |
| 13 | 308 "<input type=\"password\" ".stGetIDName($name, $id, $prefix)." />"; |
| 0 | 309 } |
| 310 | |
| 311 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
312 function stGetFormSubmitInput($name, $label, $onclick = "") |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
313 { |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
314 return |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
315 "<input type=\"submit\" name=\"".$name. |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
316 "\" value=\" ".chentities($label)." \" ". |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
317 ($onclick != "" ? "onClick=\"".$onclick."\"" : "")." />"; |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
318 } |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
319 |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
320 |
| 0 | 321 function stGetFormHiddenInput($name, $value) |
| 322 { | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
323 return |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
324 "<input type=\"hidden\" name=\"".$name. |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
325 "\" value=\"".chentities($value)."\" />"; |
| 0 | 326 } |
| 327 | |
| 328 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
329 function stGetFormStart($name, $action = "", $method = "post") |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
330 { |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
331 return |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
332 "<form name=\"".$name."\" action=\"". |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
333 ($action != "" ? $action : $name). |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
334 "\" method=\"".$method."\">\n"; |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
335 } |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
336 |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
337 |
| 0 | 338 function stGetTDEditTextItem($edit, $size, $len, $name, $id, $prefix, $value, $extra = "") |
| 339 { | |
| 340 return | |
| 341 "<td class=\"".$name."\">". | |
| 342 ($edit ? stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra) : chentities($value)). | |
| 343 "</td>"; | |
| 344 } | |
| 345 | |
| 346 | |
| 347 function stPrintFormTextInput($text1, $text2, $size, $len, $name, $extra="") | |
| 348 { | |
| 349 echo " <tr><th>".chentities($text1)."</th><td>". | |
|
15
ea0f98a0bed8
Fix some issues and bugs caused by recent changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
13
diff
changeset
|
350 stGetFormTextInput($size, $len, $name, "", "", stGetRequestItem($name), $extra). |
| 0 | 351 "</td><td>".chentities($text2)."</td></tr>\n"; |
| 352 } | |
| 353 | |
| 354 | |
| 355 function stPrintFormHiddenInput($name, $value) | |
| 356 { | |
| 357 echo " ".stGetFormHiddenInput($name, $value)."\n"; | |
| 358 } | |
| 359 | |
| 360 | |
| 361 function stPrintAttendee($item, $row, $edit, $eclass = "") | |
| 362 { | |
| 363 $id = $item["id"]; | |
| 364 $prefix = "at"; | |
| 365 echo " ". | |
| 366 "<tr class=\"".($row % 2 == 1 ? "rodd" : "reven").$eclass."\" id=\"attendee".$id."\">". | |
| 367 stGetTDEditTextItem(FALSE, 20, 40, "name", $id, $prefix, $item["name"]). | |
| 368 stGetTDEditTextItem(FALSE, 20, 40, "groups", $id, $prefix, $item["groups"]). | |
| 369 "<td class=\"regtime\">".date("d M Y / H:i", $item["regtime"])."</td>". | |
| 370 stGetTDEditTextItem($edit, 30, 64, "oneliner", $id, $prefix, $item["oneliner"], "autocomplete=\"off\""); | |
| 371 | |
| 372 if ($edit) | |
| 373 { | |
| 374 echo | |
| 375 stGetTDEditTextItem($edit, 20, 40, "email", $id, $prefix, $item["email"], "autocomplete=\"off\""). | |
| 376 "<td>". | |
| 377 "<button class=\"button\" id=\"atupd".$id."\" type=\"button\" onclick=\"updateAttendee(".$id.")\">Update</button>". | |
| 378 "<button class=\"button\" id=\"atdel".$id."\" type=\"button\" onclick=\"deleteAttendee(".$id.")\">Delete</button>". | |
| 379 "</td>"; | |
| 380 } | |
| 381 | |
| 382 echo "</tr>\n"; | |
| 383 } | |
| 384 | |
| 385 | |
| 386 function stPrintNewsItem($item, $edit = "") | |
| 387 { | |
| 388 echo | |
| 389 "<div class=\"newsitem\" id=\"news".$item["id"]."\">\n". | |
| 390 " <h2>".chentities($item["title"])."</h2>\n". | |
| 391 " <div class=\"text\">".dhentities($item["text"])."</div>\n". | |
| 392 " <div class=\"sig\">-- ".chentities($item["author"])."<br />". | |
| 393 date("d M Y / H:i", $item["utime"]). | |
| 394 $edit."</div>\n". | |
| 395 "</div>\n"; | |
| 396 } | |
| 397 | |
| 398 | |
| 399 function stChkDataItem($name) | |
| 400 { | |
| 401 return !isset($_REQUEST[$name]) || strlen(trim($_REQUEST[$name])) < 1; | |
| 402 } | |
| 403 | |
| 404 | |
| 405 function stChkRequestItem($name) | |
| 406 { | |
| 407 return isset($_REQUEST[$name]); | |
| 408 } | |
| 409 | |
| 410 | |
| 411 function stGetRequestItem($name, $default = "") | |
| 412 { | |
| 413 return isset($_REQUEST[$name]) ? trim($_REQUEST[$name]) : $default; | |
| 414 } | |
| 415 | |
| 416 | |
| 417 function stGetDRequestItem($name, $default = "") | |
| 418 { | |
| 419 return trim(urldecode(stGetRequestItem($name, $default))); | |
| 420 } | |
| 421 | |
| 422 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
423 function stGetSessionItem($name, $default = "") |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
424 { |
| 32 | 425 global $sessionType; |
| 426 if (isset($sessionType)) | |
| 427 return (isset($_SESSION[$sessionType]) && isset($_SESSION[$sessionType][$name])) ? trim($_SESSION[$sessionType][$name]) : $default; | |
| 428 else | |
| 429 return isset($_SESSION[$name]) ? trim($_SESSION[$name]) : $default; | |
| 430 } | |
| 431 | |
| 432 | |
| 433 function stSetSessionItem($name, $value) | |
| 434 { | |
| 435 global $sessionType; | |
| 436 if (!isset($sessionType)) | |
| 437 die("Session type not set."); | |
| 438 | |
| 439 $_SESSION[$sessionType][$name] = $value; | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
440 } |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
441 |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
442 |
| 0 | 443 function stLogSQLError($sql) |
| 444 { | |
| 445 global $db; | |
| 446 error_log("SQL error ".implode("; ", $db->errorInfo())." in statement \"".$sql."\""); | |
| 447 } | |
| 448 | |
| 449 | |
| 450 function stConnectSQLDB() | |
| 451 { | |
| 452 global $db; | |
| 453 try { | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
454 $db = new PDO(stGetSetting("sqlDB")); |
| 0 | 455 } |
| 456 catch (PDOException $e) { | |
| 457 error_log("Could not connect to SQL database: ".$e->getMessage()."."); | |
| 458 return FALSE; | |
| 459 } | |
| 460 return TRUE; | |
| 461 } | |
| 462 | |
| 463 | |
| 464 function stGetSQLParam($type, $value) | |
| 465 { | |
| 466 global $db; | |
| 467 switch ($type) | |
| 468 { | |
| 469 case "d": | |
| 470 return intval($value); | |
| 471 | |
| 472 case "s": | |
| 473 return $db->quote($value); | |
| 474 | |
| 475 case "D": | |
| 476 return intval(stGetRequestItem($value)); | |
| 477 | |
| 478 case "S": | |
| 479 return $db->quote(stGetDRequestItem($value)); | |
| 480 | |
| 481 case "Q": | |
| 482 return $db->quote(stripslashes(stGetDRequestItem($value))); | |
| 483 | |
| 484 case "B": | |
| 485 return intval(stGetRequestItem($value)) ? 1 : 0; | |
| 486 } | |
| 487 } | |
| 488 | |
| 489 | |
| 490 function stPrepareSQL() | |
| 491 { | |
| 492 $argc = func_num_args(); | |
| 493 $argv = func_get_args(); | |
| 494 if ($argc < 1) | |
| 495 { | |
| 496 error_log("Invalid stPrepareSQL() call, no arguments!"); | |
| 497 return FALSE; | |
| 498 } | |
| 499 | |
| 500 $fmt = $argv[0]; | |
| 501 $len = strlen($fmt); | |
| 502 $sql = ""; | |
| 503 $argn = 1; | |
| 504 $pos = 0; | |
| 505 while ($pos < $len) | |
| 506 { | |
| 507 if ($fmt[$pos] == "%") | |
| 508 { | |
| 509 if ($argn < $argc) | |
| 510 $sql .= stGetSQLParam($fmt[++$pos], $argv[$argn++]); | |
| 511 else | |
| 512 { | |
| 513 error_log("Invalid SQL statement format string '".$fmt. | |
| 514 "', not enough parameters specified (".$argn." of ".$argc.")"); | |
| 515 return FALSE; | |
| 516 } | |
| 517 } | |
| 518 else | |
| 519 $sql .= $fmt[$pos]; | |
| 520 $pos++; | |
| 521 } | |
| 522 | |
| 523 return $sql; | |
| 524 } | |
| 525 | |
| 526 | |
| 527 function stPrepareSQLUpdate($table, $cond, $pairs) | |
| 528 { | |
| 529 $sql = array(); | |
| 530 foreach ($pairs as $name => $attr) | |
| 531 { | |
| 532 $sql[] = $name."=".stGetSQLParam($attr, $name); | |
| 533 } | |
| 534 return | |
| 535 "UPDATE ".$table." SET ".implode(",", $sql). | |
| 536 ($cond != "" ? " ".$cond : ""); | |
| 537 } | |
| 538 | |
| 539 | |
| 540 function stExecSQL($sql) | |
| 541 { | |
| 542 global $db; | |
| 543 if (($res = $db->query($sql)) !== FALSE) | |
| 544 return $res; | |
| 545 else | |
| 546 { | |
| 547 stLogSQLError($sql); | |
| 548 stError("Oh noes! SQL error #23!"); | |
| 549 return FALSE; | |
| 550 } | |
| 551 } | |
| 552 | |
| 553 | |
| 554 function stFetchSQL($sql) | |
| 555 { | |
| 556 global $db; | |
| 557 if (($res = $db->query($sql)) !== FALSE) | |
| 558 { | |
| 559 return $res->fetch(); | |
| 560 } | |
| 561 else | |
| 562 { | |
| 563 stLogSQLError($sql); | |
| 564 stError("Oh noes! SQL error #31!"); | |
| 565 return FALSE; | |
| 566 } | |
| 567 } | |
| 568 | |
| 569 | |
| 570 function stFetchSQLColumn($sql, $column = 0) | |
| 571 { | |
| 572 global $db; | |
| 573 if (($res = $db->query($sql)) !== FALSE) | |
| 574 { | |
| 575 return $res->fetchColumn($column); | |
| 576 } | |
| 577 else | |
| 578 { | |
| 579 stLogSQLError($sql); | |
| 580 stError("Oh noes! SQL error #81!"); | |
| 581 return FALSE; | |
| 582 } | |
| 583 } | |
| 584 | |
| 585 | |
|
24
5bc8bd5c7ecc
Make voting toggle for individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
586 function stGetCompoList($fvisible, $fvoting = FALSE) |
| 0 | 587 { |
| 588 global $compos; | |
| 589 | |
| 590 // Get entries and competitions into an array structure | |
|
24
5bc8bd5c7ecc
Make voting toggle for individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
591 $sql = "SELECT * FROM compos"; |
|
5bc8bd5c7ecc
Make voting toggle for individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
592 if ($fvisible || $fvoting) |
|
5bc8bd5c7ecc
Make voting toggle for individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
593 { |
|
5bc8bd5c7ecc
Make voting toggle for individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
594 $sql .= " WHERE ".implode(" AND ", array($fvisible ? "visible<>0" : "", $fvoting ? "voting<>0" : "")); |
|
5bc8bd5c7ecc
Make voting toggle for individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
595 } |
| 0 | 596 foreach (stExecSQL($sql) as $compo) |
| 597 { | |
| 598 $id = $compo["id"]; | |
| 599 | |
| 600 $compos[$compo["id"]] = array( | |
| 601 "name" => $compo["name"], | |
| 602 "entries" => array() | |
| 603 ); | |
| 604 | |
| 605 $sql = stPrepareSQL("SELECT * FROM entries WHERE compo_id=%d", $id); | |
| 606 foreach (stExecSQL($sql) as $entry) | |
| 607 { | |
| 608 $compos[$id]["entries"][$entry["id"]] = $entry; | |
| 609 } | |
| 610 } | |
| 611 } | |
| 612 | |
| 613 | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
614 // |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
615 // CLI utility helper functions |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
616 // |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
617 function stCArg($index) |
| 0 | 618 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
619 global $argc, $argv; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
620 if ($index < $argc) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
621 return $argv[$index]; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
622 else |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
623 return FALSE; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
624 } |
| 0 | 625 |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
626 function stCArgLC($index) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
627 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
628 global $argc, $argv; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
629 if ($index < $argc) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
630 return strtolower($argv[$index]); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
631 else |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
632 return FALSE; |
| 0 | 633 } |
| 634 | |
| 635 | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
636 function stCSQLError($sql) |
| 0 | 637 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
638 global $db; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
639 die("Error executing SQL query: ".implode("; ", $db->errorInfo())." in statement \"".$sql."\"\n"); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
640 exit; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
641 } |
| 0 | 642 |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
643 |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
644 function stCheckCLIOrDie() |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
645 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
646 if (php_sapi_name() != "cli" || !empty($_SERVER["REMOTE_ADDR"])) |
| 0 | 647 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
648 header("Status: 404 Not Found"); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
649 die(); |
| 0 | 650 } |
| 651 } | |
| 652 | |
| 32 | 653 |
| 0 | 654 ?> |