Strip ANSI sequences from hostnames

Rizon colors vhosts... yes.

diff --git a/clones.pl b/clones.pl
index d661eb91f1c214ccabd184b88615ab1cd9e97f09..5fb37f07c0090ff8b27888c441cada011ea4e06f 100755 (executable)
--- a/clones.pl
+++ b/clones.pl
@@ -55,7 +55,7 @@ sub clone_list_str {
 sub host {
  my $userhost = lc $_[0];
 
- return $userhost =~ /@([^@]+)$/ ? $1 : $userhost;
+ return $userhost =~ /@([^@]+)$/ ? strip_code($1) : $userhost;
 }
 
 sub add {

diff --git a/opers.pl b/opers.pl
index 218b2d2dc8d8c34d85eb7bb3de68729b471179ce..f8d178d59e3d870318c0943976bf487fdc01036b 100755 (executable)
--- a/opers.pl
+++ b/opers.pl
@@ -23,7 +23,7 @@ hook_server '352', sub {
  return EAT_NONE if $opers{$serv}{irc_lc($nick)};
  $opers{$serv}{irc_lc($nick)} = $nick;
 
- my $host = $_[0][4] . '@' . $_[0][5];
+ my $host = $_[0][4] . '@' . strip_code $_[0][5];
  my %chans;
  push @{$chans{$_->{type}}}, $_ for grep $_->{server} eq $serv,
                                      get_list 'channels';

diff --git a/tools.pl b/tools.pl
index f7b160648c10a9eefebcaccacb596e9ba06812ff..070f096d8da4777e71647ae74db4407d08453e70 100755 (executable)
--- a/tools.pl
+++ b/tools.pl
@@ -121,7 +121,7 @@ hook_command 'HGREP', sub {
  $txt = qr/$txt/i;
  my @matches;
  for (get_list 'users') {
-  my $host = $_->{host};
+  my $host = strip_code $_->{host};
   next unless $host =~ /$txt/;
   push @matches, [ $_->{nick}, $host ];
  }