4 * GForge Mailing Lists Facility
6 * Portions Copyright 1999-2001 (c) VA Linux Systems
7 * The rest Copyright 2003-2004 (c) Guillaume Smet - Open Wide
11 require_once('../../env.inc.php');
12 require_once $gfcommon.'include/pre.php';
13 require_once $gfwww.'mail/admin/../mail_utils.php';
15 require_once $gfcommon.'mail/MailingList.class.php';
17 $group_id = getIntFromRequest('group_id');
25 $group =& group_get_object($group_id);
26 if (!$group || !is_object($group) || $group->isError()) {
30 session_require_perm ('project_admin', $group->getID()) ;
32 $ml = new MailingList($group,getIntFromGet('group_list_id'));
34 if (getStringFromPost('submit')) {
35 $sure = getStringFromPost('sure');
36 $really_sure = getStringFromPost('really_sure');
37 if (!$ml->delete($sure,$really_sure)) {
38 exit_error('Error',$ml->getErrorMessage());
40 header("Location: index.php?group_id=$group_id&feedback=Mailing+List+successfully+deleted");
45 'title' => _('Permanently Delete List')
49 <h3><?php echo $ml->getName(); ?></h3>
50 <form method="post" action="<?php echo getStringFromServer('PHP_SELF'); ?>?group_id=<?php echo $group_id; ?>&group_list_id=<?php echo $ml->getID(); ?>">
51 <input type="checkbox" name="sure" value="1" /><?php echo _('Confirm Delete'); ?><br />
52 <input type="checkbox" name="really_sure" value="1" /><?php echo _('Confirm Delete'); ?><br />
54 <input type="submit" name="submit" value="<?php echo _('Permanently Delete'); ?>" />