DOKK / manpages / debian 12 / libpoe-filter-ssl-perl / POE::Filter::SSL::PreFilter.3pm.en
POE::Filter::SSL::PreFilter(3pm) User Contributed Perl Documentation POE::Filter::SSL::PreFilter(3pm)

POE::Filter::SSL::Prefilter - Allow one to add a PreFilter on Components using Wheels

Version 0.39

This is an extension for some POE::Component::Server modules to use POE::Filters in front of their own used Filters

By default filters like POE::Filter::SSL can only be used if you specify the filters by manualy creating the POE::Wheel by our own. This allows this to be done if a component is doing this.

  use POE::Filter::SSL;
  use POE::Component::Server::HTTP;
  use HTTP::Status;
  my $aliases = POE::Component::Server::HTTP->new(
    Port => 443,
    ContentHandler => {
      '/' => \&handler,
      '/dir/' => sub { return; },
      '/file' => sub { return; }
    },
    Headers => { Server => 'My Server' },
    PreFilter => POE::Filter::SSL->new(
      crt    => 'server.crt',
      key    => 'server.key',
      cacrt  => 'ca.crt'
    )
  );
  sub handler {
    my ($request, $response) = @_;
    $response->code(RC_OK);
    $response->content("Hi, you fetched ". $request->uri);
    return RC_OK;
  }
  POE::Kernel->run();
  POE::Kernel->call($aliases->{httpd}, "shutdown");
  # next line isn't really needed
  POE::Kernel->call($aliases->{tcp}, "shutdown");
    

Copyright 2010-2017 Markus Schraeder, CryptoMagic GmbH, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

2022-11-19 perl v5.36.0