$BPS=int(abs($ARGV[++$i]));
push(@bps_list, $BPS);
}
+ elsif ( $ARGV[$i] eq '-vacuum' )
+ {
+ $VACUUM=1;
+ }
else
{
print STDERR "Unknown option $ARGV[$i]:\n";
$ext{ymax} = $5;
# vacuum analyze table
-$query = 'vacuum analyze "'.$SCHEMA.'"."'.$TABLE.'"';
-$res = $conn->exec($query);
-if ( $res->resultStatus != PGRES_COMMAND_OK ) {
- print STDERR $conn->errorMessage;
- exit(1);
+if ( $VACUUM )
+{
+ print "VACUUM ANALYZE\n";
+ $query = 'vacuum analyze "'.$SCHEMA.'"."'.$TABLE.'"';
+ $res = $conn->exec($query);
+ if ( $res->resultStatus != PGRES_COMMAND_OK ) {
+ print STDERR $conn->errorMessage;
+ exit(1);
+ }
}
#
# $Log$
+# Revision 1.6 2004/03/05 21:06:04 strk
+# Added -vacuum switch
+#
# Revision 1.5 2004/03/05 21:03:18 strk
# Made the -bps switch specify the exact level(s) at which to run the test
#