#!/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("<HTML><HEAD><TITLE>admileg.pl</TITLE></HEAD><BODY><H1>admileg.PL</H1>");
}

#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 "<html><title>Recherche dans le Journal Officiel</title>\n";
	printf "<frameset ROWS=\"50%,50%\">\n<frame src=\"http://www.legifrance.gouv.fr/citoyen/page01.ow?$param_heure\"><frame src=\"http://admi.net/jo/\">\n</frameset>\n" ;

