}
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 {
- pboth("Not dumping $atf ($prefix) - not supported.\n");
+ 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:
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;