Discussion :

[shgamer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto

Voici le script en question :

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
 
#!/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.

++

[Jedai]

Tu n'as probablement pas les droits en écriture sur /etc/ovhm.db (les scripts CGI sont lancés sous un utilisateur qui n'a pratiquement aucun droit, pour éviter de compromettre le système entier en cas de faille dans le script).

--
Jedaï