Changeset 569


Ignore:
Timestamp:
01/05/10 08:12:45 (14 years ago)
Author:
nanardon
Message:
  • new data, new format...
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/import/epo.pl

    r568 r569  
    1414my $otype ||= 'user'; 
    1515 
    16 my $LA = LATMOS::Accounts->new($config); 
     16my $LA = LATMOS::Accounts->new($config, noacl => 1); 
    1717my $labase = $base ? $LA->base($base) : $LA->default_base; 
    1818$labase->{wexported} = 1; 
    … …  
    2424 
    2525    my @passwd = split("\t", $line); 
    26     warn (join(' - ', map { $_ => $passwd[$_] } 0 ..$#passwd)); 
     26    # warn (join(' - ', map { $_ => $passwd[$_] } 0 ..$#passwd)); 
    2727    my @epo; 
    2828 
    … …  
    3131        cgranier => 'clg', 
    3232        vernier => 'jeanpaul82', 
    33     }->{$passwd[22]} || $passwd[22]; 
     33    }->{$passwd[27]} || $passwd[27]; 
    3434    my $obj = $labase->get_object($otype, $login) or do { 
    3535        warn "Cannot get $login user"; 
    36         warn $line . "\n"; 
     36        #warn $line . "\n"; 
    3737        next; 
    3838    }; 
    … …  
    5151        $changes{mail} = $passwd[9]; 
    5252        $changes{mail} =~ s/cetp.ipsl.fr/latmos.ipsl.fr/; 
    53         if ($passwd[13] !~ /1900\d\d\d\d/) { 
    54             $changes{birthDate} = $passwd[13]; 
    55             $changes{birthDate} =~ s/^N//; 
    56             $changes{birthDate} .= '120000Z'; 
    57         } 
    5853    } 
    5954 
    … …  
    6459        } 
    6560 
    66         foreach my $col (3, 5) { 
     61 
     62        foreach my $col (3, 5, 7) { 
    6763            if($passwd[$col] ne 'AJETER') { 
    6864                my %param = (user => $obj->id,); 
    69                 $passwd[$col] =~ /^(SAV|SAJ|vel|StM)-(.*)/i; 
     65                $passwd[$col] =~ /^(SAV|SAJ|vel|StM|GY)-(.*)/i or do { 
     66                    warn "unknown $passwd[$col]"; 
     67                    next; 
     68                }; 
    7069                my $eposite = $1; 
    7170                $param{physicalDeliveryOfficeName} = $2; 
    72                 $param{telephoneNumber} = '+33 1 ' . $passwd[$col + 3]; 
     71                $param{telephoneNumber} = '+33 1 ' . $passwd[$col + 5]; 
    7372 
    7473                for ($eposite) { 
    … …  
    8786                        last; 
    8887                    }; 
    89                     /^SAJ$/ and do { 
     88                    /^SAJ$/i and do { 
    9089                        $param{site} = 'Jussieu'; 
    9190                        $passwd[14] =~ /aero$/ and $param{isMainAddress} = 1; 
     91                        last; 
     92                    }; 
     93                    /^GY$/i and do { 
     94                        $param{site} = 'Guyancourt'; 
     95                        # is not main address at time 
    9296                        last; 
    9397                    }; 
    … …  
    101105            } 
    102106        } 
    103         $passwd[12] =~ /^T(\d\d\d\d)(\d\d)(\d\d)$/ and do { 
     107        $passwd[16] =~ /^T(\d\d\d\d)(\d\d)(\d\d)$/ and do { 
    104108            if($1 < 2100) { 
    105109                $changes{expire} = "$3/$2/$1 23:59:59"; 
    … …  
    108112            } 
    109113        }; 
    110         $passwd[17] =~ /^GRADE(.*)/ and do { 
     114        $passwd[22] =~ /^GRADE(.*)/ and do { 
    111115            $changes{grade} = $1; 
    112116        }; 
    … …  
    115119    { 
    116120        my @group = @{ $obj->get_c_field('memberOf') || []}; 
    117         foreach ($passwd[15] =~ /^DOM(.*)/g) { 
     121        foreach ($passwd[20] =~ /^DOM(.*)/g) { 
     122            $changes{departement} = '$1'; 
    118123            push @group, $1; 
    119124            next; 
Note: See TracChangeset for help on using the changeset viewer.