Mercurial > hg > fapweb
annotate msite.inc.php @ 9:fa9b66f596bb
More work on settings storage.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 06 Dec 2012 13:50:59 +0200 |
| parents | 4c5f651aa107 |
| children | 358534308c61 |
| 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 |
|
9
fa9b66f596bb
More work on settings storage.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
17 |
| 0 | 18 function stError($msg) |
| 19 { | |
| 20 global $errorSet, $errorMsg; | |
| 21 $errorSet = TRUE; | |
| 22 $errorMsg .= "<li>".$msg."</li>\n"; | |
| 23 } | |
| 24 | |
| 25 | |
| 26 function stCheckHTTPS() | |
| 27 { | |
| 28 return isset($_SERVER["HTTPS"]) && ($_SERVER["HTTPS"] != "" && $_SERVER["HTTPS"] != "off"); | |
| 29 } | |
| 30 | |
| 31 | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
32 function stSetupCacheControl() |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
33 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
34 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
|
35 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
|
36 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
37 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
38 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
39 function stSessionExpire($type) |
| 0 | 40 { |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
41 // Check for session expiration |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
42 if (!isset($_SESSION["expires"])) |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
43 { |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
44 if (stGetSetting("debug")) error_log("Session $type expires due to expire time not set."); |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
45 return FALSE; |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
46 } |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
47 |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
48 if ($_SESSION["expires"] < time()) |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
49 { |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
50 if (stGetSetting("debug")) error_log("Session $type / ".session_id()." expires due to timeout ".$_SESSION["expires"]." < ".time()); |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
51 return FALSE; |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
52 } |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
53 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
54 // Add more time to expiration |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
55 if (stGetSetting("debug")) error_log("Adding more time to $type session ".session_id()." :: ".stGetSetting($type)); |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
56 $_SESSION["expires"] = time() + stGetSetting($type); |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
57 return TRUE; |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
58 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
59 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
60 |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
61 function stSessionEnd($ok) |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
62 { |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
63 if (stGetSetting("debug")) error_log("END session ".$_SESSION["type"]." / ".$_SESSION["expires"]." == ".$ok); |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
64 $_SESSION = array(); |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
65 if (ini_get("session.use_cookies")) |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
66 { |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
67 $params = session_get_cookie_params(); |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
68 setcookie(session_name(), "", time() - 242000, |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
69 $params["path"], $params["domain"], |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
70 $params["secure"], $params["httponly"] |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
71 ); |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
72 } |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
73 @session_destroy(); |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
74 return $ok; |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
75 } |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
76 |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
77 |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
78 function stAdmSessionAuth() |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
79 { |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
80 if (@session_start() === TRUE && isset($_SESSION["admPassword"]) && |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
81 $_SESSION["admPassword"] == stGetSetting("admPassword")) |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
82 { |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
83 if (stGetSetting("debug")) error_log("AUTH admin session."); |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
84 return stSessionExpire("admTimeout"); |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
85 } |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
86 else |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
87 return FALSE; |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
88 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
89 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
90 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
91 function stAdmSessionStart() |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
92 { |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
93 if (@session_start() === TRUE) |
| 0 | 94 { |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
95 if (stGetSetting("debug")) error_log("START admin session OK."); |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
96 $_SESSION["type"] = "admin"; |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
97 $_SESSION["admPassword"] = stGetSetting("admPassword"); |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
98 $_SESSION["expires"] = time() + stGetSetting("admTimeout"); |
| 0 | 99 return TRUE; |
| 100 } | |
| 101 else | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
102 { |
|
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
103 if (stGetSetting("debug")) error_log("START admin session --FAILED--"); |
| 0 | 104 return FALSE; |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
105 } |
| 0 | 106 } |
| 107 | |
| 108 | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
109 function stVoteSessionAuth() |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
110 { |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
111 if (@session_start() === TRUE && isset($_SESSION["key"]) && isset($_SESSION["votes"])) |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
112 return stSessionExpire("voteTimeout"); |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
113 else |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
114 return FALSE; |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
115 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
116 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
117 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
118 function stVoteSessionStart() |
| 0 | 119 { |
| 120 if (@session_start() === TRUE) | |
| 121 { | |
|
7
d76020022881
Various fixes, cleanups and improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
122 $_SESSION["type"] = "vote"; |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
123 $_SESSION["expires"] = time() + stGetSetting("voteTimeout"); |
| 0 | 124 return TRUE; |
| 125 } | |
| 126 else | |
| 127 return FALSE; | |
| 128 } | |
| 129 | |
| 130 | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
131 function stSetVoteStatus($st) |
| 0 | 132 { |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
133 $_SESSION["status"] = $st; |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
134 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
135 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
136 |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
137 function stReloadSettings() |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
138 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
139 global $siteSettings; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
140 $res = stExecSQL("SELECT * FROM settings"); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
141 if ($res !== FALSE) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
142 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
143 foreach ($res as $row) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
144 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
145 switch ($row["vtype"]) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
146 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
147 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
|
148 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
|
149 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
|
150 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
|
151 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
152 $siteSettings[$row["key"]] = $val; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
153 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
154 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
155 else |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
156 die("Error fetching site settings."); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
157 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
158 |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
159 |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
160 function stGetSetting($name) |
| 0 | 161 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
162 global $siteSettings; |
| 0 | 163 if (isset($siteSettings[$name])) |
| 164 return $siteSettings[$name]; | |
| 165 else | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
166 die("No config value for '".$name."'.\n"); |
| 0 | 167 } |
| 168 | |
| 169 | |
| 170 function stChkSetting($name) | |
| 171 { | |
| 172 global $siteSettings; | |
| 173 return isset($siteSettings[$name]) && $siteSettings[$name]; | |
| 174 } | |
| 175 | |
| 176 | |
| 177 function stSpecURL($id) | |
| 178 { | |
| 179 global $specURLs; | |
| 180 if (isset($specURLs[$id])) | |
| 181 return "<a href=\"".$specURLs[$id][0]."\">".$specURLs[$id][1]."</a>"; | |
| 182 else | |
| 183 return ""; | |
| 184 } | |
| 185 | |
| 186 | |
| 187 function stPrintSpecURL($id) | |
| 188 { | |
| 189 echo stSpecURL($id); | |
| 190 } | |
| 191 | |
| 192 | |
| 193 function dhentities($str) | |
| 194 { | |
| 195 return str_replace(array("<",">"), array("<", ">"), htmlentities($str, ENT_NOQUOTES, "UTF-8")); | |
| 196 } | |
| 197 | |
| 198 | |
| 199 function chentities($str) | |
| 200 { | |
| 201 return htmlentities($str, ENT_NOQUOTES, "UTF-8"); | |
| 202 } | |
| 203 | |
| 204 | |
| 205 function stGetFormCheckBoxInput($name, $id, $prefix, $checked, $label, $extra = "") | |
| 206 { | |
| 207 return | |
| 208 "<input ".$extra." type=\"checkbox\" id=\"".$prefix.$name.$id."\" ". | |
| 209 "name=\"".$prefix.$name.$id."\" ".($checked ? "checked=\"checked\" " : "")." />". | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
210 ($label != "" ? "<label for=\"".$prefix.$name.$id."\">".$label."</label>" : ""); |
| 0 | 211 } |
| 212 | |
| 213 | |
| 214 function stGetFormButtonInput($name, $id, $prefix, $label, $onclick = "") | |
| 215 { | |
| 216 return | |
| 217 "<input type=\"button\" id=\"".$prefix.$name.$id."\" ". | |
| 218 "name=\"".$name."\" value=\"".$label."\" ". | |
| 219 ($onclick != "" ? "onClick=\"".$onclick."\"" : "")." />"; | |
| 220 } | |
| 221 | |
| 222 | |
| 223 function stGetFormTextArea($rows, $cols, $name, $id, $prefix, $value, $extra = "") | |
| 224 { | |
| 225 return | |
| 226 "<textarea ".$extra." id=\"".$prefix.$name.$id."\" ". | |
| 227 "name=\"".$name."\" rows=\"".$rows."\" cols=\"".$cols."\">". | |
| 228 (isset($value) ? chentities($value) : ""). | |
| 229 "</textarea>"; | |
| 230 } | |
| 231 | |
| 232 | |
| 233 function stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra = "") | |
| 234 { | |
| 235 return | |
| 236 "<input ".$extra." type=\"text\" id=\"".$prefix.$name.$id."\" ". | |
| 237 "name=\"".$name."\" size=\"".$size."\" maxlength=\"".$len."\"". | |
| 238 (isset($value) ? " value=\"".chentities($value)."\"" : ""). | |
| 239 " />"; | |
| 240 } | |
| 241 | |
| 242 | |
| 243 function stGetFormPasswordInput($name, $id, $prefix) | |
| 244 { | |
| 245 return | |
| 246 "<input type=\"password\" id=\"".$prefix.$name.$id. | |
| 247 "\" name=\"".$name."\" />"; | |
| 248 } | |
| 249 | |
| 250 | |
| 251 function stGetFormHiddenInput($name, $value) | |
| 252 { | |
| 253 return "<input type=\"hidden\" name=\"".$name."\" value=\"".chentities($value)."\" />"; | |
| 254 } | |
| 255 | |
| 256 | |
| 257 function stGetTDEditTextItem($edit, $size, $len, $name, $id, $prefix, $value, $extra = "") | |
| 258 { | |
| 259 return | |
| 260 "<td class=\"".$name."\">". | |
| 261 ($edit ? stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra) : chentities($value)). | |
| 262 "</td>"; | |
| 263 } | |
| 264 | |
| 265 | |
| 266 function stPrintFormTextInput($text1, $text2, $size, $len, $name, $extra="") | |
| 267 { | |
| 268 echo " <tr><th>".chentities($text1)."</th><td>". | |
| 269 stGetFormTextInput($size, $len, $name, "", "", $_REQUEST[$name], $extra). | |
| 270 "</td><td>".chentities($text2)."</td></tr>\n"; | |
| 271 } | |
| 272 | |
| 273 | |
| 274 function stPrintFormHiddenInput($name, $value) | |
| 275 { | |
| 276 echo " ".stGetFormHiddenInput($name, $value)."\n"; | |
| 277 } | |
| 278 | |
| 279 | |
| 280 function stPrintAttendee($item, $row, $edit, $eclass = "") | |
| 281 { | |
| 282 $id = $item["id"]; | |
| 283 $prefix = "at"; | |
| 284 echo " ". | |
| 285 "<tr class=\"".($row % 2 == 1 ? "rodd" : "reven").$eclass."\" id=\"attendee".$id."\">". | |
| 286 stGetTDEditTextItem(FALSE, 20, 40, "name", $id, $prefix, $item["name"]). | |
| 287 stGetTDEditTextItem(FALSE, 20, 40, "groups", $id, $prefix, $item["groups"]). | |
| 288 "<td class=\"regtime\">".date("d M Y / H:i", $item["regtime"])."</td>". | |
| 289 stGetTDEditTextItem($edit, 30, 64, "oneliner", $id, $prefix, $item["oneliner"], "autocomplete=\"off\""); | |
| 290 | |
| 291 if ($edit) | |
| 292 { | |
| 293 echo | |
| 294 stGetTDEditTextItem($edit, 20, 40, "email", $id, $prefix, $item["email"], "autocomplete=\"off\""). | |
| 295 "<td>". | |
| 296 "<button class=\"button\" id=\"atupd".$id."\" type=\"button\" onclick=\"updateAttendee(".$id.")\">Update</button>". | |
| 297 "<button class=\"button\" id=\"atdel".$id."\" type=\"button\" onclick=\"deleteAttendee(".$id.")\">Delete</button>". | |
| 298 "</td>"; | |
| 299 } | |
| 300 | |
| 301 echo "</tr>\n"; | |
| 302 } | |
| 303 | |
| 304 | |
| 305 function stPrintNewsItem($item, $edit = "") | |
| 306 { | |
| 307 echo | |
| 308 "<div class=\"newsitem\" id=\"news".$item["id"]."\">\n". | |
| 309 " <h2>".chentities($item["title"])."</h2>\n". | |
| 310 " <div class=\"text\">".dhentities($item["text"])."</div>\n". | |
| 311 " <div class=\"sig\">-- ".chentities($item["author"])."<br />". | |
| 312 date("d M Y / H:i", $item["utime"]). | |
| 313 $edit."</div>\n". | |
| 314 "</div>\n"; | |
| 315 } | |
| 316 | |
| 317 | |
| 318 function stChkDataItem($name) | |
| 319 { | |
| 320 return !isset($_REQUEST[$name]) || strlen(trim($_REQUEST[$name])) < 1; | |
| 321 } | |
| 322 | |
| 323 | |
| 324 function stChkRequestItem($name) | |
| 325 { | |
| 326 return isset($_REQUEST[$name]); | |
| 327 } | |
| 328 | |
| 329 | |
| 330 function stGetRequestItem($name, $default = "") | |
| 331 { | |
| 332 return isset($_REQUEST[$name]) ? trim($_REQUEST[$name]) : $default; | |
| 333 } | |
| 334 | |
| 335 | |
| 336 function stGetDRequestItem($name, $default = "") | |
| 337 { | |
| 338 return trim(urldecode(stGetRequestItem($name, $default))); | |
| 339 } | |
| 340 | |
| 341 | |
| 342 function stLogSQLError($sql) | |
| 343 { | |
| 344 global $db; | |
| 345 error_log("SQL error ".implode("; ", $db->errorInfo())." in statement \"".$sql."\""); | |
| 346 } | |
| 347 | |
| 348 | |
| 349 function stConnectSQLDB() | |
| 350 { | |
| 351 global $db; | |
| 352 try { | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
353 $db = new PDO(stGetSetting("sqlDB")); |
| 0 | 354 } |
| 355 catch (PDOException $e) { | |
| 356 error_log("Could not connect to SQL database: ".$e->getMessage()."."); | |
| 357 return FALSE; | |
| 358 } | |
| 359 return TRUE; | |
| 360 } | |
| 361 | |
| 362 | |
| 363 function stGetSQLParam($type, $value) | |
| 364 { | |
| 365 global $db; | |
| 366 switch ($type) | |
| 367 { | |
| 368 case "d": | |
| 369 return intval($value); | |
| 370 | |
| 371 case "s": | |
| 372 return $db->quote($value); | |
| 373 | |
| 374 case "D": | |
| 375 return intval(stGetRequestItem($value)); | |
| 376 | |
| 377 case "S": | |
| 378 return $db->quote(stGetDRequestItem($value)); | |
| 379 | |
| 380 case "Q": | |
| 381 return $db->quote(stripslashes(stGetDRequestItem($value))); | |
| 382 | |
| 383 case "B": | |
| 384 return intval(stGetRequestItem($value)) ? 1 : 0; | |
| 385 } | |
| 386 } | |
| 387 | |
| 388 | |
| 389 function stPrepareSQL() | |
| 390 { | |
| 391 $argc = func_num_args(); | |
| 392 $argv = func_get_args(); | |
| 393 if ($argc < 1) | |
| 394 { | |
| 395 error_log("Invalid stPrepareSQL() call, no arguments!"); | |
| 396 return FALSE; | |
| 397 } | |
| 398 | |
| 399 $fmt = $argv[0]; | |
| 400 $len = strlen($fmt); | |
| 401 $sql = ""; | |
| 402 $argn = 1; | |
| 403 $pos = 0; | |
| 404 while ($pos < $len) | |
| 405 { | |
| 406 if ($fmt[$pos] == "%") | |
| 407 { | |
| 408 if ($argn < $argc) | |
| 409 $sql .= stGetSQLParam($fmt[++$pos], $argv[$argn++]); | |
| 410 else | |
| 411 { | |
| 412 error_log("Invalid SQL statement format string '".$fmt. | |
| 413 "', not enough parameters specified (".$argn." of ".$argc.")"); | |
| 414 return FALSE; | |
| 415 } | |
| 416 } | |
| 417 else | |
| 418 $sql .= $fmt[$pos]; | |
| 419 $pos++; | |
| 420 } | |
| 421 | |
| 422 return $sql; | |
| 423 } | |
| 424 | |
| 425 | |
| 426 function stPrepareSQLUpdate($table, $cond, $pairs) | |
| 427 { | |
| 428 $sql = array(); | |
| 429 foreach ($pairs as $name => $attr) | |
| 430 { | |
| 431 $sql[] = $name."=".stGetSQLParam($attr, $name); | |
| 432 } | |
| 433 return | |
| 434 "UPDATE ".$table." SET ".implode(",", $sql). | |
| 435 ($cond != "" ? " ".$cond : ""); | |
| 436 } | |
| 437 | |
| 438 | |
| 439 function stExecSQL($sql) | |
| 440 { | |
| 441 global $db; | |
| 442 if (($res = $db->query($sql)) !== FALSE) | |
| 443 return $res; | |
| 444 else | |
| 445 { | |
| 446 stLogSQLError($sql); | |
| 447 stError("Oh noes! SQL error #23!"); | |
| 448 return FALSE; | |
| 449 } | |
| 450 } | |
| 451 | |
| 452 | |
| 453 function stFetchSQL($sql) | |
| 454 { | |
| 455 global $db; | |
| 456 if (($res = $db->query($sql)) !== FALSE) | |
| 457 { | |
| 458 return $res->fetch(); | |
| 459 } | |
| 460 else | |
| 461 { | |
| 462 stLogSQLError($sql); | |
| 463 stError("Oh noes! SQL error #31!"); | |
| 464 return FALSE; | |
| 465 } | |
| 466 } | |
| 467 | |
| 468 | |
| 469 function stFetchSQLColumn($sql, $column = 0) | |
| 470 { | |
| 471 global $db; | |
| 472 if (($res = $db->query($sql)) !== FALSE) | |
| 473 { | |
| 474 return $res->fetchColumn($column); | |
| 475 } | |
| 476 else | |
| 477 { | |
| 478 stLogSQLError($sql); | |
| 479 stError("Oh noes! SQL error #81!"); | |
| 480 return FALSE; | |
| 481 } | |
| 482 } | |
| 483 | |
| 484 | |
| 485 function stGetCompoList($all) | |
| 486 { | |
| 487 global $compos; | |
| 488 | |
| 489 // Get entries and competitions into an array structure | |
| 490 $sql = "SELECT * FROM compos ".($all ? "" :"WHERE enabled<>0 ")."ORDER BY name DESC"; | |
| 491 foreach (stExecSQL($sql) as $compo) | |
| 492 { | |
| 493 $id = $compo["id"]; | |
| 494 | |
| 495 $compos[$compo["id"]] = array( | |
| 496 "name" => $compo["name"], | |
| 497 "entries" => array() | |
| 498 ); | |
| 499 | |
| 500 $sql = stPrepareSQL("SELECT * FROM entries WHERE compo_id=%d", $id); | |
| 501 foreach (stExecSQL($sql) as $entry) | |
| 502 { | |
| 503 $compos[$id]["entries"][$entry["id"]] = $entry; | |
| 504 } | |
| 505 } | |
| 506 } | |
| 507 | |
| 508 | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
509 // |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
510 // CLI utility helper functions |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
511 // |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
512 function stCArg($index) |
| 0 | 513 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
514 global $argc, $argv; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
515 if ($index < $argc) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
516 return $argv[$index]; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
517 else |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
518 return FALSE; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
519 } |
| 0 | 520 |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
521 function stCArgLC($index) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
522 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
523 global $argc, $argv; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
524 if ($index < $argc) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
525 return strtolower($argv[$index]); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
526 else |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
527 return FALSE; |
| 0 | 528 } |
| 529 | |
| 530 | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
531 function stCSQLError($sql) |
| 0 | 532 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
533 global $db; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
534 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
|
535 exit; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
536 } |
| 0 | 537 |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
538 |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
539 function stCheckCLIOrDie() |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
540 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
541 if (php_sapi_name() != "cli" || !empty($_SERVER["REMOTE_ADDR"])) |
| 0 | 542 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
543 header("Status: 404 Not Found"); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
544 die(); |
| 0 | 545 } |
| 546 } | |
| 547 | |
| 548 ?> |