From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DMOW / Eludia-10.03.18.1bb6e80 / Eludia-10.03.18.1bb6e80 / Eludia / Content / HTTP.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

              
use Eludia::Content::HTTP::FileTools;
################################################################################
sub set_cookie_for_root {
        my ($name, $value, $expires) = @_;
         
        if ($value) {
                $expires ||= '+1M';
                set_cookie (-name => $name, -value => $value, -expires => $expires, -path => '/');
        } else {
                set_cookie (-name => $name, -value => '1', -expires => '-1M', -path => '/');
        }
}
################################################################################
sub esc {
        my ($options) = @_;
         
        $options -> {kind} = 'js';
        redirect (esc_href (), $options);
}
################################################################################
sub redirect {
        my ($url, $options) = @_;
        if (ref $url eq HASH) {
                $url = create_url (%$url);
        }
        if ($_REQUEST {__uri} ne '/' && $url =~ m{^\/\?}) {
                $url =~ s{^\/\?}{$_REQUEST{__uri}\?};
        }
        $options ||= {};
        $options -> {kind} ||= 'http';
        $options -> {kind}   = 'http' if ($_REQUEST {__windows_ce} && $_REQUEST {select});
        if ($options -> {kind} eq 'js') {
         
                $options -> {url} = $url;    
                out_html ({}, draw_redirect_page ($options));
                 
        }
        elsif ($options -> {kind} eq 'http' || $options -> {kind} eq 'internal') {
                $r -> status ($options -> {status} || 302);
                $r -> headers_out -> {'Location'} = $url;
                send_http_header ();
                 
        }
        $_REQUEST {__response_sent} = 1;
         
}
################################################################################
sub external_session {
        my ($host, $login_params, $ua_options) = @_;
        require LWP::UserAgent;
                 
        require Eludia::Content::HTTP::ExternalSession;
         
        $_JSON or setup_json ();
         
        my $o = {
         
                json => $_JSON,
         
                host => $host,
         
                ua   => LWP::UserAgent -> new (%{$ua_options || {}}),
         
                package  => current_package (),
        };
         
        push @{$o -> {ua} -> requests_redirectable}, 'POST';      
         
        $o -> {ua} -> agent ('Want JSON');
        require HTTP::Cookies;
        require File::Temp;
        $o -> {ua} -> cookie_jar (HTTP::Cookies -> new (file => File::Temp::tempfile ()));
        bless $o, 'Eludia::Content::HTTP::ExternalSession';
         
}
1;