<?php

/* $Id: mailinglistAdmin.php3,v 1.1.1.1 2001/05/19 16:19:32 nhruby Exp $ */

unset($seclev);                               // Security: Don´t use User Vars
$pagetitle   = "Mailing List Admin"; // header title
$xsiteobject = "Administration";              // Defines The META TAG Page Type


require('config.php3');
require($classdir . '/MailingList.class');
page_open(array("sess"=>"slashSess"));

$sl_q = new slashDB;

if (!isset($seclev) and isset($password) and isset($author_id)) {
  $sl_q->query("SELECT seclev,author_name
                  FROM psl_author
                 WHERE author_id = '$author_id'
                   AND password = '$password'");
  if ($sl_q->next_record()) {
    $seclev = $sl_q->Record["seclev"];
    $author_name = $sl_q->Record["author_name"];
    $sess->register("author_id");
    $sess->register("author_name");
    $sess->register("seclev");
  }
}

/*****************************
     START OF PAGE
*****************************/

slashhead($pagetitle,$xsiteobject);

/* DEBUG */

debug("HTTP_POST_VARS", $HTTP_POST_VARS);
debug("HTTP_GET_VARS", $HTTP_GET_VARS);

/* DEBUG */

$list = new MailingList;

if($seclev) {   /* admin stuff goes in here */

   switch ($action) {
      case "newlist":   /* this is how we can see the user page without
                           logging out */
         $list->newlist();
         break;
      case "newsletter":
         $list->newsletterForm();
         break;
      case "send_newsletter":
         $list->newsletterSend($HTTP_POST_VARS);
         break;
      case "subscribe":
         $list->subscribe($HTTP_POST_VARS);
         break;
      case "unsubscribe":
         $list->unsubscribe($unsubscribe_address);
         break;
      case "mass_delete":
         //debug("mass_del", $HTTP_POST_VARS["mass_del"]);
         $list->mass_delete($HTTP_POST_VARS["mass_del"]);
         break;
      case "unsubscribe":
         $list->unsubscribe($unsubscribe_address);
         break;
      default:
         $list->AdminMenu();
   }

} else {        /* the general user stuff goes in here */

   switch ($action) {
      case "subscribe":
        $list->subscribe($HTTP_POST_VARS);
        break;
      case "unsubscribe":
        $list->unsubscribe($unsubscribe_address);
        break;
      default:
         $list->newList();
   }
}

slashfoot();
page_close();

?>