fix bitlbee rename to use current nick nomenclature

[irc.git] / .irssi / scripts / bitlbee_rename.pl

diff --git a/.irssi/scripts/bitlbee_rename.pl b/.irssi/scripts/bitlbee_rename.pl
index cfda1b5bf09875ea8e3d5e11bc538d0c1ba938de..2eb862bf6ef91a94a07909a098262de8290cda7f 100644 (file)
--- a/.irssi/scripts/bitlbee_rename.pl
+++ b/.irssi/scripts/bitlbee_rename.pl
@@ -23,10 +23,10 @@ sub message_join
   my $username = substr($address, 0, index($address,'@'));
   my $host = substr($address, index($address,'@')+1);
 
   my $username = substr($address, 0, index($address,'@'));
   my $host = substr($address, index($address,'@')+1);
 

-  if($channel =~ m/($bitlbeeChannel)/ and $nick =~ m/$username/ and $nick =~ m/^u\d+/ and $host =~ m/($facebookhostname)/ )
+  if($channel =~ m/($bitlbeeChannel)/ and $nick =~ m/$username/ and $nick =~ m/^(u|-)\d+/ and $host =~ m/($facebookhostname)/ )

   {
     $nicksToRename{$nick} = $channel;
   {
     $nicksToRename{$nick} = $channel;

-    $server->command("whois $nick");
+    $server->command("whois -- $nick");

   }
 }
 
   }
 }