The Dada Mail New Features Fundraiser is on! Contribute and cast your vote today!
This plugin/extension is bundled with the Dada Mail Magic Book.
dada_backup.pl - a simple list backup utility for Dada Mail
example:
use lib '/usr/local/lib/perl5/site_perl/5.005/';
example:
use lib '/usr/home/account/public_html/cgi-bin/dada';
example:
my $backup_lists = '/home/account/.dada_files/.backups';
example:
my $dada_backup_log = "$backup_lists/dada_backup.log";
example:
my $remove_after = 1;
you have
[list_name] [year] [month] [day] [hour] [minute] [second]
to choose from
example:
my $backup_name = '[list_name].list-[year][month][day][hour][minute][second]';
example:
my $email_log_to = 'you@here.com';
example:
my $echo_log = 0;
commented out the list_copy subroutine... since, it wasn't being used anyways!
Changes were made to the script to specifically not look at directories. The problem is, as of version 2.8.12 of the script, a backup directory could in fact have a backup directory per list with list setting and archive information, that would muck up this script. In the future, more integration should be done with this script and the other backup model.
Justin Simoni
Copyright (c) 1999-2007 Justin Simoni http://justinsimoni.com All rights reserved.
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
Dada Mail is Free Software and is released under the Gnu
Public License.
Dada Mail is written in Perl because we love Perl.