# it invoked us, so no need to read the existing TAPEID record first.)
system "mt -f $ntape rewind"; $? and die $?;
if ($advance == 1) {
- open TI,">TAPEID" or die $!;
- print TI "$tapeid\n$tapedesc\n" or die $!;
- close TI or die $!;
-
- system "tar -b$blocksize -vvcf TAPEID.tar TAPEID"; $? and die $?;
- system "dd if=TAPEID.tar of=$ntape bs=${blocksize}b count=10"; $? and die $?;
+ writetapeid($tapeid,$tapedesc);
} else {
system "mt -f $ntape fsf $advance"; $? and die $?;
+ $currenttapefilenumber= $advance+1;
}
# Get a list of all filesystems
print LOG "Not dumping $atf ($prefix) - not \`dump'.\n" or die $!;
next;
}
+
+ nexttapefile("inc $prefix:$atf");
+
# Same trick as full uses to do a pipeline whilst keeping track
# of all exit statuses:
# dump </dev/null | writebuffer | dd >/dev/null