From 3df28a3aa5f2dfc9e29504d8b84e7d1c7264ac38 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Tue, 30 Dec 2008 11:20:15 -0600 Subject: [PATCH] Minor updates to minor cronjob script. Signed-off-by: Galen Charlton --- misc/cronjobs/services_throttle.pl | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/misc/cronjobs/services_throttle.pl b/misc/cronjobs/services_throttle.pl index 0d0d6be446..cafc5171cf 100755 --- a/misc/cronjobs/services_throttle.pl +++ b/misc/cronjobs/services_throttle.pl @@ -1,7 +1,9 @@ #!/usr/bin/perl -#run nightly -- resets the services throttle +# run nightly -- resets the xisbn services throttle + +use strict; +use warnings; -use strict; use warnings; BEGIN { # find Koha's Perl modules # test carefully before changing this @@ -10,9 +12,10 @@ BEGIN { } use C4::Context; -my $dbh=C4::Context->dbh; my $fixit="UPDATE services_throttle SET service_count=0 WHERE service_type='xisbn'"; -my $sth=$dbh->prepare($fixit); -my $res = $sth->execute() or die "can't execute"; -print "$res\n"; #did it work? -$dbh->disconnect(); +my $sth = C4::Context->dbh->prepare($fixit); +my $res = $sth->execute() or die "cannot execute query: $fixit"; + +# There is no need to return anything if we succeeded, +# and the die message (or other more internal Context/mysql error) +# will get emailed to the cron user if we didn't. -- 2.39.5