fsdump/multi.pl

   1 #!/usr/local/bin/perl
   2 # multi.pl
   3 # Called when a tape change is needed for a multi-file backup, to rename
   4 # to a new filename.
   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 if ($dump->{'host'}) {
  14         print STDERR "Multi-file backups not supported for remote\n";
  15         exit(2);
  16         }
  17 else {
  18         $i = 1;
  19         while(-r "$dump->{'file'}.$i") { $i++; }
  20         rename($dump->{'file'}, "$dump->{'file'}.$i");
  21         exit(0);
  22         }