IM Email notification link 1.0 When you have E-mail notification turned on you will get an email when someone reply's on your instant message When you install this mod you will notice an extra link below your email. When you click on this link you wil automaticly go to your IM mailbox, When you are not logged in you will be prompted voor your username and password and then redirected to your IM. John Sirach http://www.supportpc.nl YaBB.pl elsif ($action eq 'lock') { require "$sourcedir/LockThread.pl"; &LockThread; } elsif ($action eq 'loginim') { require "$sourcedir/LogInOut.pl"; &LoginIM;} elsif ($action eq 'loginim2') { require "$sourcedir/LogInOut.pl"; &LoginIM2;} Sources\LogInOut.pl 1; sub LoginIM { if($username eq 'Guest'){ $yytitle = "$imnot{'03'}"; &header; print <<"EOT";

$imnot{'03'} $txt{'35'}: $txt{'36'}: $txt{'497'}: $txt{'508'}: $txt{'315'}

EOT &footer; exit; } if ($username ne 'Guest'){ $yySetLocation = qq~$scripturl?board=&action=im~; &redirectexit; } } sub LoginIM2 { &fatal_error("$txt{'37'}") if($FORM{'username'} eq ""); &fatal_error("$txt{'38'}") if($FORM{'passwrd'} eq ""); $FORM{'username'} =~ s/\s/_/g; $username = $FORM{'username'}; &fatal_error("$txt{'240'}") if($username !~ /^[\s0-9A-Za-z#%+,-\.:=?@^_]+$/); &fatal_error("$txt{'337'}") if($FORM{'cookielength'} !~ /^[0-9]+$/); if(-e("$memberdir/$username.dat")) { fopen(FILE, "$memberdir/$username.dat"); @settings = ; fclose(FILE); $settings[0] =~ s/[\n\r]//g; $password = crypt("$FORM{'passwrd'}",$pwseed); if($settings[0] ne $password) { $username = "Guest"; &fatal_error("$txt{'39'}"); } $settings[0] = "$settings[0]\n"; } else { $username = "Guest"; &fatal_error("$txt{'40'}"); } if($FORM{'cookielength'} < 1 || $FORM{'cookielength'} > 9999) { $FORM{'cookielength'} = $Cookie_Length; } if($FORM{'cookieneverexp'} ne 'on') { $Cookie_Length = $FORM{'cookielength'}; &SetCookieExp; } else { $Cookie_Exp_Date = 'Sun, 17-Jan-2038 00:00:00 GMT'; } $password = crypt("$FORM{'passwrd'}",$pwseed); $yySetCookies = qq~Set-Cookie: $cookieusername=$username; path=/; expires=$Cookie_Exp_Date;\n~; $yySetCookies .= qq~Set-Cookie: $cookiepassword=$password; path=/; expires=$Cookie_Exp_Date;\n~; &LoadUserSettings; &WriteLog; $yySetLocation = qq~$scripturl?board=&action=im~; &redirectexit; } Sources/InstantMessage.pl &sendmail($recipient[2],$txt{'561'},$txt{'562'}); &sendmail($recipient[2],$txt{'561'},"$txt{'562'} $imnot{'01'} $scripturl?board=&action=loginim $imnot{'02'} "); English.lng $txt{'749'} = "The 'number of posts' box can only contain digits."; $imnot{'01'} = "Please click here ->"; $imnot{'02'} = "to go to your IM."; $imnot{'03'} = "Login to go to youre IM.";