OpenSRF/examples/math_simple.pl

   1 #!/usr/bin/perl -w
   2 use strict;use warnings;
   3 use OpenILS::System;
   4 use OpenILS::Utils::Config;
   5 use OpenILS::DomainObject::oilsMethod;
   6 use OpenILS::DomainObject::oilsPrimitive;
   7 use OpenILS::EX qw/:try/;
   8 $| = 1;
   9
  10
  11 # ----------------------------------------------------------------------------------------
  12 # This script makes a single query, 1 + 2,  to the the MATH test app and prints the result
  13 # Usage: % perl math_simple.pl
  14 # ----------------------------------------------------------------------------------------
  15
  16
  17 # connect to the transport (jabber) server
  18 OpenILS::System->bootstrap_client();
  19
  20 # build the AppSession object.
  21 my $session = OpenILS::AppSession->create(
  22         "math", username => 'math_bench', secret => '12345' );
  23
  24 try {
  25
  26         # Connect to the MATH server
  27         if( ! ($session->connect()) ) { die "Connect timed out\n"; }
  28
  29 } catch OpenILS::EX with {
  30         my $e = shift;
  31         die "* * Connection Failed with:\n$e";
  32 };
  33
  34 my $method = OpenILS::DomainObject::oilsMethod->new( method => "add" );
  35 $method->params( 1, 2 );
  36
  37 my $req;
  38 my $resp;
  39
  40 try {
  41         $req = $session->request( $method );
  42
  43         # we know that this request only has a single reply
  44         # if your expecting a 'stream' of results, you can
  45         # do: while( $resp = $req->recv( timeout => 10 ) ) {}
  46         $resp = $req->recv( timeout => 10 );
  47
  48 } catch OpenILS::EX with {
  49
  50         # Any transport layer or server problems will launch an exception
  51         my $e = shift;
  52         die "ERROR Receiving\n $e";
  53
  54 } catch Error with {
  55
  56         # something just died somethere
  57         my $e = shift;
  58         die "Caught unknown error: $e";
  59 };
  60
  61 if ( $resp ) {
  62         # ----------------------------------------------------------------------------------------
  63         # $resp is an OpenILS::DomainObject::oilsResponse object. $resp->content() returns whatever
  64         # data the object has.  If the server returns an exception that we're meant to see, then
  65         # the data will be an exception object.  In this case, barring any exception, we know that
  66         # the data is an OpenILS::DomainObject::oilsScalar object which has a value() method
  67         # that returns a perl scalar.  For us, that scalar is just a number.
  68         # ----------------------------------------------------------------------------------------
  69
  70         if( UNIVERSAL::isa( $resp, "OpenILS::EX" ) ) {
  71                         throw $resp;
  72         }
  73
  74         my $ret = $resp->content();
  75         print "Should print 3 => " . $ret->value() . "\n";
  76
  77 } else {
  78         die "No Response from Server!\n";
  79 }
  80
  81 $req->finish();
  82
  83 # disconnect from the MATH server
  84 $session->kill_me();
  85 exit;
  86