NAME
Reprepro::Uploaders - Emulates reprepro's upload permissions
SYNOPSIS
use Reprepro::Uploaders;
# Initialize
my $uploaders = Reprepro::Uploaders->new(
uploaders => "/etc/reprepro/uploaders", # Mandatory, no default
verbose => 1, # Or debug for more messages
augeas_opts => { # Setup Config::Augeas
root => "/var/lib/fakeroot",
},
);
my %package = (
source => 'libfoo-bar-perl',
binaries => [ 'libfoo-bar-perl' ],
key => 'ABCD1234',
architectures => [ 'source' ],
sections => [ 'main/perl' ],
);
print "Package accepted".$/ if ($uploaders->check_package(\%package));