Added sent_subfolders plugin, tweaked config stuff, other stuff.
[squirrelmail.git] / src / options.php
index 8b38ad2ba57a669eda76a91b95132f492172fabd..1d5e8fcc1f5d4276f21daee012d1ed6dfd5f6e7d 100644 (file)
 <?php
-   /**
-    **  options.php
-    **
-    **  Copyright (c) 1999-2000 The SquirrelMail development team
-    **  Licensed under the GNU GPL. For full terms see the file COPYING.
-    **
-    **  Displays the options page. Pulls from proper user preference files
-    **  and config.php. Displays preferences as selected and other options.
-    **
-    **  $Id$
-    **/
-
-   session_start();
-
-   if (!isset($strings_php))
-      include("../functions/strings.php");
-   if (!isset($config_php))
-      include("../config/config.php");
-   if (!isset($page_header_php))
-      include("../functions/page_header.php");
-   if (!isset($display_messages_php))
-      include("../functions/display_messages.php");
-   if (!isset($imap_php))
-      include("../functions/imap.php");
-   if (!isset($array_php))
-      include("../functions/array.php");
-   if (!isset($i18n_php))
-      include("../functions/i18n.php");
-   if (!isset($auth_php))
-      include ("../functions/auth.php"); 
-
-   if (isset($language)) {
-      setcookie("squirrelmail_language", $language, time()+2592000);
-      $squirrelmail_language = $language;
-   }   
-
-   include("../src/load_prefs.php");
-   displayPageHeader($color, "None");
-   is_logged_in(); 
+
+/**
+ * options.php
+ *
+ * Copyright (c) 1999-2001 The Squirrelmail Development Team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * Displays the options page. Pulls from proper user preference files
+ * and config.php. Displays preferences as selected and other options.
+ *
+ * $Id$
+ */
+
+require_once('../src/validate.php');
+require_once('../functions/display_messages.php');
+require_once('../functions/imap.php');
+require_once('../functions/array.php');
+require_once('../functions/options.php');
+
+/* Set the base uri. */
+ereg ("(^.*/)[^/]+/[^/]+$", $PHP_SELF, $regs);
+$base_uri = $regs[1];
+
+/* First and foremost, deal with language stuff. */
+if (isset($language)) {
+    setcookie('squirrelmail_language', $language, time()+2592000, $base_uri);
+    $squirrelmail_language = $language;
+} else {
+    $language = getPref($data_dir, $username, 'language');
+}
+
+/*********************************/
+/*** Build the resultant page. ***/
+/*********************************/
+
+displayPageHeader($color, 'None');
+
+define('SMOPT_MODE_DISPLAY', 'display');
+define('SMOPT_MODE_SUBMIT', 'submit');
+define('SMOPT_MODE_LINK', 'link');
+
+define('SMOPT_PAGE_MAIN', 'main');
+define('SMOPT_PAGE_PERSONAL', 'personal');
+define('SMOPT_PAGE_DISPLAY', 'display');
+define('SMOPT_PAGE_HIGHLIGHT', 'highlight');
+define('SMOPT_PAGE_FOLDER', 'folder');
+define('SMOPT_PAGE_ORDER', 'order');
+
+function process_optionmode_submit($optpage, $optpage_data) {
+    /* Initialize the maximum option refresh level. */
+    $max_refresh = SMOPT_REFRESH_NONE;
+
+    /* Save each option in each option group. */
+    foreach ($optpage_data['options'] as $option_grp) {
+        foreach ($option_grp['options'] as $option) {
+            /* Remove Debug Mode Until Needed
+            echo "name = '$option->name', "
+               . "value = '$option->value', "
+               . "new_value = '$option->new_value'<BR>\n";
+            */
+            if ($option->changed()) {
+                $option->save();
+                $max_refresh = max($max_refresh, $option->refresh_level);
+            }
+        }
+    }
+
+    /* Return the max refresh level. */
+    return ($max_refresh);
+}
+
+function process_optionmode_link($optpage) {
+   /* There will be something here, later. */
+}
+
+/* Make sure we have an Option Page set. Default to main. */
+if (!isset($optpage)) {
+    $optpage = 'main';
+}
+
+/* Make sure we have an Option Mode set. Default to display. */
+if (!isset($optmode)) {
+    $optmode = SMOPT_MODE_DISPLAY;
+}
+
+/*************************************************************/
+/*** First, set the load information for each option page. ***/
+/*************************************************************/
+
+/* Initialize load information variables. */
+$optpage_name = '';
+$optpage_file = '';
+$optpage_loader = '';
+
+/* Set the load information for each page. */
+switch ($optpage) {
+    case SMOPT_PAGE_MAIN: break;
+    case SMOPT_PAGE_PERSONAL:
+        $optpage_name     = _("Personal Information");
+        $optpage_file     = '../src/options_personal.php';
+        $optpage_loader   = 'load_optpage_data_personal';
+        $optpage_loadhook = 'optpage_loadhook_personal';
+        break;
+    case SMOPT_PAGE_DISPLAY:
+        $optpage_name   = _("Display Preferences");
+        $optpage_file   = '../src/options_display.php';
+        $optpage_loader = 'load_optpage_data_display';
+        $optpage_loadhook = 'optpage_loadhook_display';
+        break;
+    case SMOPT_PAGE_HIGHLIGHT:
+        $optpage_name   = _("Message Highlighting");
+        $optpage_file   = '../src/options_highlight.php';
+        $optpage_loader = 'load_optpage_data_highlight';
+        $optpage_loadhook = 'optpage_loadhook_highlight';
+        break;
+    case SMOPT_PAGE_FOLDER:
+        $optpage_name   = _("Folder Preferences");
+        $optpage_file   = '../src/options_folder.php';
+        $optpage_loader = 'load_optpage_data_folder';
+        $optpage_loadhook = 'optpage_loadhook_folder';
+        break;
+    case SMOPT_PAGE_ORDER:
+        $optpage_name = _("Index Order");
+        $optpage_file = '../src/options_order.php';
+        $optpage_loader = 'load_optpage_data_order';
+        $optpage_loadhook = 'optpage_loadhook_order';
+        break;
+    default: do_hook('optpage_set_loadinfo');
+}
+
+/**********************************************************/
+/*** Second, load the option information for this page. ***/
+/**********************************************************/
+
+if ($optpage != SMOPT_PAGE_MAIN) {
+    /* Include the file for this optionpage. */
+    require_once($optpage_file);
+
+    /* Assemble the data for this option page. */
+    $optpage_data = array();
+    $optpage_data = $optpage_loader();
+    do_hook($optpage_loadhook);
+    $optpage_data['options'] =
+        create_option_groups($optpage_data['grps'], $optpage_data['vals']);
+}
+
+/***********************************************************/
+/*** Next, process anything that needs to be processed. ***/
+/***********************************************************/
+
+if ( isset( $optpage_data ) ) {
+    switch ($optmode) {
+        case SMOPT_MODE_SUBMIT:
+            $max_refresh = process_optionmode_submit($optpage, $optpage_data);
+            break;
+        case SMOPT_MODE_LINK:
+            $max_refresh = process_optionmode_link($optpage, $optpage_data);
+            break;
+    }
+}
+/*** MOVE THIS DISPLAY CODE DOWN EVENTUALLY!!! ***/
+
+$optpage_title = _("Options");
+if (isset($optpage_name) && ($optpage_name != '')) {
+    $optpage_title .= " - $optpage_name";
+}
+
 ?>
 
