From ad2319935c1494cf2e67e75575fc3a743356672b Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Fri, 7 Sep 2018 23:27:40 +1200
Subject: Make commands case insensitive

---
 idalius.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/idalius.pl b/idalius.pl
index d1cd12e..5f238a6 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -95,6 +95,7 @@ sub module_is_enabled {
 # Register a command name to a certain sub
 sub register_command {
 	my ($command, $action) = @_;
+	$command = lc $command;
 	log_info "Registering command: $command";
 	$commands{$command} = $action;
 }
@@ -106,8 +107,8 @@ sub run_command {
 	my $command;
 
 	for my $c (keys %commands) {
-		if (($command_verbatim) = $command_string =~ m/^(\Q$c\E( |$))/) {
-			$command = $c;
+		if (($command_verbatim) = $command_string =~ m/^(\Q$c\E( |$))/i) {
+			$command = lc $c;
 			last;
 		}
 	}
-- 
cgit v1.1