#! /usr/bin/perl
###########################################################################
# Ouvertures de librairies #
###########################################################################
print "Content-type: text/html\n\n";
$lib = "Library";
unshift (@INC, "$lib");
&require("$lib/cgi-lib.pl", "$lib/cgi-lib.sol", "$lib/date.pl");
&ReadParse(*form_data);
###########################################################################
# Affichage Rubrique #
###########################################################################
&get_date();
$page=$form_data{'page'};
if ($page > 0)
{
$url="http://www.grignoux.be/index.php?content=dp&subcontent=film&dpid=".$page;
}
else
{
$url="http://www.grignoux.be/index.php?content=dp";
}
print <<" fin_de_html";
Les Grignoux
fin_de_html
exit;
#############################################################################
# &require #
#############################################################################
sub require
{
local (@require_files) = @_;
foreach $file (@require_files)
{
if (-e "$file" && -r "$file")
{
require "$file";
}
else
{
print "Désolé je n'ai pu ouvrir $require_file. Pourriez-vous
vérifier que le nom est valide et que les permissions
sur $require_file me permettent d'y avoir accès ?";
exit;
}
}
}
#######################################################################
# get_date #
#######################################################################
sub get_date
{
@days = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
'Friday','Saturday');
@months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
# Use the localtime command to get the current time, splitting it into
# variables.
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
# Format the variables and assign them to the final $date variable.
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$mon = $mon+1;
if ($year < 98) { $date = "$mday/$mon/20$year"; }
if ($year > 97) { $date = "$mday/$mon/19$year"; }
$heure = "$hour:$min";
}