From b132a73f15e432eaf43310fce9196ca0c0651465 Mon Sep 17 00:00:00 2001
From:  <>
Date: Thu, 2 Jan 2003 05:25:50 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'Release_2_1-maint'.

---
 Mailman/Gui/Archive.py | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 Mailman/Gui/Archive.py

(limited to 'Mailman/Gui/Archive.py')

diff --git a/Mailman/Gui/Archive.py b/Mailman/Gui/Archive.py
new file mode 100644
index 00000000..59c2fd10
--- /dev/null
+++ b/Mailman/Gui/Archive.py
@@ -0,0 +1,44 @@
+# Copyright (C) 2001,2002 by the Free Software Foundation, Inc.
+#
+# 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.
+
+from Mailman import mm_cfg
+from Mailman.i18n import _
+from Mailman.Gui.GUIBase import GUIBase
+
+
+
+class Archive(GUIBase):
+    def GetConfigCategory(self):
+        return 'archive', _('Archiving Options')
+
+    def GetConfigInfo(self, mlist, category, subcat=None):
+        if category <> 'archive':
+            return None
+	return [
+            _("List traffic archival policies."),
+
+	    ('archive', mm_cfg.Toggle, (_('No'), _('Yes')), 0, 
+	     _('Archive messages?')),
+
+	    ('archive_private', mm_cfg.Radio, (_('public'), _('private')), 0,
+             _('Is archive file source for public or private archival?')),
+
+ 	    ('archive_volume_frequency', mm_cfg.Radio, 
+             (_('Yearly'), _('Monthly'), _('Quarterly'),
+              _('Weekly'), _('Daily')),
+             0,
+ 	     _('How often should a new archive volume be started?')),
+	    ]
-- 
cgit v1.2.3