#--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#Package de la librairie
package def;
#--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@ISA = qw(Exporter);	#Permet l'export
@EXPORT = qw(
             %config
             $cgi
             $dbh
            );
#--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
use CGI;   # standard package for easy CGI scripting
use DBI;   # standard package for Database access
#--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

$config{db_name}           = "DBI:mysql:data_maconstruction;host=srv1.mapcom.be;";
$config{db_user}           = "data_mc";
$config{db_passwd}         = "Qmt08LLdzeYZv85F";


$dbh = DBI->connect($config{db_name},$config{db_user},$config{db_passwd}) or die("cannot connect to $config{db_name}");	#Connexion à la bdd

$stmt = " SET NAMES utf8mb4";	
$cursor = $dbh->prepare($stmt);		
$rc = $cursor->execute;	


$cgi = new CGI;

1;