fsdump/notape.pl

   1 #!/usr/local/bin/perl
   2 # notape.pl
   3 # Called when a foreground backup requests a new tape. Always fails, because
   4 # tape changing is not supported in this case
   5
   6 $no_acl_check++;
   7 delete($ENV{'SCRIPT_NAME'});    # force use of $0 to determine module
   8 delete($ENV{'FOREIGN_MODULE_NAME'});
   9 require './fsdump-lib.pl';
  10 $dump = &get_dump($ARGV[0]);
  11 $dump->{'id'} || die "Dump $ARGV[0] does not exist!";
  12
  13 &open_tempfile(NOTAPE, ">$module_config_directory/$dump->{'id'}.notape");
  14 &close_tempfile(NOTAPE);
  15 exit(2);
  16