Bonjour

Je souhaite afficher sur ma page web la date de dernière modification d'un fichier sous la forme suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
$oregnier: index.shtml,v 1.2 24/09/2008 18:49:57 olivier $
J'ai un script CGI, lastmod.cgi:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
# Requiert: Support CGI/Perl.
 
use strict; use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
use coreutils;
coreutils::lastmod();
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
 
print $cgi->header(-charset=>'iso-8859-1');
print $cgi->em((small('$oregnier: '.$coreutils::file_name.',v 1.2 '.$coreutils::file_date.' olivier $')))."\n";
La paquet coreutils.pm:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
package coreutils;
 
use strict;
use POSIX 'strftime';
 
sub lastmod()
{
    our $file_name=$0;
    our @change_date=stat($file_name);
    our $file_date=strftime("%d/%m/%Y %H:%M:%S",localtime($change_date[9]));
}
 
1;
et enfin le fichier index.shtml:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
<html>
<head>
</head>
<body>
<!--#exec cgi="/cgi-bin/lastmod.cgi" -->
</body>
</html>
Au lieu de m'afficher ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
$oregnier: index.shtml,v 1.2 24/09/2008 18:49:57 olivier $
Il m'affiche cela:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
$oregnier: lastmod.cgi,v 1.2 24/09/2008 18:49:57 olivier $


Pouvez-vous me donner un coup de main s'il vous plaît ? Merki