Autosubscribe users to simplenews newsletter

Posted by wayfarer_boy on February 16, 2007 at 1:59am

Trevor Twining originally posted code for a module that automatically subscribed users to a specified newsletter on login - http://drupal.org/node/56368#comment-118414. I've modified Trevor's code to work with Drupal 5 and the more recent version of SimpleNews. Please correct any mistakes I may have made, as this is my first module posting! Here's the code for the info file, which of course is now required for the module to be seen by Drupal 5:

aic_mailer.info

; $Id $ 
name = Simplenews auto-subscribe
description = Automatically subscribe users logging in to the site newsletter.
package = Simplenews

and here's the module code:

aic_mailer.module

<?php
/**
 * Implementation of hook_user().
 *
 */
function aic_mailer_user($op, &$edit, &$account, $category = NULL) {
    global $user;
    switch ($op):
        case "login":
            aic_mailer_check_subscriptions($user);
            break;
        case "logout":
            aic_mailer_check_subscriptions($user);
            break;    
    endswitch;
}

function aic_mailer_check_subscriptions($user, $debug='false') {
    if($user && $user->uid > 0){
        /* Change this number to your newsletter ID */
        $newsletter = 13;
        $sql = "SELECT * FROM {simplenews_subscriptions} a, {simplenews_snid_tid} b WHERE a.uid={$user->uid} AND b.snid=a.snid AND b.tid=".$newsletter;
        $sub = db_fetch_object(db_query($sql));
        if (!$sub){
            if($debug == 'true'){
                drupal_set_message('no subscriptions for this user so we will be correcting that now.');
            }
            $sub = db_fetch_object(db_query("SELECT snid FROM {simplenews_subscriptions} WHERE uid={$user->uid}"));
            db_query("INSERT INTO {simplenews_snid_tid} (snid, tid) VALUES (%d, %d)", $sub->snid, $newsletter);
        }
    }
}
?>

Feedback welcome :)

Comments

Many apologies - I'd not

Posted by wayfarer_boy on February 16, 2007 at 3:07pm

Many apologies - I'd not read the simplenews.module file properly. If I had, I would have seen the one function required to make this module work seamlessly. So:

aic_mailer.module

<?php
/**
 * Implementation of hook_user().
 *
 */
function aic_mailer_user($op, &$edit, &$account, $category = NULL) {
    global $user;
    switch ($op):
        case "login":
            aic_mailer_check_subscriptions($user);
            break;
        case "logout":
            aic_mailer_check_subscriptions($user);
            break;    
    endswitch;
}

function aic_mailer_check_subscriptions($user, $debug='false') {
    if($user && $user->uid > 0){
        /* Change this number to your newsletter's tid */
        $newsletter = 13;
        simplenews_subscribe_user($user->mail, $newsletter, $confirm = FALSE);
    }
}
?>

And that's all it needs to be.

Alternative

Posted by sessy on June 4, 2007 at 8:47pm

Or you could disable the permission to subscribe/unsubscribe, and add this to a module:

<?php
function MODULENAME_user($op, &$edit, &$account, $category = NULL) {
    if($op == 'insert') {
        $newsletter = variable_get('force-this-newsletter', 2);
        simplenews_subscribe_user($account->mail, $newsletter, $confirm = FALSE);
    }
}
?>

This will subscribe all new users to the selected newsletter.

iStream :: full service Drupal solution
http://drupal.iStream.hu

Thanks...

Posted by yurtboy on August 30, 2007 at 12:56pm

works well for me..

Alfred Nutile
http://twitter.com/alnutile

That works

Posted by codenamerhubarb on February 29, 2008 at 7:27am

Works for me too (using Drupal 5). Thanks.

-------------------------------
My Drupal site which I love to pieces: Download a Book.

-------------------------------
My Drupal site: Download a Book.

----
http://www.johnpezzetti.com

v6 release?

Posted by Jason Brain on December 8, 2009 at 1:37am

I'm interested in applying this on a v6 installation.

Anyone have much luck?
What mods are required for Sessy's solution?

Jason.Brain @ WeBeWho!com
IT, Web, Marketing and Promotional Solutions
Kawartha Lakes, Ontario

Autosubscribe users to simplenews newsletter

Comments

Many apologies - I'd not

Alternative

Thanks...

That works

Works in D6 too

Thanks!

is it

thanks for this, but how can

Module

v6 release?