Remove OLD blast URL + OLD wu-blast

ProtoGene.pl

@@ -554,7 +554,7 @@ PROTOGENE re-builds the original alignment with nucleotidic information it has g
 
 =item I<exonerate> version 2 from http://www.ebi.ac.uk/~guy/exonerate/
 
-=item I<blast> from http://www.ncbi.nlm.nih.gov/BLAST/download.shtml or http://blast.wustl.edu/
+=item I<blast> from ftp://ftp.ncbi.nih.gov/blast/executables/LATEST/
 
 =back
 

webblast.pl

@@ -436,7 +436,6 @@ sub WEB_BLAST {
 #-- BUILD THE REQUEST
         my ($arguments) = "CMD=Put&ENTREZ_QUERY=$orgn&CDD_SEARCH=off&FILTER=$filter&MATRIX_NAME=$matrix&PROGRAM=$program&DATABASE=$database&QUERY=" . $encoded_seq;
 
-#        my ($req) = new HTTP::Request POST => 'http://www.ncbi.nlm.nih.gov/blast/Blast.cgi'; #old URL
         my ($req) = new HTTP::Request POST => 'http://blast.ncbi.nlm.nih.gov/Blast.cgi';
         $req -> content_type('application/x-www-form-urlencoded');
         $req -> content($arguments);
@@ -470,7 +469,6 @@ sub WEB_BLAST {
 
             $req = new HTTP::Request GET =>
                 "http://blast.ncbi.nlm.nih.gov/Blast.cgi?CMD=Get&FORMAT_OBJECT=SearchInfo&RID=$rid";
-#                "http://www.ncbi.nlm.nih.gov/blast/Blast.cgi?CMD=Get&FORMAT_OBJECT=SearchInfo&RID=$rid"; #old url
             $response = $ua->request($req);
             if ( $response->content =~ /Status=WAITING/im ){
                 next;
@@ -523,7 +521,6 @@ sub WEB_BLAST {
 
         while (){
             sleep 3;
-#        $req = new HTTP::Request GET => "http://www.ncbi.nlm.nih.gov/blast/Blast.cgi?CMD=Get&FORMAT_TYPE=$format&FILTER=off&EXPECT=$Eval&ALIGNMENTS=$align&DESCRIPTIONS=$align&ALIGNMENT_VIEW=$aln_view&RID=$rid";
         $req = new HTTP::Request GET => "http://blast.ncbi.nlm.nih.gov/Blast.cgi?CMD=Get&FORMAT_TYPE=$format&FILTER=off&EXPECT=$Eval&ALIGNMENTS=$align&DESCRIPTIONS=$align&ALIGNMENT_VIEW=$aln_view&RID=$rid";
         $response = $ua -> request($req);