sub longDate {local($x) = @_; 
 local($k,$a,$m,$j); 
 if ($x!~/(\d\d)\/(\d\d)\/(\d\d\d\d)/) {return ''}
 $j = ('1'.$1)+0-100; $m = ('1'.$2)+0-100; $a = ($3)+0;
 local @Tmois = ('janvier','février','mars','avril','mai','juin','juillet','août','septembre','octobre','novembre','décembre'); 
 return (($j==1)?'1er':$j.'')." ".$Tmois[$m-1]." ".$a.'';
}

function longDate(x) { 
 var k,a,m,j; 
 if (!x.match(/(\d\d)\/(\d\d)\/(\d\d\d\d)/)) {return ''}
 j = parseInt('1'+RegExp.$1)-100; m = parseInt('1'+RegExp.$2)-100; a = parseInt(RegExp.$3);
 var Tmois = ['janvier','février','mars','avril','mai','juin','juillet','août','septembre','octobre','novembre','décembre']; 
 return ((j==1)?'1er':j.toString())+" "+Tmois[m-1]+" "+a.toString();
}