-<br>
-<table width=95% align=center cellpadding=2 cellspacing=2 border=0>
-<tr><td bgcolor="<?php echo $color[0] ?>">
-   <center><b><?php echo _("Options") ?></b></center>
-</td></tr></table>
+<BR>
+<TABLE BGCOLOR="<?php echo $color[0] ?>" WIDTH="95%" ALIGN="CENTER" CELLPADDING="2" CELLSPACING="0" BORDER="0">
+<TR><TD ALIGN="CENTER">
+    <B><?php echo $optpage_title; ?></B><BR>
+    <TABLE WIDTH="100%" BORDER="0" CELLPADDING="5" CELLSPACING="0">
+    <TR><TD BGCOLOR="<?php echo $color[4] ?>" ALIGN="CENTER">
 
 <?php
-   if (isset($submit_personal)) {
-      # Save personal information
-      if (isset($full_name)) setPref($data_dir, $username, "full_name", sqStripSlashes($full_name));
-      if (isset($email_address)) setPref($data_dir, $username, "email_address", sqStripSlashes($email_address));
-      if (isset($reply_to)) setPref($data_dir, $username, "reply_to", sqStripSlashes($reply_to));  
-      setPref($data_dir, $username, "use_signature", sqStripSlashes($usesignature));  
-      if (isset($signature_edit)) setSig($data_dir, $username, sqStripSlashes($signature_edit)); 
-      
-      do_hook("options_personal_save");
-      
-      echo "<br><center><b>"._("Successfully saved personal information!")."</b></center><br>";
-   } else if (isset($submit_display)) {  
-      # Save display preferences
-      setPref($data_dir, $username, "chosen_theme", $chosentheme);
-      setPref($data_dir, $username, "show_num", $shownum);
-      setPref($data_dir, $username, "wrap_at", $wrapat);
-      setPref($data_dir, $username, "editor_size", $editorsize);
-      setPref($data_dir, $username, "left_refresh", $leftrefresh);
-      setPref($data_dir, $username, "language", $language);
-      setPref($data_dir, $username, 'location_of_bar', $folder_new_location);
-      setPref($data_dir, $username, 'location_of_buttons', $button_new_location);
-      setPref($data_dir, $username, "left_size", $leftsize);
-      setPref($data_dir, $username, "use_javascript_addr_book", $javascript_abook);
-    
-      do_hook("options_display_save");
-
-      echo "<br><center><b>"._("Successfully saved display preferences!")."</b><br>";
-      echo "<a href=\"../src/webmail.php\" target=_top>" . _("Refresh Page") . "</a></center><br>";
-   } else if (isset($submit_folder)) { 
-      # Save folder preferences
-      if ($trash != "none") {
-         setPref($data_dir, $username, "move_to_trash", true);
-         setPref($data_dir, $username, "trash_folder", $trash);
-      } else {
-         setPref($data_dir, $username, "move_to_trash", "0");
-         setPref($data_dir, $username, "trash_folder", "none");
-      }
-      if ($sent != "none") {
-         setPref($data_dir, $username, "move_to_sent", true);
-         setPref($data_dir, $username, "sent_folder", $sent);
-      } else {
-         setPref($data_dir, $username, "move_to_sent", "0");
-         setPref($data_dir, $username, "sent_folder", "none");
-      } 
-      setPref($data_dir, $username, "folder_prefix", $folderprefix);
-      setPref($data_dir, $username, "unseen_notify", $unseennotify);
-      setPref($data_dir, $username, "unseen_type", $unseentype);
-      do_hook("options_folders_save");
-      echo "<br><center><b>"._("Successfully saved folder preferences!")."</b><br>";
-      echo "<a href=\"../src/left_main.php\" target=left>" . _("Refresh Folder List") . "</a></center><br>";
-   } else {
-      do_hook("options_save");
-   }
-   
+
+/*******************************************************************/
+/* DO OLD SAVING OF SUBMITTED OPTIONS. THIS WILL BE REMOVED LATER. */
+/*******************************************************************/
+
+/* If in submit mode, select a save hook name and run it. */
+if ($optmode == SMOPT_MODE_SUBMIT)      {
+    /* Select a save hook name. */
+    switch ($optpage) {
+        case SMOPT_PAGE_PERSONAL:
+            $save_hook_name = 'options_personal_save';
+            break;
+        case SMOPT_PAGE_DISPLAY:
+            $save_hook_name = 'options_display_save';
+            break;
+        case SMOPT_PAGE_FOLDER:
+            $save_hook_name = 'options_folder_save';
+            break;
+        default: 
+            $save_hook_name = 'options_save';
+            break;
+    }
+
+    /* Run the options save hook. */
+    do_hook($save_hook_name);
+}
+
+/***************************************************************/
+/* Apply logic to decide what optpage we want to display next. */
+/***************************************************************/
+
+/* If this is the result of an option page being submitted, then */
+/* show the main page. Otherwise, show whatever page was called. */
+
+if ($optmode == SMOPT_MODE_SUBMIT) {
+    $optpage = SMOPT_PAGE_MAIN;
+}
+
+/***************************************************************/
+/* Finally, display whatever page we are supposed to show now. */
+/***************************************************************/
+
+/*
+ * The main option page has a different layout then the rest of the option
+ * pages. Therefore, we create it here first, then the others below.
+ */
+if ($optpage == SMOPT_PAGE_MAIN) {
+    /**********************************************************/
+    /* First, display the results of a submission, if needed. */
+    /**********************************************************/
+    if ($optmode == SMOPT_MODE_SUBMIT) {
+        /* Display a message indicating a successful save. */
+        echo '<B>' . _("Successfully Saved Options") . ": $optpage_name</B><BR>\n";
+
+        /* If $max_refresh != SMOPT_REFRESH_NONE, provide a refresh link. */
+        if ($max_refresh == SMOPT_REFRESH_FOLDERLIST) {
+            echo '<A HREF="../src/left_main.php" TARGET="left">' . _("Refresh Folder List") . '</A><BR>';
+        } else if ($max_refresh) {
+            echo '<A HREF="../src/webmail.php?right_frame=options.php" TARGET="_top">' . _("Refresh Page") . '</A><BR>';
+        }
+    }
+    /******************************************/
+    /* Build our array of Option Page Blocks. */
+    /******************************************/
+    $optpage_blocks = array();
+
+    /* Build a section for Personal Options. */
+    $optpage_blocks[] = array(
+        'name' => _("Personal Information"),
+        'url'  => 'options.php?optpage=' . SMOPT_PAGE_PERSONAL,
+        'desc' => _("This contains personal information about yourself such as your name, your email address, etc."),
+        'js'   => false
+    );
+
+    /* Build a section for Display Options. */
+    $optpage_blocks[] = array(
+        'name' => _("Display Preferences"),
+        'url'  => 'options.php?optpage=' . SMOPT_PAGE_DISPLAY,
+        'desc' => _("You can change the way that SquirrelMail looks and displays information to you, such as the colors, the language, and other settings."),
+        'js'   => false
+    );
+
+    /* Build a section for Message Highlighting Options. */
+    $optpage_blocks[] = array(
+        'name' =>_("Message Highlighting"),
+        'url'  => 'options_highlight.php',
+        'desc' =>_("Based upon given criteria, incoming messages can have different background colors in the message list.  This helps to easily distinguish who the messages are from, especially for mailing lists."),
+        'js'   => false
+    );
+
+    /* Build a section for Folder Options. */
+    $optpage_blocks[] = array(
+        'name' => _("Folder Preferences"),
+        'url'  => 'options.php?optpage=' . SMOPT_PAGE_FOLDER,
+        'desc' => _("These settings change the way your folders are displayed and manipulated."),
+        'js'   => false
+    );
+
+    /* Build a section for Index Order Options. */
+    $optpage_blocks[] = array(
+        'name' => _("Index Order"),
+        'url'  => 'options_order.php',
+        'desc' => _("The order of the message index can be rearanged and changed to contain the headers in any order you want."),
+        'js'   => false
+    );
+
+    /* Build a section for plugins wanting to register an optionpage. */
+    do_hook('optpage_register_block');
+
+    /*****************************************************/
+    /* Let's sort Javascript Option Pages to the bottom. */
+    /*****************************************************/
+    $js_optpage_blocks = array();
+    $reg_optpage_blocks = array();
+    foreach ($optpage_blocks as $cur_optpage) {
+        if (!$cur_optpage['js']) {
+            $reg_optpage_blocks[] = $cur_optpage;
+        } else if ($javascript_on == SMPREF_JS_ON) {
+            $js_optpage_blocks[] = $cur_optpage;
+        }
+    }
+    $optpage_blocks = array_merge($reg_optpage_blocks, $js_optpage_blocks);
+
+    /********************************************/
+    /* Now, print out each option page section. */
+    /********************************************/
+    $first_optpage = false;
+    echo "<TABLE BGCOLOR=\"$color[4]\" WIDTH=\"100%\" CELLPADDING=0 CELLSPACING=\"5\" BORDER=\"0\">" .
+                '<TR><TD VALIGN="TOP">' .
+                   "<TABLE BGCOLOR=\"$color[4]\" WIDTH=\"100%\" CELLPADDING=\"3\" CELLSPACING=\"0\" BORDER=\"0\">";
+    foreach ($optpage_blocks as $next_optpage) {
+        if ($first_optpage == false) {
+            $first_optpage = $next_optpage;
+        } else {
+            print_optionpages_row($first_optpage, $next_optpage);
+            $first_optpage = false;
+        }
+    }
+
+    if ($first_optpage != false) {
+        print_optionpages_row($first_optpage);
+    }
+
+    echo "</TABLE></TD></TR></TABLE>\n";
+
+    do_hook('options_link_and_description');
+
+
+/*************************************************************************/
+/* If we are not looking at the main option page, display the page here. */
+/*************************************************************************/
+} else {
+    echo '<FORM NAME="f" ACTION="options.php" METHOD="POST"><BR>' . "\n"
+       . '<TABLE WIDTH="100%" CELLPADDING=2 CELLSPACING=0 BORDER=0>' . "\n"
+       . create_optpage_element($optpage)
+       . create_optmode_element(SMOPT_MODE_SUBMIT);
+
+    /* Output the option groups for this page. */
+    print_option_groups($optpage_data['options']);
+
+    /* Set the inside_hook_name and submit_name. */
+    switch ($optpage) {
+        case SMOPT_PAGE_PERSONAL:
+            $inside_hook_name = 'options_personal_inside';
+            $bottom_hook_name = 'options_personal_bottom';
+            $submit_name = 'submit_personal';
+            break;
+        case SMOPT_PAGE_DISPLAY:
+            $inside_hook_name = 'options_display_inside';
+            $bottom_hook_name = 'options_display_bottom';
+            $submit_name = 'submit_display';
+            break;
+        case SMOPT_PAGE_HIGHLIGHT:
+            $inside_hook_name = 'options_highlight_inside';
+            $bottom_hook_name = 'options_highlight_bottom';
+            $submit_name = 'submit_highlight';
+            break;
+        case SMOPT_PAGE_FOLDER:
+            $inside_hook_name = 'options_folder_inside';
+            $bottom_hook_name = 'options_folder_bottom';
+            $submit_name = 'submit_folder';
+            break;
+        case SMOPT_PAGE_ORDER:
+            $inside_hook_name = 'options_order_inside';
+            $bottom_hook_name = 'options_order_bottom';
+            $submit_name = 'submit_order';
+            break;
+        default:
+            $inside_hook_name = '';
+            $bottom_hook_name = '';
+            $submit_name = 'submit';
+    }
+
+    /* If it is not empty, trigger the inside hook. */
+    if ($inside_hook_name != '') {
+        do_hook($inside_hook_name);    
+    }
+
+    /* Spit out a submit button. */
+    OptionSubmit($submit_name);
+    echo '</TABLE></FORM>';
+
+    /* If it is not empty, trigger the bottom hook. */
+    if ($bottom_hook_name != '') {
+        do_hook($bottom_hook_name);    
+    }
+}
+
 ?>
