- my $url = uri_param_munge($options{genecard_site}.$options{genecard_search_url},
- {search => $search,
- },
- );
- my $request = HTTP::Request->new('GET', $url);
- my $response = $ua->request($request);
- $response = $response->content;
- my @result_urls = $response =~ m#<a\s+href=\"(carddisp?[^\"]+)\"\s*>\s+<b>Display</b>\s*<font size=-1>\s*<br>\s*the<b>\s*complete#sg;
-
+ my $uri = URI->new($options{genecard_site}.$options{genecard_search_url});
+ $uri->query_form($uri->query_form(),
+ search => $search,
+ );
+ my $url = $uri->as_string;
+ my $mech = WWW::Mechanize->new(agent=>"DA_get_harvester_results/$REVISION");
+ $mech->get($url);
+ my $response = $mech->content();
+ my @result_urls = $response =~ m#<a\s+target\=\'card\'\s+href=\"(carddisp\.pl\?[^\"]+)\"\s*>#sg;