Changeset 571

Timestamp:

01/05/10 09:28:42 (14 years ago)

Author:

nanardon

Message:

• don't workaround bad login anymore

File:

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

LATMOS-Accounts/import/epo.pl

@@ -24 +24 @@
 
     my @passwd = split("\t", $line);
+
     # warn (join(' - ', map { $_ => $passwd[$_] } 0 ..$#passwd));
     my @epo;
 
-    my $login = {
-        clerbaux => 'ccl',
-        cgranier => 'clg',
-        vernier => 'jeanpaul82',
-    }->{$passwd[27]} || $passwd[27];
+    my $login = $passwd[27]; 
+    warn $login . ' ' . scalar(@passwd);
     my $obj = $labase->get_object($otype, $login) or do {
         warn "Cannot get $login user";
@@ -129 +127 @@
     keys %changes or next;
     $obj->set_c_fields(%changes);
+    $labase->commit;
 }
-$labase->commit;