view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

      'dsn' => 'http://das.mysite.com/das/dsn'

0.11  Added a little extra debug, some extra eval traps, improved url processing
      and a couple of new WTSI extensions to the spec

0.10  Fixed dsns DAS request (source basename)

0.09  Fixed broken 'types' request

0.08  Added multi-link, multi-note, multi-group-link and multi-group-note support
      Added X-Forwarded-For HTTP header for IP-based ACLs
      Added passthrough for HTTP header data

0.07  Internal development version

0.06  Fixes for the regex/stack problems in 0.05.
      Added callback support for stylesheet and features calls

0.05  Stylesheet support. Seems to tickle some perl regex/stack bugs
      on certain platforms (x86 Linux, Alpha Tru64). It works fine on my G4.

lib/Bio/Das/Lite.pm  view on Meta::CPAN

sub _fetch {
  my ($self, $url_ref, $headers) = @_;

  $self->{'statuscodes'}  = {};
  $self->{'specversions'} = {};
  if(!$headers) {
    $headers = {};
  }

  if($ENV{HTTP_X_FORWARDED_FOR}) {
    $headers->{'X-Forwarded-For'} ||= $ENV{'HTTP_X_FORWARDED_FOR'};
  }
  $headers->{'X-DAS-Version'} ||= '1.6';

  # Convert header pairs to strings
  my @headers;
  for my $h (keys %{ $headers }) {
    push @headers, "$h: " . $headers->{$h};
  }

  # We will now issue the actual requests. Due to insufficient support for error