chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
@@ -1,3 +1,10 @@
[chiark-utils.git]
/
backup
/
increm
diff --git
a/backup/increm
b/backup/increm
index f2cb7b4814b30e8b4ffaddfe9e6f1a7272c552b1..945bb0e5dec5118b1e561be5a5f6fdb62b9da61a 100755
(executable)
--- a/
backup/increm
+++ b/
backup/increm
@@
-80,6
+80,7
@@
if ($advance == 1) {
sub closepipes () {
close(DUMPOR); close(BUFOR);
close(DUMPOW); close(BUFOW);
sub closepipes () {
close(DUMPOR); close(BUFOR);
close(DUMPOW); close(BUFOW);
+ close(GZOR); close(GZOW);
}
setstatus "PROBLEMS during incremental dump";
}
setstatus "PROBLEMS during incremental dump";
@@
-87,6
+88,7
@@
setstatus "PROBLEMS during incremental dump";
for $tf (@fsys) {
parsefsys();
for $tf (@fsys) {
parsefsys();
+ prepfsys();
$bufir='DUMPOR';
$ddcmd= "$nasty dd ibs=$softblocksizebytes obs=$blocksizebytes of=$ntape";
$bufir='DUMPOR';
$ddcmd= "$nasty dd ibs=$softblocksizebytes obs=$blocksizebytes of=$ntape";
@@
-102,14
+104,16
@@
for $tf (@fsys) {
}
if ($tm eq 'dump') {
}
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 {
} else {
- print "Not dumping $atf ($prefix) - not \`dump'.\n" or die $!;
- print LOG "Not dumping $atf ($prefix) - not \`dump'.\n" or die $!;
+ pboth("Not dumping $atf_print ($prefix) - not supported.\n");
next;
}
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:
# Same trick as full uses to do a pipeline whilst keeping track
# of all exit statuses:
@@
-125,6
+129,8
@@
for $tf (@fsys) {
# advance is a file counter, so it needs to be updated for each
# dump we do to tape.
$advance++;
# advance is a file counter, so it needs to be updated for each
# dump we do to tape.
$advance++;
+
+ finfsys();
}
# Rewind the tape, and increment the counter of incremental backups.
}
# Rewind the tape, and increment the counter of incremental backups.
@@
-134,8
+140,7
@@
print IAN "$advance\n" or die $!;
close IAN or die $!;
rename 'increm-advance.new','increm-advance' or die $!;
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;
setstatus "INCREMENTAL successful: $tapedesc, next full is $next";
exit 0;