langreiter.com plain, simple: 2002-03-25-infxOverkill

LANGREITER.COM plain, simple

START

INDEX

2002-03-25-infxOverkill

CREATED BY chris • LAST EDITED BY chris 8618 days AGO

Hensen mag recht haben: Vielleicht ist INFX Overkill, wenn 20 Zeilen REBOL auch reichen ... ;-) — Seriously inspired, of course, by DJ Adam's Perl microserver ("5335"). Anyway, I still think that The Right Thing™ would be something INFX-like. Having to run a program on port 5335 somewhat feels like having to support the <blink> tag.

[create feedfox].r, first sight

REBOL [title: "feedfox"]

action: [http://hopdev.helma.org/apps/rss/?url= url]

feedfox-port: open/lines tcp://:5335
data: copy "" url: copy ""

; if you want a user interface ...
; view/new layout [button "quit" [q]]

forever [
    conn: first wait feedfox-port
    clear data clear url
    while [not empty? slice: first conn] [
        repend data [slice "^/"]
        ]
    parse data [thru "url=" copy url to " "]
    replace this-action: copy action 'url url
    insert conn rejoin [
        "HTTP/1.0 302 Moved Temporarily^/"
        "Server: synerge feedfox^/"
        "Location: " rejoin this-action "^/"
        "Connection: close^/^/"
        ]
    close conn
    ]