@@ -111,6 +111,7 @@ sub handle_request { my $paths = { 'servers' => \&handle_servers, 'channels' => \&handle_channels, + 'queries' => \&handle_queries, 'messages' => \&handle_messages, 'nicks' => \&handle_nicks, 'replies' => \&handle_replies, @@ -163,6 +164,25 @@ sub handle_channels { [map channel_hash($_), @channels]; } +sub handle_queries { + my ($req) = @_; + + my @queries; + if (my $server_tag = $req->parm('server')) { + my $server = Irssi::server_find_tag($server_tag); + unless ($server) { + return { error => qq[no such server tag:"$server_tag"] }; + } + + @queries = $server->queries(); + } + else { + @queries = Irssi::queries(); + } + + [map query_hash($_), @queries]; +} + sub handle_messages { my ($req) = @_; @@ -240,6 +260,8 @@ sub handle_post { else { $server->command("MSG $target $message"); } + + return { result => 'sent' }; } sub nick_hash { @@ -265,6 +287,16 @@ sub channel_hash { }; } +sub query_hash { + my ($query) = @_; + + return { + name => $query->{name}, + server => $query->{server_tag}, + unread => $state->{unread_count}{ $query->{server_tag} }{ $query->{name} } || 0, + }; +} + sub server_hash { my ($server) = @_; $server = Irssi::server_find_tag($server) unless ref $server; webapi.pl 7df0c1708fd58f1deed1b4e8f16dc20b7739f056 Daisuke Murase typester@cpan.org http://github.com/typester/irssi-plugins/commit/4836786aeb5f0768775c1476075b229673b46088 4836786aeb5f0768775c1476075b229673b46088 2009-10-01T01:35:24-07:00 2009-10-01T01:35:24-07:00 added queries api, fixes post api return value 324814dccc3bb576ac7ed3e597d806a941e09ab2 Daisuke Murase typester@cpan.org