projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
noninteractive freeside-setup
[freeside.git]
/
FS
/
bin
/
freeside-daily
diff --git
a/FS/bin/freeside-daily
b/FS/bin/freeside-daily
index
8d839cb
..
142b0c7
100755
(executable)
--- a/
FS/bin/freeside-daily
+++ b/
FS/bin/freeside-daily
@@
-4,17
+4,19
@@
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;
&untaint_argv; #what it sounds like (eww)
use FS::Record qw(qsearch qsearchs);
use FS::cust_main;
&untaint_argv; #what it sounds like (eww)
-use vars qw($opt_d);
-getopts("d:");
+use vars qw($opt_d
$opt_v
);
+getopts("d:
v
");
my $user = shift or die &usage;
adminsuidsetup $user;
my $user = shift or die &usage;
adminsuidsetup $user;
+$FS::cust_main::Debug = 1 if $opt_v;
+
my @cust_main = @ARGV
? map { qsearchs('cust_main', { custnum => $_ } ) } @ARGV
: qsearch('cust_main', {} )
my @cust_main = @ARGV
? map { qsearchs('cust_main', { custnum => $_ } ) } @ARGV
: qsearch('cust_main', {} )
@@
-39,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 {