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));

SEE ALSO

Config::Augeas