Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
ensembl-gh-mirror
ensembl
Commits
3ecde033
Commit
3ecde033
authored
Sep 29, 2011
by
Web Group
Browse files
don't have to set log_basepath
parent
4763e4d2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
15 deletions
+16
-15
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
+16
-15
No files found.
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
View file @
3ecde033
...
...
@@ -161,25 +161,26 @@ sub parse_common_options {
# override configured parameter with commandline options
map
{
$self
->
param
(
$_
,
$h
{
$_
})
}
keys
%h
;
# if logpath & logfile are not set, set them here to /ensemblweb/
vega_dev/
shared/logs/conversion/DBNAME/SCRIPNAME_NN.log
# if logpath & logfile are not set, set them here to /ensemblweb/shared/logs/conversion/DBNAME/SCRIPNAME_NN.log
if
(
defined
(
$self
->
param
('
log_base_path
')))
{
my
$dbname
=
$self
->
param
('
dbname
');
$dbname
=~
s/^vega_//
;
if
(
not
(
defined
(
$self
->
param
('
logpath
')))){
$self
->
param
('
logpath
',
$self
->
param
('
log_base_path
')
.
"
/
"
.
$dbname
.
"
/
"
);
}
if
(
(
not
defined
$self
->
param
('
logfile
')
)
&&
(
not
defined
$self
->
param
('
nolog
')
)
){
my
$log
=
$Script
;
$log
=~
s/.pl$//g
;
my
$counter
;
for
(
$counter
=
1
;
(
-
e
$self
->
param
('
logpath
')
.
"
/
"
.
$log
.
"
_
"
.
sprintf
("
%03d
",
$counter
)
.
"
.log
");
$counter
++
){
if
(
!
defined
(
$self
->
param
('
log_base_path
')))
{
$self
->
param
('
log_base_path
','
/ensemblweb/shared/logs/conversion/
');
}
my
$dbname
=
$self
->
param
('
dbname
');
$dbname
=~
s/^vega_//
;
if
(
not
(
defined
(
$self
->
param
('
logpath
')))){
$self
->
param
('
logpath
',
$self
->
param
('
log_base_path
')
.
"
/
"
.
$dbname
.
"
/
"
);
}
if
(
(
not
defined
$self
->
param
('
logfile
')
)
&&
(
not
defined
$self
->
param
('
nolog
')
)
){
my
$log
=
$Script
;
$log
=~
s/.pl$//g
;
my
$counter
;
for
(
$counter
=
1
;
(
-
e
$self
->
param
('
logpath
')
.
"
/
"
.
$log
.
"
_
"
.
sprintf
("
%03d
",
$counter
)
.
"
.log
");
$counter
++
){
# warn $self->param('logpath')."/".$log."_".$counter.".log";
}
$self
->
param
('
logfile
',
$log
.
"
_
"
.
sprintf
("
%03d
",
$counter
)
.
"
.log
");
}
$self
->
param
('
logfile
',
$log
.
"
_
"
.
sprintf
("
%03d
",
$counter
)
.
"
.log
");
}
return
(
1
);
}
...
...
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