# $Id: mlp.cf,v 1.3 1997/02/25 05:41:53 fitz Exp $
# Config file for MLP (an OS/2 mailing list management package)
#

package config;
$name = "MLP";

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

# This server does not require commands in the body of the message
$noBody = 1;

# Only one command allowed
$max = 1;

@commands =
    (
     "subscribe",
     "unsubscribe",
     "", # split column here
     "who",
     "help",
     );
%description =
    (
     "subscribe", "Subscribe",
     "unsubscribe", "Unsubscribe",
     "who", "Who is on the mailing list?",
     "help", "Get help for <em>$name</em> commands.",
     );

######################################################################
#----------------------------------------------------------------------
# MLP command forms
#----------------------------------------------------------------------
######################################################################

use strict;

#----------------------------------------------------------------------
# help command
#
sub process_help
{
    $config::subject = "help";
    #"help";
}
#----------------------------------------------------------------------
# subscribe command
#
sub process_subscribe
{
    $config::subject = "subscribe";
    "subscribe";
}
#----------------------------------------------------------------------
# unsubscribe command
#
sub process_unsubscribe
{
    $config::subject = "unsubscribe";
    #"unsubscribe";
}

#----------------------------------------------------------------------
# who command
#
sub process_who
{
    $config::subject = "who";
    #"who";
} 

1;