Brackup
view release on metacpan or search on metacpan
lib/Brackup/Backup.pm view on Meta::CPAN
my $map = $self->{idcounts}{$type} || {};
return (sort { $map->{$b} <=> $map->{$a} } keys %$map)[0];
}
# space-separated list of local uid:username mappings
sub uid_map {
my $self = shift;
my @map;
my $uidcounts = $self->{idcounts}{u};
for my $uid (sort { $a <=> $b } keys %$uidcounts) {
if (my $name = getpwuid($uid)) {
push @map, "$uid:$name";
}
}
return join(' ', @map);
}
# space-separated list of local gid:group mappings
sub gid_map {
my $self = shift;
my @map;
lib/Brackup/Target/Sftp.pm view on Meta::CPAN
sub new {
my ($class, $confsec) = @_;
my $self = $class->SUPER::new($confsec);
$self->{path} = $confsec->value("path") or die 'No path specified';
$self->{nocolons} = $confsec->value("no_filename_colons");
$self->{nocolons} = $self->_default_nocolons unless defined $self->{nocolons};
$self->{sftp_host} = $confsec->value("sftp_host") or die 'No "sftp_host"';
$self->{sftp_port} = $confsec->value("sftp_port");
$self->{sftp_user} = $confsec->value("sftp_user") || (getpwuid($<))[0]
or die "No sftp_user specified";
$self->_common_new;
return $self;
}
sub new_from_backup_header {
my ($class, $header) = @_;
my $self = bless {}, $class;
( run in 0.238 second using v1.01-cache-2.11-cpan-8d75d55dd25 )