From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 24 Jun 2009 17:56:59 +0000 (+0000)
Subject: basic cstore communication via opensrf perl
X-Git-Tag: sprint4-merge-nov22~9767
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=10eb917cf3ab98da62a605ca5a8cb00d6da2607a;p=working%2FEvergreen.git

basic cstore communication via opensrf perl

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

diff --git a/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl b/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl
new file mode 100755
index 0000000000..b0a33d2c6d
--- /dev/null
+++ b/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+#----------------------------------------------------------------
+# Simple cstore example
+#----------------------------------------------------------------
+
+require '../oils_header.pl';
+use strict; use warnings;
+use OpenSRF::AppSession;
+use OpenILS::Utils::Fieldmapper;
+
+my $config = shift; # path to opensrf_core.xml
+osrf_connect($config); # connect to jabber
+
+my $ses = OpenSRF::AppSession->create("open-ils.cstore");
+$ses->connect;
+
+my $req = $ses->request('open-ils.cstore.transaction.begin');
+my $stat = $req->gather(1);
+die "cannot start transaction\n" unless $stat;
+
+my $btype = Fieldmapper::config::billing_type->new;
+$btype->name('Test 1');
+$btype->owner(1);
+
+$req = $ses->request('open-ils.cstore.direct.config.billing_type.create', $btype);
+$stat = $req->gather(1);
+die "cannot create object\n" unless $stat;
+print "create returned $stat\n";
+
+$req = $ses->request('open-ils.cstore.transaction.rollback');
+$stat = $req->gather(1);
+die "cannot rollback transaction\n" unless $stat;
+
+$ses->disconnect;
+
+