chiark / gitweb /
@@ -1,3 +1,9 @@
authorianmdlvl <ianmdlvl>
Mon, 5 May 2003 15:55:26 +0000 (15:55 +0000)
committerianmdlvl <ianmdlvl>
Mon, 5 May 2003 15:55:26 +0000 (15:55 +0000)
+chiark-utils (3.0.4) unstable; urgency=low
+
+  * chiark-backup: full dumps have tapedesc in TAPEID
+
+ --
+
 chiark-utils (3.0.3) unstable; urgency=low

   * chiark-backup: compatibility with md5sum from dpkg 1.10.4.

backup/backuplib.pl
backup/full
backup/labeltape
debian/changelog

index e80f779..f8d7349 100644 (file)
@@ -64,9 +64,9 @@ sub readtapeid_raw () {
           "| tar -b$blocksize -vvxf - TAPEID";
 }
 
-sub writetapeid ($) {
+sub writetapeid ($$) {
     open T, ">TAPEID" or die $!;
-    print T "$_[0]\n" or die $!;
+    print T "$_[0]\n$_[1]\n" or die $!;
     close T or die $!;
 
     system "tar -b$blocksize -vvcf TAPEID.tar TAPEID"; $? and die $?;
index af6ebc9..388270f 100755 (executable)
@@ -134,7 +134,7 @@ system "mt -f $tape reten"; $? and die $?;
 setstatus "FAILED writing tape ID";
 # First write the tape ID to this tape.
 
-writetapeid($tapeid);
+writetapeid($tapeid,$tapedesc);
 
 unlink 'this-md5sums';
 
index c06d897..b708104 100755 (executable)
@@ -37,7 +37,7 @@ open T,'>TAPEID' or die $!;
 print T "$newid\n" or die $!;
 close T or die $!;
 
-writetapeid($newid);
+writetapeid($newid,'tapeid set manually');
 rewind_raw();
 
 print "Labelled tape \`$newid'\n" or die $!;
index 16ff7a0..bd0438b 100644 (file)
@@ -1,3 +1,9 @@
+chiark-utils (3.0.4) unstable; urgency=low
+
+  * chiark-backup: full dumps have tapedesc in TAPEID
+
+ --
+
 chiark-utils (3.0.3) unstable; urgency=low
 
   * chiark-backup: compatibility with md5sum from dpkg 1.10.4.