List Settings Cookbook
Getting/Setting List Settings
How to find out what lists are available.
Before we can use a list, we have to know what lists are available:
#!/usr/bin/perl
# Adding the lib path to the dada directory:
use lib qw(/home/myaccount/www/cgi-bin/dada);
use DADA::App::Guts;
my @lists = DADA::App::Guts::available_lists();
for my $list(@lists){
# prints the "listshortname" of every list available.
print "$_\n";
}For more information on the available_lists() subroutine, see:
http://dadamailproject.com/support/documentation-7_4_1/App_Guts.pm.html#available_lists
Making Sure a Listshortname is valid
If you already know the listshortname you want to use, you can verify it using, list_exists, like this:
#!/usr/bin/perl
# Adding the lib path to the dada directory:
use lib qw(/home/myaccount/www/cgi-bin/dada);
use DADA::App::Guts;
my $list = "justin";
my $list_exists = DADA::App::Guts::check_if_list_exists(-List => $list);
if($list_exists == 1){
print "The list does exist!";
} else {
print "The list does not exist!";
}Getting Information Stored in the List Settings
Once you have your listshortname, it's pretty easy to get the list settings information. You'll be using the DADA::MailingList::Settings module - getting the list settings uses the, get() method, like this:
#!/usr/bin/perl
# Adding the lib path to the dada directory:
use lib qw(/home/myaccount/www/cgi-bin/dada);
use DADA::MailingList::Settings;
my $list = 'justin';
# I use "$ls" as a shorthand for, "List Settings"
my $ls = DADA::MailingList::Settings->new({-list => $list});
my $li = $ls->get; $li is a hashref, the keys hold the name of your list setting, the value, the setting's value. Some ways to use it:
# print every list setting saved:
for my $setting(keys %$li){
print $setting . ' => ' . $li->{$setting} . "\n";
}
# print just the list name:
print "This list name is: " . $li->{list_name};And that's all there is to it. To understand what list settings are available, you may want to look at the Config.pm variable, %LIST_SETUP_DEFAULTS, which lists just about every list setting being used in Dada Mail. More information on that variable:
http://dadamailproject.com/support/documentation-7_4_1/global_variables.pod.html#_list_setup_defaults
More information on the get method:
http://dadamailproject.com/support/documentation-7_4_1/MailingList_Settings_Db.pm.html#get
Storing Information in the List Settings
Storing information is as easy as getting that information. You'll want to use the, save method, like so:
#!/usr/bin/perl
# Adding the lib path to the dada directory:
use lib qw(/home/myaccount/www/cgi-bin/dada);
use DADA::MailingList::Settings;
my $list = 'justin';
# I use "$ls" as a shorthand for, "List Settings"
my $ls = DADA::MailingList::Settings->new({-list => $list});
$ls->save(
{
list_name => "New List Name!",
}
);
The save method takes a hashref of any list setting you'd like to change the value to. In the above example, we've changed the setting, list_name to, New List Name!
And that's basically all there is to the save method.
More information on the save method:
http://dadamailproject.com/support/documentation-7_4_1/MailingList_Settings_Db.pm.html#save