misc/cronjobs/services_throttle.pl

   1 #!/usr/bin/perl
   2 #run nightly -- resets the services throttle
   3
   4 use strict; use warnings;
   5
   6 use C4::Context;
   7 my $dbh=C4::Context->dbh;
   8 my $fixit="UPDATE services_throttle SET service_count=0 WHERE service_type='xisbn'";
   9 my $sth=$dbh->prepare($fixit);
  10 my $res = $sth->execute() or die "can't execute";
  11 print "$res\n"; #did it work?
  12 $dbh->disconnect();