Mercurial > hg > fapweb
annotate msitegen.inc.php @ 180:a3f0f2a3551a
Split stylesheets into separate files for different platforms and also split
certain page-specifics into their own files.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 07 Nov 2013 11:17:15 +0200 |
| parents | 0c2bdc46b93c |
| children | 1b30c2107e5b |
| rev | line source |
|---|---|
| 0 | 1 <? |
| 2 // | |
|
160
0980e705dea0
Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents:
144
diff
changeset
|
3 // FAPWeb Simple Demoparty System |
| 33 | 4 // Generic and miscellaneous site support code |
|
160
0980e705dea0
Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents:
144
diff
changeset
|
5 // (C) Copyright 2012-2013 Tecnic Software productions (TNSP) |
| 0 | 6 // |
|
9
fa9b66f596bb
More work on settings storage.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
7 |
|
fa9b66f596bb
More work on settings storage.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
8 // Globals and definitions |
| 0 | 9 $errorSet = FALSE; |
| 10 $errorMsg = ""; | |
| 11 | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
12 define("VT_STR", 1); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
13 define("VT_INT", 2); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
14 define("VT_BOOL", 3); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
15 define("VT_TEXT", 4); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
16 |
|
94
6edd7d623eab
Start adding votekey modes code.
Matti Hamalainen <ccr@tnsp.org>
parents:
87
diff
changeset
|
17 |
|
173
fef53f6170b5
Move stDebug() to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
172
diff
changeset
|
18 function stDebug($msg) |
|
fef53f6170b5
Move stDebug() to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
172
diff
changeset
|
19 { |
|
fef53f6170b5
Move stDebug() to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
172
diff
changeset
|
20 if (stGetSetting("debug")) |
|
fef53f6170b5
Move stDebug() to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
172
diff
changeset
|
21 error_log($msg); |
|
fef53f6170b5
Move stDebug() to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
172
diff
changeset
|
22 } |
|
fef53f6170b5
Move stDebug() to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
172
diff
changeset
|
23 |
|
fef53f6170b5
Move stDebug() to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
172
diff
changeset
|
24 |
| 0 | 25 function stError($msg) |
| 26 { | |
| 27 global $errorSet, $errorMsg; | |
| 28 $errorSet = TRUE; | |
| 29 $errorMsg .= "<li>".$msg."</li>\n"; | |
| 30 } | |
| 31 | |
| 32 | |
| 33 function stCheckHTTPS() | |
| 34 { | |
| 35 return isset($_SERVER["HTTPS"]) && ($_SERVER["HTTPS"] != "" && $_SERVER["HTTPS"] != "off"); | |
| 36 } | |
| 37 | |
| 38 | |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
39 function stSetupCacheControl() |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
40 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
41 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
|
42 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
|
43 } |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
44 |
|
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
45 |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
46 function stReloadSettings() |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
47 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
48 global $siteSettings; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
49 $res = stExecSQL("SELECT * FROM settings"); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
50 if ($res !== FALSE) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
51 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
52 foreach ($res as $row) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
53 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
54 switch ($row["vtype"]) |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
55 { |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
56 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
|
57 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
|
58 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
|
59 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
|
60 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
61 $siteSettings[$row["key"]] = $val; |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
62 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
63 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
64 else |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
65 die("Error fetching site settings."); |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
66 } |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
67 |
|
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
68 |
|
5
76c3b89d7b11
Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
69 function stGetSetting($name) |
| 0 | 70 { |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
71 global $siteSettings; |
| 0 | 72 if (isset($siteSettings[$name])) |
| 73 return $siteSettings[$name]; | |
| 74 else | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
75 die("No config value for '".$name."'.\n"); |
| 0 | 76 } |
| 77 | |
| 78 | |
| 79 function stChkSetting($name) | |
| 80 { | |
| 81 global $siteSettings; | |
| 82 return isset($siteSettings[$name]) && $siteSettings[$name]; | |
| 83 } | |
| 84 | |
| 85 | |
| 86 function dhentities($str) | |
| 87 { | |
| 88 return str_replace(array("<",">"), array("<", ">"), htmlentities($str, ENT_NOQUOTES, "UTF-8")); | |
| 89 } | |
| 90 | |
| 91 | |
| 92 function chentities($str) | |
| 93 { | |
| 94 return htmlentities($str, ENT_NOQUOTES, "UTF-8"); | |
| 95 } | |
| 96 | |
| 97 | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
98 function stGetIDName($name, $id, $prefix = "") |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
99 { |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
100 return |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
101 ($id != "" ? "id=\"".$prefix.$name.$id."\" " : ""). |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
102 ($name != "" ? "name=\"".$prefix.$name.$id."\" " : ""); |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
103 } |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
104 |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
105 |
| 0 | 106 function stGetFormCheckBoxInput($name, $id, $prefix, $checked, $label, $extra = "") |
| 107 { | |
| 108 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
109 "<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
|
110 ($checked ? "checked=\"checked\" " : "")." />". |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
111 ($label != "" ? "<label for=\"".$name."\">".$label."</label>" : ""); |
| 0 | 112 } |
| 113 | |
| 114 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
115 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
|
116 { |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
117 return |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
118 "<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
|
119 ($checked ? "checked=\"checked\" " : "")." value=\"".$value."\" />". |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
120 ($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
|
121 } |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
122 |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
123 |
| 0 | 124 function stGetFormButtonInput($name, $id, $prefix, $label, $onclick = "") |
| 125 { | |
| 126 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
127 "<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
|
128 "value=\" ".chentities($label)." \" ". |
| 0 | 129 ($onclick != "" ? "onClick=\"".$onclick."\"" : "")." />"; |
| 130 } | |
| 131 | |
| 132 | |
| 133 function stGetFormTextArea($rows, $cols, $name, $id, $prefix, $value, $extra = "") | |
| 134 { | |
| 135 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
136 "<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
|
137 "rows=\"".$rows."\" cols=\"".$cols."\">". |
| 0 | 138 (isset($value) ? chentities($value) : ""). |
| 139 "</textarea>"; | |
| 140 } | |
| 141 | |
| 142 | |
| 143 function stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra = "") | |
| 144 { | |
| 145 return | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
146 "<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
|
147 "size=\"".$size."\" maxlength=\"".$len."\"". |
| 0 | 148 (isset($value) ? " value=\"".chentities($value)."\"" : ""). |
| 149 " />"; | |
| 150 } | |
| 151 | |
| 152 | |
| 153 function stGetFormPasswordInput($name, $id, $prefix) | |
| 154 { | |
| 155 return | |
| 13 | 156 "<input type=\"password\" ".stGetIDName($name, $id, $prefix)." />"; |
| 0 | 157 } |
| 158 | |
| 159 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
160 function stGetFormSubmitInput($name, $label, $onclick = "") |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
161 { |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
162 return |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
163 "<input type=\"submit\" name=\"".$name. |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
164 "\" value=\" ".chentities($label)." \" ". |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
165 ($onclick != "" ? "onClick=\"".$onclick."\"" : "")." />"; |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
166 } |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
167 |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
168 |
| 0 | 169 function stGetFormHiddenInput($name, $value) |
| 170 { | |
|
12
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
171 return |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
172 "<input type=\"hidden\" name=\"".$name. |
|
358534308c61
Clean up some of the html item generation code.
Matti Hamalainen <ccr@tnsp.org>
parents:
9
diff
changeset
|
173 "\" value=\"".chentities($value)."\" />"; |
| 0 | 174 } |
| 175 | |
| 176 | |
|
26
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
177 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
|
178 { |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
179 return |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
180 "<form name=\"".$name."\" action=\"". |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
181 ($action != "" ? $action : $name). |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
182 "\" method=\"".$method."\">\n"; |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
183 } |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
184 |
|
7be3f8cf1f7a
Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents:
24
diff
changeset
|
185 |
| 0 | 186 function stGetTDEditTextItem($edit, $size, $len, $name, $id, $prefix, $value, $extra = "") |
| 187 { | |
| 188 return | |
| 189 "<td class=\"".$name."\">". | |
| 190 ($edit ? stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra) : chentities($value)). | |
| 191 "</td>"; | |
| 192 } | |
| 193 | |
| 194 | |
| 195 function stPrintFormTextInput($text1, $text2, $size, $len, $name, $extra="") | |
| 196 { | |
| 197 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
|
198 stGetFormTextInput($size, $len, $name, "", "", stGetRequestItem($name), $extra). |
| 0 | 199 "</td><td>".chentities($text2)."</td></tr>\n"; |
| 200 } | |
| 201 | |
| 202 | |
| 203 function stPrintFormHiddenInput($name, $value) | |
| 204 { | |
| 205 echo " ".stGetFormHiddenInput($name, $value)."\n"; | |
| 206 } | |
| 207 | |
| 208 | |
| 209 function stChkDataItem($name) | |
| 210 { | |
| 211 return !isset($_REQUEST[$name]) || strlen(trim($_REQUEST[$name])) < 1; | |
| 212 } | |
| 213 | |
| 214 | |
| 215 function stChkRequestItem($name) | |
| 216 { | |
| 217 return isset($_REQUEST[$name]); | |
| 218 } | |
| 219 | |
| 220 | |
| 221 function stGetRequestItem($name, $default = "") | |
| 222 { | |
| 223 return isset($_REQUEST[$name]) ? trim($_REQUEST[$name]) : $default; | |
| 224 } | |
| 225 | |
| 226 | |
| 227 function stGetDRequestItem($name, $default = "") | |
| 228 { | |
| 229 return trim(urldecode(stGetRequestItem($name, $default))); | |
| 230 } | |
| 231 | |
| 232 | |
| 233 function stLogSQLError($sql) | |
| 234 { | |
| 235 global $db; | |
| 236 error_log("SQL error ".implode("; ", $db->errorInfo())." in statement \"".$sql."\""); | |
| 237 } | |
| 238 | |
| 239 | |
| 240 function stConnectSQLDB() | |
| 241 { | |
| 242 global $db; | |
| 243 try { | |
|
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
244 $db = new PDO(stGetSetting("sqlDB")); |
| 0 | 245 } |
| 246 catch (PDOException $e) { | |
| 247 error_log("Could not connect to SQL database: ".$e->getMessage()."."); | |
| 248 return FALSE; | |
| 249 } | |
| 250 return TRUE; | |
| 251 } | |
| 252 | |
| 253 | |
| 254 function stGetSQLParam($type, $value) | |
| 255 { | |
| 256 global $db; | |
| 257 switch ($type) | |
| 258 { | |
| 259 case "d": | |
| 260 return intval($value); | |
| 261 | |
| 262 case "s": | |
| 263 return $db->quote($value); | |
| 264 | |
|
72
63a6caf59e5c
Fix creation of boolean settings, and add '%b' formatter into stPrepareSQL().
Matti Hamalainen <ccr@tnsp.org>
parents:
71
diff
changeset
|
265 case "b": |
|
63a6caf59e5c
Fix creation of boolean settings, and add '%b' formatter into stPrepareSQL().
Matti Hamalainen <ccr@tnsp.org>
parents:
71
diff
changeset
|
266 return intval($value) ? 1 : 0; |
|
63a6caf59e5c
Fix creation of boolean settings, and add '%b' formatter into stPrepareSQL().
Matti Hamalainen <ccr@tnsp.org>
parents:
71
diff
changeset
|
267 |
| 0 | 268 case "D": |
| 269 return intval(stGetRequestItem($value)); | |
| 270 | |
| 271 case "S": | |
| 272 return $db->quote(stGetDRequestItem($value)); | |
| 273 | |
| 274 case "Q": | |
| 275 return $db->quote(stripslashes(stGetDRequestItem($value))); | |
| 276 | |
| 277 case "B": | |
| 278 return intval(stGetRequestItem($value)) ? 1 : 0; | |
| 279 } | |
| 280 } | |
| 281 | |
| 282 | |
| 283 function stPrepareSQL() | |
| 284 { | |
| 285 $argc = func_num_args(); | |
| 286 $argv = func_get_args(); | |
| 287 if ($argc < 1) | |
| 288 { | |
| 289 error_log("Invalid stPrepareSQL() call, no arguments!"); | |
| 290 return FALSE; | |
| 291 } | |
| 87 | 292 |
| 0 | 293 $fmt = $argv[0]; |
| 294 $len = strlen($fmt); | |
| 295 $sql = ""; | |
| 296 $argn = 1; | |
| 297 $pos = 0; | |
| 298 while ($pos < $len) | |
| 299 { | |
| 300 if ($fmt[$pos] == "%") | |
| 301 { | |
| 302 if ($argn < $argc) | |
| 303 $sql .= stGetSQLParam($fmt[++$pos], $argv[$argn++]); | |
| 304 else | |
| 305 { | |
| 306 error_log("Invalid SQL statement format string '".$fmt. | |
| 307 "', not enough parameters specified (".$argn." of ".$argc.")"); | |
| 308 return FALSE; | |
| 309 } | |
| 310 } | |
| 311 else | |
| 312 $sql .= $fmt[$pos]; | |
| 313 $pos++; | |
| 314 } | |
| 315 | |
| 316 return $sql; | |
| 317 } | |
| 318 | |
| 319 | |
| 320 function stPrepareSQLUpdate($table, $cond, $pairs) | |
| 321 { | |
| 322 $sql = array(); | |
| 323 foreach ($pairs as $name => $attr) | |
| 324 { | |
| 325 $sql[] = $name."=".stGetSQLParam($attr, $name); | |
| 326 } | |
| 327 return | |
| 328 "UPDATE ".$table." SET ".implode(",", $sql). | |
| 329 ($cond != "" ? " ".$cond : ""); | |
| 330 } | |
| 331 | |
| 332 | |
| 333 function stExecSQL($sql) | |
| 334 { | |
| 335 global $db; | |
| 336 if (($res = $db->query($sql)) !== FALSE) | |
| 337 return $res; | |
| 338 else | |
| 339 { | |
| 340 stLogSQLError($sql); | |
| 341 stError("Oh noes! SQL error #23!"); | |
| 342 return FALSE; | |
| 343 } | |
| 344 } | |
| 345 | |
| 346 | |
| 347 function stFetchSQL($sql) | |
| 348 { | |
| 349 global $db; | |
| 350 if (($res = $db->query($sql)) !== FALSE) | |
| 351 { | |
| 352 return $res->fetch(); | |
| 353 } | |
| 354 else | |
| 355 { | |
| 356 stLogSQLError($sql); | |
| 357 stError("Oh noes! SQL error #31!"); | |
| 358 return FALSE; | |
| 359 } | |
| 360 } | |
| 361 | |
| 362 | |
| 363 function stFetchSQLColumn($sql, $column = 0) | |
| 364 { | |
| 365 global $db; | |
| 366 if (($res = $db->query($sql)) !== FALSE) | |
| 367 { | |
| 368 return $res->fetchColumn($column); | |
| 369 } | |
| 370 else | |
| 371 { | |
| 372 stLogSQLError($sql); | |
| 373 stError("Oh noes! SQL error #81!"); | |
| 374 return FALSE; | |
| 375 } | |
| 376 } | |
| 377 | |
| 378 | |
|
66
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
379 function stSetStatus($val, $msg) |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
380 { |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
381 global $statusSet; |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
382 if (!$statusSet) |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
383 { |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
384 header("Status: ".$val." ".$msg); |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
385 } |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
386 $statusSet = TRUE; |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
387 } |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
388 |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
389 |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
390 function stExecSQLCond($sql, $okmsg) |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
391 { |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
392 if (($res = stExecSQL($sql)) !== FALSE) |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
393 { |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
394 if ($okmsg != "") |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
395 stSetStatus(200, $okmsg); |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
396 return $res; |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
397 } |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
398 else |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
399 { |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
400 stSetStatus(900, "Error in SQL execution."); |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
401 return FALSE; |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
402 } |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
403 } |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
404 |
|
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
65
diff
changeset
|
405 |
|
135
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
406 function stStrChop($str, $len) |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
407 { |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
408 if (strlen($str) > $len) |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
409 $s = substr($str, 0, $len - 3)."..."; |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
410 else |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
411 $s = $str; |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
412 return sprintf("%-".$len."s", $s); |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
413 } |
|
eecac02579c4
Move stChop() to site module and rename it to stStrChop().
Matti Hamalainen <ccr@tnsp.org>
parents:
121
diff
changeset
|
414 |
|
174
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
415 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
416 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
417 function cmLocaleInit() |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
418 { |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
419 global $pageCharset; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
420 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
421 if (!isset($pageCharset)) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
422 $pageCharset = "UTF-8"; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
423 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
424 mb_internal_encoding($pageCharset); |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
425 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
426 $tmp = "en_US.".strtolower(str_replace("-", "", $pageCharset)); |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
427 setlocale(LC_ALL, $tmp); |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
428 } |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
429 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
430 |
|
180
a3f0f2a3551a
Split stylesheets into separate files for different platforms and also split
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
431 function cmPrintCSSLine($uri, $media = "") |
|
174
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
432 { |
|
180
a3f0f2a3551a
Split stylesheets into separate files for different platforms and also split
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
433 echo |
|
a3f0f2a3551a
Split stylesheets into separate files for different platforms and also split
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
434 " <link rel=\"stylesheet\" href=\"".$uri. |
|
a3f0f2a3551a
Split stylesheets into separate files for different platforms and also split
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
435 "\" type=\"text/css\" ".($media != "" ? "media=\"".$media."\"": "")." />\n"; |
|
174
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
436 } |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
437 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
438 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
439 function cmPrintPageHeader($pageTitle, $pageExtra = "", $useContents = TRUE) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
440 { |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
441 global $pageCSS, $pageCharset, $pageAuthor, $pageCSSData, $pageUrchin; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
442 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
443 echo |
| 178 | 444 "<html>\n". |
|
174
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
445 "<head>\n". |
| 178 | 446 " <meta charset=\"".$pageCharset."\">\n". |
|
174
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
447 " <title>".strip_tags($pageTitle)."</title>\n"; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
448 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
449 if (is_array($pageCSS)) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
450 { |
|
180
a3f0f2a3551a
Split stylesheets into separate files for different platforms and also split
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
451 foreach ($pageCSS as $uri => $media) |
|
a3f0f2a3551a
Split stylesheets into separate files for different platforms and also split
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
452 cmPrintCSSLine($uri, $media); |
|
174
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
453 } |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
454 else |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
455 { |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
456 cmPrintCSSLine($pageCSS); |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
457 } |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
458 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
459 echo $pageExtra."\n". |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
460 "</head>\n". |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
461 "<body>\n"; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
462 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
463 if (isset($pageUrchin)) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
464 require_once $pageUrchin; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
465 else |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
466 require_once "urchin.inc.php"; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
467 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
468 if ($useContents) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
469 echo "<div id=\"contents\">\n"; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
470 } |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
471 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
472 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
473 function cmPrintPageFooter($useContents = TRUE) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
474 { |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
475 if ($useContents) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
476 echo "</div>\n"; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
477 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
478 echo "</body>\n</html>\n"; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
479 } |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
480 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
481 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
482 function cmQM($msg) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
483 { |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
484 global $pageTranslations, $pageLang; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
485 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
486 if (isset($pageTranslations[$msg]) && isset($pageTranslations[$msg][$pageLang])) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
487 $str = $pageTranslations[$msg][$pageLang]; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
488 else |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
489 $str = $msg; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
490 |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
491 foreach (func_get_args() as $argn => $argv) |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
492 $str = preg_replace("/\%".$argn."/", $argv, $str); |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
493 return $str; |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
494 } |
|
63c840590476
Move common code from mcommon.inc.php to msitegen module.
Matti Hamalainen <ccr@tnsp.org>
parents:
173
diff
changeset
|
495 |
| 0 | 496 ?> |