simple example script for talking to opensrf
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 5 Jan 2006 15:39:59 +0000 (15:39 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 5 Jan 2006 15:39:59 +0000 (15:39 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2618 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/support-scripts/test-scripts/simple.pl [new file with mode: 0755]

diff --git a/Open-ILS/src/support-scripts/test-scripts/simple.pl b/Open-ILS/src/support-scripts/test-scripts/simple.pl
new file mode 100755 (executable)
index 0000000..6ee22ca
--- /dev/null
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+#----------------------------------------------------------------
+# Simple example
+#----------------------------------------------------------------
+
+require '../oils_header.pl';
+use vars qw/ $apputils $memcache $user $authtoken $authtime 
+       $AUTH $STORAGE $SEARCH $CIRC $CAT $MATH $SETTINGS $ACTOR /;
+use strict; use warnings;
+
+my $config = $ARGV[0];
+err( "usage: $0 <bootstrap_config>" ) unless $config;
+osrf_connect($config);
+
+my( $user, $evt ) = simplereq($STORAGE, 'open-ils.storage.direct.actor.user.retrieve', 1 );
+oils_event_die($evt); # this user was not found / not all methods return events..
+print debug($user);
+