Changeset 575

Timestamp:

01/06/10 08:01:09 (14 years ago)

Author:

nanardon

Message:

• properly get main address, department and cells

File:

• LATMOS-Accounts/import/epo.pl (modified) (6 diffs)

LATMOS-Accounts/import/epo.pl

@@ -40 +40 @@
         $changes{sn} = $passwd[0];
         $changes{sn} =~ s/_/ /g;
-        $changes{givenName} = $passwd[1];
-        $changes{givenName} =~ s/_/ /g;
+        if ($passwd[1] ne 'Compte-de-service') {
+            $changes{givenName} = $passwd[1];
+            $changes{givenName} =~ s/_/ /g;
+        }
         if ($passwd[10] =~ /^NICK(.*)$/) {
             if ($1 eq 'zzz') {
@@ -47 +49 @@
             } else { $changes{nickname} = $1 }
         }
-        $changes{mail} = $passwd[9];
-        $changes{mail} =~ s/cetp.ipsl.fr/latmos.ipsl.fr/;
+
+        if ($passwd[1] ne 'Compte-de-service') {
+            $changes{mail} = $passwd[13];
+            $changes{mail} =~ s/cetp.ipsl.fr/latmos.ipsl.fr/;
+        }
     }
 
@@ -58 +63 @@
 
 
+        if ($passwd[1] ne 'Compte-de-service') {
         foreach my $col (3, 5, 7) {
             if($passwd[$col] ne 'AJETER') {
@@ -72 +78 @@
                     /^SAV$/i and do {
                         $param{site} = 'VerriÚres';
-                        $passwd[14] =~ /aerov/ and $param{isMainAddress} = 1;
+                        $passwd[18] =~ /aerov/ and $param{isMainAddress} = 1;
                         last;
                     };
                     /^Vel$/i and do {
                         $param{site} = 'Vélizy';
-                        $passwd[14] =~ /cetp/ and $param{isMainAddress} = 1;
+                        $passwd[18] =~ /cetp/ and $param{isMainAddress} = 1;
                         last;
                     };
@@ -86 +92 @@
                     /^SAJ$/i and do {
                         $param{site} = 'Jussieu';
-                        $passwd[14] =~ /aero$/ and $param{isMainAddress} = 1;
+                        $passwd[18] =~ /aero$/ and $param{isMainAddress} = 1;
                         last;
                     };
@@ -113 +119 @@
             $changes{grade} = $1;
         };
+        } # Not compte-de-service
+        else {
+            $changes{grade} = undef,
+            $changes{expire} = undef;
+            $changes{description} = "$passwd[1] $passwd[0]";
+        }
     }
 
     {
         my @group = @{ $obj->get_c_field('memberOf') || []};
-        foreach ($passwd[20] =~ /^DOM(.*)/g) {
-            $changes{departement} = '$1';
-            push @group, $1;
+        foreach (split('DOM', $passwd[19])) {
+            $_ or next;
+            $changes{department} ||= $_;
+            push @group, $_;
             next;
+        }
+        foreach (split('CEL', $passwd[20])) {
+            $_ or next;
+            push @group, $_;
         }
         $changes{'memberOf'} = \@group;