← Back to branch summary

~evergreen-bugs/evergreen/rel_3_11

« back to all changes in this revision

Viewing changes to OpenSRF/examples/math_simple.pl

  • Committer: phasefx
  • Date: 2005-02-04 22:08:15 UTC
  • Revision ID: git-v1:940e152e588a9b1c1b4f18cbbecf46691cb2f58c
Initial revision


git-svn-id: svn://svn.open-ils.org/ILS/trunk@2 dcc99617-32d9-48b4-a31d-7c20da2025e4

Show diffs side-by-side

added added

removed removed

Lines of Context:
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