#!/usr/local/bin/perl #print "Content-Type: text/html\n\n\n" ; if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ; } else { $buffer=$ENV{'QUERY_STRING'} ; } @paires= split(/&/, $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&art=$a\n\n"; #print "
" ; print ""; print "URL de redirection" ; print "
Veuillez attendre ...
";
# ------------ 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écrets CE)' ;
#$z{'CASSURAA'}='des assurances (arrêtés)' ;
#$z{'CAVIACIL'}='de l\'aviation civile (lois)' ;
#$z{'CAVIACIR'}='de l\'aviation civile (décrets CE)' ;
#$z{'CAVIACID'}='de l\'aviation civile (décrets simples)' ;
#$z{'CCIVILL0'}='civil' ;
#$z{'CCOMMER0'}='de commerce' ;
#$z{'CCOMMUNL'}='des communes (lois)' ;
#$z{'CCOMMUNR'}='des communes (décrets CE)' ;
#$z{'CCONSTRL'}='de la construction (lois)' ;
#$z{'CCONSTRR'}='de la construction (décrets CE)' ;
#$z{'CCONSOML'}='de la consommation (lois)' ;
#$z{'CCONSOMR'}='de la consommation (décrets CE)' ;
#$z{'CDARCHI0'}='de deontologie des architectes' ;
#$z{'CDCHIRD0'}='de deontologie des chirurgiens-dentistes' ;
#$z{'CDEBBOIL'}='des débits de boissons (lois)' ;
#$z{'CDEBBOIR'}='des débits de boissons (décrets CE)' ;
#$z{'CDPOLIC0'}='de deontologie de la police nationale' ;
#$z{'CDSAGES0'}='de deontologie des sages-femmes' ;
#$z{'CDVETER0'}='de deontologie vétérinaire' ;
#$z{'CELECTOL'}='electoral (lois)' ;
#$z{'CELECTOR'}='electoral (décrets CE)' ;
#$z{'CEXPROPL'}='de l\'expropriation (lois)' ;
#$z{'CEXPROPR'}='de l\'expropriation (décrets CE)' ;
#$z{'CFAMILL0'}='de la famille et de l\'aide sociale' ;
#$z{'CFORESTL'}='forestier' ;
#$z{'CFORESTR'}='forestier' ;
#$z{'CGCTERRL'}='général des collectivités territoriales (lois)' ;
#$z{'CJURFINL'}='des juridictions financières (lois)' ;
#$z{'CMARPUB0'}='des marchés publics' ;
#$z{'CMARPUN0'}='des marchés publics (nouveau)' ;
#$z{'CMINIER0'}='minier' ;
#$z{'CMUTUALL'}='de la mutualité (lois)' ;
#$z{'CMUTUALR'}='de la mutualité (décrets CE)' ;
#$z{'CPENALLL'}='pénal (lois)' ;
#$z{'CPENALLR'}='pénal (décrets CE)' ;
#$z{'CPENSICL'}='des pensions civiles et militaires de retraite (lois)' ;
#$z{'CPENSICR'}='des pensions civiles et militaires de retraite (décrets CE)' ;
#$z{'CPENSICD'}='des pensions civiles et militaires de retraite (décrets simples)' ;
#$z{'CPOSTESL'}='des postes et télécommunications (lois)' ;
#$z{'CPOSTESR'}='des postes et télécommunications (décrets CE)' ;
#$z{'CPOSTESD'}='des postes et télécommunications (décrets simples)' ;
#$z{'CPROCIV0'}='de procédure civile (Nouveau)' ;
#$z{'CPROCPEL'}='de procedure pénale (lois)' ;
#$z{'CPROCPER'}='de procedure pénale (décrets CE)' ;
#$z{'CPROCPED'}='de procedure pénale (décrets simples)' ;
#$z{'CPROCPEA'}='de procedure pénale (arrêtés)' ;
#$z{'CPROINTL'}='de la propriété intellectuelle (lois)' ;
#$z{'CPROINTR'}='de la propriété intellectuelle (décrets CE)' ;
#$z{'CROUTEEL'}='de la route (lois)' ;
#$z{'CROUTEER'}='de la route (décrets CE)' ;
#$z{'CRURALA0'}='rural (lois)' ;
#$z{'CRURALNL'}='rural (lois)' ;
#$z{'CRURALNR'}='rural (décrets CE)' ;
#$z{'CSANPUNL'}= 'de la santé publique (nouveau)' ;
#$z{'CSANPUNR'}= 'de la santé publique (nouveau) (décrets CE)' ;
#$z{'CSANPUND'}= 'de la santé publique (nouveau) (décrets simples)' ;
#$z{'CSANPUBL'}='de la santé publique' ;
#$z{'CSANPUBR'}='de la santé publique' ;
#$z{'CSECSOCL'}='de la sécurité sociale' ;
#$z{'CSECSOCR'}='de la sécurité sociale' ;
#$z{'CSECSOCD'}='de la sécurité sociale' ;
#$z{'CSERVNAL'}='du service national' ;
#$z{'CSERVNAR'}='du service national' ;
#$z{'CTRAVAIL'}='du travail (lois)' ;
#$z{'CTRAVAIR'}='du travail (décrets CE)' ;
#$z{'CTRAVAID'}='du travail (dé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écrets CE)' ;
#$z{'CURBANIL'}='de l\'urbanisme (lois)' ;
#$z{'CURBANIR'}='de l\'urbanisme (décrets CE)' ;
#$z{'CURBANIA'}='de l\'urbanisme (arrêtés)' ;
#$z{'CVOIRIEL'}='de la voirie routière (lois)' ;
#$z{'CVOIRIER'}='de la voirie routière (dé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(/&/, $buffer) ;
#foreach $pair (@paires) {
# ($name, $value)= split(/=/, $pair) ;
# $$name=$value ;
## print "$name $c
\n" ;
#}
#
#if($a=~/^[0-9]/ && $c=~/CPENAL/) { $c="CPENALLL" ; }
#if($a=~/^[0-9]/ && $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$/ && $a=~/^L/ && $c !~/CCOMMER0/) { $c=~s/0$/L/ ; }
#if($c=~/0$/ && $a=~/^R/) { $c=~s/0$/R/ ; }
#if($c=~/0$/ && $a=~/^D/) { $c=~s/0$/D/ ; }
#if($c=~/0$/ && $a=~/^A/) { $c=~s/0$/A/ ; }
#if($c=~/CRURAL/ && $a=~/^[0-9]/) { $c="CRURALA0";}
#if(($c=~/CPENALLL/ || $c=~/CPROCPEL/) && $a=~/^L/) { $a=~s/^L// ; }
#if($c=~/CTRAVMA/) { $c='CTRAVMA0' ; $a=~s/^L// ; }
#
#if( $z{$c} !~ /./) {
# print "Content-Type: text/html\n\n\n