# Type:        Input
# Category:    Common
# Description: Tells current time
# Author:      Andriy Lesyuk <s-andy@andriylesyuk.com>

new Orangutan::Context(
    response => '^What time(?: is (?:it|now))?\?*\.*',
    handler => sub {
        my ($context, $user, $item) = @_;
        my ($sec, $min, $hour) = (localtime(time))[0..2];
        $user->SendMessage(sprintf("It is %02d:%02d:%02d...", $hour, $min, $sec));
    }
);
# kate: syntax perl