From 9ee322ba63cf2a7b495254979b44b1cfbe7cb69e Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 18 Jan 2006 18:01:10 +0000
Subject: [PATCH] perl side of the JSONOpenSRFRequest JS object

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2744 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Utils/ScriptRunner.pm    | 53 ++++++++++++++++++-
 1 file changed, 51 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
index fa7e04aa90..d8bce12917 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
@@ -2,6 +2,7 @@ package OpenILS::Utils::ScriptRunner;
 use strict; use warnings;
 use OpenSRF::Utils::Logger qw(:logger);
 use OpenSRF::EX qw(:try);
+use JSON;
 use JavaScript::SpiderMonkey;
 use LWP::UserAgent;
 use XML::LibXML;
@@ -48,11 +49,21 @@ sub init {
 	$self->insert(alert		=> sub { $logger->warn(@_); return 1;} );
 	$self->insert(load_lib		=> sub { $self->load_lib(@_); });
 
+	# OpenSRF support function
+	$self->insert(
+		_OILS_FUNC_jsonopensrfrequest_send =>
+			sub { $self->_jsonopensrfrequest_send(@_); }
+	);
+
 	# XML support functions
 	$self->insert(
-		_OILS_FUNC_xmlhttprequest_send	=> sub { $self->_xmlhttprequest_send(@_); });
+		_OILS_FUNC_xmlhttprequest_send	=>
+			sub { $self->_xmlhttprequest_send(@_); }
+	);
 	$self->insert(
-		_OILS_FUNC_xml_parse_string	=> sub { $self->_parse_xml_string(@_); });
+		_OILS_FUNC_xml_parse_string	=>
+			sub { $self->_parse_xml_string(@_); }
+	);
 	
 	$self->load_lib($_) for @{$self->{libs}};
 
@@ -317,6 +328,44 @@ sub _xmlhttprequest_send {
 		
 }
 
+sub _jsonopensrfrequest_send {
+	my $self = shift;
+	my $id = shift;
+	my $service = shift;
+	my $method = shift;
+	my $blocking = shift;
+	my $params = shift;
+
+	my @p = @{ JSON->JSON2perl($params) };
+
+	my $ctx = $self->context;
+
+	# just so perl has access to it...
+	$ctx->object_by_path('__jsonopensrfreq_hash.id'.$id);
+
+	my $ses = OpenSRF::AppSession->create($service);
+	my $req = $ses->request($method,@p);
+
+	$req->wait_complete;
+	if (!$req->failed) {
+		my $res = $req->content;
+		
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.responseText', $res);
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.readyState', 4);
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.statusText', 'OK');
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.status', '200');
+
+	} else {
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.responseText', '');
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.readyState', 4);
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.statusText', $req->failed->status );
+		$ctx->property_by_path('__jsonopensrfreq_hash.id'.$id.'.status', $req->failed->statusCode );
+	}
+
+	$req->finish;
+		
+}
+
 sub _parse_xml_string {
 	my $self = shift;
 	my $string = shift;
-- 
2.43.2