view release on metacpan or  search on metacpan

lib/App/SimpleBackuper/DB/FilesTable.pm  view on Meta::CPAN

package App::SimpleBackuper::DB::FilesTable;

use strict;
use warnings;
use parent qw(App::SimpleBackuper::DB::BaseTable);
use Try::Tiny;
use Data::Dumper;
use App::SimpleBackuper::DB::PartsTable;

sub _pack_version {
	my($version) = @_;
	
	my $p = __PACKAGE__->packer()
		->pack(J => 1	=> $version->{backup_id_min})
		->pack(J => 1	=> $version->{backup_id_max})
		->pack(J => 1	=> $version->{uid})
		->pack(J => 1	=> $version->{gid})
		->pack(J => 1	=> $version->{size})
		->pack(J => 1	=> $version->{mode})
		->pack(J => 1	=> $version->{mtime})
		->pack(J => 1	=> $version->{block_id})
		->pack(J => 1	=> length($version->{symlink_to} // ''))
		;
	
	$p->pack(a => length($version->{symlink_to})	=> $version->{symlink_to} // '') if $version->{symlink_to};
	
	foreach my $part ( @{ $version->{parts} } ) {
		$p	->pack(H => 128 => $part->{hash})
			->pack(J => 1	=> $part->{size})
			->pack(a => 32	=> $part->{aes_key})
			->pack(a => 16	=> $part->{aes_iv})
			;
	}
	
	return $p->data;
}

sub _unpack_version {
	my($version) = @_;
	
	my $p = __PACKAGE__->packer($version);
	
	my %version = (
		backup_id_min	=> $p->unpack(J => 1),
		backup_id_max	=> $p->unpack(J => 1),
		uid				=> $p->unpack(J => 1),
		gid				=> $p->unpack(J => 1),
		size			=> $p->unpack(J => 1),
		mode			=> $p->unpack(J => 1),
		mtime			=> $p->unpack(J => 1),
		block_id		=> $p->unpack(J => 1),
		parts			=> [],
	);
	
	my $symlink_to_length = $p->unpack(J => 1);
	$version{symlink_to} = $symlink_to_length ? $p->unpack(a => $symlink_to_length) : undef;
	
	while(! $p->at_end) {
		push @{ $version{parts} }, {
			hash	=> $p->unpack(H => 128),
			size	=> $p->unpack(J => 1),
			block_id=> $version{block_id},
			aes_key	=> $p->unpack(a => 32),
			aes_iv	=> $p->unpack(a => 16),
		};
	}