add default column and value for inserting in mariadb

syncWeb.pl

@@ -42,29 +42,38 @@ sub connect_db($$$$$){
 sub to_mariadb($$){
     my ($export, $content) = @_;
     
-    connect_db(
+    my $dbh = connect_db(
 	"mysql",
         "$config->{'export'}->{$export}->{'connexion'}->{'base'}",
         "$config->{'export'}->{$export}->{'connexion'}->{'user'}",
         "$config->{'export'}->{$export}->{'connexion'}->{'password'}",
         "$config->{'export'}->{$export}->{'connexion'}->{'host'}"
      );
-    
+    print Dumper $config->{'export'}->{$export}->{'column_default'};
     my $columns_default = "";
     my $columns_default_value = "";
     
-    if( !"$config->{'export'}->{$export}->{'column_default'}" ){
+    if( exists($config->{'export'}->{$export}->{'column_default'}) ){
 	$columns_default = "";
-	#for each...
+
+	foreach my $column ( keys %{$config->{'export'}->{$export}->{'column_default'}} ){
+
+	    $columns_default .= ", $column";
+	    print "\n- deal with $column\n";
+	    $columns_default_value .= ", \"$config->{'export'}->{$export}->{'column_default'}->{$column}\"";
+	}
     }
-    
-    print "INSERT INTO $config->{'export'}->{$export}->{'content'}->{'table'} (
-        $config->{'export'}->{$export}->{'content'}->{'column'}
-        $columns_default
+
+    my $sql = "INSERT INTO $config->{'export'}->{$export}->{'content'}->{'table'} (
+        $config->{'export'}->{$export}->{'content'}->{'column'} $columns_default
     )
     VALUES ('$content' $columns_default_value);";
-
-    # close db here
+    print $sql;
+    exit;
+    my $sth = $dbh->prepare( $sql );
+    $sth->execute();
+    
+    $dbh->disconnect();
 }
 
 sub to_file($$){
@@ -111,7 +120,7 @@ sub visit($$){
 
 sub isNew($$$){
     my($url, $signature, $dbh) = @_;
-    # my $sth = $dbh->prepare("SELECT count(signature) AS COUNT FROM visit WHERE signature=?1 AND url=?2;");
+
     my $sth = $dbh->prepare("SELECT count(signature) AS COUNT FROM visit WHERE signature='$signature' AND url='$url';");
     #$sth->execute("$signature", "$url");
     $sth->execute();
@@ -191,11 +200,6 @@ sub main($$){
 
     $config=do("./$export");
 
-    #$content = print encode 'unicode-escape',;
-    my $test = 'la""la';
-    print "+";
-    print String::Escape::backslash( $test );
-    print "\n";
     open(FH, '<', $import_list) or die $!;
     while(<FH>){
 	my($url, $selector, $fromFormat, $toFormat, $export) = split("\t");