<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/local/bin/perl

#print "Content-Type: text/html\n\n&lt;HTML&gt;\n" ;
if($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
} else {
  $buffer=$ENV{'QUERY_STRING'} ;
}

@paires= split(/&amp;/, $buffer) ;
foreach $pair (@paires) {
  ($name, $value)= split(/=/, $pair) ;
  $$name=$value ;
}

$c=~s/CRURALA0/CRURALNL/;
$c=~s/CROUTEEL/CROUTENL/;
if($c=~/CPENALLL/) { # un L en trop au debut des numeros de certains articles
    $a=~s/^L// ;
}

# Le refresh ne fonctionne pas avec IE7 et a du etre abandonne au profit du "Location"

print "Location: http://www.legifrance.gouv.fr/WAspad/UnArticleDeCode?code=$c.rcv&amp;art=$a\n\n";

#print "&lt;head&gt;&lt;meta http-equiv=\"refresh\" content=\"1;http://www.legifrance.gouv.fr/WAspad/UnArticleDeCode?code=$c.rcv&amp;art=$a\"&gt;" ;

print "&lt;title&gt;";
print "Redirection vers Legifrance Attendez&lt;/title&gt;" ;
print "&lt;/head&gt;";
print "&lt;body&gt;Vous allez être redirigé vers le site legifrance.gouv.fr :&lt;p&gt;";
print "&lt;a href=\"http://www.legifrance.gouv.fr/WAspad/UnArticleDeCode?code=$c.rcv&amp;art=$a\"&gt;URL de redirection&lt;/a&gt;" ;
print "&lt;p&gt;Veuillez attendre ...&lt;p&gt;";

# ------------ Ce qui suit est la version du CGI anterieure au 29/1/2008 ---------------------

