Changeset 9699 for lang/perl/WebService-Simple/branch/lwp-base

Timestamp:

04/18/08 19:07:13 (8 months ago)

Author:

yusukebe

Message:

lang/perl/WebService-Simple; branch/lwp-base で Lingrの exmaple

Files:

• lang/perl/WebService-Simple/branch/lwp-base/example/lingr.pl (modified) (1 diff)

lang/perl/WebService-Simple/branch/lwp-base/example/lingr.pl

@@ -15 +15 @@
 # create session, get session
 my $response;
-$response = $lingr->get( {}, { path => '/api/session/create' } );
-my $session = $response->parse_xml->{session};
+$response = $lingr->get( 'api/session/create', {} );
+my $session = $response->parse_response->{session};
 
 # enter the room, get ticket
 $response = $lingr->get(
-    {
+    'api/room/enter',
+                    {
         session  => $session,
         id       => $room_id,
         nickname => $nickname,
     },
-    { path => '/api/room/enter' }
 );
-my $ticket = $response->parse_xml->{ticket};
+my $ticket = $response->parse_response->{ticket};
 
 # say 'Hello, World'
 $response = $lingr->get(
-    {
+    'api/room/say',
+                    {
         session => $session,
         ticket  => $ticket,
         message => $message,
     },
-    { path => '/api/room/say' }
 );
-my $status = $response->parse_xml->{status};
+my $status = $response->parse_response->{status};
 
 # destroy session
-$lingr->get( { session => $session, }, { path => '/api/session/destroy' } );
+$lingr->get( 'api/session/destroy' , { session => $session, } );