Add process management

process/ldap/update_group.pl

@@ -0,0 +1,133 @@
+#! /usr/bin/env perl
+
+use v5.10.1;
+use strict;
+use warnings;
+use Pod::Usage;
+
+BEGIN {
+    push @INC, "../../";
+}
+
+use ACU::LDAP;
+use ACU::Process;
+
+our $ou = "intra";
+
+my %actions =
+(
+ "new" => \&group_new,
+ "add" => \&group_add,
+ "delete" => \&group_delete,
+ "flush" => \&group_flush,
+ "remove" => \&group_remove,
+ "update" => \&group_update,
+);
+
+sub group_new($$)
+{
+    my $dn = shift;
+    my $args = shift;
+
+    # Add group
+    if (LDAP::add_group($args->{param}{cn}, LDAP::get_year) eq $dn)
+    {
+	if ($args->{param}{type}) {
+	    group_add $dn, $args
+	}
+    }
+}
+
+sub group_add($$)
+{
+    my $dn = shift;
+    my $args = shift;
+
+    my $cnt_type = group_get_type $args->{param};
+
+    # Add content if any
+    for (my $i = $args->{unamed}; $i > 0; $i--) {
+	LDAP::add_attribute($dn, $cnt_type, $args->{param}{$i});
+    }
+}
+
+sub group_delete($$)
+{
+    return LDAP::delete_entry(shift);
+}
+
+sub group_flush($$)
+{
+    my $dn = shift;
+    my $args = shift;
+
+    my $cnt_type = group_get_type $args->{param};
+
+    return LDAP::flush_attribute($dn, $cnt_type);
+}
+
+sub group_remove($$)
+{
+    my $dn = shift;
+    my $args = shift;
+
+    my $cnt_type = group_get_type $args->{param};
+
+    my @data;
+    for (my $i = $args->{unamed}; $i > 0; $i--) {
+	push @data, $i;
+    }
+
+    return LDAP::delete_attributes($dn, $cnt_type, \@data);
+}
+
+sub group_update($$)
+{
+    my $dn = shift;
+    my $args = shift;
+
+    my $cnt_type = group_get_type $args->{param};
+
+    my @data;
+    for (my $i = $args->{unamed}; $i > 0; $i--) {
+	push @data, $i;
+    }
+
+    LDAP::update_attribute($dn, $cnt_type, \@data);
+}
+
+
+sub group_get_type($)
+{
+    my $param = shift;
+
+    # Extract data type
+    if ($param{type} eq "members") {
+	return "memberUid";
+    }
+    elsif ($param{type} eq "rights") {
+	return "intraRights" ;
+    }
+    else {
+	die ("Unknown type to add: ".$param{type});
+    }
+}
+
+
+sub process
+{
+    my ($given_args, $args) = @_;
+
+    my $year = $param{year} // LDAP::get_year;
+    my $dn = "cn=".$param{cn}."ou=$year,ou=$ou,ou=groups,dc=acu,dc=epita,dc=fr";
+    my $action = $param{type} // "update";
+
+    # Read action
+    if (! exists $actions{$action}) {
+	return "Unknown command for update_group: ". $action;
+    }
+
+    return $actions{$action}($dn, $args);
+}
+
+Process::register("update_group", \&process);