Open-ILS/src/support-scripts/fine_generator.pl

   1 #!/usr/bin/perl
   2 # ---------------------------------------------------------------------
   3 # Generic databse object dumper.
   4 # ./object_dumper.pl <bootstrap_config> <type>, <type>, ...
   5 # ./object_dumper.pl /openils/conf/bootstrap.conf permission.grp_tree
   6 # ---------------------------------------------------------------------
   7
   8 use strict;
   9 use warnings;
  10 use JSON;
  11 use OpenSRF::System;
  12
  13 my $config = shift || die "bootstrap config required\n";
  14
  15 OpenSRF::System->bootstrap_client( config_file => $config );
  16
  17 my $r = OpenSRF::AppSession
  18                 ->create( 'open-ils.storage' )
  19                 ->request( 'open-ils.storage.action.circulation.overdue.generate_fines' => 1 );
  20
  21 while (!$r->complete) { $r->recv };
  22