Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl
Commits
eaa27996
Commit
eaa27996
authored
Oct 21, 2010
by
Andreas Kusalananda Kähäri
Browse files
Quote-changes.
parent
d72e6230
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
7 deletions
+7
-7
misc-scripts/production_database/scripts/push_master_tables.pl
...scripts/production_database/scripts/push_master_tables.pl
+7
-7
No files found.
misc-scripts/production_database/scripts/push_master_tables.pl
View file @
eaa27996
...
...
@@ -163,7 +163,7 @@ my @dbtypes = ( 'core', 'otherfeatures', 'cdna', 'vega' );
my
%master
;
{
my
$dsn
=
sprintf
(
"
DBI:mysql:host=%s;port=%d
"
,
$master
,
$dbport
);
my
$dsn
=
sprintf
(
'
DBI:mysql:host=%s;port=%d
'
,
$master
,
$dbport
);
my
$dbh
=
DBI
->
connect
(
$dsn
,
$dbuser
,
$dbpass
,
{
'
PrintError
'
=>
1
}
);
...
...
@@ -178,7 +178,7 @@ my %master;
my
@db_handles
;
foreach
my
$server
(
@servers
)
{
my
$dsn
=
sprintf
(
"
DBI:mysql:host=%s;port=%d
"
,
$server
,
$dbport
);
my
$dsn
=
sprintf
(
'
DBI:mysql:host=%s;port=%d
'
,
$server
,
$dbport
);
my
$dbh
=
DBI
->
connect
(
$dsn
,
$dbuser
,
$dbpass
,
{
'
PrintError
'
=>
1
}
);
...
...
@@ -239,7 +239,7 @@ foreach my $dbh (@db_handles) {
my
$row
=
$table
{
$pk
};
if
(
$pk
==
0
)
{
display_banner
(
'
-
',
sprintf
(
"
%s.%s
"
,
$dbname
,
$table
)
);
display_banner
(
'
-
',
sprintf
(
'
%s.%s
'
,
$dbname
,
$table
)
);
print
(
"
==> Primary key is ZERO
"
.
"
for the following row in DATABASE:
\n
",
...
...
@@ -250,7 +250,7 @@ foreach my $dbh (@db_handles) {
if
(
!
defined
(
$master_row
)
)
{
display_banner
(
'
=
',
sprintf
(
"
%s.%s
"
,
$dbname
,
$table
)
);
sprintf
(
'
%s.%s
'
,
$dbname
,
$table
)
);
# Find other row in master table that is the same as
# database table row, but with different primary key.
...
...
@@ -342,7 +342,7 @@ foreach my $dbh (@db_handles) {
if
(
scalar
(
keys
(
%diff_fields
)
)
>
0
)
{
display_banner
(
'
=
',
sprintf
(
"
%s.%s
"
,
$dbname
,
$table
)
);
sprintf
(
'
%s.%s
'
,
$dbname
,
$table
)
);
# Find other row in master table that is the same as
# database table row, but with different primary key.
...
...
@@ -400,7 +400,7 @@ foreach my $dbh (@db_handles) {
join
(
'
,
',
map
{
sprintf
(
"
%s = %s
"
,
sprintf
(
'
%s = %s
'
,
$_
,
$dbh
->
quote
(
$diff_fields
{
$_
}
),
$colinfo
->
{
$_
}{'
DATA_TYPE
'}
)
...
...
@@ -427,7 +427,7 @@ foreach my $dbh (@db_handles) {
if
(
scalar
(
keys
(
%sql
)
)
>
0
)
{
foreach
my
$db_name
(
keys
(
%sql
)
)
{
my
$filename
=
sprintf
(
"
fix-%s.sql
"
,
$db_name
);
my
$filename
=
sprintf
(
'
fix-%s.sql
'
,
$db_name
);
printf
(
"
==> Writing SQL to '%s'
\n
",
$filename
);
my
$out
=
IO::
File
->
new
(
$filename
,
'
w
'
);
$out
->
print
(
@
{
$sql
{
$db_name
}
}
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment