annotate admajax.php @ 228:e3dd18b58e6c

Rename some functions.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 18 Nov 2013 14:15:09 +0200
parents 44081a2066f5
children 6927edc7e266
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 <?
56
243e9a51920b Add some comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
2 //
136
aeebfedb5709 Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents: 133
diff changeset
3 // FAPWeb Simple Demoparty System
aeebfedb5709 Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents: 133
diff changeset
4 // Party administration page AJAX backend module
aeebfedb5709 Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents: 133
diff changeset
5 // (C) Copyright 2012-2013 Tecnic Software productions (TNSP)
56
243e9a51920b Add some comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
6 //
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
7 $sessionType = "admin";
175
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 169
diff changeset
8 require_once "mconfig.inc.php";
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 169
diff changeset
9 require_once "msite.inc.php";
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 169
diff changeset
10 require_once "msession.inc.php";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
12
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
13 function stValidateRequestCompoData($full)
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
14 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
15 if (!stChkRequestItem("name", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
16 array(CHK_ISGT, VT_STR, 0, "Compo name too short"),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
17 array(CHK_ISLT, VT_STR, SET_LEN_COMPO_NAME, "Compo name too long.")) ||
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
18 !stChkRequestItem("description", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
19 array(CHK_ISGT, VT_STR, 10, "Compo description too short"),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
20 array(CHK_ISLT, VT_STR, SET_LEN_COMPO_DESC, "Compo description too long.")))
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
21 return FALSE;
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
22
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
23 if (!$full)
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
24 return TRUE;
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
25
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
26 return
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
27 stChkRequestItem("visible", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
28 array(CHK_TYPE, VT_BOOL, "Invalid data.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
29 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
30 stChkRequestItem("voting", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
31 array(CHK_TYPE, VT_BOOL, "Invalid data.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
32 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
33 stChkRequestItem("showAuthors", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
34 array(CHK_TYPE, VT_BOOL, "Invalid data.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
35 );
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
36 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
37
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
38
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
39 function stValidateRequestEntryData(&$compo_id)
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
40 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
41 return
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
42 stChkRequestItem("name", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
43 array(CHK_ISGT, VT_STR, 0, "Entry name too short."),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
44 array(CHK_ISLT, VT_STR, SET_LEN_ENTRY_NAME, "Entry name too long.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
45 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
46 stChkRequestItem("author", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
47 array(CHK_ISGT, VT_STR, 0, "Author name not set."),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
48 array(CHK_ISLT, VT_STR, SET_LEN_ENTRY_AUTHOR, "Entry author too long.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
49 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
50 stChkRequestItem("filename", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
51 array(CHK_TYPE, VT_TEXT, "Invalid data."),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
52 array(CHK_ISLT, VT_STR, SET_LEN_ENTRY_FILENAME, "Entry filename too long.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
53 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
54 stChkRequestItem("info", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
55 array(CHK_TYPE, VT_TEXT, "Invalid data."),
215
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
56 array(CHK_ISLT, VT_STR, SET_LEN_ENTRY_INFO, "Entry info too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
57 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
58 stChkRequestItem("compo_id", $compo_id,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
59 array(CHK_TYPE, VT_INT, "Invalid compo ID.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
60 );
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
61 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
62
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
63
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
64 function stValidateRequestNewsData()
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
65 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
66 return
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
67 stChkRequestItem("text", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
68 array(CHK_ISGT, VT_STR, 0, "News text too short."),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
69 array(CHK_ISLT, VT_STR, SET_LEN_NEWS_TEXT, "News text too long.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
70 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
71 stChkRequestItem("author", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
72 array(CHK_ISGT, VT_STR, 0, "News author name too short."),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
73 array(CHK_ISLT, VT_STR, SET_LEN_NEWS_AUTHOR, "News author name too long.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
74 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
75 stChkRequestItem("title", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
76 array(CHK_ISGT, VT_STR, 0, "News title too short."),
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
77 array(CHK_ISLT, VT_STR, SET_LEN_NEWS_TITLE, "News title too long.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
78 );
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
79 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
80
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
81
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
82 function stGetCompoData($id, $item, $prefix)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
83 {
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
84 return
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
85 " <h2>#".$id." - ".chentities($item["name"])."</h2>\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
86 " ".stGetFormTextInput(40, SET_LEN_COMPO_NAME, "name", $id, $prefix, $item["name"])."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
87 " ".stGetFormCheckBoxInput("visible", $id, $prefix, $item["visible"], "Visible")."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
88 " ".stGetFormCheckBoxInput("showAuthors", $id, $prefix, $item["showAuthors"], "Show authors")."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
89 " ".stGetFormCheckBoxInput("voting", $id, $prefix, $item["voting"], "Enable voting")."<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
90 " ".stGetFormTextArea(5, 60, "description", $id, $prefix, $item["description"])."\n<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
91 " ".stGetFormButtonInput("update", $id, $prefix, "Update", "updateCompo(".$id.")")."\n";
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
92 }
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
93
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
94
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
95 function stGetNewsItemData($id, $item, $prefix)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
96 {
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
97 return
227
44081a2066f5 Cosmetic improvements in news editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 223
diff changeset
98 " <h2>".chentities($item["title"])."</h2>\n".
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
99 " ".stGetFormTextInput(40, SET_LEN_NEWS_TITLE, "title", $id, $prefix, $item["title"]).
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
100 " - posted ".date("d M Y / H:i", $item["utime"])."<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
101 " ".stGetFormTextArea(5, 60, "text", $id, $prefix, $item["text"])."<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
102 " ".stGetFormTextInput(20, SET_LEN_NEWS_AUTHOR, "author", $id, $prefix, $item["author"])."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
103 " ".stGetFormButtonInput("", "upd".$id, $prefix, "Update", "updateNews(".$id.")")."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
104 " ".stGetFormButtonInput("", "del".$id, $prefix, "Delete", "deleteNews(".$id.")")."\n";
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
105 }
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
106
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
107
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
108 function stGetSaveButton()
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
109 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
110 return "<input type=\"submit\" value=\" Save \" />\n";
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
111 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
112
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
113
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
114 //
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
115 // Check if we are allowed to execute
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
116 //
5
76c3b89d7b11 Improve voting, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 3
diff changeset
117 if (!stCheckHTTPS() || !stAdmSessionAuth())
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
118 {
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
119 stSetupCacheControl();
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
120
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
121 stSessionEnd(SESS_ADMIN);
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
122
123
5837b9333964 Add new "about" page, and setting for default page.
Matti Hamalainen <ccr@tnsp.org>
parents: 116
diff changeset
123 header("Location: ".stGetSetting("defaultPage"));
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
124 exit;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
125 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
126
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
127
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
128 //
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
129 // Initialize
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
130 //
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
131 stSetupCacheControl();
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
132
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
133 if (!stConnectSQLDB())
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
134 die("Could not connect to SQL database.");
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
135
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
136 stReloadSettings();
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
137
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
138
208
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
139 $type = stGetRequestItem("type", "");
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
140 switch (stGetRequestItem("action", ""))
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
141 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
142 case "dump":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
143 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
144 // Perform generic data dump
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
145 //
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
146 if (($res = stExecSQLCond(
208
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
147 "SELECT * FROM attendees WHERE email NOT NULL AND email != '' ORDER BY regtime DESC")) !== FALSE)
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
148 {
208
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
149 stSetStatus(200, "Dump OK.");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
150 $out1 = array();
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
151 $out2 = array();
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
152
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
153 foreach ($res as $item)
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
154 {
133
cf53c6c7b797 Use chentities() here.
Matti Hamalainen <ccr@tnsp.org>
parents: 128
diff changeset
155 $out1[] = chentities($item["name"])." &lt;".chentities($item["email"])."&gt;";
cf53c6c7b797 Use chentities() here.
Matti Hamalainen <ccr@tnsp.org>
parents: 128
diff changeset
156 $out2[] = chentities($item["email"]);
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
157 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
158
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
159 echo "<br /><hr />".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
160 implode(", ", $out1)."<br /><hr /><br />".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
161 implode("<br />", $out1)."<br /><hr /><br />".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
162 implode(", ", $out2)."<br /><hr /><br />".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
163 implode("<br />", $out2)."<br /><hr />";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
164
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
165 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
166 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
167
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
168 case "get":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
169 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
170 // Get specific data
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
171 //
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
172 switch ($type)
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
173 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
174 case "news":
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
175 $sql = "SELECT * FROM news ORDER BY utime DESC";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
176 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
177
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
178 case "newsitem":
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
179 $res = stFetchSQL(stPrepareSQL("SELECT * FROM news WHERE id=%D", "id"));
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
180 if ($res !== FALSE)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
181 echo stGetNewsItemData($res["id"], $res, "ne");
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
182 break;
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
183
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
184 case "attendees":
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
185 $sql = "SELECT * FROM attendees ORDER BY regtime DESC";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
186 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
187
205
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
188 case "attendee":
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
189 $res = stFetchSQL(stPrepareSQL("SELECT * FROM attendees WHERE id=%D", "id"));
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
190 if ($res !== FALSE)
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
191 stPrintAttendee($res, -1, FALSE, TRUE, stGetRequestItem("edit", FALSE));
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
192 break;
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
193
105
a85f258f6beb Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 90
diff changeset
194 case "voters":
116
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
195 $sqlJoins = "";
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
196 switch (stGetSetting("voteKeyMode"))
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
197 {
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
198 case VOTE_FREELY:
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
199 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
200
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
201 case VOTE_ACTIVATE:
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
202 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
203
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
204 case VOTE_ASSIGN:
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
205 $sqlJoins = "LEFT JOIN attendees ON votekeys.voter_id=attendees.id ";
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
206 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
207 }
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
208 $sql = "SELECT * FROM votekeys ".$sqlJoins."ORDER BY votekeys.id ASC";
105
a85f258f6beb Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 90
diff changeset
209 break;
a85f258f6beb Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 90
diff changeset
210
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
211 case "compos":
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
212 $sql = "SELECT * FROM compos ORDER BY id DESC";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
213 break;
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
214
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
215 case "compo":
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
216 $res = stFetchSQL(stPrepareSQL("SELECT * FROM compos WHERE id=%D", "id"));
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
217 if ($res !== FALSE)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
218 echo stGetCompoData($res["id"], $res, "co");
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
219 break;
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
220
216
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
221 case "slides":
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
222 $sql = "SELECT * FROM displaySlides SORT BY id ASC";
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
223 $sql = "SELECT * FROM displayListData SORT BY id ASC";
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
224 $sql = "SELECT * FROM displayListSlides SORT BY id ASC";
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
225 echo
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
226 "<form>\n".
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
227 " <table>\n".
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
228 " <tr>\n".
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
229 " <td>".stGetFormButtonInput("generate", "", "", " Generate entry show positions ", "generateEntryPositions()")."</td>\n".
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
230 " <td>".stGetFormButtonInput("generate", "", "", " XXX ", "generateEntryPositions()")."</td>\n".
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
231 " </tr>\n".
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
232 " </table>\n".
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
233 "</form>\n";
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
234 break;
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 215
diff changeset
235
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
236 case "settings":
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
237 $prefix = "st";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
238
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
239 echo
16
6da681d1f62a Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 14
diff changeset
240 "<h1>Site settings</h1>\n".
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
241 "<form method=\"post\" action=\"\" onsubmit=\"return updateSettings()\">\n".
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
242 "<table>\n";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
243 foreach (stExecSQL("SELECT * FROM settings WHERE vtype<>".VT_TEXT) as $item)
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
244 {
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
245 echo
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
246 " <tr>\n".
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
247 " <td>";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
248 $id = $item["key"];
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
249 switch ($item["vtype"])
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
250 {
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
251 case VT_INT:
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
252 echo stGetFormTextInput(10, 10, "", $id, $prefix, $item["vint"]);
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
253 break;
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
254 case VT_STR:
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
255 echo stGetFormTextInput(40, 128, "", $id, $prefix, $item["vstr"]);
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
256 break;
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
257 case VT_BOOL:
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
258 echo stGetFormCheckBoxInput("", $id, $prefix, $item["vint"], "");
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
259 break;
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
260 }
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
261 echo "</td>\n".
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
262 " <td>".$item["desc"]."</td>\n".
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
263 " </tr>\n";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
264 }
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
265 echo "</table>\n".stGetSaveButton();
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
266
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
267 foreach (stExecSQL("SELECT * FROM settings WHERE vtype=".VT_TEXT) as $item)
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
268 {
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
269 echo
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
270 "<h2>".chentities($item["desc"])."</h2>\n".
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
271 stGetFormTextArea(10, 60, "", $item["key"], $prefix, $item["vtext"]).
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
272 "\n<br />\n".
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
273 stGetSaveButton();
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
274 }
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
275 echo "</form>\n";
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
276 break;
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
277
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
278 case "entries":
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
279 foreach (stExecSQL("SELECT * FROM compos") as $compo)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
280 {
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
281 echo "registerTab(\"CM\",\"Compo".$compo["id"]."\",\"".chentities($compo["name"])."\");";
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
282 }
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
283 break;
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
284
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
285 case "entrylist":
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
286 $id = intval(stGetRequestItem("id", 0));
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
287 foreach (stExecSQL("SELECT * FROM compos WHERE id=".$id) as $compo)
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
288 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
289 echo
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
290 "<form>\n".
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
291 " <h1>#".$id." - ".chentities($compo["name"])."</h1>\n".
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
292 " <table class=\"misc\">\n".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
293 " <tr>\n".
113
671330b7f5d1 Add "show_id" to compo entries, to designate the position they were shown at
Matti Hamalainen <ccr@tnsp.org>
parents: 112
diff changeset
294 " <th style=\"width:4%;\">ID#</th>\n".
671330b7f5d1 Add "show_id" to compo entries, to designate the position they were shown at
Matti Hamalainen <ccr@tnsp.org>
parents: 112
diff changeset
295 " <th style=\"width:4%;\">S#</th>\n".
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
296 " <th>Title</th>\n".
29
4b5a176805e2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
297 " <th>Author(s)</th>\n".
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
298 " <th>Filename</th>\n".
215
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
299 " <th>Info</th>\n".
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
300 " <th>Actions</th>\n".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
301 " </tr>\n";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
302
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
303 $prefix = "en";
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
304 foreach (stExecSQL("SELECT * FROM entries WHERE compo_id=".$id) as $entry)
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
305 {
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
306 $eid = $entry["id"];
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
307 echo
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
308 " <tr id=\"entry".$eid."\">\n".
113
671330b7f5d1 Add "show_id" to compo entries, to designate the position they were shown at
Matti Hamalainen <ccr@tnsp.org>
parents: 112
diff changeset
309 " <td>".$eid."</td>\n".
671330b7f5d1 Add "show_id" to compo entries, to designate the position they were shown at
Matti Hamalainen <ccr@tnsp.org>
parents: 112
diff changeset
310 " <td>".($entry["show_id"] > 0 ? $entry["show_id"] : "-")."</td>\n".
215
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
311 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_NAME, "name", $eid, "en", $entry["name"])."</td>\n".
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
312 " <td>".stGetFormTextInput(15, SET_LEN_ENTRY_AUTHOR, "author", $eid, "en", $entry["author"])."</td>\n".
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
313 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_FILENAME, "filename", $eid, "en", $entry["filename"])."</td>\n".
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
314 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_INFO, "info", $eid, "en", $entry["info"])."</td>\n".
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
315 " <td>".
215
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
316 stGetFormButtonInput("delete", $eid, $prefix, "Del", "deleteEntry(".$eid.")").
113
671330b7f5d1 Add "show_id" to compo entries, to designate the position they were shown at
Matti Hamalainen <ccr@tnsp.org>
parents: 112
diff changeset
317 stGetFormTextInput(3, 3, "compo_id", $eid, "en", $id).
215
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
318 stGetFormButtonInput("update", $eid, $prefix, "Upd", "updateEntry(".$eid.")").
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
319 "</td>\n".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
320 " </tr>\n";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
321 }
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
322
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
323 $prefix = "ne";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
324 echo
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
325 " <tr>\n".
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
326 " <td></td>\n".
113
671330b7f5d1 Add "show_id" to compo entries, to designate the position they were shown at
Matti Hamalainen <ccr@tnsp.org>
parents: 112
diff changeset
327 " <td></td>\n".
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
328 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_NAME, "name", $id, $prefix, "")."</td>\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
329 " <td>".stGetFormTextInput(15, SET_LEN_ENTRY_AUTHOR, "author", $id, $prefix, "")."</td>\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
330 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_FILENAME, "filename", $id, $prefix, "")."</td>\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
331 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_INFO, "info", $id, $prefix, "")."</td>\n".
215
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
332 " <td>".stGetFormButtonInput("add", $id, $prefix, "Add new", "addEntry(".$id.")")."</td>\n".
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
333 " </tr>\n".
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
334 " </table>\n".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
335 "</form>\n";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
336 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
337 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
338 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
339
56
243e9a51920b Add some comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
340 //
243e9a51920b Add some comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
341 // Perform query if we need to, output results
243e9a51920b Add some comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
342 //
208
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
343 if (isset($sql) && ($res = stExecSQLCond($sql)) !== FALSE)
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
344 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
345 if ($type == "news")
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
346 {
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
347 echo
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
348 "<form method=\"post\" action=\"\" onsubmit=\"return addNews()\">\n".
207
e31c42a9b574 Slowly work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 205
diff changeset
349 " ".stGetFormTextInput(40, SET_LEN_NEWS_TITLE, "", "nntitle", "", "")."<br />\n".
204
fa94536c060b More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 203
diff changeset
350 " ".stGetFormTextArea(5, 60, "", "nntext", "", "")."<br />\n".
207
e31c42a9b574 Slowly work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 205
diff changeset
351 " ".stGetFormTextInput(20, SET_LEN_NEWS_AUTHOR, "", "nnauthor", "", "orgaz")."\n".
204
fa94536c060b More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 203
diff changeset
352 " ".stGetFormSubmitInput("nnadd", "Add post")."\n".
fa94536c060b More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 203
diff changeset
353 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n".
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
354 "</form>\n".
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
355 "<hr />\n";
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
356
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
357 foreach ($res as $item)
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
358 {
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
359 echo
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
360 "<div id=\"news".$item["id"]."\">\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
361 stGetNewsItemData($item["id"], $item, "ne").
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
362 "</div>\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
363 "<hr />\n";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
364 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
365 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
366 else
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
367 if ($type == "attendees")
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
368 {
90
32c4654aad50 Comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 83
diff changeset
369 // For adding a new one
61
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
370 $prefix = "ne";
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
371 echo
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
372 "<table>\n".
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
373 " <tr>\n".
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
374 " <th>Name</th>\n".
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
375 " <th>Groups</th>\n".
82
a071dacdcfc5 Change order of table fields.
Matti Hamalainen <ccr@tnsp.org>
parents: 75
diff changeset
376 " <th>Oneliner</th>\n".
61
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
377 " <th>E-mail</th>\n".
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
378 " <th>Actions</th>\n".
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
379 " </tr>\n".
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
380 " <tr>\n".
207
e31c42a9b574 Slowly work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 205
diff changeset
381 " <td>".stGetFormTextInput(20, SET_LEN_USERNAME, "name", "x", $prefix, "")."</td>\n".
e31c42a9b574 Slowly work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 205
diff changeset
382 " <td>".stGetFormTextInput(20, SET_LEN_GROUPS, "groups", "x", $prefix, "")."</td>\n".
e31c42a9b574 Slowly work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 205
diff changeset
383 " <td>".stGetFormTextInput(30, SET_LEN_ONELINER, "oneliner", "x", $prefix, "")."</td>\n".
e31c42a9b574 Slowly work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 205
diff changeset
384 " <td>".stGetFormTextInput(20, SET_LEN_EMAIL, "email", "x", $prefix, "")."</td>\n".
61
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
385 " <td>".stGetFormButtonInput("add", "", $prefix, " Add new ", "addAttendee()")."</td>\n".
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
386 " </tr>\n".
169
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
387 "</table>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
388 "<hr />\n";
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
389
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
390 // List of attendees
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
391 echo
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
392 "<table class=\"attendees\">\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
393 " <tr>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
394 " <th class=\"name\">Name</th>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
395 " <th class=\"groups\">Groups</th>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
396 " <th class=\"regtime\">Registered</th>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
397 " <th class=\"oneliner\">Oneliner</th>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
398 " <th class=\"email\">E-mail</th>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
399 " <th>Actions</th>\n".
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
400 " </tr>\n";
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
401
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
402 $row = 0;
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
403 foreach ($res as $item)
205
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
404 {
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
405 stPrintAttendee($item, $row++, TRUE, TRUE, FALSE);
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
406 }
169
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
407
8db98399bb38 Put the "new attendee" form above the current attendees in admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 136
diff changeset
408 echo
61
e85ed35585fc Work on attendee editing, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
409 "</table>\n";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
410 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
411 else
116
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
412 if ($type == "voters")
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
413 {
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
414 switch (stGetSetting("voteKeyMode"))
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
415 {
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
416 case VOTE_FREELY:
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
417 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
418
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
419 case VOTE_ACTIVATE:
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
420 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
421
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
422 case VOTE_ASSIGN:
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
423 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
424 }
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
425 // List of votekeys
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
426 echo
212
4cee86b4e0b7 Printable keylist link.
Matti Hamalainen <ccr@tnsp.org>
parents: 211
diff changeset
427 "<p><a href=\"print.php\">Printable key list</a></p>\n".
116
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
428 "<table class=\"attendees\">\n".
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
429 " <tr>\n".
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
430 " <th class=\"name\">Name</th>\n".
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
431 " <th class=\"groups\">Groups</th>\n".
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
432 " <th class=\"email\">E-mail</th>\n".
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
433 " <th class=\"\">Key</th>\n".
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
434 " </tr>\n";
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
435 $row = 0;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
436
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
437 echo
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
438 "</table>\n";
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
439 }
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
440 else
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
441 if ($type == "compos")
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
442 {
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
443 echo
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
444 "<form method=\"post\" action=\"\" onsubmit=\"return addCompo()\">\n".
207
e31c42a9b574 Slowly work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 205
diff changeset
445 " ".stGetFormTextInput(64, SET_LEN_COMPO_NAME, "", "ncname", "", "")."<br />\n".
203
d75db79e6e64 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 201
diff changeset
446 " ".stGetFormTextArea(5, 60, "", "ncdescription", "", "")."<br />\n".
d75db79e6e64 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 201
diff changeset
447 " ".stGetFormSubmitInput("nccompo", "Add compo")."\n".
d75db79e6e64 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 201
diff changeset
448 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n".
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
449 "</form>\n".
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
450 "<hr />\n";
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
451
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
452 foreach ($res as $item)
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
453 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
454 echo
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
455 "<div id=\"compo".$item["id"]."\">\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
456 stGetCompoData($item["id"], $item, "co").
203
d75db79e6e64 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 201
diff changeset
457 "</div>\n".
d75db79e6e64 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 201
diff changeset
458 "<hr />\n";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
459 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
460 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
461 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
462 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
463
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
464 case "delete":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
465 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
466 // Delete entry
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
467 //
208
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
468 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data.")))
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
469 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
470 if ($type == "news")
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
471 {
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
472 $sql = stPrepareSQL("DELETE FROM news WHERE id=%d AND persist=0", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
473 stExecSQLCond($sql, "OK, news item ".$id." deleted.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
474 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
475 else
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
476 if ($type == "attendees")
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
477 {
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
478 // Attendees require some more work
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
479 $sql = stPrepareSQL("DELETE FROM attendees WHERE id=%d", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
480 stExecSQLCond($sql, "OK, attendee ".$id." deleted.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
481
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
482 $sql = stPrepareSQL("DELETE FROM votes WHERE voter_id=%d", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
483 stExecSQLCond($sql, "OK, attendee ".$id." votes deleted.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
484 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
485 else
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
486 if ($type == "entries")
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
487 {
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
488 // .. as do compo entries
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
489 $sql = stPrepareSQL("DELETE FROM entries WHERE id=%d", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
490 stExecSQLCond($sql, "OK, entry ".$id." deleted.");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
491
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
492 $sql = stPrepareSQL("DELETE FROM votes WHERE entry_id=%d", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
493 stExecSQLCond($sql, "OK, entry ".$id." votes deleted.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
494 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
495 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
496 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
497
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
498 case "add":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
499 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
500 // Add new entry
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
501 //
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
502 if ($type == "news" && stValidateRequestNewsData())
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
503 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
504 $sql = stPrepareSQL(
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
505 "INSERT INTO news (utime,title,text,author) VALUES (%d,%S,%Q,%S)",
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
506 time(), "title", "text", "author");
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
507
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
508 stExecSQLCond($sql, "OK, news item added.");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
509 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
510 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
511 if ($type == "compo" && stValidateRequestCompoData(FALSE))
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
512 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
513 $sql = stPrepareSQL(
55
4fac95384753 Make visibility of entry authors per compo.
Matti Hamalainen <ccr@tnsp.org>
parents: 53
diff changeset
514 "INSERT INTO compos (name,description,visible,voting,showAuthors) VALUES (%S,%Q,0,0,0)",
26
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents: 24
diff changeset
515 "name", "description");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
516
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
517 stExecSQLCond($sql, "OK, compo added.");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
518 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
519 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
520 if ($type == "attendees" && stValidateRequestUserData(TRUE))
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
521 {
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
522 $sql = stPrepareSQL(
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
523 "INSERT INTO attendees (regtime,name,groups,oneliner,email) VALUES (%d,%S,%S,%S,%S)",
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
524 time(), "name", "groups", "oneliner", "email");
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
525
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
526 stExecSQLCond($sql, "OK, attendee added.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
527 }
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
528 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
529 if ($type == "entry" && stValidateRequestEntryData($fake))
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
530 {
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
531 $sql = stPrepareSQL(
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
532 "INSERT INTO entries (name,author,compo_id,filename,info) VALUES (%S,%S,%D,%S,%S)",
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
533 "name", "author", "compo_id", "filename", "info");
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
534
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
535 stExecSQLCond($sql, "OK, entry added.");
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
536 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
537 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
538
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
539 case "update":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
540 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
541 // Update existing entry
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
542 //
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
543 if ($type == "settings")
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
544 {
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
545 foreach (stExecSQL("SELECT * FROM settings") as $item)
198
96ab189e5c03 Add some new helper functions and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 175
diff changeset
546 if (($val = stGetRequestItem($item["key"], FALSE)) !== FALSE)
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
547 {
198
96ab189e5c03 Add some new helper functions and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 175
diff changeset
548 $sql = "UPDATE settings SET ".stGetSettingSQL($item, $val)." WHERE key=".$db->quote($item["key"]);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
549 stExecSQLCond($sql, "OK, setting updated.");
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
550 }
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
551 }
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
552 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data.")))
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
553 {
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
554 if ($type == "attendees" && stValidateRequestUserData(TRUE))
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
555 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
556 $sql = stPrepareSQLUpdate("attendees",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
557 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
558 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
559 "name" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
560 "groups" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
561 "email" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
562 "oneliner" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
563 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
564
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
565 stExecSQLCond($sql, "OK, attendee updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
566 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
567 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
568 if ($type == "news" && stValidateRequestNewsData())
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
569 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
570 $sql = stPrepareSQLUpdate("news",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
571 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
572 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
573 "title" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
574 "text" => "Q",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
575 "author" => "S"
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
576 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
577
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
578 stExecSQLCond($sql, "OK, news item updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
579 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
580 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
581 if ($type == "compo" && stValidateRequestCompoData(TRUE))
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
582 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
583 $sql = stPrepareSQLUpdate("compos",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
584 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
585 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
586 "name" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
587 "description" => "Q",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
588 "visible" => "B",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
589 "voting" => "B",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
590 "showAuthors" => "B",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
591 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
592
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
593 stExecSQLCond($sql, "OK, compo updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
594 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
595 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
596 if ($type == "entry" && stValidateRequestEntryData($compo_id))
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
597 {
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
598 if (stFetchSQLColumn("SELECT id FROM compos WHERE id=".$compo_id) === FALSE)
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
599 {
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
600 stError("No such compo ID.");
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
601 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
602 else
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
603 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
604 $sql = stPrepareSQLUpdate("entries",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
605 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
606 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
607 "name" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
608 "author" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
609 "filename" => "S",
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
610 "info" => "S",
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
611 "compo_id" => "D",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
612 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
613
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
614 stExecSQLCond($sql, "OK, entry updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
615 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
616 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
617 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
618 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
619
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
620 default:
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
621 stSetStatus(404, "Not Found");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
622 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
623 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
624
211
5bae42020034 Factorize some code into msitegen.
Matti Hamalainen <ccr@tnsp.org>
parents: 210
diff changeset
625 stDumpAJAXStatusErrors();
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
626 ?>