X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=backup%2Fincrem;h=341cd993555db1fb897a330b0dc4fe4852180223;hb=d0ad56266745f3f3368c1d188d2d9b051e28b5e4;hp=b50f50e8c9040d93475a1e8b8edcd455ca2f100a;hpb=4ab01705d43752de160d2580489f8c3ac4014921;p=chiark-utils.git

diff --git a/backup/increm b/backup/increm
index b50f50e..341cd99 100755
--- a/backup/increm
+++ b/backup/increm
@@ -103,16 +103,21 @@ for $tf (@fsys) {
 	$ddcmd .= " conv=sync";
     }
 
+    if ($dopt{'noinc'}) {
+	pboth("Incrementals of $atf_print ($prefix) suppressed in config.\n");
+    }
+
     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 {
-	pboth("Not dumping $atf ($prefix) - not supported.\n");
+	pboth("Not dumping $atf_print ($prefix) - not supported.\n");
 	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:
@@ -139,8 +144,7 @@ print IAN "$advance\n" 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;