Change cache path

ProtoGene.pl

@@ -28,13 +28,13 @@ use Views;                                 # Non-text outputs, e.g. HTML/CSS
 
 
 ################## CONFIGURATION ##################
-my $cachePath        = '/scratch/beegfs/monthly/tcoffee/ProtoGene_Cache';   # Cache directory
-my $cacheStorageTime = 15;                                                  # Do not update sequences younger than X days
+my $cachePath        = '/scratch/cabernet/monthly/ProtoGene_Cache';   # Cache directory
+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 $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 ###
 my $blast_param = { 'evalue'    => 0.05,
@@ -64,7 +64,7 @@ my $exonerate_exe = 'exonerate';       # Exonerate 1.0 because current parser on
 
 ################## Option management
 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 ($db, $species, $local, $giga)                                = ($blast_param->{'db1'}, $blast_param->{'species'}, 0, 0);
 my %opts = ('msa|in=s'        => \$msa,        # Input sequences