Changeset 1023 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Heimdal

Timestamp:

05/29/12 10:25:51 (12 years ago)

Author:

nanardon

Message:

• complete POD

This patch a basic documentation to all functions.
It also add two test to ensure all POD syntax are correct and coverage is full.

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Heimdal/User.pm (modified) (5 diffs)

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

@@ -80 +80 @@
 }
 
-sub uid2prin {
+=head2 uid2principal ($uid, $base)
+
+Convert UID to kerberos principal
+
+=cut
+
+sub uid2principal {
     my ($self, $uid, $base) = @_;
     my $ba = $base || $self->base;
@@ -92 +98 @@
     
     _is_ignored_user($base, $uid) and return;
-    my $entry = $base->heimdal->getPrincipal($class->uid2prin($uid, $base));
+    my $entry = $base->heimdal->getPrincipal($class->uid2principal($uid, $base));
     return if (!$entry);
     bless({ entry => $entry, _base => $base, _id => $uid }, $class);
@@ -104 +110 @@
         return;
     };
-    my $principal = $base->heimdal->makePrincipal($class->uid2prin($id, $base));
+    my $principal = $base->heimdal->makePrincipal($class->uid2principal($id, $base));
     exists($data{krb5KDCFlags}) or $data{krb5KDCFlags} = 0;
     exists($data{krb5MaxRenew}) or $data{krb5MaxRenew} = 604800;
@@ -121 +127 @@
     my $obj = $class->new($base, $uid) or return;
 
-    my $code = $base->heimdal->deletePrincipal($class->uid2prin($uid, $base));
+    my $code = $base->heimdal->deletePrincipal($class->uid2principal($uid, $base));
 
     if (!$code) {
@@ -188 +194 @@
 
     $self->base->heimdal->changePassword(
-        $self->uid2prin(),
+        $self->uid2principal(),
         $clear_pass
     );