for $tf (@fsys) {
printdate();
parsefsys();
+ prepfsys();
pipe(FINDOR,FINDOW) or die $!;
pipe(DUMPOR,DUMPOW) or die $!;
push @tapefilesizes, [ $1, $currenttapefilename ];
$totalrecords += $1;
pboth("total blocks written so far: $totalrecords\n");
+
+ finfsys();
}
# The backup should now be complete; verify it