annotate usrajax.php @ 739:17820305bc77

Clean up vote handling.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 19 Nov 2014 04:42:24 +0200
parents bf33cec02dc6
children 539bfbdd43ec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 <?
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 //
571
ce11ea112a65 Change the header blurb a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 565
diff changeset
3 // FAPWeb - Simple Web-based Demoparty Management System
155
5b92f130ba87 Add copyright header blurbs.
Matti Hamalainen <ccr@tnsp.org>
parents: 153
diff changeset
4 // User actions page AJAX backend module
565
ed2247111fdd Bump copyright years.
Matti Hamalainen <ccr@tnsp.org>
parents: 544
diff changeset
5 // (C) Copyright 2012-2014 Tecnic Software productions (TNSP)
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 //
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 $sessionType = "user";
175
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 165
diff changeset
8 require_once "mconfig.inc.php";
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 165
diff changeset
9 require_once "msite.inc.php";
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 165
diff changeset
10 require_once "msession.inc.php";
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11
161
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
12 //
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
13 // Update one vote (prevalidated)
161
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
14 //
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
15 function stUpdateVote($key_id, $entry_id, $vote)
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 {
161
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
17 // Check if the vote already exists
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
18 $sql = stPrepareSQL("SELECT id FROM votes WHERE key_id=%d AND entry_id=%d",
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
19 $key_id, $entry_id);
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21 if (($res = stFetchSQLColumn($sql)) === false)
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22 {
161
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
23 // Didn't exist, insert it
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
24 $sql = stPrepareSQL(
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
25 "INSERT INTO votes (key_id,entry_id,value) VALUES (%d,%d,%d)",
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
26 $key_id, $entry_id, $vote);
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27 }
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28 else
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 {
161
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
30 // Existed, thusly update
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 $sql = stPrepareSQL(
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
32 "UPDATE votes SET value=%d WHERE key_id=%d AND entry_id=%d",
329
899a3583666d Yay, noscript voting also works now.
Matti Hamalainen <ccr@tnsp.org>
parents: 325
diff changeset
33 $vote, $key_id, $entry_id);
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
34 }
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
35
225
1bb4f4bcb027 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
36 return stExecSQL($sql);
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
37 }
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
38
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39
739
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
40 function stCheckVoteValue($id, &$value)
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
41 {
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
42 return
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
43 stChkRequestItem($id, $value,
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
44 array(CHK_TYPE, VT_INT, "Invalid entry vote value data."),
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
45 array(CHK_RANGE, VT_INT, array(stGetSetting("voteMin"), stGetSetting("voteMax")), "Invalid vote value, not in range."));
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
46 }
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
47
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
48
165
15182643d672 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 162
diff changeset
49 //
15182643d672 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 162
diff changeset
50 // Initialize
15182643d672 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 162
diff changeset
51 //
360
2af8458058ab Implement CSRF token checks.
Matti Hamalainen <ccr@tnsp.org>
parents: 332
diff changeset
52 if (!stUserSessionAuth() || !stCSRFCheck())
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
53 {
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
54 stSetupCacheControl();
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
55
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
56 stSessionEnd(SESS_USER);
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
57
123
5837b9333964 Add new "about" page, and setting for default page.
Matti Hamalainen <ccr@tnsp.org>
parents: 101
diff changeset
58 header("Location: ".stGetSetting("defaultPage"));
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
59 exit;
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
60 }
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
61
544
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
62 ob_start();
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
63
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
64 stSetupCacheControl();
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
65
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
66 if (!stConnectSQLDB())
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
67 die("Could not connect to SQL database.");
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
68
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
69 stReloadSettings();
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
70
310
8098b5b80f8c We won't be checking key validity while session is in progress, thus get rid
Matti Hamalainen <ccr@tnsp.org>
parents: 294
diff changeset
71 $voteKeyId = stGetSessionItem("key_id");
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
72
310
8098b5b80f8c We won't be checking key validity while session is in progress, thus get rid
Matti Hamalainen <ccr@tnsp.org>
parents: 294
diff changeset
73
161
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
74 //
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
75 // Handle the request
50032763bc79 Clean up the code a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 155
diff changeset
76 //
216
bcc3c4696b3e Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 211
diff changeset
77 switch (stGetRequestItem("action"))
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
78 {
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
79 case "set":
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
80 //
153
aecf145e7c70 Some work on the voting backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 123
diff changeset
81 // Set vote, if voting is enabled
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
82 //
245
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
83 if (!stChkSetting("allowVoting"))
294
efba5a51f8fa Fix some 10L's ... durr.
Matti Hamalainen <ccr@tnsp.org>
parents: 245
diff changeset
84 stError("Voting is not enabled.");
245
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
85 else
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
86 if (stChkRequestItem("entry_id", $entry_id,
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
87 array(CHK_TYPE, VT_INT, "Invalid data.")) &&
739
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
88 stCheckVoteValue("vote", $vote))
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
89 {
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
90 // Check if the entry_id is actually valid
580
3929a5a87815 Use the new transaction functions here as well.
Matti Hamalainen <ccr@tnsp.org>
parents: 571
diff changeset
91 stDBBeginTransaction();
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
92 $sql = stPrepareSQL("SELECT * FROM entries WHERE id=%d", $entry_id);
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
93 if (($entry = stFetchSQL($sql)) !== false)
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
94 {
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
95 // Check if the compo is valid for the entry
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
96 $sql = stPrepareSQL("SELECT * FROM compos WHERE id=%d", $entry["compo_id"]);
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
97 if (($compo = stFetchSQL($sql)) !== false && $compo["voting"] != 0)
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
98 stUpdateVote($voteKeyId, $entry_id, $vote);
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
99 }
580
3929a5a87815 Use the new transaction functions here as well.
Matti Hamalainen <ccr@tnsp.org>
parents: 571
diff changeset
100 stDBCommitTransaction();
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
101 }
245
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
102 break;
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
103
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
104 case "submit":
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
105 if (!stChkSetting("allowVoting"))
294
efba5a51f8fa Fix some 10L's ... durr.
Matti Hamalainen <ccr@tnsp.org>
parents: 245
diff changeset
106 stError("Voting is not enabled.");
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
107 else
245
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
108 {
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
109 foreach (stExecSQL("SELECT * FROM compos WHERE visible<>0 AND voting<>0") as $compo)
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
110 {
722
bf33cec02dc6 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 580
diff changeset
111 stDBBeginTransaction();
bf33cec02dc6 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 580
diff changeset
112 foreach (stExecSQL("SELECT * FROM entries WHERE compo_id=".$compo["id"]) as $entry)
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
113 {
739
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
114 if (stCheckVoteValue("ventry".$entry["id"], $value))
325
aac3bdd73ec1 More work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 316
diff changeset
115 {
739
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
116 if (!stUpdateVote($voteKeyId, $entry["id"], $value))
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
117 stError("Could not set vote for compo #".$compo["id"].", entry #".$entry["id"]);
325
aac3bdd73ec1 More work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 316
diff changeset
118 }
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
119 }
722
bf33cec02dc6 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 580
diff changeset
120 stDBCommitTransaction();
316
54dfab6ba12c Work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 310
diff changeset
121 }
368
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
122
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
123 if ($errorSet)
325
aac3bdd73ec1 More work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 316
diff changeset
124 {
368
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
125 stSetSessionItem("mode", "error");
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
126 stSetSessionItem("error", $errorMsgs);
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
127 }
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
128 else
325
aac3bdd73ec1 More work on voting.
Matti Hamalainen <ccr@tnsp.org>
parents: 316
diff changeset
129 stSetSessionItem("mode", "done");
368
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
130
cbe2693a3cd1 Error handling improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
131 header("Location: ".stGetRequestItem("goto", "vote"));
245
bb96aef874a9 Work on the voting backend code.
Matti Hamalainen <ccr@tnsp.org>
parents: 225
diff changeset
132 }
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
133 break;
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
134
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
135 default:
739
17820305bc77 Clean up vote handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 722
diff changeset
136 stSetStatus(902, "Not Found");
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
137 break;
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
138 }
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
139
544
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
140 if ($errorSet)
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
141 {
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
142 ob_clean();
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
143 stDumpAJAXStatusErrors();
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
144 }
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
145
b4581dc165dc Add output buffering.
Matti Hamalainen <ccr@tnsp.org>
parents: 520
diff changeset
146 ob_end_flush();
93
f36ebd03afd6 User AJAX.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
147 ?>