[open-ils-commits] r8064 - in trunk/Open-ILS/src/perlmods/OpenILS:
. Application
svn at svn.open-ils.org
svn at svn.open-ils.org
Wed Nov 14 23:29:57 EST 2007
Author: miker
Date: 2007-11-14 23:13:11 -0500 (Wed, 14 Nov 2007)
New Revision: 8064
Added:
trunk/Open-ILS/src/perlmods/OpenILS/Application.pm
Modified:
trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Proxy.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Search.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm
trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
Log:
subclassing OpenSRF::Application so we have a place to put global OpenILS methods
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,5 +1,6 @@
package OpenILS::Application::Actor;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use strict; use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 0;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,7 +1,8 @@
package OpenILS::Application::AppUtils;
# vim:noet:ts=4
use strict; use warnings;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use OpenSRF::Utils::Cache;
use OpenSRF::Utils::Logger qw/$logger/;
use OpenILS::Utils::ModsParser;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,7 +1,7 @@
use strict; use warnings;
package OpenILS::Application::Auth;
-use OpenSRF::Application;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use OpenSRF::Utils::Cache;
use Digest::MD5 qw(md5_hex);
use OpenSRF::Utils::Logger qw(:level);
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,10 +1,10 @@
use strict; use warnings;
package OpenILS::Application::Cat;
use OpenILS::Application::AppUtils;
-use OpenSRF::Application;
+use OpenILS::Application;
use OpenILS::Application::Cat::Utils;
use OpenILS::Application::Cat::Merge;
-use base qw/OpenSRF::Application/;
+use base qw/OpenILS::Application/;
use Time::HiRes qw(time);
use OpenSRF::EX qw(:try);
use OpenSRF::Utils::JSON;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,5 +1,6 @@
package OpenILS::Application::Circ;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use strict; use warnings;
use OpenILS::Application::Circ::Circulate;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -3,9 +3,9 @@
use OpenSRF::EX qw(:try);
use OpenILS::Application::AppUtils;
use OpenSRF::Utils::Logger qw(:logger);
-use OpenSRF::Application;
+use OpenILS::Application;
use OpenILS::Utils::Fieldmapper;
-use base 'OpenSRF::Application';
+use base 'OpenILS::Application';
use OpenILS::Utils::CStoreEditor qw/:funcs/;
use OpenILS::Event;
use OpenILS::Const qw/:const/;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,5 +1,6 @@
package OpenILS::Application::Ingest;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use Unicode::Normalize;
use OpenSRF::EX qw/:try/;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -10,7 +10,8 @@
use OpenILS::Application::AppUtils;
use OpenSRF::Utils::Logger qw(:logger);
use OpenILS::Utils::CStoreEditor qw/:funcs/;
-use base 'OpenSRF::Application';
+use OpenILS::Application;
+use base 'OpenILS::Application';
my $U = "OpenILS::Application::AppUtils";
my $script;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Proxy.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Proxy.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Proxy.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,6 +1,7 @@
package OpenILS::Application::Proxy;
use strict; use warnings;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use OpenSRF::EX qw(:try);
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,5 +1,6 @@
package OpenILS::Application::Reporter;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use strict; use warnings;
use OpenSRF::Utils::Logger qw/$logger/;
use OpenILS::Utils::CStoreEditor qw/:funcs/;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,5 +1,6 @@
package OpenILS::Application::Search;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use strict; use warnings;
use OpenSRF::Utils::JSON;
use OpenSRF::Utils::Logger qw(:logger);
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -1,6 +1,6 @@
package OpenILS::Application::Storage;
-use OpenSRF::Application;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
use OpenSRF::EX qw/:try/;
use OpenSRF::Utils::Logger qw/:level/;
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm 2007-11-14 23:31:58 UTC (rev 8063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -5,8 +5,8 @@
# All OpenSRF applications must be based on OpenSRF::Application or
# a subclass thereof. Makes sense, eh?
-use OpenSRF::Application;
-use base qw/OpenSRF::Application/;
+use OpenILS::Application;
+use base qw/OpenILS::Application/;
# This is the client class, used for connecting to open-ils.storage
use OpenSRF::AppSession;
Added: trunk/Open-ILS/src/perlmods/OpenILS/Application.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application.pm (rev 0)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application.pm 2007-11-15 04:13:11 UTC (rev 8064)
@@ -0,0 +1,16 @@
+package OpenILS::Application;
+use OpenSRF::Application;
+use base qw/OpenSRF::Application/;
+
+sub ils_version {
+ return "1.3";
+}
+
+__PACKAGE__->register_method(
+ api_name => 'opensrf.open-ils.system.ils_version',
+ api_level => 1,
+ method => 'ils_version',
+);
+
+1;
+
More information about the open-ils-commits
mailing list