Script Library: 1238 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Discussion posts for script http-tools.r

1
anton
22-Nov-2005 0:39
The functionality provided by http-tools.r is now built in to REBOL.
(That is according to discussion on mail list recently, 21-Nov-2005).
Seek documentation on the /CUSTOM refinement of READ.
Some examples from Gabriele Santilli: {

        read/custom url [post "postdata" [Cookie: "name=value"]]

    The header part is optional, that is you can just:

       read/custom url [post "postdata"]

    "postdata" is whatever your CGI app is expecting, which usually is
    something like "name=value&name2=value2".

}

-Anton.
2
gchiu
22-Nov-2005 1:44
Edited:
gchiu
22-Nov-2005 1:45
The script might as well stay in the library as an example of how 
to use a custom http scheme to achieve things that the standard one 
did not.

Graham
3
johnsjvi95
9-Sep-2021 10:14
REBOL

I have an application done in VC++ , which stays on the task bar and pops-up text, images connecting to the internet.

Contents:

https://waterlootreeservicepros.com

MakeDoc2 by REBOL- 9-Sep-2021
4
ahmedsayeed1
12-Oct-2021 15:52
emit-para: func [text] [
; Emit standard text paragraph:
  emit [<p>fix-tags text </p>]

]

http://www.compilatori.com/category/technology/

emit-code: func [doc] [
emit <pre>
  while [
switch doc/1 [
code [emit [escape-html doc/2]]
output [emit [<span class="output"> escape-html doc/2 </span>]]
http://www.acpirateradio.co.uk/category/health/
]
  ][doc: skip doc 2]
emit </pre>
doc: skip doc -2

]

http://www.logoarts.co.uk/category/technology/

emit-image: func [spec /local tag] [
; Emit image. Spec = ‘center or default is ’left.
  emit [
either spec/2 = 'center [<p align="center">][<p>]
join {<img src="} [(join image-path spec/1) {">}]
</p>
http://www.slipstone.co.uk/category/health/
]

]

buls: [bullet bullet2 bullet3]

enums: [enum enum2 enum3]

http://embermanchester.uk/computers/video-conversation/

bul-stack: []

push-bul: func [bul][
if any [empty? bul-stack bul <> last bul-stack][
      ;print ['push bul mold bul-stack]
append bul-stack bul
emit pick [<ul><ol>] found? find buls bul
http://connstr.net/category/health/
]

]

pop-bul: func [bul /local here][
here: any [find buls bul find enums bul]
  while [
all [
http://joerg.li/category/technology/
not empty? bul-stack
          bul <> last bul-stack
any [
not here ; not bullet or enum
find next here last bul-stack
all [here: find bul-stack bul not tail? here]

http://www.jopspeech.com/category/health/

emit-para: func [text] [
; Emit standard text paragraph:
  emit [<p>fix-tags text </p>]

]

emit-code: func [doc] [
emit <pre>
  while [
http://www.wearelondonmade.com/category/technology/
switch doc/1 [
          code   [emit [escape-html doc/2]]
output [emit [<span class="output"> escape-html doc/2 </span>]]
]
][doc: skip doc 2]
emit </pre>
doc: skip doc -2

]

https://waytowhatsnext.com/category/health/

emit-image: func [spec /local tag] [
; Emit image. Spec = ‘center or default is ’left.
  emit [
either spec/2 = 'center [<p align="center">][<p>]
join {<img src="} [(join image-path spec/1) {">}]
</p>
]

]

http://www.iu-bloomington.com/category/shopping/

buls: [bullet bullet2 bullet3]

enums: [enum enum2 enum3]

bul-stack: []

push-bul: func [bul][
if any [empty? bul-stack bul <> last bul-stack][
      ;print ['push bul mold bul-stack]
https://komiya-dental.com/category/health/
append bul-stack bul
      emit pick [<ul><ol>] found? find buls bul
]

]

pop-bul: func [bul /local here][
here: any [find buls bul find enums bul]
  while [
all [
not empty? bul-stack
http://www-look-4.com/category/property/
bul <> last bul-stack
          any [
not here ; not bullet or enum
find next here last bul-stack
all [here: find bul-stack bul not tail? here]

buls: [bullet bullet2 bullet3]

enums: [enum enum2 enum3]

https://www.webb-dev.co.uk/category/health/

bul-stack: []

push-bul: func [bul][
if any [empty? bul-stack bul <> last bul-stack][
      ;print ['push bul mold bul-stack]
append bul-stack bul
emit pick [<ul><ol>] found? find buls bul
]