# $Id: subscribe.cf,v 1.4 1997/02/25 05:42:27 fitz Exp $
# Config file for manually-administered mailing lists.
#

package config;

$name = "manually-administered";

 # Allow only one selection
$max = 1;

@commands =
    (
     "subscribe",
     "unsubscribe",
     "", # split column
     "comment",
     );
%description =
    (
     "subscribe", "Subscribe",
     "unsubscribe", "Unsubscribe",
     "comment", "Send a comment to the list administrator.",
     );

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

use strict;

#----------------------------------------------------------------------
# subscribe command
#
sub process_subscribe
{
    &main::error("Before you can subscribe ",
                "you must specify the mailing list.")
        unless $main::in{"list"};

    $main::in{'subject'} = "SUBSCRIBE $main::in{list}";

    "Please SUBSCRIBE me to the '$main::in{list}' mailing list";
}
#----------------------------------------------------------------------
# unsubscribe command
#
sub process_unsubscribe
{
    &main::error("Before you can unsubscribe ",
                "you must specify the mailing list.")
        unless $main::in{"list"};

    $main::in{'subject'} = "UNSUBSCRIBE $main::in{list}";

    "Please UNSUBSCRIBE me from the '$main::in{list}' mailing list";
}
#----------------------------------------------------------------------
# comment command
#
$config::command{"comment"} = <<EOT;
<TABLE>
<TR>
<TD ALIGN=right><FONT SIZE="-1"><INPUT NAME=comment SIZE=40></FONT></TD>
</TR>
</TABLE>
EOT

sub process_comment
{
    &main::error("Before you can send a comment ",
                "you must specify the mailing list.")
        unless $main::in{"list"};

    &main::error("You must enter a comment.")
        unless $main::in{"comment"};

    $main::in{'subject'} = "COMMENT $main::in{list}";
    "Comments about the '$main::in{list}' mailing list: $main::in{comment}";
}

1;
