$sth->execute( $host );
if ( $sth->rows == 0 ) {
warn "no backups to archive on $host\n";
- next;
+ push @HostList, $host;
+ push @BackupList, 0; # fake, but will make full-text update
}
while ( my $row = $sth->fetchrow_hashref ) {
}
}
+$dbh->disconnect;
+
my $ReqFileName;
for ( my $i = 0 ; ; $i++ ) {
$ReqFileName="archiveReq.$$.$i";
compext => $bpc->{Conf}{ArchiveComp} eq 'none' ? ''
: ($bpc->{Conf}{ArchiveComp} eq 'gzip' ? '.gz' : '.bz2'),
parfile => $bpc->{Conf}{ArchivePar},
- splitsize => '0000000',
+ splitsize => $bpc->{Conf}{ArchiveSplit} . '000000', # mb -> bytes
host => $ArchiveHost,
HostList => \@HostList,
BackupList => \@BackupList,