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
f7863a3c
Commit
f7863a3c
authored
Mar 01, 2011
by
Maurice Hendrix
Browse files
now uses log_base_path option. If not set, logfile and logpath work as previously
parent
bdb6cedf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
10 deletions
+12
-10
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
+12
-10
No files found.
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
View file @
f7863a3c
...
...
@@ -120,6 +120,7 @@ sub parse_common_options {
'
logfile|log=s
',
'
nolog|nolog=s
',
'
logpath=s
',
'
log_base_path=s
'
'
logappend|log_append=s
',
'
verbose|v=s
',
'
interactive|i=s
',
...
...
@@ -160,18 +161,19 @@ sub parse_common_options {
map
{
$self
->
param
(
$_
,
$h
{
$_
})
}
keys
%h
;
# if logpath & logfile are not se, set them here to /ensemblweb/vega_dev/shared/logs/conversion/DBNAME/SCRIPNAME_NN.log
if
(
not
(
defined
(
$self
->
param
('
logpath
')))){
$self
->
param
('
logpath
',
"
/ensemblweb/vega_dev/shared/logs/conversion/
"
.
$self
->
param
('
dbname
')
.
"
/
"
);
if
(
defined
(
$self
->
param
('
log_base_path
')))
{
if
(
not
(
defined
(
$self
->
param
('
logpath
')))){
$self
->
param
('
logpath
',
"
/ensemblweb/vega_dev/shared/logs/conversion/
"
.
$self
->
param
('
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
");
}
}
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
");
}
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