fapweb: msitegen.inc.php annotate

annotate msitegen.inc.php @ 174:63c840590476

Move common code from mcommon.inc.php to msitegen module.

author	Matti Hamalainen <ccr@tnsp.org>
date	Wed, 06 Nov 2013 10:21:11 +0200
parents	fef53f6170b5
children	8f0d81f9c648

rev	line source
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 <?
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 //
160 0980e705dea0 Add some copyright headers. Matti Hamalainen <ccr@tnsp.org> parents: 144 diff changeset	3 // FAPWeb Simple Demoparty System
33 5bf22431176c Modularize. Matti Hamalainen <ccr@tnsp.org> parents: 32 diff changeset	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 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	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 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9 $errorSet = FALSE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	10 $errorMsg = "";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	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
32 36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	18 if (function_exists("ini_set"))
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	19 {
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	20 // Use cookies to store the session ID on the client side
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	21 @ini_set("session.use_only_cookies", 1);
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	22
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	23 // Disable transparent Session ID support
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	24 @ini_set("session.use_trans_sid", 0);
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	25 }
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	26
36392d1d6b5f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	27
173 fef53f6170b5 Move stDebug() to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	28 function stDebug($msg)
fef53f6170b5 Move stDebug() to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	29 {
fef53f6170b5 Move stDebug() to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	30 if (stGetSetting("debug"))
fef53f6170b5 Move stDebug() to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	31 error_log($msg);
fef53f6170b5 Move stDebug() to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	32 }
fef53f6170b5 Move stDebug() to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	33
fef53f6170b5 Move stDebug() to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	34
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	35 function stError($msg)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	36 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	37 global $errorSet, $errorMsg;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	38 $errorSet = TRUE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	39 $errorMsg .= "<li>".$msg."</li>\n";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	40 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	41
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	42
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	43 function stCheckHTTPS()
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	44 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	45 return isset($_SERVER["HTTPS"]) && ($_SERVER["HTTPS"] != "" && $_SERVER["HTTPS"] != "off");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	46 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	47
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	48
5 76c3b89d7b11 Improve voting, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	49 function stSetupCacheControl()
76c3b89d7b11 Improve voting, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	50 {
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	51 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	52 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	53 }
76c3b89d7b11 Improve voting, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	54
76c3b89d7b11 Improve voting, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	55
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	56 function stReloadSettings()
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	57 {
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	58 global $siteSettings;
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	59 $res = stExecSQL("SELECT * FROM settings");
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	60 if ($res !== FALSE)
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	61 {
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	62 foreach ($res as $row)
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 switch ($row["vtype"])
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	65 {
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	66 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	67 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	68 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	69 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	70 }
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	71 $siteSettings[$row["key"]] = $val;
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	72 }
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	73 }
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	74 else
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	75 die("Error fetching site settings.");
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	76 }
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	77
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	78
5 76c3b89d7b11 Improve voting, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	79 function stGetSetting($name)
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	80 {
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	81 global $siteSettings;
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	82 if (isset($siteSettings[$name]))
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	83 return $siteSettings[$name];
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	84 else
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	85 die("No config value for '".$name."'.\n");
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	86 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	87
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	88
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	89 function stChkSetting($name)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	90 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	91 global $siteSettings;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	92 return isset($siteSettings[$name]) && $siteSettings[$name];
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	93 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	94
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	95
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	96 function dhentities($str)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	97 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	98 return str_replace(array("<",">"), array("<", ">"), htmlentities($str, ENT_NOQUOTES, "UTF-8"));
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	99 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	100
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	101
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	102 function chentities($str)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	103 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	104 return htmlentities($str, ENT_NOQUOTES, "UTF-8");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	105 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	106
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	107
12 358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	108 function stGetIDName($name, $id, $prefix = "")
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	109 {
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	110 return
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	111 ($id != "" ? "id=\"".$prefix.$name.$id."\" " : "").
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	112 ($name != "" ? "name=\"".$prefix.$name.$id."\" " : "");
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	113 }
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	114
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	115
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	116 function stGetFormCheckBoxInput($name, $id, $prefix, $checked, $label, $extra = "")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	117 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	118 return
12 358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	119 "<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	120 ($checked ? "checked=\"checked\" " : "")." />".
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	121 ($label != "" ? "<label for=\"".$name."\">".$label."</label>" : "");
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	122 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	123
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	124
26 7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	125 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	126 {
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	127 return
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	128 "<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	129 ($checked ? "checked=\"checked\" " : "")." value=\"".$value."\" />".
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	130 ($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	131 }
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	132
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	133
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	134 function stGetFormButtonInput($name, $id, $prefix, $label, $onclick = "")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	135 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	136 return
12 358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	137 "<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	138 "value=\" ".chentities($label)." \" ".
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	139 ($onclick != "" ? "onClick=\"".$onclick."\"" : "")." />";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	140 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	141
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	142
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	143 function stGetFormTextArea($rows, $cols, $name, $id, $prefix, $value, $extra = "")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	144 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	145 return
12 358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	146 "<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	147 "rows=\"".$rows."\" cols=\"".$cols."\">".
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	148 (isset($value) ? chentities($value) : "").
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	149 "</textarea>";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	150 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	151
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	152
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	153 function stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra = "")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	154 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	155 return
12 358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	156 "<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	157 "size=\"".$size."\" maxlength=\"".$len."\"".
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	158 (isset($value) ? " value=\"".chentities($value)."\"" : "").
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	159 " />";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	160 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	161
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	162
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	163 function stGetFormPasswordInput($name, $id, $prefix)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	164 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	165 return
13 cb4af708e295 Simplify. Matti Hamalainen <ccr@tnsp.org> parents: 12 diff changeset	166 "<input type=\"password\" ".stGetIDName($name, $id, $prefix)." />";
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	167 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	168
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	169
26 7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	170 function stGetFormSubmitInput($name, $label, $onclick = "")
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	171 {
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	172 return
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	173 "<input type=\"submit\" name=\"".$name.
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	174 "\" value=\" ".chentities($label)." \" ".
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	175 ($onclick != "" ? "onClick=\"".$onclick."\"" : "")." />";
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	176 }
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	177
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	178
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	179 function stGetFormHiddenInput($name, $value)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	180 {
12 358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	181 return
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	182 "<input type=\"hidden\" name=\"".$name.
358534308c61 Clean up some of the html item generation code. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	183 "\" value=\"".chentities($value)."\" />";
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	184 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	185
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	186
26 7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	187 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	188 {
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	189 return
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	190 "<form name=\"".$name."\" action=\"".
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	191 ($action != "" ? $action : $name).
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	192 "\" method=\"".$method."\">\n";
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	193 }
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	194
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support. Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	195
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	196 function stGetTDEditTextItem($edit, $size, $len, $name, $id, $prefix, $value, $extra = "")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	197 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	198 return
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	199 "<td class=\"".$name."\">".
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	200 ($edit ? stGetFormTextInput($size, $len, $name, $id, $prefix, $value, $extra) : chentities($value)).
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201 "</td>";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	202 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	203
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205 function stPrintFormTextInput($text1, $text2, $size, $len, $name, $extra="")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	206 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	207 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	208 stGetFormTextInput($size, $len, $name, "", "", stGetRequestItem($name), $extra).
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	209 "</td><td>".chentities($text2)."</td></tr>\n";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	210 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	211
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	212
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	213 function stPrintFormHiddenInput($name, $value)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	214 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	215 echo " ".stGetFormHiddenInput($name, $value)."\n";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	216 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	217
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	218
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	219 function stChkDataItem($name)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	220 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	221 return !isset($_REQUEST[$name]) \|\| strlen(trim($_REQUEST[$name])) < 1;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	222 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	223
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	224
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	225 function stChkRequestItem($name)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	226 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	227 return isset($_REQUEST[$name]);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	228 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	229
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	230
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	231 function stGetRequestItem($name, $default = "")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	232 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	233 return isset($_REQUEST[$name]) ? trim($_REQUEST[$name]) : $default;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	234 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	235
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	236
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	237 function stGetDRequestItem($name, $default = "")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	238 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	239 return trim(urldecode(stGetRequestItem($name, $default)));
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	240 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	241
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	242
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	243 function stLogSQLError($sql)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	244 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	245 global $db;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	246 error_log("SQL error ".implode("; ", $db->errorInfo())." in statement \"".$sql."\"");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	247 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	248
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	249
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	250 function stConnectSQLDB()
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	251 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	252 global $db;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	253 try {
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	254 $db = new PDO(stGetSetting("sqlDB"));
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	255 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	256 catch (PDOException $e) {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	257 error_log("Could not connect to SQL database: ".$e->getMessage().".");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	258 return FALSE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	259 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260 return TRUE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	261 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	262
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	263
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	264 function stGetSQLParam($type, $value)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	265 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	266 global $db;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	267 switch ($type)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	268 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	269 case "d":
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	270 return intval($value);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	271
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	272 case "s":
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	273 return $db->quote($value);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	274
72 63a6caf59e5c Fix creation of boolean settings, and add '%b' formatter into stPrepareSQL(). Matti Hamalainen <ccr@tnsp.org> parents: 71 diff changeset	275 case "b":
63a6caf59e5c Fix creation of boolean settings, and add '%b' formatter into stPrepareSQL(). Matti Hamalainen <ccr@tnsp.org> parents: 71 diff changeset	276 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	277
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	278 case "D":
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	279 return intval(stGetRequestItem($value));
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	280
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	281 case "S":
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	282 return $db->quote(stGetDRequestItem($value));
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	283
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	284 case "Q":
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	285 return $db->quote(stripslashes(stGetDRequestItem($value)));
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	286
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	287 case "B":
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	288 return intval(stGetRequestItem($value)) ? 1 : 0;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	289 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	290 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	291
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	292
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	293 function stPrepareSQL()
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	294 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	295 $argc = func_num_args();
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	296 $argv = func_get_args();
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	297 if ($argc < 1)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	298 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	299 error_log("Invalid stPrepareSQL() call, no arguments!");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	300 return FALSE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	301 }
87 3da47d3e6a3c Remove a function, etc. Matti Hamalainen <ccr@tnsp.org> parents: 72 diff changeset	302
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	303 $fmt = $argv[0];
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	304 $len = strlen($fmt);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	305 $sql = "";
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	306 $argn = 1;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	307 $pos = 0;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	308 while ($pos < $len)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	309 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	310 if ($fmt[$pos] == "%")
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	311 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	312 if ($argn < $argc)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	313 $sql .= stGetSQLParam($fmt[++$pos], $argv[$argn++]);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	314 else
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	315 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	316 error_log("Invalid SQL statement format string '".$fmt.
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	317 "', not enough parameters specified (".$argn." of ".$argc.")");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	318 return FALSE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	319 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	320 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	321 else
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	322 $sql .= $fmt[$pos];
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	323 $pos++;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	324 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	325
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	326 return $sql;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	327 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	328
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	329
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	330 function stPrepareSQLUpdate($table, $cond, $pairs)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	331 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	332 $sql = array();
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	333 foreach ($pairs as $name => $attr)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	334 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	335 $sql[] = $name."=".stGetSQLParam($attr, $name);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	336 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	337 return
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	338 "UPDATE ".$table." SET ".implode(",", $sql).
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	339 ($cond != "" ? " ".$cond : "");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	340 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	341
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	342
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	343 function stExecSQL($sql)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	344 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	345 global $db;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	346 if (($res = $db->query($sql)) !== FALSE)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	347 return $res;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	348 else
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	349 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	350 stLogSQLError($sql);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	351 stError("Oh noes! SQL error #23!");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	352 return FALSE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	353 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	354 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	355
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	356
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	357 function stFetchSQL($sql)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	358 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	359 global $db;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	360 if (($res = $db->query($sql)) !== FALSE)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	361 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	362 return $res->fetch();
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	363 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	364 else
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	365 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	366 stLogSQLError($sql);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	367 stError("Oh noes! SQL error #31!");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	368 return FALSE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	369 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	370 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	371
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	372
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	373 function stFetchSQLColumn($sql, $column = 0)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	374 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	375 global $db;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	376 if (($res = $db->query($sql)) !== FALSE)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	377 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	378 return $res->fetchColumn($column);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	379 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	380 else
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	381 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	382 stLogSQLError($sql);
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	383 stError("Oh noes! SQL error #81!");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	384 return FALSE;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	385 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	386 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	387
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	388
66 230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	389 function stSetStatus($val, $msg)
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	390 {
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	391 global $statusSet;
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	392 if (!$statusSet)
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 header("Status: ".$val." ".$msg);
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	395 }
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	396 $statusSet = TRUE;
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
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 function stExecSQLCond($sql, $okmsg)
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	401 {
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	402 if (($res = stExecSQL($sql)) !== FALSE)
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 if ($okmsg != "")
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	405 stSetStatus(200, $okmsg);
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	406 return $res;
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	407 }
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	408 else
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	409 {
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	410 stSetStatus(900, "Error in SQL execution.");
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	411 return FALSE;
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	412 }
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	413 }
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	414
230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 65 diff changeset	415
135 eecac02579c4 Move stChop() to site module and rename it to stStrChop(). Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	416 function stStrChop($str, $len)
eecac02579c4 Move stChop() to site module and rename it to stStrChop(). Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	417 {
eecac02579c4 Move stChop() to site module and rename it to stStrChop(). Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	418 if (strlen($str) > $len)
eecac02579c4 Move stChop() to site module and rename it to stStrChop(). Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	419 $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	420 else
eecac02579c4 Move stChop() to site module and rename it to stStrChop(). Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	421 $s = $str;
eecac02579c4 Move stChop() to site module and rename it to stStrChop(). Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	422 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	423 }
eecac02579c4 Move stChop() to site module and rename it to stStrChop(). Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	424
174 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
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	427 function cmLocaleInit()
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 global $pageCharset;
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	430
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	431 if (!isset($pageCharset))
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	432 $pageCharset = "UTF-8";
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	433
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	434 mb_internal_encoding($pageCharset);
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	435
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	436 $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	437 setlocale(LC_ALL, $tmp);
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
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 function cmPrintCSSLine($uri)
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 " <link rel=\"stylesheet\" href=\"".$uri."\" type=\"text/css\" />\n";
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	444 }
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	445
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	446
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	447 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	448 {
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	449 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	450
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	451 if (!isset($pageCSS))
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	452 {
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	453 if (!isset($pageCSSData))
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	454 {
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	455 $pageCSSData = array(
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	456 "cookie" => "docscss",
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	457 "prefix" => "http://tnsp.org/docs",
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 }
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	460
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	461 if (isset($_GET["css"]))
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 $index = intval($_GET["css"]);
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	464 setcookie($pageCSSData["cookie"], $index, time() + 3652460*60, "/"); // expire in a year
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	465 }
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	466 else
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 $index = isset($_COOKIE[$pageCSSData["cookie"]]) ? intval($_COOKIE[$pageCSSData["cookie"]]) : 1;
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	469 }
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	470 $pageCSS = $pageCSSData["prefix"].$index.".css";
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 echo
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	474 "<?xml version=\"1.0\" encoding=\"".$pageCharset."\"?>\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	475 "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	476 "<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"en\" xml:lang=\"en\">\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	477 "<head>\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	478 " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=".$pageCharset."\" />\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	479 " <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	480
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	481 if (is_array($pageCSS))
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	482 {
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	483 foreach ($pageCSS as $uri)
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	484 cmPrintCSSLine($uri);
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 else
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	487 {
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	488 cmPrintCSSLine($pageCSS);
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	489 }
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 echo $pageExtra."\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	492 "</head>\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	493 "<body>\n";
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 if (isset($pageUrchin))
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	496 require_once $pageUrchin;
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	497 else
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	498 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	499
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	500 /*
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	501 echo
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	502 "<script type=\"text/javascript\" src=\"http://tnsp.org/copyright-campaign.js\" charset=\"UTF-8\"></script>\n".
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	503 "<script>\n",
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	504 "copyrightCampaign();\n",
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	505 "</script>\n";
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	506 */
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	507
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	508 if ($useContents)
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	509 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	510 }
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	511
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	512
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	513 function cmPrintPageFooter($useContents = TRUE)
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	514 {
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	515 if ($useContents)
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	516 echo "</div>\n";
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	517
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	518 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	519 }
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	520
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	521
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	522 function cmQM($msg)
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	523 {
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	524 global $pageTranslations, $pageLang;
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	525
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	526 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	527 $str = $pageTranslations[$msg][$pageLang];
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	528 else
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	529 $str = $msg;
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	530
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	531 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	532 $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	533 return $str;
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	534 }
63c840590476 Move common code from mcommon.inc.php to msitegen module. Matti Hamalainen <ccr@tnsp.org> parents: 173 diff changeset	535
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	536 ?>

Mercurial > hg > fapweb

annotate msitegen.inc.php @ 174:63c840590476