diff options
author | olav%bkor.dhs.org <> | 2007-09-02 16:32:04 +0200 |
---|---|---|
committer | olav%bkor.dhs.org <> | 2007-09-02 16:32:04 +0200 |
commit | b6ad4942a5adb6c717566cb6c26c8ab96b56b298 (patch) | |
tree | 245e9a35b725a4d8b4636946ace35dffa5134974 /contrib | |
parent | d65cf5cc36615f2a336893a060356839723b99b1 (diff) | |
download | bugzilla-b6ad4942a5adb6c717566cb6c26c8ab96b56b298.tar.gz bugzilla-b6ad4942a5adb6c717566cb6c26c8ab96b56b298.tar.xz |
Bug 394627: bzdbcopy.pl should remove column quoting
Patch By Olav Vitters <olav@bkor.dhs.org> r=mkanat, a=mkanat
Diffstat (limited to 'contrib')
-rwxr-xr-x | contrib/bzdbcopy.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/contrib/bzdbcopy.pl b/contrib/bzdbcopy.pl index ebfe3e45b..489909882 100755 --- a/contrib/bzdbcopy.pl +++ b/contrib/bzdbcopy.pl @@ -53,6 +53,7 @@ print "Connecting to the '" . TARGET_DB_NAME . "' target database on " . TARGET_DB_TYPE . "...\n"; my $target_db = Bugzilla::DB::_connect(TARGET_DB_TYPE, 'localhost', TARGET_DB_NAME, undef, undef, TARGET_DB_USER, TARGET_DB_PASSWORD); +my $ident_char = $target_db->get_info( 29 ); # SQL_IDENTIFIER_QUOTE_CHAR # We use the table list from the target DB, because if somebody # has customized their source DB, we still want the script to work, @@ -74,6 +75,11 @@ foreach my $table (@table_list) { print "Reading data from the source '$table' table on " . SOURCE_DB_TYPE . "...\n"; my @table_columns = $target_db->bz_table_columns_real($table); + # The column names could be quoted using the quote identifier char + # Remove these chars as different databases use different quote chars + @table_columns = map { s/^\Q$ident_char\E?(.*?)\Q$ident_char\E?$/$1/; $_ } + @table_columns; + my $select_query = "SELECT " . join(',', @table_columns) . " FROM $table"; my $data_in = $source_db->selectall_arrayref($select_query); |