made app name functions as well so the import of so many vars isn't necessary
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 24 Jan 2006 23:34:09 +0000 (23:34 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 24 Jan 2006 23:34:09 +0000 (23:34 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2821 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/support-scripts/oils_header.pl
Open-ILS/src/support-scripts/test-scripts/simple.pl

index 818925a..1d80e85 100755 (executable)
@@ -35,6 +35,15 @@ our $MATH            = 'opensrf.math';
 our $SETTINGS  = 'opensrf.settings';
 our $ACTOR             = 'open-ils.actor';
 
+sub AUTH               { return $AUTH; }
+sub STORAGE { return $STORAGE; }
+sub SEARCH     { return $SEARCH; }
+sub CIRC               { return $CIRC; }
+sub CAT                { return $CAT; }
+sub MATH               { return $MATH; }
+sub SETTINGS { return $SETTINGS; }
+sub ACTOR      { return $ACTOR; }
+
 
 #----------------------------------------------------------------
 # Exit a script
index 6ee22ca..108445d 100755 (executable)
@@ -5,15 +5,14 @@
 #----------------------------------------------------------------
 
 require '../oils_header.pl';
-use vars qw/ $apputils $memcache $user $authtoken $authtime 
-       $AUTH $STORAGE $SEARCH $CIRC $CAT $MATH $SETTINGS $ACTOR /;
+use vars qw/ $apputils $memcache $user $authtoken $authtime /;
 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 );
+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);