File Coverage

blib/lib/SVN/ACL.pm

Criterion	Covered	Total	%
statement	42	72	58.3
branch	10	22	45.4
condition			n/a
subroutine	10	12	83.3
pod	0	10	0.0
total	62	116	53.4

package SVN::ACL;

use strict;
use YAML;

our $VERSION = '0.02';

sub new {
    my $class = shift;
    my $path = shift;
    my $perm;

    my $aclfile = "$path/YAML.conf";
    (-w $path) or die "Can't access the config file: $aclfile";
    if (-e $aclfile) {
	$perm = YAML::LoadFile($aclfile);
    }
    else {
	$perm->{dir}->{'/'}->{'*'} = 'r';

    }
    bless ( { path => $path,
	      perm => $perm }, $class );
}

sub newdir {
    my $self = shift;
    my $dir = shift;
    $self->{perm}->{dir}->{$dir}->{'*'} = '';
}

sub newuser {
    my $self = shift;
    my ($name, $password) = @_;
    $self->{perm}->{user}->{$name} = $password;
}

sub deluser {
    my $self = shift;
    my $name = shift;
    delete $self->{perm}->{user}->{$name};
}

sub newgroup {
    my $self = shift;
    my $group = shift;
    $self->{perm}->{group}->{"@".$group} = [];
}

sub delgroup {
    my $self = shift;
    my $group = shift;
    delete $self->{perm}->{group}->{"@".$group};
}

sub grant {
    my $self = shift;
    my ($dir, $user, $permission) = @_;
    if ($user =~ /^@/) {
    exists ($self->{perm}->{group}->{$user})
	or die "no such group, you have to new the user first";
    $permission ? $self->{perm}->{dir}->{$dir}->{$user} = $permission
		: delete $self->{perm}->{dir}->{$dir}->{$user};
    }
    else {
    # $self->newdir($dir) unless (exists $self->{perm}->{dir}->{$dir});
	exists ($self->{perm}->{user}->{$user})
	    or die "no such user, you have to new the user first";
	$permission ? $self->{perm}->{dir}->{$dir}->{$user} = $permission
		   : delete $self->{perm}->{dir}->{$dir}->{$user};
    }
}

sub togroup {
    my $self = shift;
    my ($user, $group) = @_;
    $group = "@".$group;
    $self->{perm}->{group}->{$group} = [] unless (exists $self->{perm}->{group}->{$group});
    push @{$self->{perm}->{group}->{$group}}, $user;
}

sub export {
    my $self = shift;
    my $repospath = $self->{path};
    # parse the svnserv.conf
    open SVNSERV, ">$repospath/conf/svnserve.conf" or die $!;
    print SVNSERV << "CONF";
[general]
anon-access = read
auth-access = write
password-db = passwd
authz-db = authz
CONF
    close SVNSERV;
    # parse passwd file
    open PASSWD, ">$repospath/conf/passwd" or die $!;
    print PASSWD "[users]\n";
    print PASSWD "$_ = ".$self->{perm}->{user}->{$_}."\n" for keys %{$self->{perm}->{user}};
    close PASSWD;
    # parse authz
    open AUTHZ, ">$repospath/conf/authz" or die $!;
    print AUTHZ "[groups]\n";
    for (keys %{$self->{perm}->{group}}) {
	my $users = join ",", @{$self->{perm}->{group}->{$_}};
	print AUTHZ "$_ = $users\n"
    }
    print AUTHZ "\n\n";
    for my $path (keys %{$self->{perm}->{dir}}) {
	print AUTHZ "[$path]\n";
	for (keys %{$self->{perm}->{dir}->{$path}}) {
	    print AUTHZ "$_ = ".$self->{perm}->{dir}->{$path}->{$_}."\n";
	}
	print AUTHZ "\n";
    }
    close AUTHZ;
}

sub save {
    my $self = shift;
    my $aclfile = $self->{path}."/YAML.conf";
    YAML::DumpFile($aclfile, $self->{perm});
}

1;

__END__