Commit e0687a1f authored by Sebastien Moretti's avatar Sebastien Moretti
Browse files

Change cache path

parent 52fadf50
...@@ -28,13 +28,13 @@ use Views; # Non-text outputs, e.g. HTML/CSS ...@@ -28,13 +28,13 @@ use Views; # Non-text outputs, e.g. HTML/CSS
################## CONFIGURATION ################## ################## CONFIGURATION ##################
my $cachePath = '/scratch/beegfs/monthly/tcoffee/ProtoGene_Cache'; # Cache directory my $cachePath = '/scratch/cabernet/monthly/ProtoGene_Cache'; # Cache directory
my $cacheStorageTime = 15; # Do not update sequences younger than X days my $cacheStorageTime = 15; # Do not update sequences younger than X days
my $eutilsEmail = quotemeta('tcoffee@vital-it.ch'); # Put your e-mail for NCBI eutils requests my $eutilsEmail = quotemeta('tcoffee@vital-it.ch'); # Put your e-mail for NCBI eutils requests
my $eutilsTool = 'ProtoGene'; my $eutilsTool = 'ProtoGene';
my $eutilsAPIKey = '2fc650885ef3f15ca562083e6332e7103c08'; my $eutilsAPIKey = '2fc650885ef3f15ca562083e6332e7103c08';
my $userEMail = 'moretti.sebastien@gmail.com'; # To receive e-mails with encountered problems; leave blank to inactive my $userEMail = 'moretti.sebastien@gmail.com'; # To receive e-mails with encountered problems; leave blank to inactive
### BLAST parameters ### ### BLAST parameters ###
my $blast_param = { 'evalue' => 0.05, my $blast_param = { 'evalue' => 0.05,
...@@ -64,7 +64,7 @@ my $exonerate_exe = 'exonerate'; # Exonerate 1.0 because current parser on ...@@ -64,7 +64,7 @@ my $exonerate_exe = 'exonerate'; # Exonerate 1.0 because current parser on
################## Option management ################## Option management
my ($msa, $revtrans, $pep, $hideBOJ, $run_name, $template, $lim) = ('', 0, 0, 0, '', '', 0); my ($msa, $revtrans, $pep, $hideBOJ, $run_name, $template, $lim) = ('', 0, 0, 0, '', '', 0);
my ($cache, $cleancache) = ('update', 'update'); #TODO Finish to implement my ($cache, $cleancache) = ('update', 'update');#TODO Finish to implement
my ($debug, $tmp) = (0, 0); my ($debug, $tmp) = (0, 0);
my ($db, $species, $local, $giga) = ($blast_param->{'db1'}, $blast_param->{'species'}, 0, 0); my ($db, $species, $local, $giga) = ($blast_param->{'db1'}, $blast_param->{'species'}, 0, 0);
my %opts = ('msa|in=s' => \$msa, # Input sequences my %opts = ('msa|in=s' => \$msa, # Input sequences
......
Supports Markdown
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