Service unavailable!

#!/usr/bin/perl -w use Bio::Perl; $database="genbank"; @accessions = ( "bunch", "of", "accession", "numbers"); $count = 1; $n = 0; while ($accessions[$n]) { $id=$accessions[$n]; $format="fasta"; $sequence = get_sequence($database, $id); write_sequence(">-", $format, $sequence); $n++; $count++; sleep(1); } ##

##

------------ EXCEPTION  -------------
MSG: WebDBSeqI Request Error:
HTTP/1.1 503 Service Temporarily Unavailable
Connection: close
Date: Tue, 12 May 2009 07:57:00 GMT
Accept-Ranges: bytes
Server: Apache
Vary: accept-language,accept-charset
Content-Language: en
Content-Type: text/html; charset=iso-8859-1
Client-Date: Tue, 12 May 2009 07:57:30 GMT
Client-Peer: 130.14.29.110:80
Client-Response-Num: 1
Link: ; /="/"; rev="made"
Title: Service unavailable!





Service unavailable!





Service unavailable!



    The server is temporarily unable to service your
    request due to maintenance downtime or capacity
    problems. Please try again later. 



If you think this is a server error, please contact
the webmaster.



Error 503

  eutils.ncbi.nih.gov

  
  Tue May 12 03:57:00 2009

  Apache





STACK Bio::DB::WebDBSeqI::_stream_request /sw/lib/perl5/5.8.8/Bio/DB/WebDBSeqI.pm:758
STACK Bio::DB::WebDBSeqI::get_seq_stream /sw/lib/perl5/5.8.8/Bio/DB/WebDBSeqI.pm:454
STACK Bio::DB::NCBIHelper::get_Stream_by_acc /sw/lib/perl5/5.8.8/Bio/DB/NCBIHelper.pm:361
STACK Bio::DB::WebDBSeqI::get_Seq_by_acc /sw/lib/perl5/5.8.8/Bio/DB/WebDBSeqI.pm:172
STACK Bio::Perl::get_sequence /sw/lib/perl5/5.8.8/Bio/Perl.pm:507
STACK toplevel Desktop/getsequences.pl:15

--------------------------------------

------------- EXCEPTION  -------------
MSG: acc AA387173 does not exist
STACK Bio::DB::WebDBSeqI::get_Seq_by_acc /sw/lib/perl5/5.8.8/Bio/DB/WebDBSeqI.pm:181
STACK Bio::Perl::get_sequence /sw/lib/perl5/5.8.8/Bio/Perl.pm:507
STACK toplevel Desktop/getsequences.pl:15

--------------------------------------