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";
27 if (!open T,'TAPEID') {
28 $!==&ENOENT or die $!;
32 print "Tape is currently labelled \`$oldid'\n" or die $!;
33 die "$0: use -f to force relabelling\n" unless $force;
36 open T,'>TAPEID' or die $!;
37 print T "$newid\n" or die $!;
43 print "Labelled tape \`$newid'\n" or die $!;