Commit 52073ae4 authored by Steve Trevanion's avatar Steve Trevanion
Browse files

don't need to set log_basepath

parent bb3a9456
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment