Initial commit.

lib/php/monica/userhome.inc.php

@@ -0,0 +1,41 @@
+<?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;
+    }
+}
+
+?>