Repository List / svnadmin / trunk / svnacl.pl @ HEAD

#!/usr/bin/perl -w

use strict;
use warnings;
use SVNACL;

my $svn = new SVNACL(digest => 'Crypt', svn_conf => '/var/svn/conf');

END {
	
}

use Data::Dumper;
print Data::Dumper->Dump([$svn], ['*svn']);

=pod

my $user = $svn->user('moose');
if($user->test_password('halenochi')) {
	printf "HELLO!\n";
}

=cut

#my @list = $svn->useraccess('moose');
#for my $l (@list) {
#	print "item: " . $l->name . "\n";
#}

#print($svn->{error}."\n") if exists $svn->{error};

=pod

for my $repo ($svn->repositories) {
	print "Repo: $repo\n";
	for my $path ($repo->paths) {
		my ($gacl, $uacl) = $path->ACL();

		print "Path: $path\n";
		for my $g (keys %$gacl) {
			print "group: $g\n";
		}

		for my $u (keys %$uacl) {
			print "user: $u\n";
		}
	}
}

=cut

my @repost = sort { $a->name cmp $b->name } $svn->useraccess('moose', 'rw');
for(@repost) {
	print ref($_) . "= $_\n";
}