diff options
author | ivan <ivan> | 2005-03-10 09:56:07 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-03-10 09:56:07 +0000 |
commit | 3cf7afe4ff9bc62d1a5c0d78aae35193251dca25 (patch) | |
tree | 8dfa346a3e5d3f3864bce8f1facedd4882777e2a /FS | |
parent | aa8abee96e4c9a915ebbbd1d987c8dec23f9ae70 (diff) |
fine.
Diffstat (limited to 'FS')
-rwxr-xr-x | FS/bin/freeside-daily | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily index ae71112dd..75bbca7d8 100755 --- a/FS/bin/freeside-daily +++ b/FS/bin/freeside-daily @@ -5,7 +5,7 @@ use Fcntl qw(:flock); use Date::Parse; use Getopt::Std; use FS::UID qw(adminsuidsetup driver_name dbh datasrc); -use FS::Record qw(qsearch qsearchs); +use FS::Record qw(qsearch qsearchs dbdef); use FS::Conf; use FS::cust_main; @@ -57,8 +57,10 @@ foreach $cust_main ( @cust_main ) { if ( driver_name eq 'Pg' ) { dbh->{AutoCommit} = 1; #so we can vacuum - my $sth = dbh->prepare('vacuum analyze') or die dbh->errstr; - $sth->execute or die $sth->errstr; + foreach my $table ( dbdef->tables ) { + my $sth = dbh->prepare("VACUUM ANALYZE $table") or die dbh->errstr; + $sth->execute or die $sth->errstr; + } } my $conf = new FS::Conf; |