my $connect = "DBI:Pg:dbname=backuppc";
my $commit_every = 100;
+my $limit = 0; # no limit
+#$limit = 1000;
my $bar = Term::ProgressBar->new({
- count => 100,
+ count => 1000,
# fh => \*STDOUT,
# name => 'thingy',
ETA => 'linear',
and files.backupnum = backups.num
and shares.id = backups.shareid
order by backups.date
-limit 1000
};
+$sql .= qq{ limit $limit } if ($limit);
+
_debug("prepare");
my $sth = $dbh->prepare($sql) || die $dbh->errstr();
_debug("execute");
queryPlan 'distinct-values(collection("backuppc.dbxml")/file/host/text())'
query 'distinct-values(collection("backuppc.dbxml")/file/host/text())'
print
+queryPlan 'distinct-values(collection("backuppc.dbxml")/file/share/text())'
+addIndex "" share node-element-presence-none
+queryPlan 'distinct-values(collection("backuppc.dbxml")/file/share/text())'
+addIndex "" share edge-element-equality-string
+queryPlan 'distinct-values(collection("backuppc.dbxml")/file/share/text())'
+query 'distinct-values(collection("backuppc.dbxml")/file/share/text())'
+print
+query 'distinct-values(collection("backuppc.dbxml")/file/path/text())'
+addIndex "" path edge-element-substring-string
+query 'distinct-values(collection("backuppc.dbxml")/file/path/text())'
+query 'distinct-values(collection("backuppc.dbxml")/file/path[contains(text(), "apt")])'
+print