diff -ru infobot-orig-0.44.3/src/nickometer.pl infobot-0.44.3/src/nickometer.pl --- infobot-orig-0.44.3/src/nickometer.pl Fri Aug 13 05:29:29 1999 +++ infobot-0.44.3/src/nickometer.pl Mon Jan 31 19:30:46 2000 @@ -58,6 +58,23 @@ &punish($special_cost{$special}, "matched special case /$special_pattern/") if $nick =~ /$special_pattern/i; } + + # XF: Result overrides - just the thing when a specific person's nick is + # getting a completely bogus value... + # Btw, these are case insensitive, and no kewltalk translation is + # performed. 'NaN' currently will result in a reading of "Off the scale". + my %override_result = ( + 'xfire' => 0, + 'purlgurl' => 'NaN', + ); + + # XF: check to make sure that the victim isn't referenced with an override. + foreach my $override (keys %override_result) { + my $nick = $_; + if ($nick =~ /$override/i) { + return $override_result{$override}; + } + } # Allow Perl referencing s/^\\([A-Za-z])/$1/;