function redirect_user()
{
    $ThemeSel = pnConfigGetVar('Default_Theme');
    echo "<html><head><META HTTP-EQUIV=Refresh CONTENT=\"2; URL=user.php\">\n";
    if (defined("_CHARSET") && _CHARSET != "") {
        echo "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=" . _CHARSET . "\">\n";
    }
    echo " <LINK REL=\"StyleSheet\" HREF=\"" . WHERE_IS_PERSO . "themes/{$ThemeSel}/style/style.css\" TYPE=\"text/css\">\n";
    echo "<style type=\"text/css\">";
    echo "@import url(\"" . WHERE_IS_PERSO . "themes/{$ThemeSel}/style/style.css\"); ";
    echo "</style>\n";
    echo "</head><body bgcolor=#2F363F text=#DADEE3>\n";
    echo "<table align=center border=0 cellpadding=2 " . 'cellspacing=0><tr><td><font class=\\"pn-title\\">' . _INFOCHANGED . '</font></td></tr></table></body></html>';
    if (function_exists('session_write_close')) {
        session_write_close();
    } else {
        // Hack for old versions of PHP with bad session save
        $sessvars = '';
        foreach ($GLOBALS as $k => $v) {
            if (preg_match('/^PNSV/', $k) && isset($v)) {
                $sessvars .= "{$k}|" . serialize($v);
            }
        }
        pnSessionWrite(session_id(), $sessvars);
    }
}
        define("LOADED_AS_MODULE", "1");
        include_once 'includes/pnAPI.php';
        if (!function_exists('pnsessionsetup')) {
            pnInit();
        }
        include_once 'includes/legacy.php';
        // eugenio themeover 20020413
        //        pnThemeLoad();
        // Module not found error msg 08/08/00 Chris Bowler www.aquanuke.com
        if (file_exists('modules/' . pnVarPrepForOS($name) . '/' . pnVarPrepForOS($file) . '.php')) {
            include 'modules/' . pnVarPrepForOS($name) . '/' . pnVarPrepForOS($file) . '.php';
        } else {
            pnRedirect('error.php');
        }
        if (function_exists('session_write_close')) {
            session_write_close();
        } else {
            // Hack for old versions of PHP with bad session save
            $sessvars = '';
            foreach ($GLOBALS as $k => $v) {
                if (preg_match('/^PNSV/', $k) && isset($v)) {
                    $sessvars .= "{$k}|" . serialize($v);
                }
            }
            pnSessionWrite(session_id(), $sessvars);
        }
        break;
    default:
        die("Sorry, you can't access this file directly...");
        break;
}