@Valtiel I think it is a standalone mod. i have to install it on my board. i was just going through the archives of this board and found it so im gonna put it through it paces. and i will try to fix it

@Flicker where can we find it. and is it capable with memberguests

milldogg wrote on 08.09.04 at 02:37:21:


But in version 5 these bugs don't appear. Version 6 has more bugs than version 5... I deinstalled both. Perhaps some time someone will improve that to a full working final version.

Greetings... Mr. God Sir... I have three questions for you if you can spare the moment to answer them.  But before I do, let me say thank you for this mod.  It has proven very useful for my game forum.  I noticed the problem with whispers not showing up for yourself (unless you're moderator), but the whisperer can simply add his or her own name in the whisper command to remedy that problem.  

Now for my three questions:

1.  Do you think there's any chance you could add that the whisper command to a button on the YABBC tags?  The exact command syntax is sometimes hard to recall without digging through my notes.

2.  Is it at all possible to hook up the code so that it can reference the display name with the actual user name?  The advanced IM mod does something like this, and would be a very good addition.

3.  I have a strange error showing up on my board when I do a detailed version check on my admin page.  It tells me

Quote:


I've looked in the code and can't really tell what's wrong with it, but then I'm pretty much PERL illiterate at this point.  Here's a section of the Printpage.pl it's referring to:

starting at line 281 and ending at line 289
Code:

		$threadpost =~ s~\[news\](.+?)\[/news\]~$1~isg;
		$threadpost =~ s~\[gopher\](.+?)\[/gopher\]~$1~isg;
		$threadpost =~ s~\[ftp\](.+?)\[/ftp\]~$1~isg;
	require "$sourcedir/YaBBC.pl";
	$message =~ s~\[whisper\=(.+?)\](.+?)\[\/whisper\]~Whisper to: $1, message: $2)~eisg; 
	$message =~ s~\[whisper\!(.+?)\](.+?)\[\/whisper\]~Whisper to all except: $1, message: $2~eisg; 

		$threadpost =~ s~\[quote\s+author=(.*?)link=(.*?)\s+date=(.*?)\s*\]\n*(.*?)\n*\[/quote\]~<br><i>on $3, <a href=$scripturl?action=display;$2>$1 wrote</a>:</i><table bgcolor="#000000" cellspacing="1" width="90%"><tr><td width="100%"><table cellpadding="2" cellspacing="0" width="100%" bgcolor="#FFFFFF"><tr><td width="100%"><font size="1" color="#000000">$4</font></td></tr></table></td></tr></table>~isg;
		$threadpost =~ s~\[quote\]\n*(.+?)\n*\[/quote\]~<br><i>Quote:</i><table bgcolor="#000000" cellspacing="1" width="90%"><tr><td width="100%"><table cellpadding="2" cellspacing="0" width="100%" bgcolor="#FFFFFF"><tr><td width="100%"><font face="Arial,Helvetica" size="1" color="#000000">$1</font></td></tr></table></td></tr></table>~isg; 

Any help you can give me with these issues would be greatly appreciated.  I know you're a busy guy, (aren't we all) so there really is no big rush or anything.  If you get around to it whenever - that'd be good enough for me.

Thanks!

To prevent Guests from seeing the exclusion whipser, modify the YaBBC.pl file.

Replace

Code:

sub xwhisper { 
	my ($whisper_name, $whisper_msg) = @_;
	my ($whispered, $collectednames, $return_whsp);
	@whispsub = split(/\,/, $whisper_name);
	foreach $name (@whispsub) { 
		&LoadUserDisplay($name);
		$collectednames .= qq~$userprofile{$name}->[1]\,~;
		if (lc $name ne lc $username) { 
			$whispered = "user";
		} elsif (lc $username eq lc $tmpuname || $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') { 
			$whispered = "adm"; 
		}
	}
	chop($collectednames);
	$collectednames = "To all except " . $collectednames;
	$return_whsp = $YaBBCtxt{'whsp6'};
	$return_whsp =~ s~QUOTE~$whisper_msg~g;
	$return_whsp =~ s~NAMES~$collectednames~g;
	if(!$whispered) { $return_whsp = ""; }
	return $return_whsp;
} 
 

With

Code:

sub xwhisper { 
	if ($username ne 'Guest') {
		my ($whisper_name, $whisper_msg) = @_;
		my ($whispered, $collectednames, $return_whsp);
		@whispsub = split(/\,/, $whisper_name);
		foreach $name (@whispsub) { 
			&LoadUserDisplay($name);
			$collectednames .= qq~$userprofile{$name}->[1]\,~;
			if (lc $name ne lc $username) { 
				$whispered = "user";
			} elsif (lc $username eq lc $tmpuname || $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') { 
				$whispered = "adm"; 
			}
		}
		chop($collectednames);
		$collectednames = "To all except " . $collectednames;
		$return_whsp = $YaBBCtxt{'whsp6'};
		$return_whsp =~ s~QUOTE~$whisper_msg~g;
		$return_whsp =~ s~NAMES~$collectednames~g;
		if(!$whispered) { $return_whsp = ""; }
		return $return_whsp;
	}
} 

Seems to be working like a charm.