$cmd .= " -".("D" x $debuglevel) if $debuglevel;
$cmd .= " archive-api-query $subpath";
printdebug "apiquery $cmd\n";
$cmd .= " -".("D" x $debuglevel) if $debuglevel;
$cmd .= " archive-api-query $subpath";
printdebug "apiquery $cmd\n";
$poldbh->{HandleError} = sub {
return 0 unless $poldbh->err == 5; # SQLITE_BUSY, not in .pm :-(
die bless { }, $db_busy_exception;
$poldbh->{HandleError} = sub {
return 0 unless $poldbh->err == 5; # SQLITE_BUSY, not in .pm :-(
die bless { }, $db_busy_exception;