Show
Ignore:
Timestamp:
06/18/08 16:21:26 (5 months ago)
Author:
tokuhirom
Message:

oops

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-Nakanobu/trunk/tools/jsonrpc-client.pl

    r14195 r14203  
    55my $uri = 'http://localhost:5555/'; 
    66my $method = 'privmsg'; 
    7 my @params = ('#nakanobu', 'lovely'); 
     7my $params = {channel => '#nakanobu', text => 'lovely'}; 
    88 
    99my $client = JSON::RPC::Client->new; 
    10 my $res = $client->call($uri, { method => $method, params => \@params } ); 
     10my $res = $client->call($uri, { method => $method, params => $params } ); 
    1111if ($res) { 
    1212    if ($res->is_error) {