disable/enable e-mail notification (ubb 5.47d) - 01/13/2001 2:34 AM
in postings.cgi
** find **
sub DoTheEdit {
** under this sub find **
# append edit note to the message
** replace for **
# begin turn off email notification in edit time 0-7 fields
if ($in{'ReplyNum'} eq '000000' && $UseEmail eq 'ON') {
$cataux = $editthread[0];
@firstpostlinecat = split(/||/, $cataux);
if ($in{'DisableNotificationcat'} ne 'yes') {
$firstpostlinecat[1] = '';
$cataux = $firstpostlinecat[0] . '||' . $firstpostlinecat[1] . '||' . $firstpostlinecat[2] . '||' . $firstpostlinecat[3] . '||' . $firstpostlinecat[4] . '||' . $firstpostlinecat[5] . '||' . $firstpostlinecat[6] . '||' . $firstpostlinecat[7];
$editthread[0] = $cataux;
} else {
$firstpostlinecat[1] = 'N';
$cataux = $firstpostlinecat[0] . '||' . $firstpostlinecat[1] . '||' . $firstpostlinecat[2] . '||' . $firstpostlinecat[3] . '||' . $firstpostlinecat[4] . '||' . $firstpostlinecat[5] . '||' . $firstpostlinecat[6] . '||' . $firstpostlinecat[7];
$editthread[0] = $cataux;
}
}
# end turn off email notification in edit time
# append edit note to the message
** find **
sub EditPost {
** find under this sub **
print <
** replace for **
# begin turn off e-mail notification in edit
if ($in{'ReplyNum'} eq '000000' && $UseEmail eq 'ON') {
$cataux = $thisthread[0];
@firstpostlinecat = split(/||/, $cataux);
if ($firstpostlinecat[1] eq '') {
$DisableNotificationcat = '
Email Notification: emails sent to you whenever someone replies. Only registered users are eligible.';
} else {
$DisableNotificationcat = '
Email Notification: emails sent to you whenever someone replies. Only registered users are eligible.';
}
}
# end turn off e-mail notification in edit
print <
** find **
$DisableSmiliesWording
** replace for **
$DisableSmiliesWording
$DisableNotificationcat
thats it i think. its working fine here
quick explanation: this will give topic starters the ability to turn on/off e-mail notification by editing their 1st messages.
edit: added compatibility with "Email Features On" in General Settings options
------------------
This message has been edited by CopyCat on January 12, 2001 at 09:28 PM
** find **
sub DoTheEdit {
** under this sub find **
# append edit note to the message
** replace for **
# begin turn off email notification in edit time 0-7 fields
if ($in{'ReplyNum'} eq '000000' && $UseEmail eq 'ON') {
$cataux = $editthread[0];
@firstpostlinecat = split(/||/, $cataux);
if ($in{'DisableNotificationcat'} ne 'yes') {
$firstpostlinecat[1] = '';
$cataux = $firstpostlinecat[0] . '||' . $firstpostlinecat[1] . '||' . $firstpostlinecat[2] . '||' . $firstpostlinecat[3] . '||' . $firstpostlinecat[4] . '||' . $firstpostlinecat[5] . '||' . $firstpostlinecat[6] . '||' . $firstpostlinecat[7];
$editthread[0] = $cataux;
} else {
$firstpostlinecat[1] = 'N';
$cataux = $firstpostlinecat[0] . '||' . $firstpostlinecat[1] . '||' . $firstpostlinecat[2] . '||' . $firstpostlinecat[3] . '||' . $firstpostlinecat[4] . '||' . $firstpostlinecat[5] . '||' . $firstpostlinecat[6] . '||' . $firstpostlinecat[7];
$editthread[0] = $cataux;
}
}
# end turn off email notification in edit time
# append edit note to the message
** find **
sub EditPost {
** find under this sub **
print <
** replace for **
# begin turn off e-mail notification in edit
if ($in{'ReplyNum'} eq '000000' && $UseEmail eq 'ON') {
$cataux = $thisthread[0];
@firstpostlinecat = split(/||/, $cataux);
if ($firstpostlinecat[1] eq '') {
$DisableNotificationcat = '
Email Notification: emails sent to you whenever someone replies. Only registered users are eligible.';
} else {
$DisableNotificationcat = '
Email Notification: emails sent to you whenever someone replies. Only registered users are eligible.';
}
}
# end turn off e-mail notification in edit
print <
** find **
$DisableSmiliesWording
** replace for **
$DisableSmiliesWording
$DisableNotificationcat
thats it i think. its working fine here
quick explanation: this will give topic starters the ability to turn on/off e-mail notification by editing their 1st messages.
edit: added compatibility with "Email Features On" in General Settings options
------------------
This message has been edited by CopyCat on January 12, 2001 at 09:28 PM