Advanced System eMails Mod 0.9 SP1.1 - fully editable with eMail Control Center - possibility to template the post notification emails with many different tags, - possibility to template the the instant message notification emails with many different tags, - possibility to template the register welcome emails with many different tags, - possibility to template the register password emails with many different tags, - possibility to template the password reminder emails with many different tags, - possibility to template the profile change emails with many different tags, - possibility to template the send topic emails with many different tags, - possibility to template the admin emails with some different tags, - new hacker warning emails with many different tags, - added new member notification emails with many different tags, - new junior member gratulation emails, full member gratulation emails, senior member gratulation emails and god member gratulation emails with many different tags, - new emails for deletions of members by members or admins with many different tags - random quotes mod is fully supported - compatible with all mods where boardmod no founds problems (I do not know any incompatible mod, hints are welcome). Installation: - apply mod - upload advemails.txt to your variable directory - upload YaBB.pl and english.lng to your YaBB directory - upload Admin.pl, AdminEdit.pl, InstantMessage.pl, LogInOut.pl, Post.pl, Profile.pl, Register.pl, SendTopics.pl and Subs.pl to your sources directory - if you like quotes or sayings: upload a file quotes.txt to your variable direction with one quote or saying per line (not necessary) - to make the file quotes.txt editable via control center upload random quotes mod (not necessary) Uwe Wiedemann http://www.philtalk.de/ YaBB.pl elsif ($action eq 'usersrecentposts') { require "$sourcedir/Profile.pl"; &usersrecentposts; } elsif ($action eq 'usersrecentposts') { require "$sourcedir/Profile.pl"; &usersrecentposts; } # Advanced System eMails Mod elsif ($action eq 'advemail') { require "$sourcedir/AdminEdit.pl"; &EmailControlCenter; } elsif ($action eq 'advemail2') { require "$sourcedir/AdminEdit.pl"; &EmailControlCenter2; } # End Advanced System eMails Mod english.lng 1; # Advanced System eMails Mod $advemailtxt{'1'} = "eMail Control Center"; $advemailtxt{'2'} = "Post Notification eMail"; $advemailtxt{'3'} = "IM Notification eMail"; $advemailtxt{'4'} = "Register Welcome eMail"; $advemailtxt{'5'} = "Register Password eMail"; $advemailtxt{'6'} = "Password Reminder eMail"; $advemailtxt{'7'} = "Profile Change eMail"; $advemailtxt{'8'} = "Send Topic eMail"; $advemailtxt{'9'} = "Hacker Warning eMail"; $advemailtxt{'10'} = "New message"; $advemailtxt{'11'} = "wrote your the following instant message"; $advemailtxt{'12'} = "Use tags [subject]<\/b> (subject of the message), [threadsubject]<\/b> (subject of the first message in the thread), [messageurl]<\/b> (url of the new message), [threadurl]<\/b> (url of the thread start), [threadid]<\/b> (id number of the thread), [boardtitle]<\/b>s (title of the board board with the new message which is displayed on the board index), [boardname]<\/b> (name of this board), [boardurl]<\/b> (url of this board), [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [name]<\/b> (display name of the poster), [username]<\/b> (login name of the poster), [memberinfo]<\/b> (info of the poster, i.e. Junior Member, Administrator ...), [anchor]<\/b> (anchor of the new message), [messagenumber]<\/b> (how many messages are in the thread?), [date]<\/b> (the actual time), [postersmessagenumber]<\/b> (how many messages wrote the poster?), [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file) and [message]<\/b> (even the message) to include personalized details in the message."; $advemailtxt{'13'} = "Use tags [subject]<\/b> (subject of IM), [sender]<\/b> (display name of sender), [sendername]<\/b> (login name of sender), [senderinfo]<\/b> (i. e., is sender Junior Member, Administrator ...?), [imurl]<\/b> (url of IM), [name]<\/b> (recipient of IM), [memberinfo]<\/b> (is recipient Junior Member ...?), [date]<\/b> (the actual time), [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file) and [message]<\/b> (even the message) to include personalized details in the message."; $advemailtxt{'14'} = "Use tags [name]<\/b> (display name of the user), [username]<\/b> (login name of the poster), [password]<\/b> (password of the poster), [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [profile]<\/b> (link to users profile), [date]<\/b> (the actual time), [email]<\/b> (email of user), [homepagename]<\/b> (homepagename of user's homepage), [homepage]<\/b> (link to user's homepage), [gender]<\/b> (of user), [location]<\/b> (of user), [text]<\/b> (user's text), [age]<\/b> (of user), [icq]<\/b> (of user), [aim]<\/b> (of user), [yim]<\/b> (of user), [signature\]<\/b> (of user), [memberinfo]<\/b> (is user junior member or admin?) and [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file), to include personalized details in the message."; $advemailtxt{'15'} = "The tag [password]<\/b> is necessary to save the functionality of this eMail."; $advemailtxt{'16'} = "Use tags [adminname]<\/b>, [falsepassword]<\/b> (the false password which has been used), [ip]<\/b> (the ip where the login attempt came from), [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [date] (the actual time) and [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file) to include personalized details in the message."; $advemailtxt{'17'} = "Use tags [subject]<\/b> (subject of topic), [sender]<\/b>, [senderemail]<\/b>, [recipient]<\/b>, [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [date]<\/b> (the actual time), [topicurl]<\/b> and [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file) to include personalized details in the message."; $advemailtxt{'18'} = "New Member Notification eMail"; $advemailtxt{'19'} = "Use tags [name]<\/b> (display name of the user), [username]<\/b> (login name of the user), [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [profile]<\/b> (link to users profile), [date]<\/b> (the actual time), [email]<\/b> (email of user), [homepagename]<\/b> (homepagename of user's homepage), [homepage]<\/b> (link to user's homepage), [gender]<\/b> (of user), [location]<\/b> (of user), [text]<\/b> (user's text), [age]<\/b> (of user), [icq]<\/b> (of user), [aim]<\/b> (of user), [yim]<\/b> (of user), [signature\]<\/b> (of user), [memberinfo]<\/b> (is user junior member or admin?) and [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file), to include personalized details in the message."; $advemailtxt{'20'} = "Leave the subject empty if you do not like this eMail."; $advemailtxt{'21'} = "Junior Member Gratulation eMail"; $advemailtxt{'22'} = "The user will be notified if he gets a junior member."; $advemailtxt{'23'} = "Full Member Gratulation eMail"; $advemailtxt{'24'} = "The user will be notified if he gets a full member."; $advemailtxt{'25'} = "Senior Member Gratulation eMail"; $advemailtxt{'26'} = "The user will be notified if he gets a senior member."; $advemailtxt{'27'} = "Gods Member Gratulation eMail"; $advemailtxt{'28'} = "The user will be notified if he gets a gods member."; $advemailtxt{'29'} = "User Deletion by User eMail."; $advemailtxt{'30'} = "User Deletion by Admin eMail."; $advemailtxt{'31'} = "The webmaster will be notified if a user is deleted."; $advemailtxt{'32'} = "The admin will be notified if a new member enteres the message board."; $advemailtxt{'33'} = "Use tags [adminname]<\/b> (display name of the admin), [adminusername]<\/b> (login name of the admin), [name]<\/b> (display name of the user), [username]<\/b> (login name of the user), [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [profile]<\/b> (link to users profile), [date]<\/b> (the actual time), [email]<\/b> (email of user), [homepagename]<\/b> (homepagename of user's homepage), [homepage]<\/b> (link to user's homepage), [gender]<\/b> (of user), [location]<\/b> (of user), [text]<\/b> (user's text), [age]<\/b> (of user), [icq]<\/b> (of user), [aim]<\/b> (of user), [yim]<\/b> (of user), [signature\]<\/b> (of user), [memberinfo]<\/b> (is user junior member or admin?) and [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file), to include personalized details in the message."; $advemailtxt{'34'} = "Admin eMails"; $advemailtxt{'35'} = "Use tags [adminname]<\/b> (display name of the admin), [mbname]<\/b> (name of the message board), [mburl]<\/b> (url of the message board), [date]<\/b> (the actual time) and [quote]<\/b> (if the file quotes.txt in the variable directory exist, then an random line of this file), to include personalized details in the message."; # End Advanced System eMails Mod 1; sources/Admin.pl - $txt{'216'}
 - $txt{'216'}
