r8656@llin: dpavlin | 2005-10-22 17:40:26 +0200

[BackupPC.git] / dbxml / convert_pgsql_xmldb.pl

diff --git a/dbxml/convert_pgsql_xmldb.pl b/dbxml/convert_pgsql_xmldb.pl
index c9c9995..089c957 100755 (executable)
--- a/dbxml/convert_pgsql_xmldb.pl
+++ b/dbxml/convert_pgsql_xmldb.pl
@@ -19,9 +19,11 @@ my $xmldb_container = 'backuppc.dbxml';
 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',
@@ -82,9 +84,10 @@ join backups on shares.hostid = backups.hostid
        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");