github.com/moshix.mvs
1
0
Fork 0
mirror of https://github.com/moshix/mvs.git synced 2026-02-27 00:39:54 +00:00
Code Issues Releases Wiki Activity

wget for BREXX on MVS3.8

Browse Source
This commit is contained in:
moshix
2021-06-11 16:49:39 -05:00
committed by GitHub
parent efb4c44218
commit 010bdfb687
1 changed files with 80 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
WGET.rexx Normal file
View File

@@ -0,0 +1,80 @@
Call TCPInit()
/* -------------------------------------------------------------------
* Display primary "ISPF" like Menu
* -------------------------------------------------------------------
*/
call display_HTML('35.192.97.153')
return 0
/* -------------------------------------------------------------------
* Render fetched HTML struing
* -------------------------------------------------------------------
*/
Select_primary:
parse arg select
if select=2 then return display_HTML('35.192.97.153','info')
if select=3 then return display_HTML('35.192.97.153','moon')
if select=10 then return display_HTML('35.192.97.153','news')
else return 8
return 0
/* -------------------------------------------------------------------
* Display ISPF like Web site
* -------------------------------------------------------------------
*/
Display_HTML:
if wgetx(arg(1),arg(2),80)=0 then do /* result is in _html */
call render_html
call fmtlist 0,'.','','','SELECT'
return 0
end
return 8
/* -------------------------------------------------------------------
* Render fetched HTML struing
* -------------------------------------------------------------------
*/
Render_html:
parse value _html with '<body'_html'</body>'
keep=''
pp1=pos('<',_html)
pp2=pos('>',_html)
if pp2<pp1 then _html=substr(_html,pp2+1)
_html=changestr('&#9472;',_html,'_')
_html=changestr('25'x,_html,'15'x)
_html=changestr('<pre',_html,'15'x'<pre')
do until tag=''
parse value _html with prefix'<'tag'>'_html
keep=keep''prefix
end
keep=keep''_html
i=0
do until keep=''
parse value keep with line '15'x keep
if strip(line)='' then iterate
i=i+1
buffer.i=line
end
buffer.0=i
return 0
/* --------------------------------------------------------------------
* WGET Call Web site and fetch data
* --------------------------------------------------------------------
*/
WGETx: Procedure expose _html
parse arg tcp,page,port
if port='' then port=80
/* Call TCPInit() */
rc=TCPOpen(tcp,port)
if rc<>0 then return 8
call TCPSend(_fd, e2a("GET /"page "HTTP/1.1"
call TCPSend(_fd, e2a("Host: "tcp
call TCPSend(_fd, e2a("User-Agent: " || V
call TCPSend(_fd, e2a("Accept: */*"
call TCPSend(_fd, e2a(""
len = 0
_html=''
len = TCPReceive(_fd,5) /* Use longer time out wait for first call
Do until len <= 0
_html=_html||a2e(_data)
len = TCPReceive(_fd,1) /* Use short time out wait for next calls *
End
Call TCPClose(_fd)
return 0