source: LATMOS-Accounts/import/epo.pl @ 571

#!/usr/bin/perl

use strict;
use warnings;
use LATMOS::Accounts;
use Getopt::Long;
use Pod::Usage;

GetOptions(
    'c|config=s' => \my $config,
    'b|base=s'   => \my $base,
) or pod2usage();

my $otype ||= 'user';

my $LA = LATMOS::Accounts->new($config, noacl => 1);
my $labase = $base ? $LA->base($base) : $LA->default_base;
$labase->{wexported} = 1;
$labase && $labase->load or die "Cannot load base";

while (my $line = <STDIN>) {

    chomp($line);

    my @passwd = split("\t", $line);

    # warn (join(' - ', map { $_ => $passwd[$_] } 0 ..$#passwd));
    my @epo;

    my $login = $passwd[27]; 
    warn $login . ' ' . scalar(@passwd);
    my $obj = $labase->get_object($otype, $login) or do {
        warn "Cannot get $login user";
        #warn $line . "\n";
        next;
    };
    my %changes;

    { # le nom/ prénom
        $changes{sn} = $passwd[0];
        $changes{sn} =~ s/_/ /g;
        $changes{givenName} = $passwd[1];
        $changes{givenName} =~ s/_/ /g;
        if ($passwd[10] =~ /^NICK(.*)$/) {
            if ($1 eq 'zzz') {
            $changes{nickname} = undef;
            } else { $changes{nickname} = $1 }
        }
        $changes{mail} = $passwd[9];
        $changes{mail} =~ s/cetp.ipsl.fr/latmos.ipsl.fr/;
    }

    { # address, a bit more complex
        # trash old
        foreach ($obj->get_attributes('otheraddress')) {
            $labase->delete_object('address', $_);
        }


        foreach my $col (3, 5, 7) {
            if($passwd[$col] ne 'AJETER') {
                my %param = (user => $obj->id,);
                $passwd[$col] =~ /^(SAV|SAJ|vel|StM|GY)-(.*)/i or do {
                    warn "unknown $passwd[$col]";
                    next;
                };
                my $eposite = $1;
                $param{physicalDeliveryOfficeName} = $2;
                $param{telephoneNumber} = '+33 1 ' . $passwd[$col + 5];

                for ($eposite) {
                    /^SAV$/i and do {
                        $param{site} = 'VerriÚres';
                        $passwd[14] =~ /aerov/ and $param{isMainAddress} = 1;
                        last;
                    };
                    /^Vel$/i and do {
                        $param{site} = 'Vélizy';
                        $passwd[14] =~ /cetp/ and $param{isMainAddress} = 1;
                        last;
                    };
                    /^Stm$/i and do {
                        $param{site} = 'St Maur';
                        last;
                    };
                    /^SAJ$/i and do {
                        $param{site} = 'Jussieu';
                        $passwd[14] =~ /aero$/ and $param{isMainAddress} = 1;
                        last;
                    };
                    /^GY$/i and do {
                        $param{site} = 'Guyancourt';
                        # is not main address at time
                        last;
                    };
                    warn "unmanaged $eposite";
                }
                $labase->create_object(
                    'address',
                    $obj->id . '-' . $eposite,
                    %param
                );
            }
        }
        $passwd[16] =~ /^T(\d\d\d\d)(\d\d)(\d\d)$/ and do {
            if($1 < 2100) {
                $changes{expire} = "$3/$2/$1 23:59:59";
            } else {
                $changes{expire} = undef;
            }
        };
        $passwd[22] =~ /^GRADE(.*)/ and do {
            $changes{grade} = $1;
        };
    }

    {
        my @group = @{ $obj->get_c_field('memberOf') || []};
        foreach ($passwd[20] =~ /^DOM(.*)/g) {
            $changes{departement} = '$1';
            push @group, $1;
            next;
        }
        $changes{'memberOf'} = \@group;
    }

    keys %changes or next;
    $obj->set_c_fields(%changes);
    $labase->commit;
}