Restricted IM 1.0 Restrict IM use for new users! More than 5 posts required to use IM. This keeps new users from joining just to immediately begin PMing people using the IM feature of YaBB (which happens far too often on my forum). Ken Baker (KenTeamBG) http://www.teambg.com/ Sources/BoardIndex.pl if( $username ne 'Guest' ) { print <<"EOT"; » $txt{'159'} $txt{'159'}
$txt{'660'} $messnum EOT if($messnum == 1) { print $txt{'471'}; } else { print $txt{'153'}; } print <<"EOT"; .... $txt{'661'} $txt{'662'} $txt{'663'} EOT } if( $username ne 'Guest' && $settings[6] ne '0' && $settings[6] ne '1' && $settings[6] ne '2' && $settings[6] ne '3' && $settings[6] ne '4' && $settings[6] ne '5' ) { print <<"EOT"; » $txt{'159'} $txt{'159'}
$txt{'660'} $messnum $settings[6] EOT if($messnum == 1) { print $txt{'471'}; } else { print $txt{'153'}; } print <<"EOT"; .... $txt{'661'} $txt{'662'} $txt{'663'} EOT } Sources/Subs.pl if($username ne "Guest") { fopen(IM, "$memberdir/$username.msg"); @immessages = ; fclose(IM); $mnum = @immessages; if($settings[6] eq '0' || $settings[6] eq '1' || $settings[6] eq '2' || $settings[6] eq '3' || $settings[6] eq '4' || $settings[6] eq '5') { $yyim = qq~welcome.~; } if($username ne "Guest") { fopen(IM, "$memberdir/$username.msg"); @immessages = ; fclose(IM); $mnum = @immessages; if($username ne "Guest" && $settings[6] ne '0' && $settings[6] ne '1' && $settings[6] ne '2' && $settings[6] ne '3' && $settings[6] ne '4' && $settings[6] ne '5') { fopen(IM, "$memberdir/$username.msg"); @immessages = ; fclose(IM); $mnum = @immessages; Sources/Profile.pl print <<"EOT";

if($username ne "Guest" && $settings[6] ne '0' && $settings[6] ne '1' && $settings[6] ne '2' && $settings[6] ne '3' && $settings[6] ne '4' && $settings[6] ne '5') { $yyimlink = qq~$txt{'688'}. ~; } print <<"EOT"; $online $txt{'688'}. $txt{'460'} $online $yyimlink $txt{'460'} Sources/Display.pl if( $username ne 'Guest' ) { # Allow instant message sending if current user is a member. if( $username ne 'Guest' && $settings[6] ne '0' && $settings[6] ne '1' && $settings[6] ne '2' && $settings[6] ne '3' && $settings[6] ne '4' && $settings[6] ne '5' ) { # Allow instant message sending if current user is a member.