# $Id: majordomo.cf,v 1.3 1997/02/25 05:41:44 fitz Exp $ # Config file for Majordomo # package config; $name = "Majordomo"; @commands = ( "subscribe", "unsubscribe", "info", "who", "which", "lists", "", # Start a new column "index", "get", "help", "enter", ); %description = ( "subscribe", "Subscribe", "unsubscribe", "Unsubscribe", "info", "Describe the mailing list.", "who", "Who is on the mailing list?", "lists", "Show other lists on this server.", "help", "Get help for $name commands.", "which", "Show lists to which you are subscribed:", "index", "List files in the archive.", "get", "Get files from the archive:", "enter", "Enter $name commands:", ); ####################################################################### #---------------------------------------------------------------------- # Majordomo command forms #---------------------------------------------------------------------- ####################################################################### # Code for the commands that are used in both the administrative # interface and the user interface require "majordomo-share.cf"; use strict; #---------------------------------------------------------------------- # subscribe command # sub process_subscribe { &main::error("Before you can subscribe, ", "you must enter the name of the mailing list.") unless ($main::in{"list"}); "subscribe $main::in{list}"; } #---------------------------------------------------------------------- # unsubscribe command # sub process_unsubscribe { &main::error("Before you can unsubscribe, ", "you must enter the name of the mailing list.") unless ($main::in{"list"}); "unsubscribe $main::in{list}"; } 1;