X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-daily;h=142b0c73ae37ef2757e3d1743ac12c1ebed74166;hb=ef92d87d1980598a4f786905ac7aff1af0ead2b8;hp=e6f02df331b98b25b1a6d9de1727d9be03ca2d49;hpb=49bc2dac92d2bb60e000088449b27aa380cc3490;p=freeside.git

diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily
index e6f02df33..142b0c73a 100755
--- 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 FS::UID qw(adminsuidsetup);
+use FS::UID qw(adminsuidsetup driver_name dbh);
 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 {