Source for file mailing_list.php
Documentation is available at mailing_list.php
* Copyright (c) bitweaver Group
* All Rights Reserved. See below for details and a complete list of authors.
* Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See http://www.gnu.org/copyleft/lesser.html for details.
require_once( '../kernel/setup_inc.php' );
require_once( BOARDS_PKG_PATH. 'BitBoardTopic.php' );
require_once( BOARDS_PKG_PATH. 'BitBoardPost.php' );
require_once( BOARDS_PKG_PATH. 'BitBoard.php' );
require_once( BOARDS_PKG_PATH. 'lookup_inc.php' );
require_once( UTIL_PKG_PATH. 'mailman_lib.php' );
// Is package installed and enabled
$gBitSystem->verifyPackage( 'boards' );
// Verify we found a board
if( !$gContent->isValid() ) {
$gBitSystem->fatalError(tra("Error: No such board."));
// Now check permissions to access this page
$gContent->verifyViewPermission();
$gBitSmarty->assign( 'boardSyncInbox', $boardSyncInbox );
if( !empty( $_REQUEST['create_list'] ) ) {
//------ Email List ------//
if( !($error = mailman_newlist( array( 'listname' => $_REQUEST['boards_mailing_list'], 'admin-password'=> $_REQUEST['boards_mailing_list_password'], 'listadmin-addr'=> $gBitUser->getField( 'email' ) ) )) ) {
$gContent->storePreference( 'boards_mailing_list', !empty( $_REQUEST['boards_mailing_list'] ) ? $_REQUEST['boards_mailing_list'] : NULL );
$gContent->storePreference( 'boards_mailing_list_password', $_REQUEST['boards_mailing_list_password'] );
$gBitSmarty->assign( 'errorMsg', $error );
// if( $gContent->getPreference( 'boards_mailing_list' ) && $_REQUEST['boards_mailing_list'] != $gContent->getPreference( 'boards_mailing_list' ) ) {
// groups_mailman_rename( $gContent->getPreference( 'boards_mailing_list' ), $_REQUEST['boards_mailing_list'] );
} elseif( !empty( $_REQUEST['delete_list'] ) ) {
if( $gContent->getPreference( 'boards_mailing_list' ) ) {
if( empty( $_REQUEST['confirm'] ) ) {
$formHash['delete_list'] = TRUE;
$formHash['b'] = $gContent->getField( 'board_id' );
$gBitSystem->confirmDialog( $formHash,
'warning' => tra('Are you sure you want to delete this mailing list?') . ' ' . $gContent->getTitle(),
'error' => tra('This cannot be undone!'),
if( !($error = mailman_rmlist( $gContent->getPreference( 'boards_mailing_list' ) )) ) {
$gContent->storePreference( 'boards_mailing_list', NULL );
$gContent->storePreference( 'boards_mailing_list_password', NULL );
$gBitSmarty->assign( 'errorMsg', $error );
} elseif( !empty( $_REQUEST['save_list_address'] ) ) {
$gContent->storePreference( 'board_sync_list_address', (!empty( $_REQUEST['board_sync_list_address'] ) ? $_REQUEST['board_sync_list_address'] : NULL ) );
} elseif( $gContent->getPreference( 'boards_mailing_list' ) ) {
// check for submits that need boards_mailing_list
if( !empty( $_REQUEST['subscribe_boardsync'] ) ) {
if( $gContent->getPreference('board_sync_list_address') ) {
mailman_addmember( $gContent->getPreference( 'boards_mailing_list' ), $boardSyncInbox );
mailman_setmoderator( $gContent->getPreference( 'boards_mailing_list' ), $boardSyncInbox );
} elseif( !empty( $_REQUEST['unsubscribe_boardsync'] ) ) {
if( $gContent->getPreference('board_sync_list_address') ) {
mailman_remove_member( $gContent->getPreference( 'boards_mailing_list' ), $boardSyncInbox );
} elseif( !empty( $_REQUEST['subscribe'] ) ) {
mailman_addmember( $gContent->getPreference( 'boards_mailing_list' ), $gBitUser->getField( 'email' ) );
} elseif( !empty( $_REQUEST['unsubscribe'] ) ) {
mailman_remove_member( $gContent->getPreference( 'boards_mailing_list' ), $gBitUser->getField( 'email' ) );
if( $gContent->getBoardMailingList() ) {
$gBitSmarty->assign( 'boardsMailingList', $gContent->getBoardMailingList() );
if ( $gContent->hasUserPermission( 'p_boards_boards_members_view' ) ){
$members = mailman_list_members( $gContent->getPreference( 'boards_mailing_list' ) );
$gBitSmarty->assign_by_ref( 'listMembers', $members );
$gBitSmarty->assign( 'suggestedListName', preg_replace( '/[^a-z0-9]/', '', strtolower( $gContent->getTitle() ) ) );
$gBitSmarty->assign_by_ref( 'board', $gContent );
$gBitSystem->display( "bitpackage:boards/mailing_list.tpl", $gContent->getTitle() . " ". tra( 'Message Board Mailing List' ) , array( 'display_mode' => 'list' ));
|