From 3eecbf986656a582e6e933f883095569b51fca60 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 22 Feb 2006 18:51:01 +0000
Subject: [PATCH] unapi/supercat mod_perl handler

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3165 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 124 ++++++++++++++++++
 1 file changed, 124 insertions(+)
 create mode 100644 Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
new file mode 100644
index 0000000000..6099c870a6
--- /dev/null
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -0,0 +1,124 @@
+package OpenILS::WWW::SuperCat;
+use strict; use warnings;
+
+use Apache2 ();
+use Apache2::Log;
+use Apache2::Const -compile => qw(OK REDIRECT DECLINED :log);
+use APR::Const    -compile => qw(:error SUCCESS);
+use Apache2::RequestRec ();
+use Apache2::RequestIO ();
+use Apache2::RequestUtil;
+use CGI;
+use Data::Dumper;
+
+use OpenSRF::EX qw(:try);
+use OpenSRF::System;
+use OpenSRF::AppSession;
+use XML::LibXML;
+
+use OpenILS::Utils::Fieldmapper;
+
+
+# set the bootstrap config when this module is loaded
+my ($bootstrap, $supercat);
+
+sub import {
+	my $self = shift;
+	$bootstrap = shift;
+}
+
+
+sub child_init {
+	OpenSRF::System->bootstrap_client( config_file => $bootstrap );
+	$supercat = OpenSRF::AppSession->create('open-ils.supercat');
+}
+
+sub handler {
+
+	my $apache = shift;
+	return Apache2::Const::DECLINED if (-e $apache->filename);
+
+	my $path = $apache->path_info;
+
+	my ($id,$type,$format,$command) = reverse split '/', $path;
+
+	print "Content-type: text/xml; charset=utf-8\n\n";
+	
+	if ( $path =~ m{^/?$}o ) {
+		my $cgi = new CGI;
+
+		my $uri = $cgi->param('uri') || '';
+
+		$format = $cgi->param('format');
+		($id,$type) = ('','');
+
+		if (!$format) {
+			if ($uri =~ m{^oils:/([^\/]+)/(\d+)}o) {
+				$id = $2;
+				$type = 'record';
+				$type = 'metarecord' if ($1 =~ /^m/o);
+
+				my $list = $supercat
+					->request("open-ils.supercat.$type.formats")
+					->gather(1);
+
+				print '<formats>'.
+					join('',
+						map { 
+							"<format><name>$_</name><type>text/xml</type></format>" 
+						} @$list
+					).'</formats>';
+				return 300;
+			} else {
+				my $list = $supercat
+					->request("open-ils.supercat.record.formats")
+					->gather(1);
+				push @$list,
+					@{ $supercat
+						->request("open-ils.supercat.metarecord.formats")
+						->gather(1);
+					};
+
+				my %hash = map { ($_ => $_) } @$list;
+				$list = [ sort keys %hash ];
+
+				print '<formats>'.
+					join('',
+						map { 
+							"<format><name>$_</name><type>text/xml</type></format>" 
+						} @$list
+					).'</formats>';
+				return Apache2::Const::OK;
+			}
+		}
+
+		
+		if ($uri =~ m{^oils:/([^\/]+)/(\d+)}o) {
+			$id = $2;
+			$type = 'record';
+			$type = 'metarecord' if ($1 =~ /^m/o);
+			$command = 'retrieve';
+		}
+
+	} elsif ( $path =~ m{^/formats/([^\/]+)$}o ) {
+		my $list = $supercat
+			->request("open-ils.supercat.$1.formats")
+			->gather(1);
+
+		print '<formats>'.
+			join('',
+				map { 
+					"<format><name>$_</name><type>text/xml</type></format>" 
+				} @$list
+			).'</formats>';
+		return Apache2::Const::OK;
+	}
+
+	print $supercat
+		->request("open-ils.supercat.$type.$format.$command",$id)
+		->gather(1);
+
+	return Apache2::Const::OK;
+}
+
+1;
-- 
2.43.2