$channels{'#nd-day'} = ['all','member'];
$channels{'#ndintel'} = ['all','member'];
$channels{'#nd-officers'} = ['all','member'];
+$channels{'#nd-ia'} = ['all','member'];
$channels{'#ndawn'} = ['all'];
$channels{'pm'} = ['pm'];
sub parseCommand {
my ($msg,$channel) = @_;
- if ($msg =~ /^(\w+)(?: (.+))?$/){
+ if ($msg =~ /^(\S+)(?: (.+))?$/){
my $c = $1;
my $args = $2;
my @k = keys %commands;