#!/usr/bin/perl -w
$|++;
use CGI qw/:standard/;
use CGI::Cookie;
#use CGI::Carp qw

use CGI::Carp(fatalsToBrowser,warningsToBrowser);
#use CGI::Carp qw(carpout);
use DBI;


#print header();


do("functions/func.pl") or die("func.pl");

our @url = split(/\//,url(-path_info=>1));
#print join("<br >",@url);
#print @url;
shift(@url);
shift(@url);

#shift(@url);




$|++; 


our $home = "/home/tfe/public_html";

our $homeb= "";


do "functions/auth.pl" or die "Erreur auth: ($home/cgi-bin/functions/auth.pl) $!";


if ($url[2]) { $url[2] =~ s/[^a-z]//g; }
if (!$url[2]) { $url[2] = "news"; }

#print header;
if (!-f "$home/cgi-bin/grabber/$url[2].pl" and  !-f "$home/cgi-bin/data/$url[2].pl") 
{ 
print header(-status=>404,-location=>"http://tfeserver.homelinux.com/404.html"); 
open(INFO,"../404.html") or die $!;
print <INFO>;
}
else { 
if ( -f "$home/cgi-bin/data/$url[2].pl") { 
    $truc = $url[2];
    do "$home/cgi-bin/data/$url[2].pl" or die ("Ouverture $home/cgi-bin/data/$truc  $!");

    }
else { 
    do "$home/cgi-bin/grabber/$url[2].pl" or die $!;
    }
}