+    </TD></TR>
+    </TABLE>
 
+</TD></TR>
+</TABLE>
 
-<table width=90% cellpadding=0 cellspacing=10 border=0 align=center>
-<tr>
-   <td width=50% valign=top>
-      <table width=100% cellpadding=3 cellspacing=0 border=0>
-         <tr>
-            <td bgcolor="<?php echo $color[9] ?>">
-               <a href="options_personal.php"><?php echo _("Personal Information"); ?></a>
-            </td>
-         </tr>
-         <tr>
-            <td bgcolor="<?php echo $color[0] ?>">
-               <?php echo _("This contains personal information about yourself such as your name, your email address, etc.") ?>
-            </td>
-         </tr>   
-      </table><br>
-      <table width=100% cellpadding=3 cellspacing=0 border=0>
-         <tr>
-            <td bgcolor="<?php echo $color[9] ?>">
-               <a href="options_highlight.php"><?php echo _("Message Highlighting"); ?></a>
-            </td>
-         </tr>
-         <tr>
-            <td bgcolor="<?php echo $color[0] ?>">
-               <?php echo _("Based upon given criteria, incoming messages can have different background colors in the message list.  This helps to easily distinguish who the messages are from, especially for mailing lists.") ?>
-            </td>
-         </tr>   
-      </table><br>
-      <table width=100% cellpadding=3 cellspacing=0 border=0>
-         <tr>
-            <td bgcolor="<?php echo $color[9] ?>">
-               <a href="options_order.php"><?php echo _("Index Order"); ?></a>
-            </td>
-         </tr>
-         <tr>
-            <td bgcolor="<?php echo $color[0] ?>">
-               <?php echo _("The order of the message index can be rearanged and changed to contain the headers in any order you want.") ?>
-            </td>
-         </tr>   
-      </table><br>
-   </td>
-   <td valign=top width=50%>
-      <table width=100% cellpadding=3 cellspacing=0 border=0>
-         <tr>
-            <td bgcolor="<?php echo $color[9] ?>">
-               <a href="options_display.php"><?php echo _("Display Preferences"); ?></a>
-            </td>
-         </tr>
-         <tr>
-            <td bgcolor="<?php echo $color[0] ?>">
-               <?php echo _("You can change the way that SquirrelMail looks and displays information to you, such as the colors, the language, and other settings.") ?>
-            </td>
-         </tr>   
-      </table><br>
-      <table width=100% cellpadding=3 cellspacing=0 border=0>
-         <tr>
-            <td bgcolor="<?php echo $color[9] ?>">
-               <a href="options_folder.php"><?php echo _("Folder Preferences"); ?></a>
-            </td>
-         </tr>
-         <tr>
-            <td bgcolor="<?php echo $color[0] ?>">
-               <?php echo _("These settings change the way your folders are displayed and manipulated.") ?>
-            </td>
-         </tr>   
-      </table><br>
-   </td>
-</tr>
-</table>
-   <?php
-      do_hook("options_link_and_description")
-   ?>
-</body></html>
+</BODY></HTML>
+
+<?php
+
+    /*******************************************************************/
+    /* Please be warned. The code below this point sucks. This is just */
+    /* my first implementation to make the option rows work for both   */
+    /* Javascript and non-Javascript option chunks.                    */
+    /*                                                                 */
+    /* Please, someone make these better for me. All three functions   */
+    /* below REALLY do close to the same thing.                        */
+    /*                                                                 */
+    /* This code would be GREATLY improved by a templating system.     */
+    /* Don't try to implement that now, however. That will come later. */
+    /*******************************************************************/
+
+    /*******************************************************************/
+    /* Actually, now that I think about it, don't do anything with     */
+    /* this code yet. There is ACTUALLY supposed to be a difference    */
+    /* between the three functions that write the option rows. I just  */
+    /* have not yet gotten to integrating that yet.                    */
+    /*******************************************************************/
+
+    /**
+     * This function prints out an option page row.
+     */
+    function print_optionpages_row($leftopt, $rightopt = false) {
+        global $color;
+
+        echo "<TABLE BGCOLOR=\"$color[4]\" WIDTH=\"100%\" CELLPADDING=0 CELLSPACING=5 BORDER=0>" .
+                '<TR><TD VALIGN="TOP">' .
+                   '<TABLE WIDTH="100%" CELLPADDING="3" CELLSPACING="0" BORDER="0">' .
+                      '<TR>' .
+                         "<TD VALIGN=TOP BGCOLOR=\"$color[9]\" WIDTH=\"50%\">" .
+                            '<A HREF="' . $leftopt['url'] . '">' . $leftopt['name'] . '</A>'.
+                         '</TD>'.
+                         "<TD VALIGN=TOP BGCOLOR=\"$color[4]\">&nbsp;</TD>";
+        if ($rightopt) {
+            echo         "<TD VALIGN=top BGCOLOR=\"$color[9]\" WIDTH=\"50%\">" .
+                            '<A HREF="' . $rightopt['url'] . '">' . $rightopt['name'] . '</A>' .
+                         '</TD>';
+        } else {
+            echo         "<TD VALIGN=top BGCOLOR=\"$color[4]\" WIDTH=\"50%\">&nbsp;</TD>";
+        }
+
+        echo          '</TR>' .
+                      '<TR>' .
+                         "<TD VALIGN=top BGCOLOR=\"$color[0]\" WIDTH=\"50%\">" .
+                            $leftopt['desc'] .
+                         '</TD>' .
+                         "<TD VALIGN=top BGCOLOR=\"$color[4]\">&nbsp;</TD>";
+        if ($rightopt) {
+            echo         "<TD VALIGN=top BGCOLOR=\"$color[0]\" WIDTH=\"50%\">" .
+                            $rightopt['desc'] .
+                         '</TD>';
+        } else {
+            echo         "<TD VALIGN=top BGCOLOR=\"$color[4]\" WIDTH=\"50%\">&nbsp;</TD>";
+        }
+        
+        echo          '</TR>' .
+                   '</TABLE>' .
+                '</TD></TR>' .
+             "</TABLE>\n";
+    }
+
+?>