Thanks Gregg for your help. I'm going to check out the code, see how it works.
I appreciate the help. David B. Alford 633 Blom Drive San Jose, CA 95111 408.629.8634 408.375.6892 Mobile 408.516.8258 Fax [EMAIL PROTECTED] [EMAIL PROTECTED] www.havewifiwilltravel.com www.wifietcetera.com http://stores.ebay.com/Have-WiFi-Will-Travel On Oct 16, 2005, at 10:43 AM, Gregg Irwin wrote: > > REBOL [] > > buff: copy "" > > ; Put your title and summary here > title: "Site Title" > summary: "Site Summary" > > emit: func [value] [ > append buff join reform value "^/^/" > ] > > emit "REBOL [Type: 'index]" > emit [ > 'title mold title newline > 'summary mold summary > ] > > ; define links you want in your index.r file here. > links: [ > http://www.rebol.com > http://www.rebol.org > ] > foreach link links [ > emit ['link mold form second split-path link link] > ] > > files: read %. > > ; This generates the "label" part of each file or folder entry > filename: func [file] [mold form second split-path file] > > foreach file files [ > emit either dir? file [ > ['folder filename file join file %index.r] > ][ > ['file filename file file] > ] > ] > > print buff > ; write %index.r buff > > halt -- To unsubscribe from the list, just send an email to lists at rebol.com with unsubscribe as the subject.