- $advemailtxt{'1'}
 unlink("$memberdir/$currentmem.dat"); # Advanced System eMails Mod &advsendmail3(14,$webmaster_email,$member{'username'},""); # End Advanced System eMails Mod unlink("$memberdir/$currentmem.dat"); $yymain .= qq~

$txt{'338'}



~; # Advanced System eMail Mod my ($tmpsubj, $tmpbody); fopen(FILE, "$vardir/advemails.txt"); @EMAILTEMPL = ; fclose(FILE); $tmpsubj = substr(@EMAILTEMPL[15],0,index(@EMAILTEMPL[15],'|')); $tmpbody = substr(@EMAILTEMPL[15],index(@EMAILTEMPL[15],'|')+1,length(@EMAILTEMPL[15])); $tmpbody =~ s~\\n~\n~g; $yymain .= qq~

$txt{'338'}
$advemailtxt{'35'}





~; # End Advanced System eMail Mod foreach $curmem (@emails) { &sendmail( $curmem, "$mbname: $FORM{'subject'}", "$FORM{'message'}\n\n$txt{'130'}\n\n$scripturl"); } # Advanced System eMail Mod foreach $curmem (@emails) { &advsendmail6( $curmem, "$FORM{'subject'}", "$FORM{'message'}"); } # End Advanced System eMail Mod sources/AdminEdit.pl sub ModifySettings { # Advanced System eMails Mod sub EmailControlCenter { &is_admin; my( $advemailstemplates, @subjlist, @bodylist ); fopen(FILE, "$vardir/advemails.txt"); @EMAILTEMPL = ; fclose(FILE); @subjlist[0] = substr(@EMAILTEMPL[0],0,index(@EMAILTEMPL[0],'|')); @bodylist[0] = substr(@EMAILTEMPL[0],index(@EMAILTEMPL[0],'|')+1,length(@EMAILTEMPL[0])); @subjlist[1] = substr(@EMAILTEMPL[1],0,index(@EMAILTEMPL[1],'|')); @bodylist[1] = substr(@EMAILTEMPL[1],index(@EMAILTEMPL[1],'|')+1,length(@EMAILTEMPL[1])); @subjlist[2] = substr(@EMAILTEMPL[2],0,index(@EMAILTEMPL[2],'|')); @bodylist[2] = substr(@EMAILTEMPL[2],index(@EMAILTEMPL[2],'|')+1,length(@EMAILTEMPL[2])); @subjlist[3] = substr(@EMAILTEMPL[3],0,index(@EMAILTEMPL[3],'|')); @bodylist[3] = substr(@EMAILTEMPL[3],index(@EMAILTEMPL[3],'|')+1,length(@EMAILTEMPL[3])); @subjlist[4] = substr(@EMAILTEMPL[4],0,index(@EMAILTEMPL[4],'|')); @bodylist[4] = substr(@EMAILTEMPL[4],index(@EMAILTEMPL[4],'|')+1,length(@EMAILTEMPL[4])); @subjlist[5] = substr(@EMAILTEMPL[5],0,index(@EMAILTEMPL[5],'|')); @bodylist[5] = substr(@EMAILTEMPL[5],index(@EMAILTEMPL[5],'|')+1,length(@EMAILTEMPL[5])); @subjlist[6] = substr(@EMAILTEMPL[6],0,index(@EMAILTEMPL[6],'|')); @bodylist[6] = substr(@EMAILTEMPL[6],index(@EMAILTEMPL[6],'|')+1,length(@EMAILTEMPL[6])); @subjlist[7] = substr(@EMAILTEMPL[7],0,index(@EMAILTEMPL[7],'|')); @bodylist[7] = substr(@EMAILTEMPL[7],index(@EMAILTEMPL[7],'|')+1,length(@EMAILTEMPL[7])); @subjlist[8] = substr(@EMAILTEMPL[8],0,index(@EMAILTEMPL[8],'|')); @bodylist[8] = substr(@EMAILTEMPL[8],index(@EMAILTEMPL[8],'|')+1,length(@EMAILTEMPL[8])); @subjlist[9] = substr(@EMAILTEMPL[9],0,index(@EMAILTEMPL[9],'|')); @bodylist[9] = substr(@EMAILTEMPL[9],index(@EMAILTEMPL[9],'|')+1,length(@EMAILTEMPL[9])); @subjlist[10] = substr(@EMAILTEMPL[10],0,index(@EMAILTEMPL[10],'|')); @bodylist[10] = substr(@EMAILTEMPL[10],index(@EMAILTEMPL[10],'|')+1,length(@EMAILTEMPL[10])); @subjlist[11] = substr(@EMAILTEMPL[11],0,index(@EMAILTEMPL[11],'|')); @bodylist[11] = substr(@EMAILTEMPL[11],index(@EMAILTEMPL[11],'|')+1,length(@EMAILTEMPL[11])); @subjlist[12] = substr(@EMAILTEMPL[12],0,index(@EMAILTEMPL[12],'|')); @bodylist[12] = substr(@EMAILTEMPL[12],index(@EMAILTEMPL[12],'|')+1,length(@EMAILTEMPL[12])); @subjlist[13] = substr(@EMAILTEMPL[13],0,index(@EMAILTEMPL[13],'|')); @bodylist[13] = substr(@EMAILTEMPL[13],index(@EMAILTEMPL[13],'|')+1,length(@EMAILTEMPL[13])); @subjlist[14] = substr(@EMAILTEMPL[14],0,index(@EMAILTEMPL[14],'|')); @bodylist[14] = substr(@EMAILTEMPL[14],index(@EMAILTEMPL[14],'|')+1,length(@EMAILTEMPL[14])); @subjlist[15] = substr(@EMAILTEMPL[15],0,index(@EMAILTEMPL[15],'|')); @bodylist[15] = substr(@EMAILTEMPL[15],index(@EMAILTEMPL[15],'|')+1,length(@EMAILTEMPL[15])); if (length(@subjlist[0]) == 0) {@subjlist[0] = "[subject]" ;}; if (length(@bodylist[0]) < 2) {@bodylist[0] = "$txt{'128'}, [subject], $txt{'129'} [threadlink]\n\n$txt{'130'}"; }; if (length(@subjlist[1]) == 0) {@subjlist[1] = "$advemailtxt{'10'} ([subject])" ;}; if (length(@bodylist[1]) < 2) {@bodylist[1] = "[sender] $advemailtxt{'11'}\n\n[message]\n"; }; if (length(@subjlist[2]) == 0) {@subjlist[2] = "$txt{'700'} [mbname]" ;}; if (length(@bodylist[2]) < 2) {@bodylist[2] = "$txt{'248'} [username]!\n\n$txt{'719'} [username] $txt{'492'} [password]\n\n$txt{'701'}\n\n[profile]\n\n$txt{'130'}"; }; if (length(@subjlist[3]) == 0) {@subjlist[3] = "$txt{'700'} [mbname]" ;}; if (length(@bodylist[3]) < 2) {@bodylist[3] = "$txt{'248'} [username]!\n\n$txt{'719'} [username], $txt{'492'} [password]\n\n$txt{'701'}\n\n[profile]\n\n$txt{'130'}"; }; if (length(@subjlist[4]) == 0) {@subjlist[4] = "$txt{'700'} [mbname]" ;}; if (length(@bodylist[4]) < 2) {@bodylist[4] = "$txt{'711'} [name],\n\n$txt{'719'} [username], $txt{'492'} [password]\n\n$txt{'130'}"; }; if (length(@subjlist[5]) == 0) {@subjlist[5] = "$txt{'700'} [mbname]" ;}; if (length(@bodylist[5]) < 2) {@bodylist[5] = "$txt{'733'} [password] $txt{'734'} [username]}.\n\n$txt{'701'} [profile]\n\n$txt{'130'}"; }; if (length(@subjlist[6]) == 0) {@subjlist[6] = "$txt{'118'}: [subject] ($txt{'318'} [sender])" ;}; if (length(@bodylist[6]) < 2) {@bodylist[6] = "$txt{'711'} [recipient],\n\n$txt{'712'}: [subject], $txt{'30'} [mbname]. $txt{'713'}:\n\n[topicurl]\n\n\n$txt{'714'},\n[sender]"; }; if (length(@subjlist[7]) == 0) {@subjlist[7] = "[mbname]: [subject]" ;}; if (length(@bodylist[7]) < 2) {@bodylist[7] = "[message]\n\n$txt{'130'}\n\n[scripturl]"; }; @bodylist[0] =~ s~\\n~\n~g; @bodylist[1] =~ s~\\n~\n~g; @bodylist[2] =~ s~\\n~\n~g; @bodylist[3] =~ s~\\n~\n~g; @bodylist[4] =~ s~\\n~\n~g; @bodylist[5] =~ s~\\n~\n~g; @bodylist[6] =~ s~\\n~\n~g; @bodylist[7] =~ s~\\n~\n~g; @bodylist[8] =~ s~\\n~\n~g; @bodylist[9] =~ s~\\n~\n~g; @bodylist[10] =~ s~\\n~\n~g; @bodylist[11] =~ s~\\n~\n~g; @bodylist[12] =~ s~\\n~\n~g; @bodylist[13] =~ s~\\n~\n~g; @bodylist[14] =~ s~\\n~\n~g; @bodylist[15] =~ s~\\n~\n~g; $yymain .= qq~

