5 require "$etc/settings.pl";
6 require 'backuplib.pl';
14 print "Running incremental (tape $tapeid) ...\n" or die $!;
16 open T,"$etc/tape.$tapeid" or die "Tape $tapeid not found: $!\n";
19 open NF,"next-full" or die $!;
23 setstatus "FAILED during incremental";
25 open A,"increm-advance" or die $!;
29 $advance =~ m/^\d+$/ or die "$advance ?";
31 system "mt -f $tape rewind"; $? and die $?;
32 system "mt -f $tape retension"; $? and die $?;
35 open TI,">TAPEID" or die $!;
36 print TI "$tapeid" or die $!;
39 system "tar -b$blocksize -vvcf TAPEID.tar TAPEID"; $? and die $?;
40 system "dd if=TAPEID.tar of=$ntape bs=${blocksize}b count=10"; $? and die $?;
42 system "mt -f $ntape fsf $advance"; $? and die $?;
49 close(DUMPOR); close(BUFOR);
50 close(DUMPOW); close(BUFOW);
53 setstatus "PROBLEMS during incremental dump";
56 pipe(DUMPOR,DUMPOW) or die $!;
57 pipe(BUFOR,BUFOW) or die $!;
60 print "Not dumping $atf ($prefix) - not \`dump'.\n" or die $!;
61 print LOG "Not dumping $atf ($prefix) - not \`dump'.\n" or die $!;
64 startprocess '</dev/null','>&DUMPOW',$rstr."dump 1bfu $softblocksizekb - $atf";
65 startprocess '<&DUMPOR','>&BUFOW','writebuffer';
66 startprocess '<&BUFOR','>/dev/null'
67 ,"dd ibs=$softblocksizebytes obs=$blocksizebytes of=$ntape";
73 system "mt -f $tape rewind"; $? and die $?;
75 open IAN,">increm-advance.new" or die $!;
76 print IAN "$advance\n" or die $!;
78 rename 'increm-advance.new','increm-advance' or die $!;
80 print LOG "Next FULL dump tape is $next\n" or die $!;
81 print "Next FULL dump tape is $next\n" or die $!;
83 setstatus "INCREMENTAL successful (next full is $next)";