# $Id: mail-list.cf,v 1.3 1997/02/25 05:40:32 fitz Exp $
# Config file for Mail-List
#

package config;
$name = "Mail-List";

 # Allow only a single command before sending
$max = 1;

# This server does not require a mailing list name
$noList = 1;

@commands =
    (
     "subscribe",
     "unsubscribe",
     "help",
     );

 # Corresponding desciption for command
%description =
    (
     "subscribe", "Subscribe to the mailing list.",
     "unsubscribe", "Unsubscribe from the mailing list.",
     "help", "Get help for <em>$name</em> commands.",
     );

#######################################################################
#----------------------------------------------------------------------
# Command forms
#----------------------------------------------------------------------
#######################################################################

use strict;

#----------------------------------------------------------------------
# subscribe command
#
sub process_subscribe
{
    "subscribe";
}

#----------------------------------------------------------------------
# unsubscribe command
#
sub process_unsubscribe
{
    "unsubscribe";
}

#----------------------------------------------------------------------
# help command
#
sub process_help
{
    "help";
}

1;