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
52073ae4
Commit
52073ae4
authored
Sep 29, 2011
by
Steve Trevanion
Browse files
don't need to set log_basepath
parent
bb3a9456
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
15 deletions
+15
-15
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
+15
-15
No files found.
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
View file @
52073ae4
...
...
@@ -163,25 +163,25 @@ 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