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

LANGREITER.COM plain, simple

START

INDEX

2002-03-25

CREATED BY chris • LAST EDITED BY chris 2435 days AGO

First Trials with Helma: "It appears like the weblog app "Antville" is strong enough that it can serve as the "inbox" for an email client (and an outbox as well)."

Are we recognizing a theme here?

2002-03-25-1stTrialsHelma

www.cl.cam.ac.uk/Teaching/2001/PrologAI/cae1.pdf

www.orgnet.com/inflow3.html

www.teamware.com/pwb/

2002-03-25-tmrw

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
    ]