Changeset 568


Ignore:
Timestamp:
01/05/10 08:12:07 (15 years ago)
Author:
nanardon
Message:
  • revert last commit
Location:
LATMOS-Accounts
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/import/epo.pl

    r567 r568  
    1414my $otype ||= 'user'; 
    1515 
    16 my $LA = LATMOS::Accounts->new($config, noacl => 1); 
     16my $LA = LATMOS::Accounts->new($config); 
    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[27]} || $passwd[27]; 
     33    }->{$passwd[22]} || $passwd[22]; 
    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        } 
    5358    } 
    5459 
    … …  
    5964        } 
    6065 
    61  
    62         foreach my $col (3, 5, 7) { 
     66        foreach my $col (3, 5) { 
    6367            if($passwd[$col] ne 'AJETER') { 
    6468                my %param = (user => $obj->id,); 
    65                 $passwd[$col] =~ /^(SAV|SAJ|vel|StM|GY)-(.*)/i or do { 
    66                     warn "unknown $passwd[$col]"; 
    67                     next; 
    68                 }; 
     69                $passwd[$col] =~ /^(SAV|SAJ|vel|StM)-(.*)/i; 
    6970                my $eposite = $1; 
    7071                $param{physicalDeliveryOfficeName} = $2; 
    71                 $param{telephoneNumber} = '+33 1 ' . $passwd[$col + 5]; 
     72                $param{telephoneNumber} = '+33 1 ' . $passwd[$col + 3]; 
    7273 
    7374                for ($eposite) { 
    … …  
    8687                        last; 
    8788                    }; 
    88                     /^SAJ$/i and do { 
     89                    /^SAJ$/ and do { 
    8990                        $param{site} = 'Jussieu'; 
    9091                        $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 
    9692                        last; 
    9793                    }; 
    … …  
    105101            } 
    106102        } 
    107         $passwd[16] =~ /^T(\d\d\d\d)(\d\d)(\d\d)$/ and do { 
     103        $passwd[12] =~ /^T(\d\d\d\d)(\d\d)(\d\d)$/ and do { 
    108104            if($1 < 2100) { 
    109105                $changes{expire} = "$3/$2/$1 23:59:59"; 
    … …  
    112108            } 
    113109        }; 
    114         $passwd[22] =~ /^GRADE(.*)/ and do { 
     110        $passwd[17] =~ /^GRADE(.*)/ and do { 
    115111            $changes{grade} = $1; 
    116112        }; 
    … …  
    119115    { 
    120116        my @group = @{ $obj->get_c_field('memberOf') || []}; 
    121         foreach ($passwd[20] =~ /^DOM(.*)/g) { 
    122             $changes{departement} = '$1'; 
     117        foreach ($passwd[15] =~ /^DOM(.*)/g) { 
    123118            push @group, $1; 
    124119            next; 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

    r567 r568  
    9898        $self->log(LA_DEBUG, 'DB::COMMIT'); 
    9999    } 
    100     $self->{__cache} = undef; 
    101100    $self->db->commit; 
    102101} 
    … …  
    110109        $self->log(LA_DEBUG, 'DB::ROLLBACK'); 
    111110    } 
    112     $self->{__cache} = undef; 
    113111    $self->db->rollback; 
    114112} 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

    r567 r568  
    9191sub _inline_fields { 
    9292    my ($self, $for, $base) = @_; 
    93     if ($base->{__cache}{$self->object_table}) { 
    94         return %{$base->{__cache}{$self->object_table}}; 
    95     } 
    9693    my @res; 
    9794    my $sth = $base->db->prepare( 
    … …  
    108105    } 
    109106    my %fields = map { $_ => $_ } @res; 
    110     $base->{__cache}{$self->object_table} = \%fields; 
    111107    %fields 
    112108} 
    … …  
    126122    my @attr; 
    127123    if ($class->has_extended_attributes) { 
    128         if ($base->{__cache}{_extended_field}{$class}) { 
    129             return map { $_ => $_ } 
    130                @{$base->{__cache}{_extended_field}{$class}}; 
    131         } 
    132124        my $sth = $base->db->prepare_cached( 
    133125            sprintf( 
    … …  
    140132            push(@attr, $res->{canonical}); 
    141133        } 
    142         $base->{__cache}{_extended_field}{$class} = \@attr; 
    143134        return map { $_ => $_ } @attr; 
    144135    } else { 
Note: See TracChangeset for help on using the changeset viewer.