[REBOL] Re: Wiki in Rebol, CGI Xitami
From: "Andrew Martin" > > But like every second language learning, the best start is true immersion > and for REBOL I am in the bath up to the neck for the moment ... > > I'm just waiting for the shout of Eureka! :) Or, Ukiah!!! ;-) --Scott Jones -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Wiki in Rebol, CGI Xitami
> But like every second language learning, the best start is true immersion and for REBOL I am in the bath up to the neck for the moment ... I'm just waiting for the shout of Eureka! :) Andrew Martin ICQ: 26227169 http://valley.150m.com/ -><- -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Wiki in Rebol, CGI Xitami
Hi Andrew, everything is OK in your message sequencing. Thank you for your invitation to join the Web Dialect group. I gratefully accepted your invitation and just began to read the first 6 messages and this seems very promising. Hope I will be not too late when coming to the 400th one or so... since I also have to review at least as much material in four other REBOL related mailing lists while reading and trying many of the exercices proposed in "REBOL for Dummies". I even admit that momentarily I had to give up my cover to cover reading of my two other books "REBOL programmation" and "REBOL the Official guide". Add to all this to my current readings extracts coming from the REBOL related web and REB sites (Via View), like REBOL Forces, rebol.com, rebol.org, reboltech and other third parties contributions (Vanilla, REBOL France, etc...), and this is really smelling REBOL a lot here around me ... But like every second language learning, the best start is true immersion and for REBOL I am in the bath up to the neck for the moment ... a chance I don't presently work at all so I can take a full time charge on alterning REBOL learning and doing outside sports !!! I like REBOL more and more as each new day comes to light and I hope to begin programming real useful apps in a near future. Thanks again for your help, Gerard - Original Message - From: "Andrew Martin" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, June 05, 2002 5:53 AM Subject: [REBOL] Re: Wiki in Rebol, CGI Xitami > There's another update available on my Web_Dialect list. > > Gerard, let me know if this email reaches you before my earlier reply, and > I'll resend it. > > Andrew Martin > ICQ: 26227169 http://valley.150m.com/ > -><- > > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Wiki in Rebol, CGI Xitami
> Hello Andrew, > > did you already managed for a complete Wiki setup I could test with my browser - with you permission of course? Currently, I'm still testing and refining the Wiki script, and the supporting ML and eText dialects. There's frequent updates on my Web_Dialect at YahooGroups list at: [EMAIL PROTECTED] [EMAIL PROTECTED] or by browser at: http://groups.yahoo.com/group/Web_Dialect You're welcome to subscribe and use the updates and make suggestions as you wish there. I've sent an invite. Others are welcome to subscribe as well. > [Date and Author ID Stamping] Currently my Wiki code doesn't have this. It uses a plain text file to store each page, and uses a backup file to hold older versions. The script is intended to be eventually used in a school environment, perhaps accessible by students as well. I'm interested in your thoughts on this subject. > [Testing] If you could test the script as well, that would be great. That way we can more quickly find the problems in it and then get them fixed. Andrew Martin ICQ: 26227169 http://valley.150m.com/ -><- - Original Message - From: "Gerard Cote" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, June 05, 2002 2:59 AM Subject: [REBOL] Re: Wiki in Rebol, CGI Xitami > Hello Andrew, > > did you already managed for a complete Wiki setup I could test with my > browser - with you permission of course? > > I also planned to do one by myself when I began to learn REBOL a couple of > months ago but you got me well before the finish line. In a tentative to > accelerate things, I also began my study by looking at the Vanilla-SBX code > from Christian Langreiter but I found it too much advanced for me - for the > moment. > > In the same time as I want to be functional quickly, I am installing > something that looks like the original Wiki but to which someone added a > date and author ID stamping for each entry via the RCS package. > > As you are probably aware of, this feature is for making the management of > the non desired entries an easier task, when necessary. In fact I plan to > use it as a tool to support my students during my CS teaching. This is why I > need the stamping process and I am sure you understand since I followed the > last entries in your OSCAR forum on the Yahoogroups site !!! > > Do you also plan to include some date and author ID stamping too later if > and when you will be ready to do so ? > > Well may be I could help you in some way - even if for now this is only for > testing and commenting purposes ... > > Thank you for the code. This too will become another study matter in my > REBOL quest ! > > Regards, > Gerard -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Wiki in Rebol, CGI Xitami
There's another update available on my Web_Dialect list. Gerard, let me know if this email reaches you before my earlier reply, and I'll resend it. Andrew Martin ICQ: 26227169 http://valley.150m.com/ -><- -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
[REBOL] Re: Wiki in Rebol, CGI Xitami
Hello Andrew,
did you already managed for a complete Wiki setup I could test with my
browser - with you permission of course?
I also planned to do one by myself when I began to learn REBOL a couple of
months ago but you got me well before the finish line. In a tentative to
accelerate things, I also began my study by looking at the Vanilla-SBX code
from Christian Langreiter but I found it too much advanced for me - for the
moment.
In the same time as I want to be functional quickly, I am installing
something that looks like the original Wiki but to which someone added a
date and author ID stamping for each entry via the RCS package.
As you are probably aware of, this feature is for making the management of
the non desired entries an easier task, when necessary. In fact I plan to
use it as a tool to support my students during my CS teaching. This is why I
need the stamping process and I am sure you understand since I followed the
last entries in your OSCAR forum on the Yahoogroups site !!!
Do you also plan to include some date and author ID stamping too later if
and when you will be ready to do so ?
Well may be I could help you in some way - even if for now this is only for
testing and commenting purposes ...
Thank you for the code. This too will become another study matter in my
REBOL quest !
Regards,
Gerard
- Original Message -
From: "Andrew Martin" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 03, 2002 3:42 AM
Subject: [REBOL] Wiki in Rebol, CGI Xitami
>
> Here's my Wiki in Rebol. It runs as a CGI under Xitami's web server, and
> uses text files to store each page. It uses my %eText.r and %ML.r dialects
> to change plain text into HTML. Links are expressed like:
> ?"Andrew Martin"
> which links to the file %"Andrew Martin.txt".
>
> It's not bullet proof, though.
>
> Andrew Martin
> ICQ: 26227169 http://valley.150m.com/
> -><-
>
>
>
> -- Attached file included as plaintext by Listar --
> -- File: Wiki.r
>
> #! C:\Rebol\View\rebol.exe -cs
> [
> Rebol [
> Name: 'Wiki
> Title: "Wiki"
> File: %Wiki.r
> Author: "Andrew Martin"
> eMail: [EMAIL PROTECTED]
> Date: 3/June/2002
> ]
>
> Directory: %../../Wiki/
> Host: %/cgi-bin/
> Action: join Host Rebol/script/header/File
>
> Forbidden: {\/:*?"<>|} ; A Wiki name cannot contain any of these
characters.
> Permitted: exclude Printable charset Forbidden
>
> content-type text/html
>
> Bug: function [String [string!]] [Title] [
> Title: "Wiki Bug!"
> print ML compose/deep [
> html [
> head [
> title (Title)
> ]
> body [
> h1 (Title)
> p (String)
> p [
> "system/options/cgi/query-string: "
> (mold system/options/cgi/query-string)
> ]
> p ["Time: " (now)]
> ]
> ]
> ]
> ]
>
> Index: has [Title Files Links] [
> Files: sort read Directory
> Title: "Index"
> print ML compose/deep [
> html [
> head [
> title (Title)
> ]
> body [
> h1 (Title)
> p "Pages: "
> (
> Links: make block! 4 * length? Files
> foreach File Files [
> if %.txt = find/last File %. [
> File: filename File
> append Links compose/deep [
> li [
> a/href (
> rejoin [Action #"?" replace/all copy File #" " "%20"]
> ) (File)
> ]
> ]
> ]
> ]
> compose/deep [
> ul [(Links)]
> ]
> )
> hr
> p ["As of: " (now)]
> ]
> ]
> ]
> ]
>
> if none? Query_String: system/options/cgi/query-string [ ; Might be a POST
instead?
> Post: make string! 2 + Length: to-integer
system/options/cgi/content-length
> read-io system/ports/input Post Length
> if empty? Post [
> Index
> quit
> ]
> Post: decode-cgi Post
> if all [
> parse Post [
> set-word! string!
> set-word! string!
> end
> ]
> Post: make object! Post
> parse/all Post/File [some Permitted end]
> ] [
> File: to-file Post/File
> if exists? Backup: rejoin [Directory filename File %.bak] [
> delete Backup
> ]
> if exists? New_File: join Directory File [
> rename New_File Backup
> ]
> Text: Post/Text
> write New_File Text
> Title: filename File
> print ML compose/deep [
> html [
> head [
> title (rejoin [{Thanks for editing: "} Title {"!}])
> ]
> body [
> H1 "Thank you!"
> p [
> "Thank you for editing "
> a/href (rejoin [Action #"?" Title]) (Title) "."
> ]
> p "Your careful attention to detail is much appreciated."
> p ["PS Be sure to " b "Refresh" " or " b "Reload" " your old pages."]
> ]
> ]
> ]
> quit
> ]
> Bug reform [mold Post]
> quit
> ]
>
> View: function [Title [string!] File [file!]] [Heading] [
> Heading: Title
> print ML compose/deep [
> html [
> head [
> title (Heading)
> ]
> body [
> (eText/Wiki/Base read Directory/:File rejoin [Action #"?"])
> hr
> (now)
> form/method/action "GET" (Action) [
> input/type/name/value "hidden" (first Edit_Rule) (Title)
> input/type/value "submit" "Edit"
> ]
> ]
> ]
> ]
> ]
>
> Verb: :View
> Edit_Rule: ["*Edit" #"=" (Verb: :Edit)]
> Edit: function [Title [string!] File [file!] /New] [Heading] [
> Heading: rejoin [either New ["New: "] ["Edit: "] Title]
> print ML compose/deep [
> html [
> head [
> title (Heading)
> ]
> body [
> h1 (Heading)
> form/method/action "POST" (Action) [
> input/type/n
