root/lang/perl/Morris/trunk/lib/Morris/Plugin/Channel/Time.pm @ 26865

# $Id$

package Morris::Plugin::Channel::Time;
use Moose;
use DateTime;

with 'Morris::Plugin';

__PACKAGE__->meta->make_immutable;

no Moose;

sub register {
    my ($self, $conn) = @_;
    $conn->register_hook( 'channel.public', sub { $self->handle_message(@_) } );
}

sub handle_message {
    my ($self, $args) = @_;

    my $message = $args->{message}->message;
    my $channel = $args->{message}->channel;
    my $quote;

    if ( $message =~ m{^\s*(epoch|time)(?:\s*(\+)\s*(.+))?$} ) {
        my $dt;
        my $type = $1;

        $dt = DateTime->now(time_zone => 'Asia/Tokyo');
        if ($2 eq '+') {
            my $mode = 'add';
            my $string = $3;
            my ($unit, $amount);
            while ($string =~ /\G\s*(\d+)\s+(year|month|day|hour|min(?:ute)?|sec(?:ond)?)s?/g) {
                ($unit, $amount) = ($2, $1);
                if ($unit eq 'min') {
                    $unit = "minute";
                } elsif ($unit eq 'sec') {
                    $unit = "second";
                }
                $dt->$mode("${unit}s" => $amount);
            }
        }


        $self->connection->irc_notice({
            channel => $channel,
            message => $type eq 'epoch' ? $dt->epoch : $dt->strftime('%Y-%m-%d %H:%M:%S')
        });
    }
}

1;