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 my $expired = $ses->request( 'open-ils.storage.actor.user.expired_barcodes' );
21 while (my $resp = $expired->recv ) {
22 print $resp->content . " E\n";
26 my $barred = $ses->request( 'open-ils.storage.actor.user.barred_barcodes' );
27 while (my $resp = $barred->recv ) {
28 print $resp->content . " B\n";
32 my $penalized = $ses->request( 'open-ils.storage.actor.user.penalized_barcodes' );
33 while (my $resp = $penalized->recv ) {
34 print $resp->content . " D\n";