diff options
| author | Tyler Bello <tylerbello@users.sourceforge.net> | 2009-10-08 16:19:36 +0000 |
|---|---|---|
| committer | Tyler Bello <tylerbello@users.sourceforge.net> | 2009-10-08 16:19:36 +0000 |
| commit | 3308ecbbe36a26091055a28df649ed975e5298d4 (patch) | |
| tree | 7d2862d3fba6c36a4c93432893c37f3438a030b1 | |
| parent | cfc84b151a1993031d81c79c61d57b2c396b6484 (diff) | |
| download | newsletters-3308ecbbe36a26091055a28df649ed975e5298d4.tar.gz newsletters-3308ecbbe36a26091055a28df649ed975e5298d4.tar.bz2 newsletters-3308ecbbe36a26091055a28df649ed975e5298d4.zip | |
add users_register hook to create opt-out on register page
| -rw-r--r-- | bit_setup_inc.php | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/bit_setup_inc.php b/bit_setup_inc.php index f5643eb..c94fc47 100644 --- a/bit_setup_inc.php +++ b/bit_setup_inc.php @@ -24,6 +24,7 @@ if( $gBitSystem->isPackageActive( NEWSLETTERS_PKG_NAME ) ) { $gLibertySystem->registerService( LIBERTY_SERVICE_NEWSLETTERS, NEWSLETTERS_PKG_NAME, array( 'users_expunge_function' => 'newsletters_user_expunge', + 'users_register_function' => 'newsletters_user_register', ) ); // make sure all mail_queue messages from a deleted user are nuked @@ -35,5 +36,15 @@ if( $gBitSystem->isPackageActive( NEWSLETTERS_PKG_NAME ) ) { $pObject->mDb->CompleteTrans(); } } + + function newsletters_user_register( &$pObject ) { + if( !empty($_REQUEST['unsubscribe']) ){ + require_once NEWSLETTERS_PKG_PATH.'BitNewsletter.php'; + $newsletter = new BitNewsletter(); + foreach ( $_REQUEST['unsubscribe'] as $nl_id ){ + $newsletter->unsubscribe($nl_id,false); + } + } + } } ?> |