[CODE & BM][DONE]Opt-In Mailing List

[groundup]

I haven't seen this around and I had 10 minutes so I decided to write it.  I am writing it as we speak so it is not tested.  All I need is one person to test it because it is an extremely easy and simple mod:


EDIT FILE:  Admin.php
search for:

Code Select Expand

   $request = mysql_query("SELECT emailAddress FROM {$db_prefix}members WHERE 1");
replace:

Code Select Expand

   $request = mysql_query("SELECT emailAddress FROM {$db_prefix}members WHERE opt_in=1");
EDIT FILE: English.lng
search for:

Code Select Expand

$locale = "en_US";
add after:

Code Select Expand

$mod['opt_in'] = 'Allow admins to send you mailings';
EDIT FILE: Profile.php
search for:

Code Select Expand

global $MaxSigLen,$timeformatstring,$db_prefix,$locale,$modSettings,$language,$timeoffset;
add after:

Code Select Expand

global $opt_in;
search for:

Code Select Expand

$request = mysql_query("SELECT passwd,realName,emailAddress,websiteTitle,websiteUrl,signature,posts,memberGroup,ICQ,AIM,YIM,gender,personalText,avatar,dateRegistered,location,birthdate,timeFormat,timeOffset,hideEmail,ID_MEMBER,usertitle,karmaBad,karmaGood,lngfile,MSN,secretQuestion,secretAnswer FROM {$db_prefix}members WHERE memberName='$user'");
replace:

Code Select Expand

$request = mysql_query("SELECT passwd,realName,emailAddress,websiteTitle,websiteUrl,signature,posts,memberGroup,ICQ,AIM,YIM,gender,personalText,avatar,dateRegistered,location,birthdate,timeFormat,timeOffset,hideEmail,ID_MEMBER,usertitle,karmaBad,karmaGood,lngfile,MSN,secretQuestion,secretAnswer,opt_in FROM {$db_prefix}members WHERE memberName='$user'");
Search for:

Code Select Expand

   <td><input type="checkbox" name="hideemail"$memsettings[hideEmail]></td>
    </tr>
EOT;
}Add after:

Code Select Expand

$memsettings['opt_in'] = ($memsettings['opt_in']==1)?' checked':'';
print EOT<<<
<tr>$mod['opt_in']<td><input type="checkbox" name="opt_in"$memsettings['opt_in']></td></tr>
EOT;
search for:

Code Select Expand

$request = mysql_query("UPDATE {$db_prefix}members SET $queryPasswdPart $customTitlePart realName='$member[name]',emailAddress='$member[email]',websiteTitle='$member[websitetitle]',websiteUrl='$member[websiteurl]',signature='$member[signature]',posts=$member[settings6],memberGroup='$member[settings7]',ICQ='$member[icq]',MSN='$member[msn]',AIM='$member[aim]',YIM='$member[yim]',gender='$member[gender]',personalText='$member[usertext]',avatar='$member[userpic]',$member[dr]location='$member[location]',birthdate='$member[bday]',lngfile='$member[language]',memberIP='$memIP',timeFormat='$member[usertimeformat]',timeOffset=$timeOffest,secretQuestion='$member[secretQuestion]',secretAnswer='$member[secretAnswer]',hideEmail=$hideEmail$karmaStr WHERE memberName='$user'");
replace:

Code Select Expand

$request = mysql_query("UPDATE {$db_prefix}members SET $queryPasswdPart $customTitlePart realName='$member[name]',emailAddress='$member[email]',websiteTitle='$member[websitetitle]',websiteUrl='$member[websiteurl]',signature='$member[signature]',posts=$member[settings6],memberGroup='$member[settings7]',ICQ='$member[icq]',MSN='$member[msn]',AIM='$member[aim]',YIM='$member[yim]',gender='$member[gender]',personalText='$member[usertext]',avatar='$member[userpic]',$member[dr]location='$member[location]',birthdate='$member[bday]',lngfile='$member[language]',memberIP='$memIP',timeFormat='$member[usertimeformat]',timeOffset=$timeOffest,secretQuestion='$member[secretQuestion]',secretAnswer='$member[secretAnswer]',hideEmail=$hideEmail$karmaStr,opt_in=$opt_in WHERE memberName='$user'");
I think that's it.  i am going to check some more on this but now we have to run a query to add the column to the members.

query:

Code Select Expand

ALTER TABLE {db_prefix}members ADD opt_in TINYINT(4) DEFAULT '1' NOT NULL
I hope this works

[Tha Master]

more information please

[David]

