From 3c37b460cb63c35f2ef7733bd06c0fe4533a912c Mon Sep 17 00:00:00 2001
From: richo <richo@psych0tik.net>
Date: Mon, 18 Jul 2011 13:37:38 +1000
Subject: Recognise other channel prefixes and characters

---
 auto-server/auto_server.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'auto-server/auto_server.pl')

diff --git a/auto-server/auto_server.pl b/auto-server/auto_server.pl
index c409e5d..780763b 100644
--- a/auto-server/auto_server.pl
+++ b/auto-server/auto_server.pl
@@ -94,7 +94,7 @@ sub haxy_print_hook {
     my $data = $_[1];
     # Hose control characters
     $data =~ s/\x04.//g;
-    if ($data =~ m/^#/) {
+    if ($data =~ m/^[#&!]/) {
         my @items = split /\s+/, $data;
         push(@hack_channels, $items[0]);
         push(@hack_channels, $items[1]);
@@ -135,7 +135,7 @@ sub join_plus {
 
     # parse out channel name from args:
     my $channel;
-    if ($args =~ m/^(#?[#a-zA-Z0-9-]+)/) {
+    if ($args =~ m/^([#&!]?[^ ]+)/) {
         $channel = $1;
         _debug_print ("Channel is: $channel");
     }
-- 
cgit v1.2.3