aboutsummaryrefslogtreecommitdiffstats
path: root/pathod/protocols/http.py
blob: 5fcb661824ce7b640a2f9fed22a81d69547fab2b (plain)
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
from mitmproxy import version
from mitmproxy import exceptions
from mitmproxy.net.http import http1
from .. import language


class HTTPProtocol:
    def __init__(self, pathod_handler):
        self.pathod_handler = pathod_handler

    def make_error_response(self, reason, body):
        return language.http.make_error_response(reason, body)

    def handle_http_connect(self, connect, lg):
        """
            Handle a CONNECT request.
        """

        self.pathod_handler.wfile.write(
            b'HTTP/1.1 200 Connection established\r\n' +
            (b'Proxy-agent: %s\r\n' % version.PATHOD.encode()) +
            b'\r\n'
        )
        self.pathod_handler.wfile.flush()
        if not self.pathod_handler.server.ssloptions.not_after_connect:
            try:
                cert, key, chain_file_ = self.pathod_handler.server.ssloptions.get_cert(
                    connect[0].encode()
                )
                self.pathod_handler.convert_to_tls(
                    cert,
                    key,
                    handle_sni=self.pathod_handler.handle_sni,
                    request_client_cert=self.pathod_handler.server.ssloptions.request_client_cert,
                    cipher_list=self.pathod_handler.server.ssloptions.ciphers,
                    method=self.pathod_handler.server.ssloptions.ssl_version,
                    options=self.pathod_handler.server.ssloptions.ssl_options,
                    alpn_select=self.pathod_handler.server.ssloptions.alpn_select,
                )
            except exceptions.TlsException as v:
                s = str(v)
                lg(s)
                return None, dict(type="error", msg=s)
        return self.pathod_handler.handle_http_request, None

    def read_request(self, lg=None):
        return http1.read_request(self.pathod_handler.rfile)
ass="p">.Table (Flist).Els)); end Free_Next; function Create_Flist (Len : Natural) return Flist_Type is Res : Flist_Type; Prev : Flist_Type; Next : Flist_Type; begin if Len >= Free_Flists'Last then -- Large length. Res := Free_Flists (Free_Flists'Last); Prev := Null_Flist; while Res /= Null_Flist and then Length (Res) /= Len loop Prev := Res; Res := Free_Next (Res); end loop; if Res /= Null_Flist then Next := Free_Next (Res); if Prev = Null_Flist then Free_Flists (Free_Flists'Last) := Next; else Els.Table (Flistt.Table (Prev).Els) := Node_Type (Next); end if; end if; else -- Small length. The Len field contains the next free list. Res := Free_Flists (Len); if Res /= Null_Flist then Free_Flists (Len) := Flist_Type (Flistt.Table (Res).Len); Flistt.Table (Res).Len := Nat32 (Len); elsif Len = 0 then -- Quick case for len = 0. Res := Flistt.Allocate (1); Flistt.Table (Res) := (Els => 0, Len => 0); return Res; end if; end if; if Res = Null_Flist then Res := Flistt.Allocate (1); Flistt.Table (Res) := (Els => Els.Allocate (Len), Len => Nat32 (Len)); end if; -- Clear the list. declare Idx : constant El_Index_Type := Flistt.Table (Res).Els; begin Els.Table (Idx .. Idx + El_Index_Type (Len) - 1) := (others => Null_Node); end; return Res; end Create_Flist; procedure Destroy_Flist (Flist : in out Flist_Type) is Len : constant Natural := Length (Flist); Prev : Flist_Type; begin -- Prepend to the array of free flists. if Len >= Free_Flists'Last then Prev := Free_Flists (Free_Flists'Last); Free_Flists (Free_Flists'Last) := Flist; Els.Table (Flistt.Table (Flist).Els) := Node_Type (Prev); else Prev := Free_Flists (Len); Free_Flists (Len) := Flist; Flistt.Table (Flist).Len := Nat32 (Prev); end if; Flist := Null_Flist; end Destroy_Flist; function Flast (Flist : Flist_Type) return Integer is begin return Integer (Flistt.Table (Flist).Len - 1); end Flast; function Length (Flist : Flist_Type) return Natural is begin return Natural (Flistt.Table (Flist).Len); end Length; function Get_Nth_Element (Flist : Flist_Type; N : Natural) return Node_Type is E : Entry_Type renames Flistt.Table (Flist); begin pragma Assert (N < Natural (E.Len)); return Els.Table (E.Els + El_Index_Type (N)); end Get_Nth_Element; procedure Set_Nth_Element (Flist : Flist_Type; N : Natural; V : Node_Type) is E : Entry_Type renames Flistt.Table (Flist); begin pragma Assert (N < Natural (E.Len)); Els.Table (E.Els + El_Index_Type (N)) := V; end Set_Nth_Element; end Flists;