# HG changeset patch
# User Dominic Cleal <dominic@computerkb.co.uk>
# Date 1228604996 0
# Node ID bb1f7ab990b12b8e48d9a779c451e9392bda3b41
# Parent  1d57373d1c04d7378a814ad4a1252dd21f55dc59
Adding an optional argument to !eta for a character name

diff -r 1d57373d1c04 -r bb1f7ab990b1 skillbot.pl
--- a/skillbot.pl	Sat Dec 06 22:54:58 2008 +0000
+++ b/skillbot.pl	Sat Dec 06 23:09:56 2008 +0000
@@ -225,10 +225,11 @@
 	my ($self, $event) = @_;
 	my ($their_nick, $msg) = ($event->nick, $event->args);
 
-	if ($msg =~ /^\!eta/i) {
+	if ($msg =~ /^\!eta(\s+(.+))?/i) {
 		my $found = 0;
 		for my $f (@friends) {
-			if ($f->{nick} eq $their_nick) {
+			if ((defined $2 && $f->{char}->name eq $2)
+					|| (!defined $2 && $f->{nick} eq $their_nick)) {
 				my $text = (defined $f->{skill}
 						? sprintf("Currently training %s (finish in %s)",
 								  $f->{skill}->name,