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