fapweb: usrlogin.php annotate

annotate usrlogin.php @ 1096:bbc0a3d0b51e

Major renaming / refactor of site messages. Some that were previously modifiable from admin interface are now "hardcoded" in the configuration file. Having these settings made modifiable from there made no sense and just took space in the UI.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 27 Jan 2017 22:15:06 +0200
parents	95b74632cfe2
children	0a2117349f46

rev	line source
1074 48e16e856646 Use long tags. Matti Hamalainen <ccr@tnsp.org> parents: 1072 diff changeset	1 <?php
155 5b92f130ba87 Add copyright header blurbs. Matti Hamalainen <ccr@tnsp.org> parents: 129 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: 129 diff changeset	4 // Administration interface session login handler
1072 7da8bde9b7be Bump copyrights. Matti Hamalainen <ccr@tnsp.org> parents: 1001 diff changeset	5 // (C) Copyright 2012-2017 Tecnic Software productions (TNSP)
155 5b92f130ba87 Add copyright header blurbs. Matti Hamalainen <ccr@tnsp.org> parents: 129 diff changeset	6 //
110 ff511f5351df Work on voting. 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: 156 diff changeset	8 require_once "mconfig.inc.php";
8df523e6326a User require_once instead of require. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	9 require_once "msite.inc.php";
8df523e6326a User require_once instead of require. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	10 require_once "msession.inc.php";
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11
156 fa7f3defffd0 Comments. Matti Hamalainen <ccr@tnsp.org> parents: 155 diff changeset	12 //
fa7f3defffd0 Comments. Matti Hamalainen <ccr@tnsp.org> parents: 155 diff changeset	13 // Initialize
fa7f3defffd0 Comments. Matti Hamalainen <ccr@tnsp.org> parents: 155 diff changeset	14 //
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	15 stSetupCacheControl();
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	16
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	17 if (!stConnectSQLDB())
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	18 die("Could not connect to SQL database.");
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	19
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	20 stReloadSettings();
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	21
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	22
156 fa7f3defffd0 Comments. Matti Hamalainen <ccr@tnsp.org> parents: 155 diff changeset	23 //
fa7f3defffd0 Comments. Matti Hamalainen <ccr@tnsp.org> parents: 155 diff changeset	24 // Authenticate
fa7f3defffd0 Comments. Matti Hamalainen <ccr@tnsp.org> parents: 155 diff changeset	25 //
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	26 $gotoPage = stGetRequestItem("goto", FALSE);
306 6610311ac48e Improve user login handling. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	27 $errorPage = stGetRequestItem("error", FALSE);
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	28 $password = stGetRequestItem("key", FALSE);
1089 00632d30bafe Implement new settings for making user/votekeys case-insensitive and Matti Hamalainen <ccr@tnsp.org> parents: 1074 diff changeset	29 if (stGetSetting("userKeyCase", NULL) === FALSE)
00632d30bafe Implement new settings for making user/votekeys case-insensitive and Matti Hamalainen <ccr@tnsp.org> parents: 1074 diff changeset	30 $password = strtoupper($password);
00632d30bafe Implement new settings for making user/votekeys case-insensitive and Matti Hamalainen <ccr@tnsp.org> parents: 1074 diff changeset	31
306 6610311ac48e Improve user login handling. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	32 $error = 0;
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	33
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1089 diff changeset	34 $sql = stPrepareSQL("SELECT * FROM userkeys WHERE key=%s", $password);
311 2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	35 if (($key = stFetchSQL($sql)) !== false)
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	36 {
554 eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	37 //
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1089 diff changeset	38 // Validate login based on current user key mode
554 eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	39 //
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1089 diff changeset	40 switch (stGetSetting("userKeyMode"))
311 2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	41 {
2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	42 case VOTE_ACTIVATE:
315 100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	43 if ($key["active"] == 0)
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	44 $error = 3;
311 2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	45 break;
2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	46
2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	47 case VOTE_ASSIGN:
315 100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	48 $sql = stPrepareSQL("SELECT id FROM attendees WHERE key_id=%d", $key["id"]);
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	49 if (stFetchSQL($sql) === false)
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	50 $error = 3;
311 2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	51 break;
2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	52 }
2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	53
554 eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	54 //
eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	55 // Okay, attempt to set up session if no error
eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	56 //
315 100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	57 if ($error == 0)
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	58 {
315 100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	59 if (!stSessionStart(SESS_USER, $password, "userTimeout"))
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	60 {
874 ffb5643eff4f Rename functions. Matti Hamalainen <ccr@tnsp.org> parents: 861 diff changeset	61 stLogError("User session AUTH LOGIN failed (session setup)");
315 100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	62 $error = 2;
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	63 }
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	64 else
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	65 {
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	66 stSetSessionItem("key_id", $key["id"]);
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	67 stSetSessionItem("mode", stGetRequestItem("mode", "error"));
100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	68 }
311 2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	69 }
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	70 }
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	71 else
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	72 {
874 ffb5643eff4f Rename functions. Matti Hamalainen <ccr@tnsp.org> parents: 861 diff changeset	73 stLogError("User session AUTH LOGIN failed (password)");
306 6610311ac48e Improve user login handling. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	74 $error = 1;
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	75 }
ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	76
554 eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	77
eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	78 // Select destination page based on error status and
eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	79 // if error page has been set. Use common destination page
eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	80 // if no error or no error page.
325 aac3bdd73ec1 More work on voting. Matti Hamalainen <ccr@tnsp.org> parents: 323 diff changeset	81 $nextPage = ($error != 0 && $errorPage !== FALSE) ? $errorPage : $gotoPage;
306 6610311ac48e Improve user login handling. Matti Hamalainen <ccr@tnsp.org> parents: 304 diff changeset	82
554 eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	83 // Okay, if destination page is set, go there.
eee6b811f58a Add comments. Matti Hamalainen <ccr@tnsp.org> parents: 325 diff changeset	84 // Otherwise, just use the default page.
311 2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	85 header("Location: ".
2f46b6254ff2 We'll be checking key validity in login phase, so start working on that. Matti Hamalainen <ccr@tnsp.org> parents: 306 diff changeset	86 ($nextPage !== FALSE ? $nextPage : stGetSetting("defaultPage")).
323 ab675dc128ac Fix login code. Matti Hamalainen <ccr@tnsp.org> parents: 315 diff changeset	87 ($error ? "?error=".$error : ""));
315 100d9f7f9dde Implement bits of user login checking. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	88
110 ff511f5351df Work on voting. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	89 ?>

Mercurial > hg > fapweb

annotate usrlogin.php @ 1096:bbc0a3d0b51e