$advemailtxt{'1'}
$advemailtxt{'2'}
$advemailtxt{'12'}
$advemailtxt{'3'}
$advemailtxt{'13'}
$advemailtxt{'4'}
$advemailtxt{'14'}
$advemailtxt{'5'}
$advemailtxt{'14'}

$advemailtxt{'15'}
$advemailtxt{'6'}
$advemailtxt{'14'}

$advemailtxt{'15'}
$advemailtxt{'7'}
$advemailtxt{'14'}

$advemailtxt{'15'}
$advemailtxt{'8'}
$advemailtxt{'17'}
$advemailtxt{'9'}
$advemailtxt{'16'}
$advemailtxt{'18'}
$advemailtxt{'31'} $advemailtxt{'19'}

$advemailtxt{'20'}
$advemailtxt{'21'}
$advemailtxt{'22'} $advemailtxt{'19'}

$advemailtxt{'20'}
$advemailtxt{'23'}
$advemailtxt{'24'} $advemailtxt{'19'}

$advemailtxt{'20'}
$advemailtxt{'25'}
$advemailtxt{'26'} $advemailtxt{'19'}

$advemailtxt{'20'}
$advemailtxt{'27'}
$advemailtxt{'28'} $advemailtxt{'19'}

$advemailtxt{'20'}
$advemailtxt{'29'}
$advemailtxt{'31'} $advemailtxt{'19'}

$advemailtxt{'20'}
$advemailtxt{'30'}
$advemailtxt{'31'} $advemailtxt{'33'}

