view release on metacpan or  search on metacpan

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

=head1 SYNOPSIS

  eg/proserver -help

=head1 DESCRIPTION

  ProServer is a server implementation of the DAS protocol.
  http://biodas.org/

  ProServer is based on example preforking POEserver at
  http://poe.perl.org/?POE_Cookbook/Web_Server_With_Forking

=head1 DIAGNOSTICS

  To run in non-pre-forking, debug mode:
  eg/proserver -debug -x

  Otherwise stdout logs to proserver-hostname.log and stderr to proserver-hostname.err

=head1 CONFIGURATION AND ENVIRONMENT

t/33-auth-http.t  view on Meta::CPAN

							   config => {
								      authurl   => "http://127.0.0.1:$port?token=%token",
								      "auth$type" => 'key',
								     },
							  });

    for my $token (qw(allow deny)) {
      for my $attempt (qw(first cached)) {
        my $req = HTTP::Request->new('get',
                                     "http://my.example.com?key=$token",
                                     ['Cookie', "key=$token",
                                     'key', $token,
                                     'Authorization', $token]);
        my ($uri) = $req->uri() =~ m/\?(.*)/smx;
        my $resp = $auth->authenticate( {'request' => $req, 'cgi' => CGI->new($uri)} );
        ok( $token eq 'allow' ? !$resp : defined $resp && $resp->isa('HTTP::Response'), "$attempt $token $type authentication") || diag($resp);
      }
    }
  }
} else {
  fail("run test authentication server");

t/33-auth-http.t  view on Meta::CPAN

sub setup_server {

  if (my $child_pid = fork) {
    return $child_pid;
  }

  my $listen_port = shift;

  #########
  # Child process runs a server
  # (similar to http://poe.perl.org/?POE_Cookbook/Web_Server)
  #
  use POE qw(Component::Server::TCP Filter::HTTPD);
  use HTTP::Response;

  POE::Component::Server::TCP->new(
    Port         => $listen_port,
    ClientFilter => 'POE::Filter::HTTPD',
    ClientInput  => sub {
      my ($kernel, $heap, $request) = @_[KERNEL, HEAP, ARG0];