Bugfix+taking reply_to into account

Modules/Usurp.pm

@@ -11,7 +11,7 @@ use warnings;
 # est admin
 # 
 # Usage :
-#  !usurp [#chan] nick!user@host command ...
+#  !usurp [<reply to>] nick!user@host command ...
 # ###
 sub usurp_main
 {
@@ -19,11 +19,11 @@ sub usurp_main
 	
 	return 0 unless defined($ref_params->[1]);
 	
-	my $chan = lc $reply_to;
-	if(substr($ref_params->[0], 0, 1) eq '#')
+	$reply_to = lc $reply_to;
+	
+	if($ref_params->[0] !~ /^(.*?)!(.*?)\@(.*?)$/i)
 	{
-		$chan = lc shift @{$ref_params};
-		return 0 unless defined($ref_params->[1]);
+		$reply_to = shift @{$ref_params};
 	}
 	
 	my $unh = shift @{$ref_params};
@@ -44,7 +44,7 @@ sub usurp_main
 		return 0;
 	}
 	
-	$event->{'to'} = $chan;
+	$event->{'to'}[0] = $reply_to;
 	$event->{'args'} = [
 		$Config::command_sign.$commande.' '.join(' ', @{$ref_params})
 	];
@@ -64,7 +64,7 @@ sub usurp_help
 {
 	my ($self, $event, $reply_to, $ref_params) = @_;
 	
-	$self->privmsg($reply_to, "`".$Config::command_sign."usurp [#chan] ".
+	$self->privmsg($reply_to, "`".$Config::command_sign."usurp [<reply to>] ".
 	               "nick!user\@host command ...` ".
 				   "=> usurp a user, and a chan if provided, for a command");