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
git-cache-proxy: Add Citrix to copyright notices
[chiark-utils.git]
/
backup
/
labeltape
diff --git
a/backup/labeltape
b/backup/labeltape
index 98961af003839ec3eb90e5f617ed02fa59519d79..fc3d2b388b4bbab50b43484f7808b1a091ac7d31 100755
(executable)
--- a/
backup/labeltape
+++ b/
backup/labeltape
@@
-19,9
+19,11
@@
while ($ARGV[0] =~ m/^-/) {
}
}
}
}
-@ARGV==1 or die "$0: need 1 arg, new TAPEID";
+@ARGV==1 or die "$0: need 1 arg, new TAPEID
\n
";
($newid)= @ARGV;
($newid)= @ARGV;
+open LOG, ">/dev/null" or die $!;
+
readtapeid_raw();
if (!open T,'TAPEID') {
readtapeid_raw();
if (!open T,'TAPEID') {
@@
-37,7
+39,8
@@
open T,'>TAPEID' or die $!;
print T "$newid\n" or die $!;
close T 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 $!;
exit 0;
print "Labelled tape \`$newid'\n" or die $!;
exit 0;