diff options
Diffstat (limited to 'lib/ASM/Commander.pm')
| -rw-r--r-- | lib/ASM/Commander.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/ASM/Commander.pm b/lib/ASM/Commander.pm index e91dc44..f37aaf0 100644 --- a/lib/ASM/Commander.pm +++ b/lib/ASM/Commander.pm @@ -149,6 +149,8 @@ my $cmdtbl = { '^;explain (?<nick1>\S+)\s+(?<nick2>\S+)\s*$' => { 'flag' => 's', 'cmd' => \&cmd_explain }, + '^;version$' => { + 'cmd' => \&cmd_version }, }; sub new { @@ -1101,4 +1103,9 @@ sub cmd_explain { # all hosts associated with two given nicks $conn->privmsg($event->replyto, $header . ASM::Util->commaAndify(sort @$result)); } +sub cmd_version { + my ($conn, $event) = @_; + $conn->privmsg($event->replyto, $::version); +} + # vim: ts=8:sts=8:sw=8:noexpandtab |