more information please

What other info do you need?

[groundup]

If you use the send members email feature of yabb se, users have the option of getting them, or not getting them.

[Tha Master]

<id>
Mailer
</id>

<version>
Beta 1.0
</version>

<mod info>
This let the members choose that if they want an news email or not
</mod info>

<author>
Groundup
</author>

<homepage>
http://www.boardnation.com
</homepage>

<edit file>
Sources/Admin.php
</edit file>

<search for>

   $request = mysql_query("SELECT emailAddress FROM {$db_prefix}members WHERE 1");
</search for>

<replace>
   $request = mysql_query("SELECT emailAddress FROM {$db_prefix}members WHERE opt_in=1");
</replace>

<edit file>
English.lng
</edit file>

<search for>
$locale = "en_US";
</search for>

<add after>
$mod['opt_in'] = 'Allow admins to send you mailings';
</add after>

<edit file>
Sources/Profile.php
</edit file>

<search for>
global $MaxSigLen,$timeformatstring,$db_prefix,$locale,$modSettings,$language,$timeoffset;
</search for>

<add after>
global $opt_in;
</add after>

<search for>
$request = mysql_query("SELECT passwd,realName,emailAddress,websiteTitle,websiteUrl,signature,posts,memberGroup,ICQ,AIM,YIM,gender,personalText,avatar,dateRegistered,location,birthdate,timeFormat,timeOffset,hideEmail,ID_MEMBER,usertitle,karmaBad,karmaGood,lngfile,MSN,secretQuestion,secretAnswer FROM {$db_prefix}members WHERE memberName='$user'");
</search for>

<replace>
$request = mysql_query("SELECT passwd,realName,emailAddress,websiteTitle,websiteUrl,signature,posts,memberGroup,ICQ,AIM,YIM,gender,personalText,avatar,dateRegistered,location,birthdate,timeFormat,timeOffset,hideEmail,ID_MEMBER,usertitle,karmaBad,karmaGood,lngfile,MSN,secretQuestion,secretAnswer,opt_in FROM {$db_prefix}members WHERE memberName='$user'");
</replace>

<search for>
   <td><input type="checkbox" name="hideemail"$memsettings[hideEmail]></td>
   </tr>
EOT;
}
</search for>

<add after>
$memsettings['opt_in'] = ($memsettings['opt_in']==1)?' checked':'';
print EOT<<<
<tr>$mod['opt_in']<td><input type="checkbox" name="opt_in"$memsettings['opt_in']></td></tr>
EOT;
</add after>

<search for>
$request = mysql_query("UPDATE {$db_prefix}members SET $queryPasswdPart $customTitlePart realName='$member[name]',emailAddress='$member[email]',websiteTitle='$member[websitetitle]',websiteUrl='$member[websiteurl]',signature='$member[signature]',posts=$member[settings6],memberGroup='$member[settings7]',ICQ='$member[icq]',MSN='$member[msn]',AIM='$member[aim]',YIM='$member[yim]',gender='$member[gender]',personalText='$member[usertext]',avatar='$member[userpic]',$member[dr]location='$member[location]',birthdate='$member[bday]',lngfile='$member[language]',memberIP='$memIP',timeFormat='$member[usertimeformat]',timeOffset=$timeOffest,secretQuestion='$member[secretQuestion]',secretAnswer='$member[secretAnswer]',hideEmail=$hideEmail$karmaStr WHERE memberName='$user'");
</search for>

<replace>
$request = mysql_query("UPDATE {$db_prefix}members SET $queryPasswdPart $customTitlePart realName='$member[name]',emailAddress='$member[email]',websiteTitle='$member[websitetitle]',websiteUrl='$member[websiteurl]',signature='$member[signature]',posts=$member[settings6],memberGroup='$member[settings7]',ICQ='$member[icq]',MSN='$member[msn]',AIM='$member[aim]',YIM='$member[yim]',gender='$member[gender]',personalText='$member[usertext]',avatar='$member[userpic]',$member[dr]location='$member[location]',birthdate='$member[bday]',lngfile='$member[language]',memberIP='$memIP',timeFormat='$member[usertimeformat]',timeOffset=$timeOffest,secretQuestion='$member[secretQuestion]',secretAnswer='$member[secretAnswer]',hideEmail=$hideEmail$karmaStr,opt_in=$opt_in WHERE memberName='$user'");
</replace>

[groundup]

[Tha Master]

thats for boardmod  

[groundup]

thank you

have you tested it?  does it work?

[Tha Master]

yes  
My first boardmod script