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, |