5 $etc= '/etc/chiark-backup';
6 require "$etc/settings.pl";
7 require 'backuplib.pl';
9 while ($ARGV[0] =~ m/^-/) {
17 die "$0: unknown option -$_\n";
22 @ARGV==1 or die "$0: need 1 arg, new TAPEID\n";
25 open LOG, ">/dev/null" or die $!;
29 if (!open T,'TAPEID') {
30 $!==&ENOENT or die $!;
34 print "Tape is currently labelled \`$oldid'\n" or die $!;
35 die "$0: use -f to force relabelling\n" unless $force;
38 open T,'>TAPEID' or die $!;
39 print T "$newid\n" or die $!;
42 writetapeid($newid,'tapeid set manually');
45 print "Labelled tape \`$newid'\n" or die $!;