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
fb74bafa
Commit
fb74bafa
authored
Oct 27, 2010
by
Andreas Kusalananda Kähäri
Browse files
Change $outdir and put it at the top.
parent
e1166049
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
5 deletions
+6
-5
misc-scripts/production_database/scripts/push_analysis_descriptions.pl
...production_database/scripts/push_analysis_descriptions.pl
+2
-1
misc-scripts/production_database/scripts/push_master_tables.pl
...scripts/production_database/scripts/push_master_tables.pl
+4
-4
No files found.
misc-scripts/production_database/scripts/push_analysis_descriptions.pl
View file @
fb74bafa
...
...
@@ -9,6 +9,8 @@ use Getopt::Long qw( :config no_ignore_case );
use
IO::
File
;
use
POSIX
qw( floor ceil )
;
my
$outdir
=
'
fix-analysis_description
'
sub
usage
{
print
<<USAGE_END;
TODO: Usage info.
...
...
@@ -267,7 +269,6 @@ foreach my $server (@servers) {
}
## end foreach my $dbtype (@dbtypes)
}
## end foreach my $server (@servers)
my
$outdir
=
'
analysis_desc_fixes
';
if
(
scalar
(
keys
(
%sql
)
)
>
0
)
{
if
(
!-
d
$outdir
)
{
mkdir
(
$outdir
);
...
...
misc-scripts/production_database/scripts/push_master_tables.pl
View file @
fb74bafa
...
...
@@ -10,6 +10,8 @@ use Getopt::Long qw( :config no_ignore_case );
use
IO::
File
;
use
POSIX
qw( floor ceil )
;
my
$outdir
=
'
fix-master_tables
';
sub
usage
{
my
$padding
=
'
'
x
length
(
$
0
);
...
...
@@ -57,11 +59,11 @@ default, the staging servers).
The program will display any discrepancies on the display while
writing SQL to files in a subdirectory of the current directory called
"
master_sync_fixes
" that will correct the discrepancies.
"
$outdir
" that will correct the discrepancies.
Each SQL patch file will have the generic name "fix-DBNAME.sql"
where "DBNAME" is the name of the database, e.g.,
"
master_sync_fixes
/fix-oryctolagus_cuniculus_otherfeatures_60_3.sql".
"
$outdir
/fix-oryctolagus_cuniculus_otherfeatures_60_3.sql".
A discrepancy is patched by
...
...
@@ -429,8 +431,6 @@ foreach my $server (@servers) {
}
## end foreach my $server (@servers)
my
$outdir
=
'
master_sync_fixes
';
if
(
scalar
(
keys
(
%sql
)
)
>
0
)
{
if
(
!-
d
$outdir
)
{
mkdir
(
$outdir
);
...
...
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