Mercurial > hg > skillbot
comparison skillbot.pl @ 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 |
comparison
equal
deleted
inserted
replaced
29:c25d5c1e7f28 | 30:b36c677365aa |
---|---|
226 my ($their_nick, $msg) = ($event->nick, $event->args); | 226 my ($their_nick, $msg) = ($event->nick, $event->args); |
227 | 227 |
228 if ($msg =~ /^\!eta(\s+(.+))?/i) { | 228 if ($msg =~ /^\!eta(\s+(.+))?/i) { |
229 my $found = 0; | 229 my $found = 0; |
230 for my $f (@friends) { | 230 for my $f (@friends) { |
231 if ((defined $2 && $f->{char}->name eq $2) | 231 if ((defined $2 && lc($f->{char}->name) eq lc($2)) |
232 || (!defined $2 && $f->{nick} eq $their_nick)) { | 232 || (!defined $2 && $f->{nick} eq $their_nick)) { |
233 my $text = ((defined $f->{skill} | 233 my $text = ((defined $f->{skill} |
234 && $f->{skill}->finish_time > time()) | 234 && $f->{skill}->finish_time > time()) |
235 ? sprintf("Currently training %s %s (finish in %s)", | 235 ? sprintf("Currently training %s %s (finish in %s)", |
236 $f->{skill}->name, $f->{skill}->level, | 236 $f->{skill}->name, $f->{skill}->level, |