[CGI] problème de définition d'un variable déclarée dans if
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:
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:
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~
