1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| #!/soft/perl/bin/perl -I/data/web/cmia/lib
use strict;
use warnings;
use diagnostics; # display better warning information
use CGI::Carp qw(fatalsToBrowser); # display errors to browser
use CGI qw/:standard/;
use CGI;
use Time::Local;
use DB::DB_documentation;
use Data::Dumper;
# Connect Base
my $SYBASE_BASE='documentation';
my $connection = DB_documentation::connect($SYBASE_BASE);
my $requete = "SELECT datechangement FROM FormChangementProd";
my $sth = $connection->prepare($requete);
$sth->execute();
my @ref = $sth->fetchrow_array;
my ($secondes, $minutes, $heures, $jour_mois, $mois, $annee, $jour_semaine, $jour_calendaire, $heure_ete)=localtime($ref[0]);
print header,
start_html(
-style => { 'src' => "a"},
-script => { 'src' => "b.js"},
-author => '*',
-meta => { 'Keywords' => "",
'Copyright' => '*'},
-title => "titre",
),"<br>ref[0] : ".$ref[0],
"<br>","sec->".$secondes," min->".$minutes," heures->".$heures," jour->".$jour_mois," mois->".$mois," an->".$annee,
#$jour_semaine, $jour_calendaire."-", $heure_ete."-";
end_html(); |
Partager