changeset 30:b36c677365aa

Making eta character name case-insensitive
author Dominic Cleal <dominic@computerkb.co.uk>
date Sun, 07 Dec 2008 10:35:39 +0000
parents c25d5c1e7f28
children b0436bc63f9e
files skillbot.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/skillbot.pl	Sat Dec 06 23:56:28 2008 +0000
+++ b/skillbot.pl	Sun Dec 07 10:35:39 2008 +0000
@@ -228,7 +228,7 @@
 	if ($msg =~ /^\!eta(\s+(.+))?/i) {
 		my $found = 0;
 		for my $f (@friends) {
-			if ((defined $2 && $f->{char}->name eq $2)
+			if ((defined $2 && lc($f->{char}->name) eq lc($2))
 					|| (!defined $2 && $f->{nick} eq $their_nick)) {
 				my $text = ((defined $f->{skill}
 						&& $f->{skill}->finish_time > time())