#!/usr/local/bin/perl
require "legi_config.pl";
require "legi_param.pl";
require "geturl.pl";
require "legi_heure.pl";
require "legi_html.pl";
require "legi_cache.pl";
require "fichier.pl";
require "legi_fichier.pl";
# le site de legifrance oblige a passer par un cgi avant de pouvoir acceder
# au reste : citoyen/index.cgi
#
# on peut alors acceder a /citoyen/page02.cgi (indexeur du site)
# ou encore a /citoyen/code00.cgi (liste des codes)
## ATTENTION :
# - une modification du site legifrance
# - une modification du nom de fichier admileg.pl( ce fichier)
# oblige a retoucher le code de parsing
#########################################
#debut du CGI-BIN
#########################################
#$debug=1;
if ($debug)
{
printf("Content-Type: text/html\n\n");
printf("admileg.pladmileg.PL
");
}
#recuperation du parametre heure manquant
if ($param_heure eq "")
{
$param_heure=&heure($param_heure);
}
#printf("Location: http://www.legifrance.gouv.fr/citoyen/page01.ow?$param_heure\n\n");
printf("Content-Type: text/html\n\n");
printf "Recherche dans le Journal Officiel\n";
printf "\n" ;