The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

LBROCARD / OpenFrame-Segment-Apache2-1.00 / lib / OpenFrame / Example / Apache2Simple.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
—
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

              
package OpenFrame::Example::Apache2Simple;
use strict;
use warnings;
use Apache2;
use Apache::Const -compile => qw(OK DECLINED);
use File::Spec::Functions qw(catfile);
use Pipeline;
use OpenFrame::AppKit;
use OpenFrame::Example::Redirector;
use OpenFrame::Response;
use OpenFrame::Segment::Apache2;
use OpenFrame::Segment::Apache2::NoImages;
use OpenFrame::Segment::ContentLoader;
our $VERSION = '1.00';
sub handler {
  my $r = shift;
  my $dir = catfile($r->dir_config('cwd'), 'webpages');
  my $request = OpenFrame::Segment::Apache2::Request->new();
  my $session_loader = OpenFrame::AppKit::Segment::SessionLoader->new();
  my $response = OpenFrame::Segment::Apache2::Response->new();
  my $redirect = OpenFrame::Example::Redirector->new();
  my $noimages = OpenFrame::Segment::Apache2::NoImages->new()
    ->directory($dir);
  my $content = OpenFrame::Segment::ContentLoader->new()
    ->directory($dir);
  if ($r->dir_config('debug')) {
    # debugorama
    $request->debug(10);
    $redirect->debug(10);
    $noimages->debug(10);
    $content->debug(10);
    $response->debug(10);
  }
  my $pipeline = Pipeline->new();
  $pipeline->add_segment($request, $session_loader, $redirect, $noimages, $content);
  $pipeline->add_cleanup($response);
  # Store the request in the pipeline
  $pipeline->store->set($r);
  my $out = $pipeline->dispatch();
  if ($out->code == ofDECLINE) {
    return Apache::DECLINED;
  } else {
    return Apache::OK;
  }
}
1;
__END__
=head1 NAME
OpenFrame::Example::Apache2Simple - Demo Apache2 Pipeline
=head1 SYNOPSIS
  SetHandler  perl-script
  PerlSetVar  cwd /home/website/
  # PerlSetVar  debug 1
  PerlHandler OpenFrame::Example::Apache2Simple
=head1 DESCRIPTION
OpenFrame::Example::Apache2Simple is an example pipeline which loads
static content.
The actual handler is quite short. The important part is to set up a
pipeline which has a OpenFrame::Segment::Apache2::Request segment at
the beginning and a OpenFrame::Segment::Apache2::Response as a cleanup
segment. Also, remember to check for an ofDECLINE and return DECLINED
in that case, or OK otherwise.
=head1 AUTHOR
Leon Brocard <acme@astray.com>
=head1 COPYRIGHT
Copyright 2002 Fotango Ltd.
Licensed under the same terms as Perl itself.
=cut