?>
">[<?php
echo _('Permanently Delete List');
?>
]</a>
<?php
mail_footer(array());
} else {
//
// Show lists
//
$mlFactory = new MailingListFactory($Group);
if (!$mlFactory || !is_object($mlFactory) || $mlFactory->isError()) {
exit_error(_('Error'), $mlFactory->getErrorMessage());
}
mail_header(array('title' => _('Mailing List Administration')));
$mlArray =& $mlFactory->getMailingLists();
if ($mlFactory->isError()) {
echo '<p>' . _('Error') . ' ' . sprintf(_('Unable to get the list %s'), $Group->getPublicName()) . '</p>';
echo $mlFactory->getErrorMessage();
mail_footer(array());
exit;
}
echo '<p>' . sprintf(_('You can administrate lists from here. Please note that private lists can still be viewed by members of your project, but are not listed on %1$s.'), $GLOBALS['sys_name']) . '</p>';
echo '<ul>
<li>
<a href="' . getStringFromServer('PHP_SELF') . '?group_id=' . $group_id . '&add_list=1">' . _('Add Mailing List') . '</a>
</li>
</ul>';
$mlCount = count($mlArray);
if ($mlCount > 0) {
$vRep = new Valid_WhiteList('reply', array('1'));
$vRep->required();
if ($request->valid($vRep)) {
$GLOBALS['Response']->addFeedback('warning', $GLOBALS['Language']->getText('plugin_forumml', 'warn_post_without_confirm'));
}
$params['title'] = util_get_group_name_from_id($group_id) . ' - ForumML - ' . $list_name;
if ($topicSubject) {
$params['title'] .= ' - ' . $topicSubject;
}
$params['group'] = $group_id;
$params['toptab'] = 'mail';
$params['help'] = "CommunicationServices.html#MailingLists";
if ($request->valid(new Valid_Pv('pv'))) {
$params['pv'] = $request->get('pv');
}
mail_header($params);
if ($request->valid($vSrep) && $request->valid($vTopic)) {
if (isset($ret) && $ret) {
// wait few seconds before redirecting to archives page
echo "<script> setTimeout('window.location=\"/plugins/forumml/message.php?group_id=" . $group_id . "&list=" . $list_id . "&topic=" . $topic . "\"',3000) </script>";
}
}
$list_link = '<a href="/plugins/forumml/message.php?group_id=' . $group_id . '&list=' . $list_id . '">' . $list_name . '</a>';
$title = $GLOBALS['Language']->getText('plugin_forumml', 'title_root', array($list_link));
if ($topic) {
$fmlMessageMgr = new ForumML_MessageManager();
$value = $fmlMessageMgr->getHeaderValue($topic, FORUMML_SUBJECT);
if ($value) {
$title = $value;
}
} else {
}
$perm =& $Group->getPermission(session_get_user());
if (!$perm || !is_object($perm) || $perm->isError() || !$perm->isAdmin()) {
exit_permission_denied();
}
$ml = new MailingList($Group, getIntFromGet('group_list_id'));
if (getStringFromPost('submit')) {
$sure = getStringFromPost('sure');
$really_sure = getStringFromPost('really_sure');
if (!$ml->delete($sure, $really_sure)) {
exit_error('Error', $ml->getErrorMessage());
} else {
header("Location: index.php?group_id={$group_id}&feedback=DELETED");
}
}
mail_header(array('title' => _('Permanently Delete List')));
?>
<h3><?php
echo $ml->getName();
?>
</h3>
<p>
<form method="post" action="<?php
echo getStringFromServer('PHP_SELF');
?>
?group_id=<?php
echo $group_id;
?>
&group_list_id=<?php
echo $ml->getID();
?>
<?php
//
// SourceForge: Breaking Down the Barriers to Open Source Development
// Copyright 1999-2000 (c) The SourceForge Crew
// http://sourceforge.net
//
// $Id: index.php,v 1.4 2004/01/13 13:15:24 helix Exp $
require 'pre.php';
require '../mail/mail_utils.php';
if ($group_id) {
mail_header(array('title' => 'Mailing Lists for ' . group_getname($group_id)));
if (user_isloggedin() && user_ismember($group_id)) {
$public_flag = '0,1';
} else {
$public_flag = '1';
}
echo '
<H2>Mailing Lists for ' . group_getname($group_id) . '</H2>';
$sql = "SELECT * FROM mail_group_list WHERE group_id='{$group_id}' AND is_public IN ({$public_flag})";
$result = db_query($sql);
$rows = db_numrows($result);
if (!$result || $rows < 1) {
echo '
<H1>No Lists found for ' . group_getname($group_id) . '</H1>';
echo '
<P>Project administrators use the admin link to request mailing lists.';
$HTML->footer(array());
exit;
}
echo "<P>Mailing lists provided via a " . $GLOBALS['sys_default_name'] . " version of " . "<A href=\"http://www.list.org\">GNU Mailman</A>. " . "Thanks to the Mailman and <A href=\"http://www.python.org\">Python</A> " . "crews for excellent software.";
require_once $gfcommon . 'mail/MailingListFactory.class.php';
$group_id = getIntFromGet('group_id');
if ($group_id) {
$Group =& group_get_object($group_id);
if (!$Group || !is_object($Group)) {
exit_error(_('Error'), 'Could Not Get Group');
} elseif ($Group->isError()) {
exit_no_group();
}
$mlFactory = new MailingListFactory($Group);
if (!$mlFactory || !is_object($mlFactory)) {
exit_error(_('Error'), 'Could Not Get MailingListFactory');
} elseif ($mlFactory->isError()) {
exit_error(_('Error'), $mlFactory->getErrorMessage());
}
mail_header(array('title' => sprintf(_('Mailing Lists for %1$s'), $Group->getPublicName())));
$mlArray =& $mlFactory->getMailingLists();
if ($mlFactory->isError()) {
echo '<h1>' . _('Error') . ' ' . sprintf(_('Unable to get the list %s'), $Group->getPublicName()) . '</h1>';
echo $mlFactory->getErrorMessage();
mail_footer(array());
exit;
}
$mlCount = count($mlArray);
if ($mlCount == 0) {
echo '<p>' . sprintf(_('No Lists found for %1$s'), $Group->getPublicName()) . '</p>';
echo '<p>' . _('Project administrators use the admin link to request mailing lists.') . '</p>';
mail_footer(array());
exit;
}
echo _('<p>Mailing lists provided via a GForge version of <a href="http://www.list.org/">GNU Mailman</a>. Thanks to the Mailman and <a href="http://www.python.org/">Python</a> crews for excellent software.</p>');
