Discussion :

[faddou]

Bonjour à tous


j'ai un script .cgi tres simple pour afficher les images .png dans le repertoire cible.

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
19
20
21
22
23
24
25
26
#!/usr/bin/perl -w
use CGI;
use strict;
use warnings;
 
print "Content-type: text/html\n\n";
my $chemin="/usr/local/nagios/sbin/rrd/";
opendir(LOGDIR, $chemin);
my @files=readdir(LOGDIR);
closedir(LOGDIR);
if(@files)
 {
 print "<ul>";
  foreach (sort @files)
    {
      print "<li> $_ " if /day.png/; 
    }
  print "</ul>";
 
 
 
   foreach (sort @files)
    {
      print qq(<img src="$_">)if /day.png/;
    }
 }

Mais j'ai probleme d'affichage des images *.png (voir le document attaché).

Merci de votre aide