Backup-Duplicity-YADW

 view release on metacpan or  search on metacpan

lib/Backup/Duplicity/YADW.pm  view on Meta::CPAN

	confess "invalid type: $type"
		if $type ne 'full' and $type ne 'incremental';

	my @cmd = ( 'duplicity', $type );

	$self->_get_verbosity( \@cmd );
	$self->_get_exclude_device_files( \@cmd );
	$self->_get_incl_excl_list( \@cmd );
	$self->_get_encrypt_key( \@cmd );
	$self->_get_log_file( \@cmd );
	$self->_get_async_upload( \@cmd );
	$self->_get_s3_new( \@cmd );
	$self->_get_sourcedir( \@cmd );
	$self->_get_targetdir( \@cmd );

	$self->_system(@cmd);

	return 1;
}

sub _get_sourcedir {

lib/Backup/Duplicity/YADW.pm  view on Meta::CPAN

		# optional
		my $locaction => { isa => 'Str', optional => 1 };

	my $str = $self->_conf->get('targeturl');
	$str .= "/$locaction" if $locaction;

	push( @$cmds, $str );
}

sub _get_async_upload {

	args_pos
		my $self,
		my $cmds;

	if ( $self->_conf()->get('asyncupload') ) {
		push @$cmds, '--asynchronous-upload';
	}
}

sub _get_incl_excl_list {

	args_pos
		my $self,
		my $cmds;

	my $conf  = $self->_conf;

share/etc/yadw/default.conf  view on Meta::CPAN

Days2KeepBackups 30

#
# duplicity -vX
#

Verbosity 3

#
# duplicity --asynchronous-upload
#

AsyncUpload	on

#
# duplicity --log-file
#

LogFile	/var/log/duplicity.log

t/etc/test.conf  view on Meta::CPAN

# used to set gpg env var PASSPHRASE
GpgPassPhrase off

# --remove-older-than
Days2KeepBackups 0

# -v
Verbosity 2

# --asynchronous-upload
AsyncUpload	on

# --log-file
LogFile	/tmp/yadwtest/log/duplicity.log

# ordered list of --include and --exclude cmd opts
<InclExcl>
	List 					\
		- **/selinux 		
</InclExcl>

t/etc/test_bad.conf  view on Meta::CPAN

# used to set gpg env var PASSPHRASE
GpgPassPhrase off

# --remove-older-than
Days2KeepBackups 0

# -v
Verbosity 2

# --asynchronous-upload
AsyncUpload	on

# --log-file
LogFile	/tmp/yadwtest/log/duplicity.log

# ordered list of --include and --exclude cmd opts
<InclExcl>
	List 					\
		- **/selinux 		
</InclExcl>