55f3444429
Signed-off-by: Chris Cormack <crc@liblime.com> Signed-off-by: Joshua Ferraro <jmf@liblime.com>
12 lines
348 B
Perl
Executable file
12 lines
348 B
Perl
Executable file
#!/usr/bin/perl
|
|
#run nightly -- resets the services throttle
|
|
|
|
use strict; use warnings;
|
|
|
|
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();
|