$dumpin = '<&FINDOR';
} elsif ($tm eq 'ntfsimage') {
$dumpcmd= "ntfsimage -svvf --dirty $dev";
+ } elsif ($tm eq 'gtar') {
+ execute("$rstr touch $fsidfile+new");
+ $dumpcmd= "tar Ccfl $atf - .";
} else {
die "unknown method $tm for $prefix:$atf\n";
}
$totalrecords += $1;
pboth("total blocks written so far: $totalrecords\n");
+ if ($tm eq 'gtar') {
+ execute("$rstr mv -f $fsidfile+new $fsidfile");
+ }
+
finfsys();
}