package WacidCon; 
 
sub new 
{ 
	my($class, $type) = @_;     
	 
    bless { 
            		"DB"  			=> undef, 
			"DB_type"  		=> $type, 
            		"DB_host" 		=> undef, 
			"DB_port" 		=> undef, 
			"DB_port" 		=> undef, 
			"DB_username" 		=> undef, 
			"lastSQL" 		=> undef, 
			"version" 		=> undef, 
			"sql_trace" 		=> undef, 
        }, $class; 
} 
 
 
sub wacidConnectMySql 
 {		 
	my($self, $database, $host, $port, $username, $password) = @_; 
	 
    	$self->{DB_name} = $database; 
    	$self->{DB_host} = $host; 
    	$self->{DB_port} = $port; 
    	$self->{DB_username} = $username; 
	  
	$datasource = "dbi:mysql:$database:$host:$port"; 
	 
	$self->{DB} = DBI->connect($datasource, $username, $password,  { PrintError => 0}) 
 || &snort_error(&text('alert_err_connect_mysql', '<font color="red">'.$DBI::errstr.'</font>')); 
	print ref($self->{DB}); 
	$self->{version} = $self->wacidDBGetVersionSchema; 
 }