Discussion :

[wenijah]

Hello tout le monde,

Voilà, je met au point un script CGI dans le but changer le nom et l'url de certains liens selon que le visiteur soit membre ou pas... ça commence comme ça..

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
package Core;
use strict;
use DBI();
use CGI::Carp qw(fatalsToBrowser);
use Exporter ();
@Core::ISA    = qw(Exporter);
@Core::EXPORT = qw($c);
use vars qw( $c );
 
my $db="dbk";
my $host="localhost";
my $muser="root";
my $mpass="root";
my $table="acc";
my $query = new CGI;
my $log = $query->cookie(-name => "dbk-login");
my $pas = $query->cookie(-name => "dbk-pass");
 
my $dbh = DBI->connect("DBI:mysql:$db:$host", $muser,
$mpass) or die print "Connection au serveur mySQL impossible\n";
 
my $sth = $dbh->prepare("SELECT * FROM $table WHERE user='$log' AND pass='$pas' AND active='1'");
 
$sth->execute;
 
my $res = $sth->rows;
 
$dbh->disconnect();
 
if($res==1)	{
my $log_in="lien a";
}else{
my $log_in="lien b";
}
 
$c=
{
 
 # retourne le lien complet
 log_in  => $log_in,
}

Et donc mon problème vient en fin de script.. La variable $log_in ne se redéclare pas et je tombe sur une erreur:

Code :

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

1
2
3
4
5
6
7
Software error:
 
Global symbol "$log_in" requires explicit package name at Core.pm line 45.
Compilation failed in require at C:/Apache/cgi-bin/index.cgi line 7.
BEGIN failed--compilation aborted at C:/Apache/cgi-bin/index.cgi line 7.
 
For help, please send mail to the webmaster (local@host), giving this error message and the time and date of the error.

Vous n'auriez pas une petite idée??

Merci d'avance!

~W~

[djibril]

le probleme est que tu declare $log_in dans les if, donc ça reste local, tu peux ecrire ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
my $log_in;
if($res==1)	{
$log_in="lien a";
}else{
$log_in="lien b";
}
 
$c=
{
 
 # retourne le lien complet
 log_in  => $log_in,
}

[wenijah]

La classe! Et dire que j'ai cherché l'erreur pendant 1h30... Rapide et efficace!

Merci beaucoup!!!