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

TWITTEK / Konstrukt-0.5-beta1 / lib / Konstrukt / Handler / File.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
93
94
95
96
97
98
99
100
101
102
103
—
104
105
106
107
108
109
110
111
112
113
114
115
116

              
#!/usr/bin/perl
=head1 NAME
Konstrukt::Handler::File - Handler for the processing of a given filename
=head1 SYNOPSIS
        my $filehandler = Konstrukt::Handler::File->new($root, $filename);
        $filehandler->handler();
=head1 DESCRIPTION
Parses a given file against special (e.g. <&...&>) tags and prints out the result.
=cut
package Konstrukt::Handler::File;
use strict;
use warnings;
use Konstrukt::Debug;
use base 'Konstrukt::Handler';
=head1 METHODS
=head2 new
Constructor of this class. Will so some necessary initialization and call the
constructor of the super class.
B<Parameters>:
=over
=item * $root - The B<absolute> path of the document root
=item * $filename - The file to process (B<relative> to the document root)
=back
=cut
sub new {
        my ($class, $root, $filename) = @_;
         
        #read "fake" cookies
        my $cookie_filename = $root . ($root =~ /[\\\/]$/ ? '' : '/') . "cookies.txt";
        $ENV{HTTP_COOKIE} = $Konstrukt::File->raw_read($cookie_filename)
                if -e $cookie_filename;
         
        #set fake ip address
        $ENV{REMOTE_ADDR} = '1.2.3.4';
         
        #create object
        return $class->SUPER::new($root, $filename);
}
#/new
=head2 handler
Handles the file and prints out the result
=cut
sub handler {
        my ($self) = @_;
         
        #print result
        my $result = $self->process();
        print "\n=== result: =======>\n" if Konstrukt::Debug::DEBUG;
        print "$result";
         
        #force session to write its data
        $Konstrukt::Session->release()
                if $Konstrukt::Settings->get('session/use');
        #write "fake" cookies
        my $cookies = join "; ", map { "$_=" . $Konstrukt::Handler->{cookies}->{$_}->value() } keys %{$Konstrukt::Handler->{cookies}};
        $Konstrukt::File->write('/cookies.txt', $cookies) if $cookies;
         
        #print out debug- and error messages
        print $Konstrukt::Debug->format_error_messages() if $Konstrukt::Settings->get('handler/show_error_messages');
        print $Konstrukt::Debug->format_debug_messages() if $Konstrukt::Settings->get('handler/show_debug_messages');
}
#= /handler
=head2 emergency_exit
Will be called on a critical error. Put out the error messages.
=cut
sub emergency_exit {
        my ($self) = @_;
         
        #print out debug- and error messages
        print $Konstrukt::Debug->format_error_messages();
        print $Konstrukt::Debug->format_debug_messages();
         
        die;
}
#= /emergency_exit
return 1;
=head1 AUTHOR
Copyright 2006 Thomas Wittek (mail at gedankenkonstrukt dot de). All rights reserved. 
This document is free software.
It is distributed under the same terms as Perl itself.
=head1 SEE ALSO
L<Konstrukt::Handler>, L<Konstrukt>
=cut