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

New Gigablaster URL

parent bfa2cab6
......@@ -228,7 +228,7 @@ undef $fasta_checker;
# Check GigaBlaster status if used
if ( $giga==1 ){
$local = 0;
$local = 2 if ( head('http://www.igs.cnrs-mrs.fr/Giga2/~database/remoteblast.cgi') );
$local = 2 if ( head('http://www.igs.cnrs-mrs.fr/public_g/remoteblast.cgi') );
}
......
......@@ -98,24 +98,11 @@ else{
sub RunBlast{
my $mybody = join('&' , (@command , 'sequence='.uri_escape($sequence) ));
# print $mybody;
# my $r = HTTP::GHTTP->new();
# $r->set_uri("http://www.igs.cnrs-mrs.fr/adele/~database/blast.cgi");
# $r->set_uri("http://www.igs.cnrs-mrs.fr/adele/~database/newblast.cgi");
# $r->set_uri("http://www.igs.cnrs-mrs.fr/adele/~database/remoteblast.cgi");
# $r->set_type(METHOD_POST);
# $r->set_body($mybody);
# $r->process_request;
# $r =~ s/<[^<>]+>//g;
# print $r->get_body();
# my $r = HTTP::Request->new($method, $uri, $header,$mybody);# $content);
# my $uri = "http://www.igs.cnrs-mrs.fr/adele/~database/remoteblast.cgi";
my $uri = 'http://www.igs.cnrs-mrs.fr/Giga2/~database/remoteblast.cgi';
my $uri = 'http://www.igs.cnrs-mrs.fr/public_g/remoteblast.cgi';
my $method = 'POST';
my $r = HTTP::Request->new($method, $uri);
$r -> content_type('application/x-www-form-urlencoded'); # = $header
$r -> content($mybody);
$r->content_type('application/x-www-form-urlencoded'); # = $header
$r->content($mybody);
my $response = $ua->request($r);
my $print = $response->content;
$print =~ s/<[^<>]+>//g;
......
......@@ -260,7 +260,7 @@ sub HELP {
Default BLOSUM62
-method ....... geneid, pdbid, profile
-gigablast .... yes/no FASTER REMOTE BLAST with Gigablaster
(Stephane Audic program: http://www.igs.cnrs-mrs.fr/Giga2/~database/remoteblast.cgi)
(Stephane Audic program: http://www.igs.cnrs-mrs.fr/public_g/remoteblast.cgi)
Default no
-filter ....... T or F locally, L or R or M or C or V for distant blast
Default = Off
......
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