Partie d'un script ne fonctionne pas en cgi
Bonjour tout le monde,
Je me met un peu au perl parce que je dois faire quelques petite manoeuvre sur un serveur et pour commencer je voulais récupérer des alias d'un fichier bdd et les afficher.
Mon script fonctionne parfaitement si je l'exécute en bash et me renvoi :
Code:
1
2
3
4
5
|
Content-type: text/html
toto
alias = shgamer.net |
Seulement si je l'exécute dans mon navigateur il me renvoi :
Voici le script en question :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl -w
use strict;
use DB_File;
use CGI::Carp qw(fatalsToBrowser);
# Domaine = shgamer.org
my $domaine = "shgamer.org";
print "Content-type: text/html\n\n";
tie my %LIST,'DB_File',"/etc/ovhm.db";
print "toto\n";
foreach my $key (sort keys %LIST){
my $str = $domaine . "_alias_";
if ($key =~ /$str/) {
my $val = $LIST{$key};
print "alias = ".$val;
}
}
untie(%LIST); |
A priori le probleme viendrait du tie qui ne marcherait pas correctement mais je ne sais pas trop.
En espérant que quelqu'un pourra m'éclairer.
++
