Changeset 2506

Timestamp:

01/31/22 18:50:33 (2 years ago)

Author:

nanardon

Message:

Add support for RENATER/Partage

Location:

trunk/LATMOS-Accounts

Files:

• Makefile.PL (modified) (1 diff)
• latmos-accounts.spec.in (modified) (1 diff)
• lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Bases/Partage (added)
• lib/LATMOS/Accounts/Bases/Partage.pm (added)
• lib/LATMOS/Accounts/Bases/Partage/User.pm (added)
• lib/LATMOS/Accounts/Bases/Zimbra/User.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/Makefile.PL

@@ -42 +42 @@
         'DateTime::Format::Pg' => undef,
         'Net::IDN::Encode' => undef,
+        'Digest::HMAC_SHA1' => undef,
     }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005

trunk/LATMOS-Accounts/latmos-accounts.spec.in

@@ -46 +46 @@
 Buildrequires: perl(DateTime::Format::Pg)
 BuildRequires: perl(Net::IDN::Encode)
+Buildrequires: perl(Digest::HMAC_SHA1)
 
 Requires: perl(Mail::Sendmail)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -186 +186 @@
         $attrinfo = $self->_get_attr_schema(
             $self->base)->{$attribute}
-        or return;
+        or do { warn "$attribute EE"; return };
         $attrinfo->{name} = $attribute;
     } else {

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Zimbra/User.pm

@@ -80 +80 @@
                         SOAP::Data->name('alias')->value($_),
                     ) or do {
-                        $self->object->base->la_log('Cannot remove alias $_');
+                        $self->object->base->la_log("Cannot remove alias $_");
                         return;
                     };
@@ -91 +91 @@
                         SOAP::Data->name('alias')->value($_),
                     ) or do {
-                        $self->object->base->la_log('Cannot add alias $_');
+                        $self->object->base->la_log("Cannot add alias $_");
                         return;
                     };
@@ -223 +223 @@
         SOAP::Data->name('account')->value($self->{name})->attr({ by => 'name' }),
     ) or return;
-    require Data::Dumper;
-    #print Data::Dumper::Dumper($xpath);
 
     my ($accountnode) = $xpath->findnodes('//account');