Changeset 345

Timestamp:

08/15/09 03:28:56 (15 years ago)

Author:

nanardon

Message:

• format in gecos is really worst than I though...

File:

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

LATMOS-Accounts/import/epo.pl

@@ -29 +29 @@
         vernier => 'jeanpaul82',
     }->{$passwd[0]} || $passwd[0];
-    my @gecos = split(',', $passwd[4]);
-    my @epo = split('\+', $gecos[1]);
+    my @gecos = split(',', $passwd[4],2);
+    my @epo = split(/\+|,/, $gecos[1]);
     my $obj = $labase->get_object($otype, $login) or do {
         warn "Cannot get $login user";
@@ -38 +38 @@
     my %changes;
     foreach (@epo) {
+        warn $_;
         /^NICK(.*)/ and do {
             $changes{initials} = $1;