I found that multi-server implementation. It does not only use AnyEvent, it also relies on Coro to make switching between server loops easy when they get blocked. The code was developed under Windows, but the SSL problems alluded to above still apply.
#!perl -w
use strict;
use Coro;
use AnyEvent;
use AnyEvent::TLS;
use Plack::Handler::AnyEvent::HTTPD;
use Dancer ();
use App::Regexplain;
use Data::Dumper;
my %config = (
'http' => { host => '127.0.0.1', port => 8080, protocol => 'http',
+ proto => 'tcp' },
'https' => {
host => '127.0.0.1',
port => 8443,
ssl => {
cert_file => 'C:/Projekte/App-Regexplain/certs/testcert.pem',
key_file => 'C:/Projekte/App-Regexplain/certs/testkey-nopass.p
+em',
},
},
);
=begin other_api
__PACKAGE__->run(
port => [8080, "8443/ssl"],
ipv => '*', # IPv6 if available
SSL_key_file => '/my/key',
SSL_cert_file => '/my/cert',
);
=cut
for my $serverkey (sort keys %config) {
my $config = $config{ $serverkey };
my $runner = Plack::Runner::Multi->new;
$runner->parse_options(
'--server', 'AnyEvent::HTTPD',
'-p', $config->{port},
'-o', $config->{host},
'bin\\app.pl',
);
if( $config->{ssl} ) {
#$config->{ ssl } = AnyEvent::TLS->new(
# %{$config->{ ssl }}
#);
push @{$runner->{options}}, ssl => $config->{ssl}
};
my ($loader,$server,$app) = $runner->psgi_app();
async {
$loader->preload_app($app);
$loader->run($server);
};
};
# Kick off the event loop
AnyEvent->condvar->recv;
package Plack::Runner::Multi;
use strict;
use parent 'Plack::Runner';
use Coro;
use Data::Dumper;
# Paste from Plack::Runner::run except the $loader->run at the end
sub psgi_app {
my $self = shift;
#unless (ref $self) {
# $self = $self->new;
# $self->parse_options(@_);
# return $self->run;
#}
unless ($self->{options}) {
$self->parse_options(@_);
};
my @args = @{$self->{argv}};
$self->setup;
my $app = $self->locate_app(@args);
$ENV{PLACK_ENV} ||= $self->{env} || 'development';
if ($ENV{PLACK_ENV} eq 'development') {
$app = $self->prepare_devel($app);
}
if ($self->{access_log}) {
open my $logfh, ">>", $self->{access_log}
or die "open($self->{access_log}): $!";
$logfh->autoflush(1);
$app = $self->apply_middleware($app, 'AccessLog', logger => su
+b { $logfh->print( @_ ) });
}
my $loader = $self->loader;
#warn "Loading Server with " . Dumper $self->{options};
my $server = $self->load_server($loader);
#$loader->preload_app($app);
return ($loader, $server, $app);
#$loader->run($server);
}
1;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.