|
|
@ -166,10 +166,12 @@ while (my $ref = $sth->fetchrow_hashref) { |
|
|
|
FirstName => $info->{first_name}, |
|
|
|
FirstName => $info->{first_name}, |
|
|
|
LastName => $info->{last_name}, |
|
|
|
LastName => $info->{last_name}, |
|
|
|
Phone => $info->{phone}, |
|
|
|
Phone => $info->{phone}, |
|
|
|
Dept => $info->{supervisor_name}, |
|
|
|
Dept => $info->{unit}, |
|
|
|
|
|
|
|
Company => 'Univ de Bordeaux', |
|
|
|
PasswordSet => 'no', |
|
|
|
PasswordSet => 'no', |
|
|
|
Company => $info->{unit}, |
|
|
|
ForwardAddress => $info->{email}, |
|
|
|
PreferredMail => $info->{email}, |
|
|
|
PreferredMail => $info->{email}, |
|
|
|
|
|
|
|
EmailForward => 'forward', |
|
|
|
ExpireLockOn => $info->{end_contract}, |
|
|
|
ExpireLockOn => $info->{end_contract}, |
|
|
|
ExpireAutoReply => 'enabled', |
|
|
|
ExpireAutoReply => 'enabled', |
|
|
|
ExpireWarnUser => 'enabled', |
|
|
|
ExpireWarnUser => 'enabled', |
|
|
|