#!/usr/bin/perl
use strict;
use LWP::UserAgent;
my $path="http://www.biomart.org/biomart/das/dsn";
my $request = HTTP::Request->new("POST",$path,HTTP::Headers->new(),"\n");
my $ua = LWP::UserAgent->new;
my $response;
my $results;
$ua->request($request,
sub{
my($data, $response) = @_;
if ($response->is_success) {
$results .= $data;
}
else {
#warn ("Problems with the web server: ".$response->status_line);
}
},1000);
if ($results =~ m/default__hsapiens_gene_ensembl__ensembl_das_chr/) {
#print "\nBioMart Central Portal's DAS Server up and running www.biomart.org/biomart/das\n";
exit(0);
}
else {
# failure
exit(1);
}