#use File::Copy ;
#
#$debug=0 ;
#umask 0 ;
#
#$z{'CASSURAL'}='des assurances (lois)' ;
#$z{'CASSURAD'}='des assurances (d&amp;eacute;crets CE)' ;
#$z{'CASSURAA'}='des assurances (arr&amp;ecirc;t&amp;eacute;s)' ;
#$z{'CAVIACIL'}='de l\'aviation civile (lois)' ;
#$z{'CAVIACIR'}='de l\'aviation civile (d&amp;eacute;crets CE)' ;
#$z{'CAVIACID'}='de l\'aviation civile (d&amp;eacute;crets simples)' ;
#$z{'CCIVILL0'}='civil' ;
#$z{'CCOMMER0'}='de commerce' ;
#$z{'CCOMMUNL'}='des communes (lois)' ;
#$z{'CCOMMUNR'}='des communes (d&amp;eacute;crets CE)' ;
#$z{'CCONSTRL'}='de la construction (lois)' ;
#$z{'CCONSTRR'}='de la construction (d&amp;eacute;crets CE)' ;
#$z{'CCONSOML'}='de la consommation (lois)' ;
#$z{'CCONSOMR'}='de la consommation (d&amp;eacute;crets CE)' ;
#$z{'CDARCHI0'}='de deontologie des architectes' ;
#$z{'CDCHIRD0'}='de deontologie des chirurgiens-dentistes' ;
#$z{'CDEBBOIL'}='des d&amp;eacute;bits de boissons (lois)' ;
#$z{'CDEBBOIR'}='des d&amp;eacute;bits de boissons (d&amp;eacute;crets CE)' ;
#$z{'CDPOLIC0'}='de deontologie de la police nationale' ;
#$z{'CDSAGES0'}='de deontologie des sages-femmes' ;
#$z{'CDVETER0'}='de deontologie v&amp;eacute;t&amp;eacute;rinaire' ;
#$z{'CELECTOL'}='electoral (lois)' ;
#$z{'CELECTOR'}='electoral (d&amp;eacute;crets CE)' ;
#$z{'CEXPROPL'}='de l\'expropriation (lois)' ;
#$z{'CEXPROPR'}='de l\'expropriation (d&amp;eacute;crets CE)' ;
#$z{'CFAMILL0'}='de la famille et de l\'aide sociale' ;
#$z{'CFORESTL'}='forestier' ;
#$z{'CFORESTR'}='forestier' ;
#$z{'CGCTERRL'}='g&amp;eacute;n&amp;eacute;ral des collectivit&amp;eacute;s territoriales (lois)' ;
#$z{'CJURFINL'}='des juridictions financi&amp;egrave;res (lois)' ;
#$z{'CMARPUB0'}='des march&amp;eacute;s publics' ;
#$z{'CMARPUN0'}='des march&amp;eacute;s publics (nouveau)' ;
#$z{'CMINIER0'}='minier' ;
#$z{'CMUTUALL'}='de la mutualit&amp;eacute; (lois)' ;
#$z{'CMUTUALR'}='de la mutualit&amp;eacute; (d&amp;eacute;crets CE)' ;
#$z{'CPENALLL'}='p&amp;eacute;nal (lois)' ;
#$z{'CPENALLR'}='p&amp;eacute;nal (d&amp;eacute;crets CE)' ;
#$z{'CPENSICL'}='des pensions civiles et militaires de retraite (lois)' ;
#$z{'CPENSICR'}='des pensions civiles et militaires de retraite (d&amp;eacute;crets CE)' ;
#$z{'CPENSICD'}='des pensions civiles et militaires de retraite (d&amp;eacute;crets simples)' ;
#$z{'CPOSTESL'}='des postes et t&amp;eacute;l&amp;eacute;communications (lois)' ;
#$z{'CPOSTESR'}='des postes et t&amp;eacute;l&amp;eacute;communications (d&amp;eacute;crets CE)' ;
#$z{'CPOSTESD'}='des postes et t&amp;eacute;l&amp;eacute;communications (d&amp;eacute;crets simples)' ;
#$z{'CPROCIV0'}='de proc&amp;eacute;dure civile (Nouveau)' ;
#$z{'CPROCPEL'}='de procedure p&amp;eacute;nale (lois)' ;
#$z{'CPROCPER'}='de procedure p&amp;eacute;nale (d&amp;eacute;crets CE)' ;
#$z{'CPROCPED'}='de procedure p&amp;eacute;nale (d&amp;eacute;crets simples)' ;
#$z{'CPROCPEA'}='de procedure p&amp;eacute;nale (arr&amp;ecirc;t&amp;eacute;s)' ;
#$z{'CPROINTL'}='de la propri&amp;eacute;t&amp;eacute; intellectuelle (lois)' ;
#$z{'CPROINTR'}='de la propri&amp;eacute;t&amp;eacute; intellectuelle (d&amp;eacute;crets CE)' ;
#$z{'CROUTEEL'}='de la route (lois)' ;
#$z{'CROUTEER'}='de la route (d&amp;eacute;crets CE)' ;
#$z{'CRURALA0'}='rural (lois)' ;
#$z{'CRURALNL'}='rural (lois)' ;
#$z{'CRURALNR'}='rural (d&amp;eacute;crets CE)' ;
#$z{'CSANPUNL'}= 'de la sant&amp;eacute; publique (nouveau)' ;
#$z{'CSANPUNR'}= 'de la sant&amp;eacute; publique (nouveau) (d&amp;eacute;crets CE)' ;
#$z{'CSANPUND'}= 'de la sant&amp;eacute; publique (nouveau) (d&amp;eacute;crets simples)' ;
#$z{'CSANPUBL'}='de la sant&amp;eacute; publique' ;
#$z{'CSANPUBR'}='de la sant&amp;eacute; publique' ;
#$z{'CSECSOCL'}='de la s&amp;eacute;curit&amp;eacute; sociale' ;
#$z{'CSECSOCR'}='de la s&amp;eacute;curit&amp;eacute; sociale' ;
#$z{'CSECSOCD'}='de la s&amp;eacute;curit&amp;eacute; sociale' ;
#$z{'CSERVNAL'}='du service national' ;
#$z{'CSERVNAR'}='du service national' ;
#$z{'CTRAVAIL'}='du travail (lois)' ;
#$z{'CTRAVAIR'}='du travail (d&amp;eacute;crets CE)' ;
#$z{'CTRAVAID'}='du travail (d&amp;eacute;crets simples)' ;
#$z{'CTRAVMA0'}='du travail maritime' ;
#$z{'CTRIBUNL'}='des tribunaux administratifs et cours administratives d\'appel (lois)' ;
#$z{'CTRIBUNR'}='des tribunaux administratifs et cours administratives d\'appel (d&amp;eacute;crets CE)' ;
#$z{'CURBANIL'}='de l\'urbanisme (lois)' ;
#$z{'CURBANIR'}='de l\'urbanisme (d&amp;eacute;crets CE)' ;
#$z{'CURBANIA'}='de l\'urbanisme (arr&amp;ecirc;t&amp;eacute;s)' ;
#$z{'CVOIRIEL'}='de la voirie routi&amp;egrave;re (lois)' ;
#$z{'CVOIRIER'}='de la voirie routi&amp;egrave;re (d&amp;eacute;crets CE)' ;
#
#chdir("/projects/fim/work_test/ok/") ;
#
#if($ENV{'REQUEST_METHOD'} eq 'POST') {
#  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
#} else {
#  $buffer=$ENV{'QUERY_STRING'} ;
#}
#
#@paires= split(/&amp;/, $buffer) ;
#foreach $pair (@paires) {
#  ($name, $value)= split(/=/, $pair) ;
#  $$name=$value ;
## print "$name $c&lt;br&gt;\n" ;
#}
#
#if($a=~/^[0-9]/ &amp;&amp; $c=~/CPENAL/) { $c="CPENALLL" ; }
#if($a=~/^[0-9]/ &amp;&amp; $c=~/CPROCPE/) { $c="CPROCPEL" ; }
#if($a=~/^L/) { $c=~s/[ARD]$/L/ ; }
#if($a=~/^R/) { $c=~s/[ALD]$/R/ ; 
#  if($z{$c}!~/[a-z]/) { $c=~s/R$/D/ ; }
#}
#if($a=~/^D/) { $c=~s/[ALR]$/D/ ; }
#if($a=~/^A/) { $c=~s/[DLR]$/A/ ; }
#if($c=~/0$/ &amp;&amp; $a=~/^L/ &amp;&amp; $c !~/CCOMMER0/) { $c=~s/0$/L/ ; }
#if($c=~/0$/ &amp;&amp; $a=~/^R/) { $c=~s/0$/R/ ; }
#if($c=~/0$/ &amp;&amp; $a=~/^D/) { $c=~s/0$/D/ ; }
#if($c=~/0$/ &amp;&amp; $a=~/^A/) { $c=~s/0$/A/ ; }
#if($c=~/CRURAL/ &amp;&amp; $a=~/^[0-9]/) { $c="CRURALA0";}
#if(($c=~/CPENALLL/ || $c=~/CPROCPEL/) &amp;&amp; $a=~/^L/) { $a=~s/^L// ; }
#if($c=~/CTRAVMA/) { $c='CTRAVMA0' ; $a=~s/^L// ; }
#
#if( $z{$c} !~ /./) {
#  print "Content-Type: text/html\n\n&lt;HTML&gt;\n&lt;BODY bgcolor=\"#ffffff\"&gt;" ;
#  print "&lt;center&gt;&lt;h3&gt;Code non disponible&lt;/h3&gt;&lt;/center&gt;\n" ; exit 0 ; 
#}
#
#print "Content-Type: text/html\n\n&lt;HTML&gt;\n&lt;BODY bgcolor=\"#ffffff\"&gt;" ;
#
##$ggg="/home/moret/gros/WWW/ADMINET/jo/codes/$c$a.html" ;
##
## Modification le 5/06/03 : passage sur imperia
##
#$ggg="/projects/adminet/www/jo/codes/$c$a.html" ;
#
#if($debug!=1) {
#  if(-f $ggg) {
#    print `cat $ggg` ;
##   print "Location: http://admi.net/jo/codes/$c$a.html\n\n";
# #  open GGG,$ggg ;
# #  while(&lt;GGG&gt;) { print ; }
#    exit 0 ;
#  }
#  open GGG,"&gt;$ggg" ;
#}
#
#open(NUM, "cat ld.autres references loisetdecrets|") ;
#while(&lt;NUM&gt;) { chop ;
#  ($x,$y)=split /\|/, $_ ;
#  $ld{$x}="$y" ;
##print "LOIS ET DECRETS et ORDONN et DC : $x $ld{y}\n";
#}
#close NUM;
#
##$gg="/home/moret/gros/WWW/ADMINET/jo/codes/$c$a" ;
##
## Modification le 5/06/03 : passage sur imperia
##
#$gg="/projects/adminet/www/jo/codes/$c$a" ;
#
#if(-f $gg) { $ff=$gg; }
#else {
#  chdir("/projects/fim/work_test/ok/") ;
#  system "cd /projects/fim/work_test/ok/;rm codeh.ow rm uncode.ow* code04.cgi*;./wget http://www.legifrance.gouv.fr/citoyen/uncode.ow?code=$c.rcv &gt;log" ;
#
#  open A, "/projects/fim/work_test/ok/uncode.ow?code=$c.rcv" ;
#  while(&lt;A&gt;){chop ; if ($_ =~ /heure[0-9]?=/) { ($h=$_)=~s/^.*(heure[0-9]?=[0-9]+)".*$/$1/ ; 
#    }
#  }
#  close A ;
#
#  system "cd /projects/fim/work_test/ok/;./wget \"http://www.legifrance.gouv.fr/citoyen/code04.ow?f3_article=$a&amp;$h\" &gt;log" ;
#  $ff="/projects/fim/work_test/ok/code04.ow?f3_article=$a&amp;$h" ;
## print "cp $ff $gg\n";
#  copy($ff,$gg) ;
## system("cp $ff $gg") ;
#}
#
#print "&lt;table border=0&gt;\n" ;
#if(!($debug==1)) {print GGG "&lt;table border=0&gt;\n" ; }
#print "&lt;tr&gt;&lt;td width=25%&gt;&lt;a href=\"http://www.legifrance.gouv.fr/\"&gt;&lt;center&gt;Site Legifrance&lt;/a&gt;\n" ;
#if(!($debug==1)) {print GGG "&lt;tr&gt;&lt;td width=25%&gt;&lt;a href=\"http://www.legifrance.gouv.fr/\"&gt;&lt;center&gt;Site Legifrance&lt;/a&gt;\n" ; }
#print "&lt;td width=25%&gt;&lt;a href=\"http://www.legifrance.gouv.fr/citoyen/uncode.ow?code=$c.rcv\"&gt;&lt;center&gt;Le code $z{$c} sur Legifrance&lt;/a&gt;\n" ;
#if(!($debug==1)) {print GGG "&lt;td width=25%&gt;&lt;a href=\"http://www.legifrance.gouv.fr/citoyen/uncode.ow?code=$c.rcv\"&gt;&lt;center&gt;Le code $z{$c} sur Legifrance&lt;/a&gt;\n" ; }
#print "&lt;td width=25%&gt;&lt;a href=\"http://droit.org/jo/codes.html\"&gt;&lt;center&gt;droit.org : tous les codes gratuits sur Web&lt;/a&gt;\n" ;
#if(!($debug==1)) {print GGG "&lt;td width=25%&gt;&lt;a href=\"http://droit.org/jo/codes.html\"&gt;&lt;center&gt;droit.org : tous les codes gratuits sur Web&lt;/a&gt;\n" ; }
#print "&lt;td width=25%&gt;&lt;a href=\"http://droit.org/jo/\"&gt;&lt;center&gt;Le J.O. sur Admi.net&lt;/a&gt;\n" ;
#if(!($debug==1)) {print GGG "&lt;td width=25%&gt;&lt;a href=\"http://droit.org/jo/\"&gt;&lt;center&gt;Le J.O. sur droit.org&lt;/a&gt;\n" ; }
#print "&lt;/table&gt;&lt;BR&gt;&lt;center&gt;&lt;h3&gt;Code $z{$c}&lt;/h3&gt;&lt;/center&gt;\n" ;
#if(!($debug==1)) {print GGG "&lt;/table&gt;&lt;BR&gt;&lt;center&gt;&lt;h3&gt;Code $z{$c}&lt;/h3&gt;&lt;/center&gt;\n" ; }
#
#chdir "/projects/fim/work_test/ok/" ; 
#open B,"$gg" ;
#
#open(SU,"substit") ;
#while(&lt;SU&gt;) { chop ;
#  ($a,$b)=split/\|/,$_ ;
#  $substit{$a}=$b ;
#}
#
#$etat='debut';
#while(&lt;B&gt;) { chop ;
#  if($etat eq 'debut' &amp;&amp; $_ !~ /&lt;TABLE&gt;/) {next ;}
#  if($etat eq 'debut') {$etat='ok' ;}
#  $_=~s/&gt; *(Aide *\/|Retour) *&lt;/&gt; &lt;/g ;
#  $_=~s/(&amp;nbsp;|&amp;#160;)/ /g ;
#  $_=~s/&lt;\/?(TABLE|TR|TD|FONT|IMG|A|CENTER|HTML|BODY)[^&gt;]*&gt;//g ;
#  $_=~s/^ +// ; $_=~s/ +$// ;
#  if($_=~/^ *$/) {next ;}
#  $_=~ s/$/   / ;
##if($_=~/Article/) {print "ART $_&lt;BR&gt;&lt;BR&gt;\n\n\n";}
#  $_=~s/^(&lt;BR&gt;)?(Article [^\r\n]*)(&lt;BR&gt;)?[\n\r]?/&lt;center&gt;&lt;h3&gt;$2&lt;\/h3&gt;&lt;\/center&gt;\n/ ;
#  $_=~s/$/&lt;BR&gt;/ ;
#  $ligne=$_ ;
#
#  if($_=~/([lL]oi +(n[^ ]+)|[Dd]&amp;eacute;cret +(n[^ ]+))/ || $_=~/[Oo]rdonnance +(n[^ ]+)/) { 
#     $x=$_ ;
#     while($x=~/([lL]oi|[Dd]&amp;eacute;cret|[Oo]rdonnance)/) {
#        if($x!~/([lL]oi|[Dd]&amp;eacute;cret|[Oo]rdonnance) +(n[^ ]+) *[0-9]+-[0-9]+/) {last ; }
#        $z=$' ;
#        ($y=$x)=~s/^.*?([lL]oi|[Dd]&amp;eacute;cret|[Oo]rdonnance) +n([^&amp;][^0-9 ]+|&amp;[^ ]+;) *([0-9]+-[0-9]+)[^0-9].*$/$3/ ;
#        $x=$z ;
##       print "$y\n" ;
#        $remplacer{$y}=1 ;
#     }
#
#     foreach $a (keys %ld) {
#       if($a=~/^[LOD]/) {
#         ($aa=$a)=~s/^.// ;
#         if($remplacer{$aa} != 1 ) {next ; }
#         if($_=~/([lL]oi +(n[^ ]+) *|[Dd]&amp;eacute;cret +(n[^ ]+) *)$aa / || $_=~/[Oo]rdonnance +(n[^ ]+) *$aa /) {
##          print "MATCH $aa\n" ;
#           $matches++ ;
#           if($a=~/^L/) {
#             $_=~s/([lL]oi +(n[^ ]+) *$aa)/&lt;a href=\"$ld{$a}\"&gt;$1&lt;\/a&gt;/g ;
#           }elsif($a=~/^D/) {
#             $_=~s/([Dd]&amp;eacute;cret +(n[^ ]+) *$aa)/&lt;a href=\"$ld{$a}\"&gt;$1&lt;\/a&gt;/g ;
#           }elsif($a=~/^O/) {
#             $_=~s/([Oo]rdonnance +(n[^ ]+) *$aa)/&lt;a href=\"$ld{$a}\"&gt;$1&lt;\/a&gt;/g ;
#           }
#         }
#       }
#     }
#  }
#
#     foreach $a (keys %substit) {
#       $b=$substit{$a} ;
#       if($_=~/$a/) {
#         ($bb=$b)=~s/\//\\\//g ;
#         $aevaluer="\$_=~s/$a/$bb/g" ;
#         $kk=eval($aevaluer) ;
#       }
#     }
#     $ligne=$_ ;
#
#     open PA,"/projects/fim/work_test/ok/patterns" ;
#     while(&lt;PA&gt;) { chop ;
#        $pattern=$_ ;
#        ($pattern2=$pattern)=~ s/CODE/.*/ ;
#        $pattern2=~ s/ARTICLE/([LRD]?\\.? ?)?[0-9]+(-[0-9]+)?(-[0-9]+)?/g ;
#        $_=$ligne ;
#        eval "\$resul=(/$pattern2/)" ;
##print "$pattern2=======$resul&lt;BR&gt;\n" ;
#        if($resul !~/1/) {next ; }
##print "EXAMEN APPR&lt;BR&gt;\n";
#
#        ($pattern2=$pattern)=~ s/ARTICLE/([LRD]?\\.? ?)?[0-9]+(-[0-9]+)?(-[0-9]+)?/g ;
##       print "$pattern2&lt;BR&gt;\n" ;
#
#        $_=$ligne ;
#        if($pattern =~ /CODE/) {
#          for $CODE(keys %z) { 
#            ($zz=$z{$CODE})=~s/ *\([^)]*\)// ;
#            ($pattern3=$pattern2)=~s/CODE/$zz/ ;
##print "$pattern------$pattern2====$pattern3---------------&lt;BR&gt;\n" ;
#            while( eval "\$resul=(/$pattern3/)" ) {
##print "\nMATCH&lt;BR&gt;\n";
#              $av=$_ ;
#              eval "\$av=~s/(^.*)($pattern3)/\$1 [ \$2 ]/g" ;
#              $av=~s/(\[[^]]*articles?) ?([0-9LRD])/$1|$2/g ;
#              while($av=~/[LRD]?\.? ?[0-9]+(-[0-9]+)?(-[0-9]+)?[^-0-9"&gt;&lt;][^["]*\]/) {
#                  $av=~s/([LRD])?\.? ?([0-9]+(-[0-9]+)?(-[0-9]+)?)([^-0-9"&gt;&lt;][^["]*\])/&lt;a href="http:\/\/droit.org\/cgi-bin\/adminet\/article.pl?c=$CODE\&amp;a=$1$2"&gt;$1 $2&lt;\/a&gt;$5/g ;
#              }
##print "&lt;br&gt;&lt;br&gt;$av&lt;br&gt;&lt;br&gt;\n";
#              $_=$av ;
##print "&lt;font color=green&gt;$pattern3&lt;/font&gt;&lt;font color=red&gt;\n&lt;hr&gt;$av&lt;/font&gt;&lt;BR&gt;\n" ;
#            }
#          }
#        }
#        else {
#          while(eval "\$resul=(/$pattern2/)") {
#            $av=$_ ;
#            eval "\$av=~s/(^.*)($pattern2)/\$1 [ \$2 ]/g" ;
##print "&lt;BR&gt;&lt;BR&gt;$pattern2&lt;BR&gt;&lt;BR&gt;&lt;HR&gt;\n";
#            $av=~s/(\[[^]]*articles?) ?([0-9LRD])/$1|$2/g ;
#            while($av=~/([LRD])?\.? ?([0-9]+(-[0-9]+)?(-[0-9]+)?)([^-0-9"&gt;&lt;][^["]*\])/) {
##print "&lt;BR&gt;PATTERN AVANT SUBST&lt;BR&gt;\n$av&lt;BR&gt;&lt;BR&gt;\n";
#              $av=~s/([LRD])?\.? ?([0-9]+(-[0-9]+)?(-[0-9]+)?)([^-0-9"&gt;&lt;][^["]*\])/&lt;a href="http:\/\/droit.org\/cgi-bin\/adminet\/article.pl?c=$c\&amp;a=$1$2"&gt;$1 $2&lt;\/a&gt;$5/g ;
#            }
#            $_=$av ;
##print "&lt;font color=green&gt;$pattern2&lt;/font&gt;&lt;font color=red&gt;\n&lt;hr&gt;$av&lt;/font&gt;&lt;BR&gt;\n" ;
#          }
#        }
#
#        $ligne=$_ ;
#     }
#
#  $ligne=~tr /|/ /;
#  $ligne=~s/\[ *//g;
#  $ligne=~s/ *\]//g;
#  print $ligne ;
#  if(!($debug==1)) {print GGG $ligne ;}
#}
#
#print "&lt;BR&gt;&lt;hr&gt;&lt;BR&gt;&lt;font size=-1 color=\"#ff4400\"&gt;Cette page du code $z{$c} est extraite du site officiel http://www.legifrance.gouv.fr dont seul le contenu fait foi, et que nous remercions. Certains hyperliens ont &amp;eacute;t&amp;eacute; rajout&amp;eacute;s afin de faciliter la navigation. Cette r&amp;eacute;alisation se situe dans le cadre d'un projet de recherche sur l'informatique juridique de l'&lt;a href=\"http://www.ensmp.fr\"&gt;Ecole des mines de Paris&lt;/a&gt;. Tout commentaire doit etre adress&amp;eacute; &amp;agrave; &lt;a href=\"mailto:mahl\@ensmp.fr\"&gt;mahl\@ensmp.fr&lt;/a&gt;&lt;/font&gt;&lt;br&gt;\n" ;
#if(!($debug==1)) {print GGG "&lt;BR&gt;&lt;hr&gt;&lt;BR&gt;&lt;font size=-1 color=\"#ff4400\"&gt;Cette page du code $z{$c} est extraite du site officiel http://www.legifrance.gouv.fr dont seul le contenu fait foi, et que nous remercions. Certains hyperliens ont &amp;eacute;t&amp;eacute; rajout&amp;eacute;s afin de faciliter la navigation. Cette r&amp;eacute;alisation se situe dans le cadre d'un projet de recherche sur l'informatique juridique de l'&lt;a href=\"http://www.ensmp.fr\"&gt;Ecole des mines de Paris&lt;/a&gt;. Tout commentaire doit etre adress&amp;eacute; &amp;agrave; &lt;a href=\"mailto:mahl\@ensmp.fr\"&gt;mahl\@ensmp.fr&lt;/a&gt;&lt;/font&gt;&lt;br&gt;\n" ;}
#exit 0 ;
</pre></body></html>