From 7d76c08b3f3ee6b990c9890315e85eace6d295c4 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 25 Aug 2006 06:59:46 +0000
Subject: [PATCH] perl based, so they are safer than srfsh and his puny 1M
 buffer ;)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5668 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/support-scripts/fine_generator.pl     | 22 +++++++++++++++++++
 Open-ILS/src/support-scripts/hold_targeter.pl | 22 +++++++++++++++++++
 2 files changed, 44 insertions(+)
 create mode 100755 Open-ILS/src/support-scripts/fine_generator.pl
 create mode 100755 Open-ILS/src/support-scripts/hold_targeter.pl

diff --git a/Open-ILS/src/support-scripts/fine_generator.pl b/Open-ILS/src/support-scripts/fine_generator.pl
new file mode 100755
index 0000000000..58429442c0
--- /dev/null
+++ b/Open-ILS/src/support-scripts/fine_generator.pl
@@ -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
index 0000000000..c828dc950a
--- /dev/null
+++ b/Open-ILS/src/support-scripts/hold_targeter.pl
@@ -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 };
+
-- 
2.43.2