my $DEST_DIR = "."; # Where should restored files should be placed?
my $RECURSION_LIMIT = 3; # Bound on recursive object references
my $DEST_DIR = "."; # Where should restored files should be placed?
my $RECURSION_LIMIT = 3; # Bound on recursive object references
############################ CHECKSUM VERIFICATION ############################
# A very simple later for verifying checksums. Checksums may be used on object
# references directly, and can also be used to verify entire reconstructed
############################ CHECKSUM VERIFICATION ############################
# A very simple later for verifying checksums. Checksums may be used on object
# references directly, and can also be used to verify entire reconstructed
print STDERR "Verification failure: ",
$newhash, " != ", $verifier->{HASH}, "\n";
}
print STDERR "Verification failure: ",
$newhash, " != ", $verifier->{HASH}, "\n";
}
# Restore the specified file. How to do so depends upon the file type, so
# dispatch based on that.
# Restore the specified file. How to do so depends upon the file type, so
# dispatch based on that.
my $indirect = load_ref($1);
process_metadata($indirect, $recursion_level + 1);
next;
my $indirect = load_ref($1);
process_metadata($indirect, $recursion_level + 1);
next;
# Read the snapshot descriptor to find the root object.
open DESCRIPTOR, "<", $descriptor
# Read the snapshot descriptor to find the root object.
open DESCRIPTOR, "<", $descriptor