projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
vacuum pg databases daily
[freeside.git]
/
FS
/
bin
/
freeside-daily
diff --git
a/FS/bin/freeside-daily
b/FS/bin/freeside-daily
index
e6f02df
..
142b0c7
100755
(executable)
--- a/
FS/bin/freeside-daily
+++ b/
FS/bin/freeside-daily
@@
-4,7
+4,7
@@
use strict;
use Fcntl qw(:flock);
use Date::Parse;
use Getopt::Std;
use Fcntl qw(:flock);
use Date::Parse;
use Getopt::Std;
-use FS::UID qw(adminsuidsetup);
+use FS::UID qw(adminsuidsetup
driver_name dbh
);
use FS::Record qw(qsearch qsearchs);
use FS::cust_main;
use FS::Record qw(qsearch qsearchs);
use FS::cust_main;
@@
-41,6
+41,13
@@
foreach $cust_main ( @cust_main ) {
}
}
+if ( driver_name eq 'Pg' ) {
+ foreach my $statement ( 'vacuum', 'vacuum analyze' ) {
+ my $sth = dbh->prepare($statement) or die dbh->errstr;
+ $sth->execute or die $sth->errstr;
+ }
+}
+
# subroutines
sub untaint_argv {
# subroutines
sub untaint_argv {