3 * FusionForge Mailing Lists Facility
5 * Portions Copyright 1999-2001 (c) VA Linux Systems
6 * The rest Copyright 2003 (c) Guillaume Smet
7 * Portions Copyright 2010 (c) Mélanie Le Bail
14 require_once 'mailman/include/MailmanList.class.php';
15 require_once 'mailman/include/MailmanListFactory.class.php';
17 $current_user=UserManager::instance()->getCurrentUser();
20 function sendCreationMail($userEmail,$listname,$listpassword) {
22 //$message = $Language->getText('mail_admin_index','list_create_explain',array($GLOBALS['sys_name'], $listname.'@' .$GLOBALS['sys_lists_host'],$list_server."/mailman/listinfo/$listname",$list_server."/mailman/admin/$list_name",$listpassword));
24 $hdrs = "From: ".$GLOBALS['sys_email_admin'].$GLOBALS['sys_lf'];
25 $hdrs .='Content-type: text/plain; charset=utf-8'.$GLOBALS['sys_lf'];
27 //mail ($userEmail,$GLOBALS['sys_name']." ".$Language->getText('mail_admin_index','new_mail_list'),$message,$hdrs);
31 function table_begin()
34 echo "<table WIDTH=\"100%\" border=0>\n"."<TR><TD VALIGN=\"TOP\">\n";
38 echo '</TD></TR></TABLE>';
41 function personalized_message()
44 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>');
46 function display_list($currentList)
48 $request =& HTTPRequest::instance();
49 $current_user=UserManager::instance()->getCurrentUser();
51 if($currentList->isPublic()!='9'){
52 if ($currentList->isError()) {
53 echo $currentList->getErrorMessage();
56 echo ' <b>'.$currentList->getName().'</b> [';
57 if($currentList->getStatus() == '3') {
58 echo _('Not activated yet');
60 echo ' <A HREF="index.php?group_id='.$request->get('group_id').'&action=pipermail&id='.$currentList->getID().'">'._('Archives').'</A>';
63 if ($currentList->isMonitoring()) {
64 echo ' | <a href="index.php?group_id='.$request->get('group_id').'&action=unsubscribe&id='.$currentList->getID().'">'._('Unsubscribe').' </a>';
65 echo ' | <a href="index.php?group_id='.$request->get('group_id').'&action=options&id='.$currentList->getID().'">'._('Preferences').'</a>';
67 echo ' | <a href="index.php?group_id='.$request->get('group_id').'&action=subscribe&id='.$currentList->getID().'">'._('Subscribe').'</a>';
69 if ($currentList->getListAdminID() == $current_user->getID()){
70 echo ' | <A HREF="index.php?group_id='. $request->get('group_id').'&action=admin&id='. $currentList->getID() .'">'._('Administrate').'</A> ';
75 echo htmlspecialchars($currentList->getDescription()).'<p>';
81 function display_list_admin($currentList)
83 $request =& HTTPRequest::instance();
84 $current_user=UserManager::instance()->getCurrentUser();
85 if($currentList->isPublic()!='9'){
86 if ($currentList->isError() ) {
87 echo $currentList->getErrorMessage();
91 echo ' <b>'.$currentList->getName().'</b> [';
93 if($currentList->getStatus() == '3') {
94 echo _('Not activated yet');
97 echo ' <A HREF="index.php?group_id='.$request->get('group_id').'&change_status=1&group_list_id='.$currentList->getID().'">'._('Update').'</A>';
98 echo ' | <a href="deletelist.php?group_id='.$currentList->Group->getID().'&id='.$currentList->getID().'">'. _('Delete').'</a>';
100 if ($currentList->getListAdminID() == $current_user->getID()){
101 echo ' | <A HREF="../index.php?group_id='. $request->get('group_id').'&action=admin&id='. $currentList->getID() .'">'._('Administrate from Mailman').'</A> ';
105 echo ' ] <br> ';
106 echo htmlspecialchars($currentList->getDescription()).'<p>';
111 function mailman_header($params) {
113 $current_user=UserManager::instance()->getCurrentUser();
114 $request =& HTTPRequest::instance();
116 //required for site_project_header
117 $params['group'] = $request->get('group_id');
118 $params['toptab'] = 'mailman';
120 site_project_header($params);
122 // admin link is only displayed if the user is a project administrator
123 if ($current_user->isMember($request->get('group_id'),'A')) {
124 if (isset($params['admin'])){
125 echo '<A HREF="index.php?group_id='.$request->get('group_id').'">'._('Administration').'</A>';
128 echo '<A HREF="admin/index.php?group_id='.$request->get('group_id').'">'._('Administration').'</A>';
132 if ($params['help']) {
133 helpButton($params['help']);
138 function mail_footer($params) {
139 site_project_footer($params);
145 // c-file-style: "bsd"