perl based, so they are safer than srfsh and his puny 1M buffer ;)
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 25 Aug 2006 06:59:46 +0000 (06:59 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 25 Aug 2006 06:59:46 +0000 (06:59 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5668 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/support-scripts/fine_generator.pl [new file with mode: 0755]
Open-ILS/src/support-scripts/hold_targeter.pl [new file with mode: 0755]

diff --git a/Open-ILS/src/support-scripts/fine_generator.pl b/Open-ILS/src/support-scripts/fine_generator.pl
new file mode 100755 (executable)
index 0000000..5842944
--- /dev/null
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+# ---------------------------------------------------------------------
+# Generic databse object dumper.
+# ./object_dumper.pl <bootstrap_config> <type>, <type>, ...
+# ./object_dumper.pl /openils/conf/bootstrap.conf permission.grp_tree
+# ---------------------------------------------------------------------
+
+use strict; 
+use warnings;
+use JSON;
+use OpenSRF::System;
+
+my $config = shift || die "bootstrap config required\n";
+
+OpenSRF::System->bootstrap_client( config_file => $config );
+
+my $r = OpenSRF::AppSession
+               ->create( 'open-ils.storage' )
+               ->request( 'open-ils.storage.action.circulation.overdue.generate_fines' => 1 );
+
+while (!$r->complete) { $r->recv };
+
diff --git a/Open-ILS/src/support-scripts/hold_targeter.pl b/Open-ILS/src/support-scripts/hold_targeter.pl
new file mode 100755 (executable)
index 0000000..c828dc9
--- /dev/null
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+# ---------------------------------------------------------------------
+# Generic databse object dumper.
+# ./object_dumper.pl <bootstrap_config> <type>, <type>, ...
+# ./object_dumper.pl /openils/conf/bootstrap.conf permission.grp_tree
+# ---------------------------------------------------------------------
+
+use strict; 
+use warnings;
+use JSON;
+use OpenSRF::System;
+
+my $config = shift || die "bootstrap config required\n";
+
+OpenSRF::System->bootstrap_client( config_file => $config );
+
+my $r = OpenSRF::AppSession
+               ->create( 'open-ils.storage' )
+               ->request( 'open-ils.storage.action.hold_request.copy_targeter' => '24h' );
+
+while (!$r->complete) { $r->recv };
+