package DADA::MailingList;

use lib qw(./ ../ ../DADA ../perllib);

use DADA::Config;

require Exporter;
@ISA    = qw(Exporter);
@EXPORT = qw(Create);

use strict;
use vars qw(@EXPORT);

=pod

=head1 NAME

DADA::MailingList;

=head1 SYNOPSIS

 my $ls = DADA::MailingList::Create(-name => $list); 
 # $ls is now a DADA::MailingList:Settings object!

=head1 DESCRIPTION

This module is used to create a new list, and basically nothing else.

=head1 Subroutines

=head2 Create

 my $ls = DADA::MailingList::Create(-name => $list);
 
Creates all the necessary files for a Dada Mailing List; B<$list> is the 
list shortname of your mailing list - which itself should be no more than 16
characters and should only include letters/numbers.

It returns a B<DADA::MailingList::Settings> object.

=cut


sub Create {
	my %args = (-name => undef,
                   @_);
	
		
	require DADA::MailingList::Settings;
	require DADA::App::Guts;
	
	
	my $ml = DADA::MailingList::Settings->new(-List     => $args{-name},
	                                          -new_list => 1);
		     DADA::App::Guts::make_all_list_files(-List => $args{-name});
	
	return $ml; 
}


1;