projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
aa8abee
)
fine.
author
ivan
<ivan>
Thu, 10 Mar 2005 09:56:07 +0000
(09:56 +0000)
committer
ivan
<ivan>
Thu, 10 Mar 2005 09:56:07 +0000
(09:56 +0000)
FS/bin/freeside-daily
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-daily
b/FS/bin/freeside-daily
index
ae71112
..
75bbca7
100755
(executable)
--- 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 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;
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
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;
}
my $conf = new FS::Conf;