Handle scan requests

[NDIRC.git] / IrcContext.pm

diff --git a/IrcContext.pm b/IrcContext.pm
index 209f25eab8f56340563dcd958d2f276de03a2885..b8eae0d003889a52869d3fe53efd16333343025b 100644 (file)
--- a/IrcContext.pm
+++ b/IrcContext.pm
@@ -91,6 +91,11 @@ sub message {
        $self->command($command, $target, $msg);
 }
 
+sub replyId {
+       my $self = shift;
+       return $self->nick;
+}
+
 sub command {
        my ($self,@command) = @_;