Return to %NETHTTP.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%NETHTTP.m, revision 1.3

1.3     ! snw         1: %NETHTTP ;VCL/SNW-FREEM HTTP SYSTEM LIBRARY; 10/23/2020 6:55 PM
1.2       snw         2:     ;0.0;FreeM;****FREEM**;Serena Willis @2020
1.1       snw         3:     ;
1.3     ! snw         4:     ;   $Id$
1.1       snw         5:     ;    FreeM HTTP system library
                      6:     ;
                      7:     ;  
1.2       snw         8:     ;   Author: Serena Willis <jpw@coherent-logic.com>
1.1       snw         9:     ;    Copyright (C) 1998 MUG Deutschland
                     10:     ;    Copyright (C) 2020 Coherent Logic Development LLC
                     11:     ;
                     12:     ;
                     13:     ;   This file is part of FreeM.
                     14:     ;
                     15:     ;   FreeM is free software: you can redistribute it and/or modify
                     16:     ;   it under the terms of the GNU Affero Public License as published by
                     17:     ;   the Free Software Foundation, either version 3 of the License, or
                     18:     ;   (at your option) any later version.
                     19:     ;
                     20:     ;   FreeM is distributed in the hope that it will be useful,
                     21:     ;   but WITHOUT ANY WARRANTY; without even the implied warranty of
                     22:     ;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     23:     ;   GNU Affero Public License for more details.
                     24:     ;
                     25:     ;   You should have received a copy of the GNU Affero Public License
                     26:     ;   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
                     27:     ;
1.3     ! snw        28:     ;   $Log$
1.1       snw        29:     ;
1.3     ! snw        30:     ; SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
        !            31:     ; SPDX-License-Identifier: AGPL-3.0-or-later   
1.1       snw        32:        QUIT
                     33:        ;
                     34:        ;
                     35: GET(URL) ; HTTP GET
                     36:        ;
                     37:        ; SET UP ERROR TRAP
                     38:        ;
                     39:        N OET S OET=$ZTRAP S $ZTRAP="GETERR^%HTTP"
                     40:        ; INIT TERMINATION SEQUENCE
                     41:        N CH,%,LN S CH=255,^$DEVICE(CH,"TERMINATOR")=$C(13,10),LN=0
                     42:        ; PARSE URL
                     43:        N PROTO S PROTO=$P(URL,":",1)
                     44:        N SRV,HOST,PRT S SRV=$P(URL,"/",3) I $L(SRV,":") S PRT=$P(SRV,":",2),HOST=$P(SRV,":",1) E  S HOST=SRV,PRT=80
                     45:        N PTH I $L(URL,"/")>3 S PTH=$P(URL,"/",4) E  S PTH="/"
                     46:        I PROTO'="http" K % W "Protocol "_PROTO_" not supported.",! G GETERR
                     47:        ; OPEN CONNECTION TO SERVER
                     48:        O CH:HOST_":"_PRT_":IPV4:TCP"
                     49:        U CH:/CONNECT
                     50:        ; SEND GET COMMAND
                     51:        W "GET "_PTH_" HTTP/1.1",!,"Host: "_HOST,!,!
                     52:        ;
                     53:        ;
                     54: GETERR U $P C CH K % S $ZTRAP=OET Q 0