diff --git a/misc-scripts/ping_ensembl.pl b/misc-scripts/ping_ensembl.pl deleted file mode 100755 index 8e06c952e5508c6542108050c3da99eda9d66a03..0000000000000000000000000000000000000000 --- a/misc-scripts/ping_ensembl.pl +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/env perl - -use Bio::EnsEMBL::Registry; -eval { - Bio::EnsEMBL::Registry->load_registry_from_db( - -host => 'ensembldb.ensembl.org', - -user => 'anonymous' - ); - my $human = Bio::EnsEMBL::Registry->get_DBAdaptor(); - my $name = $human->get_MetaContainer()->get_scientific_name(); - if('Homo sapiens' == $name) { - print "Connection to Ensembl works and you can query the human core database\n"; - } -}; - -if($@) { - print "ERROR: Cannot connect to Ensembl!\n"; - print "Please send the following error message to helpdesk\@ensembl.org\n"; - print $@; -} \ No newline at end of file