4 use OpenSRF::EX qw(:try);
6 use OpenSRF::AppSession;
8 my $config = shift || die "Please specify a config file\n";
10 OpenSRF::System->bootstrap_client( config_file => $config );
12 my $ses = OpenSRF::AppSession->connect( 'open-ils.storage' );
14 my $lost = $ses->request( 'open-ils.storage.actor.user.lost_barcodes' );
15 while (my $resp = $lost->recv ) {
16 print $resp->content . " L\n";
20 if(0) { # XXX just too many... arg
21 my $expired = $ses->request( 'open-ils.storage.actor.user.expired_barcodes' );
22 while (my $resp = $expired->recv ) {
23 print $resp->content . " E\n";
28 my $barred = $ses->request( 'open-ils.storage.actor.user.barred_barcodes' );
29 while (my $resp = $barred->recv ) {
30 print $resp->content . " B\n";
34 my $penalized = $ses->request( 'open-ils.storage.actor.user.penalized_barcodes' );
35 while (my $resp = $penalized->recv ) {
36 print $resp->content . " D\n";