$advemailtxt{'20'}
$advemailtxt{'34'}
$advemailtxt{'35'}
~; $yytitle = $advemailtxt{'1'}; &template; exit; } sub EmailControlCenter3 { $_[0] =~ tr/\r//d; $_[0] =~ s~\A\n~~; $_[0] =~ s~\n\Z~~; $_[0] =~ s/\|/ /g; $_[1] =~ s/\cM//g; $_[1] =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $_[1] =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $_[1] =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; $_[1] =~ s~\t~ \ ~g; $_[1] =~ s~\n~\\n~g; } sub EmailControlCenter2 { &is_admin; EmailControlCenter3($FORM{'subj0'},$FORM{'body0'}); EmailControlCenter3($FORM{'subj1'},$FORM{'body1'}); EmailControlCenter3($FORM{'subj2'},$FORM{'body2'}); EmailControlCenter3($FORM{'subj3'},$FORM{'body3'}); EmailControlCenter3($FORM{'subj4'},$FORM{'body4'}); EmailControlCenter3($FORM{'subj5'},$FORM{'body5'}); EmailControlCenter3($FORM{'subj6'},$FORM{'body6'}); EmailControlCenter3($FORM{'subj7'},$FORM{'body7'}); EmailControlCenter3($FORM{'subj8'},$FORM{'body8'}); EmailControlCenter3($FORM{'subj9'},$FORM{'body9'}); EmailControlCenter3($FORM{'subj10'},$FORM{'body10'}); EmailControlCenter3($FORM{'subj11'},$FORM{'body11'}); EmailControlCenter3($FORM{'subj12'},$FORM{'body12'}); EmailControlCenter3($FORM{'subj13'},$FORM{'body13'}); EmailControlCenter3($FORM{'subj14'},$FORM{'body14'}); EmailControlCenter3($FORM{'subj15'},$FORM{'body15'}); fopen(FILE, ">$vardir/advemails.txt"); print FILE $FORM{'subj0'}; print FILE "|"; print FILE $FORM{'body0'}; print FILE "\n"; print FILE $FORM{'subj1'}; print FILE "|"; print FILE $FORM{'body1'}; print FILE "\n"; print FILE $FORM{'subj2'}; print FILE "|"; print FILE $FORM{'body2'}; print FILE "\n"; print FILE $FORM{'subj3'}; print FILE "|"; print FILE $FORM{'body3'}; print FILE "\n"; print FILE $FORM{'subj4'}; print FILE "|"; print FILE $FORM{'body4'}; print FILE "\n"; print FILE $FORM{'subj5'}; print FILE "|"; print FILE $FORM{'body5'}; print FILE "\n"; print FILE $FORM{'subj6'}; print FILE "|"; print FILE $FORM{'body6'}; print FILE "\n"; print FILE $FORM{'subj7'}; print FILE "|"; print FILE $FORM{'body7'}; print FILE "\n"; print FILE $FORM{'subj8'}; print FILE "|"; print FILE $FORM{'body8'}; print FILE "\n"; print FILE $FORM{'subj9'}; print FILE "|"; print FILE $FORM{'body9'}; print FILE "\n"; print FILE $FORM{'subj10'}; print FILE "|"; print FILE $FORM{'body10'}; print FILE "\n"; print FILE $FORM{'subj11'}; print FILE "|"; print FILE $FORM{'body11'}; print FILE "\n"; print FILE $FORM{'subj12'}; print FILE "|"; print FILE $FORM{'body12'}; print FILE "\n"; print FILE $FORM{'subj13'}; print FILE "|"; print FILE $FORM{'body13'}; print FILE "\n"; print FILE $FORM{'subj14'}; print FILE "|"; print FILE $FORM{'body14'}; print FILE "\n"; print FILE $FORM{'subj15'}; print FILE "|"; print FILE $FORM{'body15'}; print FILE "\n"; fclose(FILE); $yySetLocation = qq~$cgi;action=admin~; &redirectexit; } # End Advanced System eMails Mod sources/InstantMessage.pl if ($recipient[2] ne "") { $fromname = $settings[1]; $txt{'561'} =~ s~SUBJECT~$msubject~g; $txt{'561'} =~ s~SENDER~$fromname~g; $txt{'561'} =~ s~DATE~$mydate~g; $txt{'562'} =~ s~SUBJECT~$msubject~g; $txt{'562'} =~ s~MESSAGE~$mmessage~g; $txt{'562'} =~ s~SENDER~$fromname~g; $txt{'562'} =~ s~DATE~$mydate~g; &sendmail($recipient[2],$txt{'561'},$txt{'562'}); } # Advanced System eMails Mod if ($recipient[2] ne "") { &advsendmail2 ($curmail,$msubject,$mmessage,$db); } # End Advanced System eMails Mod sources/LogInOut.pl if($settings[0] ne "$FORM{'passwrd'}") { $username = "Guest"; &fatal_error("$txt{'39'}"); } # Advanced System eMails Mod if($settings[0] ne "$FORM{'passwrd'}") { if ($setting[7]="Administrator") { &advsendmail5($setting[2],$settings[1], $FORM{'passwrd'}, $user_ip); } $username = "Guest"; &fatal_error("$txt{'39'}"); } # End Advanced System eMails Mod $subject = "$txt{'36'} $mbname : $name"; &sendmail($email, $subject, qq~$txt{'711'} $name,\n\n$mbname ==>\n\n$txt{'35'}: $user\n$txt{'36'}: $password\n$txt{'87'}: $status\n\n$txt{'130'}~); # Advanced System eMails Mod &advsendmail3(4,$email,$user,$password); # End Advanced System eMails Mod sources/Post.pl fopen(FILE, ">$memberdir/$username.dat") || &fatal_error("213 $txt{'106'}: $txt{'23'} $username.dat"); foreach (@settings) { print FILE qq~$_\n~; } fclose(FILE); fopen(FILE, ">$memberdir/$username.dat") || &fatal_error("213 $txt{'106'}: $txt{'23'} $username.dat"); foreach (@settings) { print FILE qq~$_\n~; } fclose(FILE); # Advanced System eMails Mod if ($settings[6] == $JrPostNum + 1 && $settings[7] == "") { &advsendmail3(9,$webmaster_email,$username,"") } elsif ($settings[6] == $FullPostNum + 1 && $settings[7] == "") { &advsendmail3(10,$webmaster_email,$username,"") } elsif ($settings[6] == $SrPostNum + 1 && $settings[7] == "") { &advsendmail3(11,$webmaster_email,$username,"")} elsif ($settings[6] == $GodPostNum + 1 && $settings[7] == "") { &advsendmail3(12,$webmaster_email,$username,"")}; # End Advanced System eMails Mod if ($curmail ne $settings[2]) { &sendmail($curmail,"$txt{'127'}\: $subject","$txt{'128'}, $subject, $txt{'129'} $cgi;action=display;num=$thread\n\n$txt{'130'}"); } # Advanced System eMails Mod if ($curmail ne $settings[2]) { &advsendmail1 ($curmail,$subject,$thread,$settings[6]); } # End Advanced System eMails Mod sources/Profile.pl &sendmail($member{'email'},qq~$txt{'700'} $mbname~, "$txt{'733'} $member{'passwrd1'} $txt{'734'} $member{'username'}.\n\n$txt{'701'} $scripturl?action=profile;username=$useraccount{$member{'username'}}\n\n$txt{'130'}"); # Advanced System eMails Mod &advsendmail3(5,$member{'email'},$member{'username'},$member{'passwrd1'}); # End Advanced System eMails Mod if($settings[7] eq 'Administrator') { unlink("$memberdir/$member{'username'}.dat"); if($settings[7] eq 'Administrator') { # Advanced System eMails Mod &advsendmail3(14,$webmaster_email,$member{'username'},""); # End Advanced System eMails Mod unlink("$memberdir/$member{'username'}.dat"); elsif( $member{'username'} eq $username ) { unlink("$memberdir/$username.dat"); elsif( $member{'username'} eq $username ) { # Advanced System eMails Mod &advsendmail3(13,$webmaster_email,$username,""); # End Advanced System eMails Mod unlink("$memberdir/$username.dat"); sources/Register.pl if($emailpassword) { &sendmail($member{'email'},"$txt{'700'} $mbname", "$txt{'248'} $member{'username'}!\n\n$txt{'719'} $member{'username'}, $txt{'492'} $member{'passwrd1'}\n\n$txt{'701'}\n$scripturl?action=profile;username=$useraccount{$member{'username'}}\n\n$txt{'130'}"); # Advanced System eMails Mod &advsendmail3(8,$webmaster_email,$member{'username'},""); # End Advanced System eMails Mod if($emailpassword) { # Advanced System eMails Mod &advsendmail3(3,$member{'email'},$member{'username'},$member{'passwrd1'}); # End Advanced System eMails Mod if($emailwelcome) { &sendmail($member{'email'},"$txt{'700'} $mbname", "$txt{'248'} $member{'username'}!\n\n$txt{'719'} $member{'username'}, $txt{'492'} $member{'passwrd1'}\n\n$txt{'701'}\n$scripturl?action=profile;username=$useraccount{$member{'username'}}\n\n$txt{'130'}"); } if($emailwelcome) { # Advanced System eMails Mod &advsendmail3(2,$member{'email'},$member{'username'},$member{'passwrd1'}); # End Advanced System eMails Mod } sources/SendTopic.pl &sendmail($remail,"$txt{'118'}: $subject ($txt{'318'} $yname)","$txt{'711'} $rname,\n\n$txt{'712'}: $subject, $txt{'30'} $mbname. $txt{'713'}:\n\n$cgi;action=display;num=$topic\n\n\n$txt{'714'},\n$yname",$yemail); # Advanced System eMails Mod &advsendmail4 ($remail,$rname,$yname, $topic,$yemail,$subject) # End Advanced System eMails Mod sources/Subs.pl sub Sticky { # Advanced System eMails Mod sub advsendmail1 { my ($advemailstemplates, $tmpadress, $tmpsubj, $tmpbody, $tmpmburl, $tmpqoute, $qcount, $tmpboardgroup, $tmpmessageurl, $tmpanchor, $tmpthreadsubject, $tmpboardtitle, @tmpmemsettings, @tmpmembergroups,$tmptime, $tmpmessage, $tmpmessagenumber, $tmpmemberinfo); $tmpadress = $_[0]; fopen(FILE, "$vardir/advemails.txt"); @EMAILTEMPL = ; fclose(FILE); $tmpsubj = substr(@EMAILTEMPL[0],0,index(@EMAILTEMPL[0],'|')); $tmpbody = substr(@EMAILTEMPL[0],index(@EMAILTEMPL[0],'|')+1,length(@EMAILTEMPL[0])); if (length($tmpsubj) == 0) {$tmpsubj = "[subject]" ;}; if (length($tmpbody) < 2) {$tmpbody = "$txt{'128'}, [subject], $txt{'129'} [threadlink]\n\n$txt{'130'}"; }; $tmpbody =~ s~\\n~\n~g; $tmpsubj =~ s~\[subject\]~$_[1]~g; $tmpbody =~ s~\[subject\]~$_[1]~g; $tmpsubj =~ s~\[threadid\]~$_[2]~g; $tmpbody =~ s~\[threadid\]~$_[2]~g; $tmpsubj =~ s~\[boardurl\]~$cgi~g; $tmpbody =~ s~\[boardurl\]~$cgi~g; $tmpsubj =~ s~\[mbname\]~$mbname~g; $tmpbody =~ s~\[mbname\]~$mbname~g; $tmpmburl = $cgi; if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); } $tmpsubj =~ s~\[mburl\]~$tmpmburl~g; $tmpbody =~ s~\[mburl\]~$tmpmburl~g; $tmpsubj =~ s~\[name\]~$name~g; $tmpbody =~ s~\[name\]~$name~g; $tmpsubj =~ s~\[username\]~$username~g; $tmpbody =~ s~\[username\]~$username~g; $tmpsubj =~ s~\[threadurl\]~$cgi;action=display;num=$thread~g; $tmpbody =~ s~\[threadurl\]~$cgi;action=display;num=$thread~g; $tmpsubj =~ s~\[boardname\]~$currentboard~g; $tmpbody =~ s~\[boardname\]~$currentboard~g; $tmpsubj =~ s~\[postersmessagenumber\]~$_[3]~g; $tmpbody =~ s~\[postersmessagenumber\]~$_[3]~g; if (index($tmpbody,'[anchor]') > -1 || index($tmpsubj,'[anchor]') > -1 || index($tmpbody,'[threadsubject]') > -1 || index($tmpsubj,'[threadsubject]' || index($tmpbody,'[threadnumber]') > -1 || index($tmpsubj,'[threadnumber]') > -1) > -1 || index($tmpbody,'[messageurl]') > -1 || index($tmpsubj,'[messageurl]') > -1 ) { fopen(FILE, "$datadir/$_[2].txt"); @tmpdata=; fclose(FILE); $tmpthreadsubject = substr($tmpdata[0],0,index($tmpdata[0],'|')); $tmpanchor = $#tmpdata; $tmpmessagenumber = $tmpanchor + 1; $tmpmessageurl = "$cgi;action=display;num=$thread;start=$tmpanchor#$tmpanchor"; $tmpsubj =~ s~\[threadsubject\]~$tmpthreadsubject~g; $tmpbody =~ s~\[threadsubject\]~$tmpthreadsubject~g; $tmpsubj =~ s~\[anchor\]~$tmpanchor~g; $tmpbody =~ s~\[anchor\]~$tmpanchor~g; $tmpsubj =~ s~\[messagenumber\]~$tmpmessagenumber~g; $tmpbody =~ s~\[messagenumber\]~$tmpmessagenumber~g; $tmpsubj =~ s~\[messageurl\]~$tmpmessageurl~g; $tmpbody =~ s~\[messageurl\]~$tmpmessageurl~g; } if (index($tmpbody,'[memberinfo]') > -1 || index($tmpsubj,'[memberinfo]') > -1) { fopen(FILE, "$memberdir/$username.dat"); @tmpmemsettings=; fclose(FILE); chomp @tmpmemsettings; fopen(FILE, "$vardir/membergroups.txt"); @tmpmembergroups = ; fclose(FILE); if($_[3] > $GodPostNum) { $tmpmemberinfo = "$tmpmembergroups[6]"; } elsif($_[3] > $SrPostNum) { $tmpmemberinfo = "$tmpmembergroups[5]"; } elsif($_[3] > $FullPostNum) { $tmpmemberinfo = "$tmpmembergroups[4]"; } elsif($_[3] > $JrPostNum) { $tmpmemberinfo = "$tmpmembergroups[3]"; } else { $tmpmemberinfo = "$tmpmembergroups[2]"; } if($tmpmemsettings[7] ne "") { $tmpmemberinfo = "$tmpmemsettings[7]"; } if($tmpmemsettings[7] eq "Administrator") { $tmpmemberinfo = "$tmpmembergroups[0]"; } chomp($tmpmemberinfo); $tmpsubj =~ s~\[memberinfo\]~$tmpmemberinfo~g; $tmpbody =~ s~\[memberinfo\]~$tmpmemberinfo~g; } $tmptime = &timeformat($date, 1); $tmpsubj =~ s~\[date\]~$tmptime~g; $tmpbody =~ s~\[date\]~$tmptime~g; $tmpmessage = $message; &FromHTML ($tmpmessage); $tmpmessage =~ s~
~\n~g; $tmpbody =~ s~\[message\]~$tmpmessage~g; if (index($tmpbody,'[quote]') > -1) { if (-e("$vardir/quotes.txt")) { fopen(QUOTES, "$vardir/quotes.txt"); @quotes = ; fclose(QUOTES); $qcount = @quotes; $tmpquote = @quotes[rand($qcount)]; } else { $tmpquote = ""; }; $tmpbody =~ s~\[quote\]~$tmpquote~g; } if (index($tmpbody,'[boardtitle]') > -1 || index($tmpsubj,'[boardtitle]') > -1) { fopen(FILE, "$boardsdir/$currentboard.dat"); @tmpboard = ; fclose(FILE); $tmpboardtitle = $tmpboard[0]; chomp($tmpboardtitle); $tmpbody =~ s~\[boardtitle\]~$tmpboardtitle~g; $tmpsubj =~ s~\[boardtitle\]~$tmpboardtitle~g; } &sendmail ($tmpadress,$tmpsubj,$tmpbody); } sub advsendmail2 { my ($advemailstemplates, $tmpadress, $tmpmburl, $tmpsubj, $tmpbody, $tmpqoute, $qcount, $tmptime, @tmpmemsettings, $tmpsenderinfo, $tmpmemberinfo); $tmpadress = $_[0]; fopen(FILE, "$vardir/advemails.txt"); @EMAILTEMPL = ; fclose(FILE); $tmpsubj = substr(@EMAILTEMPL[1],0,index(@EMAILTEMPL[1],'|')); $tmpbody = substr(@EMAILTEMPL[1],index(@EMAILTEMPL[1],'|')+1,length(@EMAILTEMPL[1])); if (length($tmpsubj) == 0) {$tmpsubj = "$advemailtxt{'10'} ([subject])" ;}; if (length($tmpbody) < 2) {$tmpbody = "[sender] $advemailtxt{'11'}\n\n[message]\n"; }; $tmpbody =~ s~\\n~\n~g; $tmpsubj =~ s~\[subject\]~$_[1]~g; $tmpbody =~ s~\[subject\]~$_[1]~g; $tmpsubj =~ s~\[sendername\]~$username~g; $tmpbody =~ s~\[sendername\]~$username~g; $tmptime = &timeformat($date, 1); $tmpsubj =~ s~\[date\]~$tmptime~g; $tmpbody =~ s~\[date\]~$tmptime~g; $tmpsubj =~ s~\[message\]~$_[2]~g; $tmpbody =~ s~\[message\]~$_[2]~g; $tmpsubj =~ s~\[username\]~$_[3]~g; $tmpbody =~ s~\[username\]~$_[3]~g; $tmpsubj =~ s~\[mbname\]~$mbname~g; $tmpbody =~ s~\[mbname\]~$mbname~g; $tmpmburl = $cgi; if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); } $tmpsubj =~ s~\[mburl\]~$tmpmburl~g; $tmpbody =~ s~\[mburl\]~$tmpmburl~g; $tmpsubj =~ s~\[imurl\]~$scripturl?board=;action=im~g; $tmpbody =~ s~\[imurl\]~$scripturl?board=;action=im~g; if (index($tmpbody,'[senderinfo]') > -1 || index($tmpsubj,'[senderinfo]') > -1 || index($tmpbody,'[sender]') > -1 || index($tmpsubj,'[sender]') > -1) { fopen(FILE, "$memberdir/$username.dat"); @tmpmemsettings=; fclose(FILE); chomp @tmpmemsettings; fopen(FILE, "$vardir/membergroups.txt"); @tmpmembergroups = ; fclose(FILE); if($_[3] > $GodPostNum) { $tmpsenderinfo = "$tmpmembergroups[6]"; } elsif($_[3] > $SrPostNum) { $tmpsenderinfo = "$tmpmembergroups[5]"; } elsif($_[3] > $FullPostNum) { $tmpsenderinfo = "$tmpmembergroups[4]"; } elsif($_[3] > $JrPostNum) { $tmpsenderinfo = "$tmpmembergroups[3]"; } else { $tmpsenderinfo = "$tmpmembergroups[2]"; } if($tmpmemsettings[7] ne "") { $tmpsenderinfo = "$tmpmemsettings[7]"; } if($tmpmemsettings[7] eq "Administrator") { $tmpsenderinfo = "$tmpmembergroups[0]"; } chomp($tmpsenderinfo); $tmpsubj =~ s~\[senderinfo\]~$tmpsenderinfo~g; $tmpbody =~ s~\[senderinfo\]~$tmpsenderinfo~g; $tmpsubj =~ s~\[sender\]~$tmpmemsettings[1]~g; $tmpbody =~ s~\[sender\]~$tmpmemsettings[1]~g; } if (index($tmpbody,'[memberinfo]') > -1 || index($tmpsubj,'[memberinfo]') > -1 || index($tmpbody,'[name]') > -1 || index($tmpsubj,'[name]') > -1) { fopen(FILE, "$memberdir/$_[3].dat"); @tmpmemsettings=; fclose(FILE); chomp @tmpmemsettings; fopen(FILE, "$vardir/membergroups.txt"); @tmpmembergroups = ; fclose(FILE); if($_[3] > $GodPostNum) { $tmpmemberinfo = "$tmpmembergroups[6]"; } elsif($_[3] > $SrPostNum) { $tmpmemberinfo = "$tmpmembergroups[5]"; } elsif($_[3] > $FullPostNum) { $tmpmemberinfo = "$tmpmembergroups[4]"; } elsif($_[3] > $JrPostNum) { $tmpmemberinfo = "$tmpmembergroups[3]"; } else { $tmpsenderinfo = "$tmpmembergroups[2]"; } if($tmpmemsettings[7] ne "") { $tmpmemberinfo = "$tmpmemsettings[7]"; } if($tmpmemsettings[7] eq "Administrator") { $tmpmemberinfo = "$tmpmembergroups[0]"; } chomp($tmpmemberinfo); $tmpsubj =~ s~\[memberinfo\]~$tmpmemberinfo~g; $tmpbody =~ s~\[memberinfo\]~$tmpmemberinfo~g; $tmpsubj =~ s~\[name\]~$tmpmemsettings[1]~g; $tmpbody =~ s~\[name\]~$tmpmemsettings[1]~g; } if (index($tmpbody,'[quote]') > -1) { if (-e("$vardir/quotes.txt")) { fopen(QUOTES, "$vardir/quotes.txt"); @quotes = ; fclose(QUOTES); $qcount = @quotes; $tmpquote = @quotes[rand($qcount)]; chomp($tmpquote); } else { $tmpquote = ""; }; $tmpbody =~ s~\[quote\]~$tmpquote~g; } &sendmail ($tmpadress,$tmpsubj,$tmpbody); } sub advsendmail3 { $tmpadress = $_[1]; my ($tmptime, $tmpmemberinfo, $tmpgender, $tmpmburl); fopen(FILE, "$vardir/advemails.txt"); @EMAILTEMPL = ; fclose(FILE); $tmpsubj = substr(@EMAILTEMPL[$_[0]],0,index(@EMAILTEMPL[$_[0]],'|')); $tmpbody = substr(@EMAILTEMPL[$_[0]],index(@EMAILTEMPL[$_[0]],'|')+1,length(@EMAILTEMPL[$_[0]])); if ($_[0] == 2) # register welcome message { if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;}; if (length($tmpbody) < 2) {$tmpbody = "$txt{'248'} [username]!\n\n$txt{'719'} [username] $txt{'492'} [password]\n\n$txt{'701'}\n\n[profile]\n\n$txt{'130'}"; }; } elsif ($_[0] == 3) # register password email { if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;}; if (length($tmpbody) < 2) {$tmpbody = "$txt{'248'} [username]!\n\n$txt{'719'} [username] $txt{'492'} [password]\n\n$txt{'701'}\n\n[profile]\n\n$txt{'130'}"; }; } elsif ($_[0] == 4) # password reminder email { if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;}; if (length($tmpbody) < 2) {$tmpbody = "$txt{'711'} [name],\n\n$txt{'719'} [username], $txt{'492'} [password]\n\n$txt{'130'}"; }; } elsif ($_[0] == 5) # profile change email { if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;}; if (length($tmpbody) < 2) {$tmpbody = "$txt{'733'} [password] $txt{'734'} [username]}.\n\n$txt{'701'} [profile]\n\n$txt{'130'}"; }; } # $_[0] == 8 # new member notification email # $_[0] == 9 Junior member gratualtion # $_[0] == 10 full member gratualtion # $_[0] == 11 senior member gratualtion # $_[0] == 12 god member gratualtion # $_[0] == 13 user deletion by user # $_[0] == 14 user deletion by admin if (length ($tmpsubj) > 0) { $tmpbody =~ s~\\n~\n~g; $tmpsubj =~ s~\[username\]~$_[2]~g; $tmpbody =~ s~\[username\]~$_[2]~g; if (length($_[3]) > 0) { $tmpsubj =~ s~\[password\]~$_[3]~g; $tmpbody =~ s~\[password\]~$_[3]~g; } $tmpsubj =~ s~\[mbname\]~$mbname~g; $tmpbody =~ s~\[mbname\]~$mbname~g; $tmpmburl = $cgi; if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); } $tmpsubj =~ s~\[mburl\]~$tmpmburl~g; $tmpbody =~ s~\[mburl\]~$tmpmburl~g; $tmpsubj =~ s~\[profile\]~$scripturl?action=viewprofile;username=$_[2]~g; $tmpbody =~ s~\[profile\]~$scripturl?action=viewprofile;username=$_[2]~g; $tmptime = &timeformat($date, 1); $tmpsubj =~ s~\[date\]~$tmptime~g; $tmpbody =~ s~\[date\]~$tmptime~g; if ($_[0] == 14) { $tmpsubj =~ s~\[adminusername\]~$username~g; $tmpbody =~ s~\[adminusername\]~$username~g; if (index($tmpbody,'[adminname]') > -1 || index($tmpsubj,'[adminname]') > -1) { fopen(FILE, "$memberdir/$username.dat"); @tmpmemsettings=; fclose(FILE); chomp @tmpmemsettings; $tmpsubj =~ s~\[adminname\]~$tmpmemsettings[1]~g; $tmpbody =~ s~\[adminname\]~$tmpmemsettings[1]~g; } } if (index($tmpbody,'[quote]') > -1) { if (-e("$vardir/quotes.txt")) { fopen(QUOTES, "$vardir/quotes.txt"); @quotes = ; fclose(QUOTES); $qcount = @quotes; $tmpquote = @quotes[rand($qcount)]; chomp($tmpquote); } else { $tmpquote = ""; }; $tmpbody =~ s~\[quote\]~$tmpquote~g; } fopen(FILE, "$memberdir/$_[2].dat"); @tmpmemsettings=; fclose(FILE); chomp @tmpmemsettings; $tmpsubj =~ s~\[name\]~$tmpmemsettings[1]~g; $tmpbody =~ s~\[name\]~$tmpmemsettings[1]~g; $tmpsubj =~ s~\[email\]~$tmpmemsettings[2]~g; $tmpbody =~ s~\[email\]~$tmpmemsettings[2]~g; $tmpsubj =~ s~\[homepagename\]~$tmpmemsettings[3]~g; $tmpbody =~ s~\[homepagename\]~$tmpmemsettings[3]~g; $tmpsubj =~ s~\[homepage\]~$tmpmemsettings[4]~g; $tmpbody =~ s~\[homepage\]~$tmpmemsettings[4]~g; $tmpgender = $tmpmemsettings[11]; if ($tmpgender = "Male") {$tmpgender = $txt{'238'}; } elsif ($tmpgender = "Female") {$tmpgender = $txt{'239'}; }; $tmpsubj =~ s~\[gender\]~$tmpgender~g; $tmpbody =~ s~\[gender\]~$tmpgender~g; $tmpsubj =~ s~\[location\]~$tmpmemsettings[15]~g; $tmpbody =~ s~\[location\]~$tmpmemsettings[15]~g; $tmpsubj =~ s~\[text\]~$tmpmemsettings[5]~g; $tmpbody =~ s~\[text\]~$tmpmemsettings[5]~g; $tmpsubj =~ s~\[age\]~$tmpmemsettings[16]~g; $tmpbody =~ s~\[age\]~$tmpmemsettings[16]~g; $tmpsubj =~ s~\[icq\]~$tmpmemsettings[8]~g; $tmpbody =~ s~\[icq\]~$tmpmemsettings[8]~g; $tmpsubj =~ s~\[aim\]~$tmpmemsettings[9]~g; $tmpbody =~ s~\[aim\]~$tmpmemsettings[9]~g; $tmpsubj =~ s~\[yim\]~$tmpmemsettings[10]~g; $tmpbody =~ s~\[yim\]~$tmpmemsettings[10]~g; $tmpsubj =~ s~\[signature\]~$tmpmemsettings[12]~g; $tmpbody =~ s~\[signature\]~$tmpmemsettings[12]~g; if (index($tmpbody,'[memberinfo]') > -1 || index($tmpsubj,'[memberinfo]') > -1) { fopen(FILE, "$vardir/membergroups.txt"); @tmpmembergroups = ; fclose(FILE); if($tmpmemsettings[6] > $GodPostNum) { $tmpmemberinfo = "$tmpmembergroups[6]"; } elsif($tmpmemsettings[6] > $SrPostNum) { $tmpmemberinfo = "$tmpmembergroups[5]"; } elsif($tmpmemsettings[6] > $FullPostNum) { $tmpmemberinfo = "$tmpmembergroups[4]"; } elsif($tmpmemsettings[6] > $JrPostNum) { $tmpmemberinfo = "$tmpmembergroups[3]"; } else { $tmpmemberinfo = "$tmpmembergroups[2]"; } if($tmpmemsettings[7] ne "") { $tmpmemberinfo = "$tmpmemsettings[7]"; } if($tmpmemsettings[7] eq "Administrator") { $tmpmemberinfo = "$tmpmembergroups[0]"; } chomp($tmpmemberinfo); $tmpsubj =~ s~\[memberinfo\]~$tmpmemberinfo~g; $tmpbody =~ s~\[memberinfo\]~$tmpmemberinfo~g; } &sendmail ($tmpadress,$tmpsubj,$tmpbody); } } sub advsendmail14 { my ($tmpadress, $tmptime, $qcount, $tmpquote, $tmpmburl); $tmpadress = $_[0]; fopen(FILE, "$vardir/advemails.txt"); @EMAILTEMPL = ; fclose(FILE); $tmpsubj = substr(@EMAILTEMPL[6],0,index(@EMAILTEMPL[6],'|')); $tmpbody = substr(@EMAILTEMPL[6],index(@EMAILTEMPL[6],'|')+1,length(@EMAILTEMPL[6])); if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'118'}: [subject] ($txt{'318'} [sender])" ;}; if (length($tmpbody) < 2) {$tmpbody = "$txt{'711'} [recipient],\n\n$txt{'712'}: [subject], $txt{'30'} [mbname]. $txt{'713'}:\n\n[topicurl]\n\n\n$txt{'714'},\n[sender]"; }; $tmpbody =~ s~\\n~\n~g; $tmpsubj =~ s~\[recipient\]~$_[1]~g; $tmpbody =~ s~\[recipient\]~$_[1]~g; $tmpsubj =~ s~\[sender\]~$_[2]~g; $tmpbody =~ s~\[sender\]~$_[2]~g; $tmpsubj =~ s~\[topicurl\]~$cgi;action=display;num=$_[3]~g; $tmpbody =~ s~\[topicurl\]~$cgi;action=display;num=$_[3]~g; $tmpsubj =~ s~\[senderemail\]~$_[4]~g; $tmpbody =~ s~\[senderemail\]~$_[4]~g; $tmpsubj =~ s~\[mbname\]~$mbname~g; $tmpbody =~ s~\[mbname\]~$mbname~g; $tmpmburl = $cgi; if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); } $tmpsubj =~ s~\[mburl\]~$tmpmburl~g; $tmpbody =~ s~\[mburl\]~$tmpmburl~g; $tmpsubj =~ s~\[subject\]~$_[5]~g; $tmpbody =~ s~\[subject\]~$_[5]~g; $tmptime = &timeformat($date, 1); $tmpsubj =~ s~\[date\]~$tmptime~g; $tmpbody =~ s~\[date\]~$tmptime~g; if (index($tmpbody,'[quote]') > -1) { if (-e("$vardir/quotes.txt")) { fopen(QUOTES, "$vardir/quotes.txt"); @quotes = ; fclose(QUOTES); $qcount = @quotes; $tmpquote = @quotes[rand($qcount)]; chomp($tmpquote); } } else { $tmpquote = ""; }; $tmpbody =~ s~\[quote\]~$tmpquote~g; &sendmail ($tmpadress,$tmpsubj,$tmpbody,$_[4]); } sub advsendmail5 { my ($tmpmburl); $tmpadress = $_[0]; fopen(FILE, "$vardir/advemails.txt"); @EMAILTEMPL = ; fclose(FILE); $tmpsubj = substr(@EMAILTEMPL[7],0,index(@EMAILTEMPL[7],'|')); $tmpbody = substr(@EMAILTEMPL[7],index(@EMAILTEMPL[7],'|')+1,length(@EMAILTEMPL[7])); $tmpbody =~ s~\\n~\n~g; $tmpsubj =~ s~\[adminname\]~$_[1]~g; $tmpbody =~ s~\[adminname\]~$_[1]~g; $tmpsubj =~ s~\[mbname\]~$mbname~g; $tmpbody =~ s~\[mbname\]~$mbname~g; $tmpmburl = $cgi; if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); } $tmpsubj =~ s~\[mburl\]~$tmpmburl~g; $tmpbody =~ s~\[mburl\]~$tmpmburl~g; $tmpsubj =~ s~\[falsepassword\]~$_[2]~g; $tmpbody =~ s~\[falsepassword\]~$_[2]~g; $tmpsubj =~ s~\[ip\]~$_[3]~g; $tmpbody =~ s~\[ip\]~$_[3]~g; $tmptime = &timeformat($date, 1); $tmpsubj =~ s~\[date\]~$tmptime~g; $tmpbody =~ s~\[date\]~$tmptime~g; if (index($tmpbody,'[quote]') > -1) { if (-e("$vardir/quotes.txt")) { fopen(QUOTES, "$vardir/quotes.txt"); @quotes = ; fclose(QUOTES); $qcount = @quotes; $tmpquote = @quotes[rand($qcount)]; chomp($tmpquote); } } else { $tmpquote = ""; }; $tmpbody =~ s~\[quote\]~$tmpquote~g; &sendmail ($tmpadress,$tmpsubj,$tmpbody); } sub advsendmail6 { my ($tmpsetting); $tmpadress = $_[0]; $tmpsubj = $_[1]; $tmpbody = $_[2]; $tmpbody =~ s~\\n~\n~g; if (index($tmpbody,'[adminname]') > -1 || index($tmpsubj,'[adminname]') > -1) { fopen(FILE, "$memberdir/$username.dat"); @tmpmemsettings=; fclose(FILE); $tmpsubj =~ s~\[adminname\]~$tmpmemsettings[1]~g; $tmpbody =~ s~\[adminname\]~$tmpmemsettings[1]~g; } $tmpsubj =~ s~\[mbname\]~$mbname~g; $tmpbody =~ s~\[mbname\]~$mbname~g; $tmpmburl = $cgi; if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); } $tmpsubj =~ s~\[mburl\]~$tmpmburl~g; $tmpbody =~ s~\[mburl\]~$tmpmburl~g; $tmptime = &timeformat($date, 1); $tmpsubj =~ s~\[date\]~$tmptime~g; $tmpbody =~ s~\[date\]~$tmptime~g; if (index($tmpbody,'[quote]') > -1) { if (-e("$vardir/quotes.txt")) { fopen(QUOTES, "$vardir/quotes.txt"); @quotes = ; fclose(QUOTES); $qcount = @quotes; $tmpquote = @quotes[rand($qcount)]; chomp($tmpquote); } } else { $tmpquote = ""; }; $tmpbody =~ s~\[quote\]~$tmpquote~g; &sendmail ($tmpadress,$tmpsubj,$tmpbody); } # End Advanced System eMails Mod sub Sticky {