package App::Mobirc::Web::C::IPhone;
use strict;
use warnings;
use App::Mobirc::Web::C;
use App::Mobirc::Util;
use Encode;
use JSON qw/encode_json/;
sub dispatch_base {
    render();
}
sub dispatch_channel {
    my $channel_name = param('channel');
    my $channel = server->get_channel($channel_name);
    my $meth = param('recent') ? 'recent_log' : 'message_log';
    my $body = encode_json(
        {
            messages => [
                map {
                    render_irc_message( $_ )
                } reverse $channel->$meth
            ],
            channel_name => $channel->name,
        }
    );
    $channel->clear_unread();
    Plack::Response->new(
        200,
        ['Content-Type' => 'text/json;charset=utf-8', 'Content-Length' => length($body)],    # FIXME invalid
        $body,
    );
}
sub post_dispatch_channel {
    my $channel = param('channel');
    my $message = param('msg');
    server->get_channel($channel)->post_command($message);
    Plack::Response->new(
        200,
        ['Content-Type' => 'text/plain'],
        'ok',
    );
}
sub dispatch_menu {
    render();
}
sub dispatch_keyword {
    my $res = render();
    server->keyword_channel->clear_unread();
    return $res;
}
1;