misc/cronjobs/services_throttle.pl

   1 #!/usr/bin/perl
   2 #run nightly -- resets the services throttle
   3
   4 use strict; use warnings;
   5 BEGIN {
   6     # find Koha's Perl modules
   7     # test carefully before changing this
   8     use FindBin;
   9     eval { require "$FindBin::Bin/../kohalib.pl" };
  10 }
  11
  12 use C4::Context;
  13 my $dbh=C4::Context->dbh;
  14 my $fixit="UPDATE services_throttle SET service_count=0 WHERE service_type='xisbn'";
  15 my $sth=$dbh->prepare($fixit);
  16 my $res = $sth->execute() or die "can't execute";
  17 print "$res\n"; #did it work?
  18 $dbh->disconnect();