DMOW / Eludia-10.01.27.cd6c3e5 / Eludia-10.01.27.cd6c3e5 / Eludia / Content / HTTP / API.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

              
################################################################################
sub check_configuration_for_application {
        my ($app) = @_;
         
        return if $main::configs -> {$app};
         
        my $httpd_conf = $app . "/conf/httpd.conf";
        my $cnf_src = '';
         
        open C, $httpd_conf or die "Can't read $httpd_conf: $!\n";
         
        my $last_location = '';
         
        while (my $s = <C>) {
         
                next if $s =~ /\s*\#/;
         
                $cnf_src .= $s;
                if ($s =~ /Location\s+(.*)\>/) {
                 
                        $last_location = $1;
                         
                        $last_location =~ s{^[\"\']}{};
                        $last_location =~ s{[\"\']\s*&}{};
                 
                }
                if ($s =~ /PerlHandler\s+([\w\:]+)/) {
                 
                        my $handler = $1;
                        $handler    =~ /\:\:/ or $handler .= '::handler';
                 
                        $main::configs -> {$app} -> {handler_src}  .= "\n \$ENV{SCRIPT_NAME} =~ m{^$last_location} ? $handler (\@_) : ";
                }
                if ($s =~ /SetEnv\s+(\w+)\s+(.*)/ || $s =~ /\$ENV\s*{(\w+)}\s*=\s*\"(.*)\"/) {
                        my ($k, $v) = ($1, $2);
                         
                        $v =~ s{$\s*\"?}{};
                        $v =~ s{\"?\s*$}{};
                 
                        $main::configs -> {$app} -> {env} -> {$k} = $v;
                 
                }       
                 
        }
         
        foreach my $app (keys %$main::configs) {
         
                my $src = "\$main::configs -> {'$app'} -> {handler} = sub {$main::configs->{$app}->{handler_src} 0}";
                eval $src;
        }
        close C;
         
        $cnf_src =~ m{\<perl\>(.*)\</perl\>}ism;
         
        delete $INC {'Eludia.pm'};
                         
        eval $1;
         
        die "Application initialization error: $@" if $@;
         
}
################################################################################
sub handle_request_for_application {
        my ($app) = @_;
        my $config = $main::configs -> {$app} or die "Configuration is not defined for '$app'\n";
         
        foreach my $k (keys %{$config -> {env}}) {
         
                $ENV {$k} = $config -> {env} -> {$k};
         
        }
         
        my $handler = $config -> {handler};
        ref $handler eq CODE or die "handler '$handler' not defined for '$app' ($ENV{SCRIPT_NAME})\n";
        eval { my $result = &$handler (); }; $@ or return;
        warn $@; print "Status: 500 Internal Error\r\nContent-type: text/html\r\n\r\n<pre>$@</pre>";
         
        return $@;
}
################################################################################
sub check_configuration_and_handle_request_for_application {
        my ($app) = @_;
         
        check_configuration_for_application ($app);
         
        handle_request_for_application ($app);
}
1;