Files
selima-perl/lib/php/monica/userhome.inc.php
2026-03-10 21:31:43 +08:00

42 lines
1.1 KiB
PHP

<?php
// File name: userhome.inc.php
// Description: PHP subroutines to return the default user's home
// Date: 2004-03-24
// Author: imacat <imacat@pristine.com.tw>
// Copyright: Copyright (C) 2004-2007 Pristine Communications
// Set the include path
if (!defined("INCPATH_SET")) {
require_once dirname(__FILE__) . "/incpath.inc.php";
}
// Referenced subroutines
require_once "monica/chkpriv.inc.php";
require_once "monica/guest.inc.php";
require_once "monica/login.inc.php";
require_once "monica/scptpriv.inc.php";
// Administrator's home
if (!defined("NONADMIN_HOME")) {
define("NONADMIN_HOME", "/members/");
}
if (!defined("ADMIN_HOME")) {
define("ADMIN_HOME", "/admin/");
}
// userhome: Return the default user's home
function userhome()
{
// Not logged-in yet
if (is_null(get_login_sn())) {
return (is_admin_script()? ADMIN_HOME: NONADMIN_HOME) . "login.php";
// Guest
} elseif (is_guest()) {
return is_admin_script()? ADMIN_HOME: NONADMIN_HOME;
// Ordinary logged-in users
} else {
return is_admin()? ADMIN_HOME: NONADMIN_HOME;
}
}
?>