Changeset 826


Ignore:
Timestamp:
03/17/10 00:17:21 (14 years ago)
Author:
vivat
Message:

Adaptation "primaire" au format attendu par l'annuaire de WWW

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LATMOS-Accounts/bin/la-web-directory

    r824 r826  
    9292    } 
    9393             
    94     my $line = join(':', map { $_ || '' } ( 
     94        my $line = join(';', map { $_ || '' } ( 
    9595            $ouser->get_attributes('sn'), 
    9696            $ouser->get_attributes('givenName'), 
     
    108108            $ouser->get_attributes('mail'), 
    109109            $ouser->get_attributes('nickname'), 
    110             $ouser->get_attributes('expireText'), 
    111             $ouser->get_attributes('contratType'), 
    112110        )); 
     111        $line =~s/Paris */PAR-/g; 
     112        $line =~s/Guyancourt */GUY-/g; 
     113        $line =~s/Vélizy-Villacoublay */VEL-/g; 
     114        $line =~s/VerriÚres le Buisson */VLB-/g; 
     115        $line =~s/St Maur des Fossés */STM-/g; 
     116        $line =~s/\+ *33 *1 *//g; 
     117 
    113118    $users{$ouser->get_attributes('sn')}{$ouser->get_attributes('givenName')} = $line; 
    114119} 
Note: See TracChangeset for help on using the changeset viewer.