for $tf (@fsys) {
parsefsys();
+ prepfsys();
$bufir='DUMPOR';
$ddcmd= "$nasty dd ibs=$softblocksizebytes obs=$blocksizebytes of=$ntape";
}
if ($tm eq 'dump') {
- $dumpcmd= "dump 1bfu $softblocksizekb - $atf";
+ $dumplabel= $pcstr.$atf_print.'$';
+ $dumpcmd= "dump 1Lbfu $dumplabel $softblocksizekb - $atf";
+ } elsif ($tm eq 'gtar') {
+ $dumpcmd= "tar NCcfl $fsidfile $atf - .";
} else {
- print "Not dumping $atf ($prefix) - not \`dump'.\n" or die $!;
- print LOG "Not dumping $atf ($prefix) - not \`dump'.\n" or die $!;
+ pboth("Not dumping $atf_print ($prefix) - not supported.\n");
next;
}
- nexttapefile("inc $prefix:$atf");
+ nexttapefile("inc $prefix:$atf_print");
# Same trick as full uses to do a pipeline whilst keeping track
# of all exit statuses:
# advance is a file counter, so it needs to be updated for each
# dump we do to tape.
$advance++;
+
+ finfsys();
}
# Rewind the tape, and increment the counter of incremental backups.
close IAN or die $!;
rename 'increm-advance.new','increm-advance' or die $!;
-print LOG "Next FULL dump tape is $next\n" or die $!;
-print "Next FULL dump tape is $next\n" or die $!;
+pboth("Next FULL dump tape is $next\n");
setstatus "INCREMENTAL successful: $tapedesc, next full is $next";
exit 0;