Source for file index.php

<?php 
/**
 * <b>Index : Mailing List Section</b><br />
 * Main jumping point for the mailing list section. Options:
 * - Subscribe to mailing list(s)
 * - Unsubscribe from mailing list(s)
 * - Administer mailing list
 * @author Kristen O'Brien <kristen_paristemi-com>
 * @copyright Copyright 2004, Kristen O'Brien
 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
 * @link http://www.paristemi.com Paristemi Main Site
 * @package paristemi
 * @subpackage paristemi_business_logic
 * @since Build 0.5
 * @version Build 0.7
 * @filesource
 */
/**
* Include the constants file and all of the files in the include list
*/
if(ltrim(dirname($_SERVER['SCRIPT_FILENAME'])) == "" || !file_exists($_SERVER['DOCUMENT_ROOT']."/constants.php")) {
  if(!file_exists("../constants.php")) { require_once("../public_html/constants.php"); }
  else { require_once("../constants.php"); }
}
else { require_once($_SERVER['DOCUMENT_ROOT']."/constants.php"); } 
foreach($INCLUDE_LIST as $includefile) { require_once $includefile; }
    
    require_once $HTTP_DOCUMENT_ROOT.$INCLUDE_PATH.$HEADER.
        "?pagetitle=".str_replace(" ","%20",htmlentities($S_MAILING_LISTS)).
        "&pagesubtitle=".str_replace(" ","%20",htmlentities($S_MAIN)).
        "&pagedesc=".str_replace(" ","%20",htmlentities($CHURCH_NAME." ".$S_DESC_MAILING_LISTS)); 
 
      $db = new Database();
      $db_ml = $db->GetClass('mailinglist');
      $smarty = UtilSmarty::createSmarty();
       
       $sidesection['Title'] = $S_MAILING_LISTS;
       $sidesection['Links'] = array(array(
            'LinkPath'=>$HTTP_DOCUMENT_ROOT.$MAILING_LIST_DIR.$ML_SUBSCRIBE_FILE."?type=Subscribe",
            'LinkText'=>$S_SUBSCRIBE), array(
            'LinkPath'=>$HTTP_DOCUMENT_ROOT.$MAILING_LIST_DIR.$ML_SUBSCRIBE_FILE."?type=Unsubscribe",
            'LinkText'=>$S_UNSUBSCRIBE), array(
            'LinkPath'=>$HTTP_DOCUMENT_ROOT.$MAILING_LIST_DIR. $ML_ADMIN_FILE,
            'LinkText'=>$S_ADMIN." ".$S_LOGIN));
       $smarty->assign('sidesections',array($sidesection));
       $smarty->assign('introstatements',array(array('Title'=>$S_MAILING_LISTS,
                                                     'Text'=>$MAILING_LIST_INTRO)));
       UtilSmarty::displaySectionPage($smarty);
?>
<?php require_once $SERVER_DIRECTORY.$INCLUDE_PATH.$FOOTER; ?>