From 8bda9723e81b67957cc7f2fec6afb278fbc7ab5f Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 5 Jan 2006 15:39:59 +0000
Subject: [PATCH] simple example script for talking to opensrf

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2618 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../support-scripts/test-scripts/simple.pl    | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 Open-ILS/src/support-scripts/test-scripts/simple.pl

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
index 0000000000..6ee22cac7d
--- /dev/null
+++ b/Open-ILS/src/support-scripts/test-scripts/simple.pl
@@ -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);
+
-- 
2.43.2