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

   1 #!/usr/bin/perl
   2
   3 #----------------------------------------------------------------
   4 # Simple example
   5 #----------------------------------------------------------------
   6
   7 require '../oils_header.pl';
   8 use vars qw/ $apputils $memcache $user $authtoken $authtime /;
   9 use strict; use warnings;
  10
  11 my $config = $ARGV[0];
  12 err( "usage: $0 <bootstrap_config>" ) unless $config;
  13 osrf_connect($config);
  14
  15 my( $user, $evt ) = simplereq( STORAGE(), 'open-ils.storage.direct.actor.user.retrieve', 1 );
  16 oils_event_die($evt); # this user was not found / not all methods return events..
  17 print debug($user);
  18