• Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

AltME groups: search

Help · search scripts · search articles · search mailing list

results summary

worldhits
r4wp204
r3wp3029
total:3233

results window for this page: [start: 401 end: 500]

world-name: r3wp

Group: RAMBO ... The REBOL bug and enhancement database [web-public]
Gabriele:
4-Jan-2005
i think i have set to tested almost all the bugs that were tested. 
please check the waiting for testing list again to make sure i didn't 
miss anything.
Anton:
6-Feb-2005
<pre>rebol [
<br>	{
<br>		2.1.24 crashes windows XP at n = 214 in my system
<br>	}
<br>]
<br>n: 0
<br>scan: func [name blk /local y][
<br>	probe name
<br>	probe n: n + 1

<br>;	write clipboard:// name ;if this line is not commented, crash 
appears after more iterations
<br>	foreach x blk [
<br>		y: list-reg/HKLM join name [x "\"]
<br>		if y [scan join name [x "\"] y]
<br>	]
<br>]
<br>
<br>scan "" list-reg/HKLM {}
<br>halt
<br></pre>
DideC:
11-Feb-2005
Anton: what "list-dir" give you as result ???
DideC:
25-Feb-2005
>> do http://www.lexicon.net/antonr/rebol/util/demo-request-dir.r
connecting to: www.lexicon.net
Script: "Demo request-dir" (28-Dec-2003)
Script: "scroll-table style" (7-Mar-2004)
Script: "List Sort Button" (10-Dec-2003)
Script: "header-group" (7-Feb-2004)
connecting to: www.lexicon.net

Include: Couldn't load-thru http://www.lexicon.net/anton/rebol/util/request-dir.r
** Script Error: request-dir has no value
** Near: request-dir/initial %./
Anton:
26-Feb-2005
eh? what do you mean ? Oh do you mean you can also see files at the 
bottom of the list ? Yes, that is by design. But the directories 
are the only items that are selectable. It always annoyed me not 
to be able to see all the contents of a directory in other directory 
selectors.
Volker:
14-May-2005
3662 parse/lines second arg: how to split into lines and apply the 
rule to each line?

 a grep:   parse/lines string-with-list-of-file-names [ set file thru 
 ".r" end ( ?? file ) ]
DideC:
19-May-2005
init-connection: func [
		new /service server 
		/local proto evt list len names i fun
	][
		new/locals: context [
			handler: any [
				all [service server/server-type]
				proto: select protocols new/locals/1
			]
			write-queue: copy []
			file-chunk: 64 * 1024
			stop: handler/stop-at
			in-buffer: make binary! 64 * 1024
			file: flag-close: events: none
		]
		if proto [
			evt: reduce new/user-data
			help new/locals
			list: array len: length? names: new/locals/handler/events
			i: 1
			until [
				if fun: select evt pick names i [poke list i :fun]
				len < i: i + 1
			]
			new/locals/events: list
		]
		actives/add new
	]
DideC:
19-May-2005
NEW/LOCALS is an object of value:
   write-queue     block!    length: 0
   file-chunk      integer!  65536
   stop            char!     #"^/"
   in-buffer       binary!   #{}
   file            none!     none
   flag-close      none!     none
   events          none!     none

** Script Error: Invalid path value: handler
** Where: init-connection
** Near: list: array len: length? names:
Brett:
19-May-2005
test-address-import: func [

 {Returns true if pass, false if discrepency and none if failed with 
 error.}
	limit [integer!] "Number of TO address to generate."
	/quiet "Does not display error."
	/local to-list eml sep msg obj
] [
	to-list: copy {} sep: ""
	repeat i limit [
		eml: to-email join "test-" [i "@test.com"]
		repend to-list [sep {"'} eml {'" <} eml {>}]
		if empty? sep [sep: {,^/	}]
	]

	msg: replace copy {Date: Thu, 12 Feb 2004 11:41:49 +0100
From: test <[test-:-test-:-com]>
MIME-Version: 1.0
To: TO_LIST
Subject: [REBOL] test message - edited copy of real message
Content-type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 8bit
Sender: [rebol-bounce-:-rebol-:-com]
Reply-to: [testing-:-testing-:-com]
Status:   


Test message.
} {TO_LIST} to-list

	either error? set/any 'result try [
		obj: import-email msg
		limit = length? obj/to
	][if not quiet [print mold disarm result] none][result]

]
Gabriele:
20-May-2005
other changes include: query on http port uses HEAD instead of GET, 
and fixed inform/timeout. please check out RAMBO to see a list of 
all the other bugs that have been fixed.
Brett:
22-May-2005
I have one modification wish for the FTP scheme: to add a List-Options 
variable like other FTP client programs have. This would allow LIST 
-la which allows hidden files such as Apache's .htaccess to be transferred 
using the scheme. At present these files cannot be transferred.
Vincent:
25-May-2005
request : to really test new AGG/draw, we needs a command list. The 
examples helps, but there is now way to tell the presence and purpose 
of optional parameters. Not a full doc, just a simple one line per 
command list, ie : 'line 1st-point [pair!] 2nd-point [pair!] ... 
n-point [pair!]
Gabriele:
25-May-2005
vincent: command list should be available soon
Cyphre:
25-May-2005
We will be finalizing the DRAW syntax very soon. After that step 
we release updated command list so your test scripts won't break 
in later releases.
Vincent:
26-May-2005
#3723 : an old bug (it was at least in /Core 2.2.0) The 'list-dir 
function is missing a 'dir? test on argument. A line like :

if not dir? dir [throw make error! reduce ['access 'cannot-open dir]]

just before "read dir"  would do it (as 'dir? works with ftp:// too.)
Vincent:
27-May-2005
thanks for the draw command list - (time to experiment and crash-test 
draw/agg :-)
shadwolf:
3-Jun-2005
For norman new submition bug about error (unrecognised symbol ) when 
loading libraries .so files I have maybe the solution or explanation 
to this problem.... When you look to the error message on loading 
libraries submitted by norman in his post we can see that the problem 
is related to external needed library for example libSDL, libncurse, 
libogg  do not need other libs But  GTK and gthread need previous 
load of glib, libgdk, libpango, libgmodule, libpng, libint, libgtrhread 
and the list is long ;)...
sqlab:
22-Jun-2005
regarding #3808

it's just the common double slash, that Rebol does not like.
>> list-dir %//remotemachine/remoteshare   
should be written as
>> list-dir %/remotemachine/remoteshare
Group: Core ... Discuss core issues [web-public]
Gregg:
27-Jan-2005
common sense

 is relative though. Bertran Meyer, the creator of Eiffel, offers 
 a powerful argument that I've come to agree with, that of Linnaean 
 Naming Conventions. For example, a stack has Push/Pop methods, a 
 queue may have Enqueue/Dequeue methods, a list Insert/Remove, a collection 
 Add/Delete. You end up with different names for methods that do the 
 same thing. They just behave differently based on the data structure.
Robert:
25-Feb-2005
I always wanted a way to dump all contexts a word is defined in: 
like "dump-context myword" and get a list of named and unnamed contexts. 
Anamonitor can do this.
Graham:
6-Mar-2005
which is what I posted to the list in Feb 2003
Micha:
16-Mar-2005
;serwer proxy


p: make port! tcp://:80

p/awake: func [ port /local  data conn targed cmd partner url 
] [



conn: first port
wait conn
data: to-string copy conn

replace/all data "^M" ""
source data

targed: copy/part data find data "HTTP/1.1"
data: find/tail data "^/"
print targed

cmd: parse targed none

url:  decode-url cmd/2 

if not url/path  [url/path: "" ]

if not url/target  [url/target: ""]

partner: open/no-wait to-url rejoin [ "tcp://" url/host ":80" ]




insert partner rejoin [ cmd/1" /" url/path url/target " HTTP/1.1^/" 
 data]

wait partner

tmp: copy partner




close partner



insert conn tmp



close conn 

]


append system/ports/wait-list p


open/binary/no-wait p
 wait []


halt
sqlab:
17-Mar-2005
Micha:
regarding your Async Server

You can modify your awake function like this

p/awake: func [ port /local  data  ] [
 	data: copy port
	either data [
		append tmp data
	] [
		close p 
		remove find system/ports/wait-list p
	]
]
Allen:
21-Mar-2005
Larry's list of RegEx shortcomings http://www.perl.com/pub/a/2002/06/04/apo5.html?page=2
Group: Script Library ... REBOL.org: Script library and Mailing list archive [web-public]
Robert:
23-Jan-2010
Make a list and let us know. And attach a number that we have a baseline 
to discuss about.
Anton:
22-Jul-2010
And I just retested the 3dmoney.r page, now money.r is first in the 
suggestions list.
Nice one.
Sunanda:
2-Feb-2011
Okay....that's a problem.....the downloader does not pace itself, 
so it triggers flood protection.


Best current work-around is to download the whole set as one file 
-- probably faster too:
   http://www.rebol.org/download-librarian.r

Let me take you off the flood trigger list first.....
Group: Parse ... Discussion of PARSE dialect [web-public]
MichaelAppelmans:
7-Jun-2005
getting the following error  when running Didec's delete email script 
against a mailbox with large number of emails (250+):internal limit 
reached: parse
Near: [parse data maillist
   addr-list]
Where: parse-mail-list
Graham:
7-Jun-2005
what you could do, is extract Didier's implementation of the TOP 
command, and then get the first line of each header in your mailbox. 
 If it has the return-path set to <>, then note it in a list.  When 
finished, go thru and issue deletes on all of those.
Gabriele:
7-Jun-2005
is the To: line very, very long? there's a recursion limit in the 
parser for the address list. since you are probably not interested 
in parsing the To: header, maybe you can disable it in import-email.
Pekr:
22-Jun-2005
I have CSV file and I have trouble using parse one-liner. The case 
is, that I export tel. list from Lotus Notes, then I save it in Excel 
into .csv for rebol to run thru. I wanted to use:

foreach line ln-tel-list [append result parse/all line ";"]


... and I expected all lines having 7 elements. However - once last 
column is missing, that row is incorrect, as rebol parse will not 
add empty "" at the end. That is imo a bug ...
Allen:
22-Jun-2005
foreach line ln-tel-list [append result parse/all join line ";" ";"]
Group: Linux ... [web-public] group for linux REBOL users
Graham:
17-Dec-2006
request-file: func [

    {Requests a file using a popup list of files and directories.} 
    /title "Change heading on request." 
    title-line "Title line of request" 
    button-text "Button text for selection" 
    /file name "Default file name or block of file names" 
    /filter filt "Filter or block of filters" 
    /keep "Keep previous settings and results" 
    /only "Return only a single file, not a block." 
    /path "Return absolute path followed by relative files." 
    /save "Request file for saving, otherwise loading." 
    /local where data filt-names filt-values
][
    if none? out start-out 
    either file [

        either block? name [picked: copy name] [picked: reduce [to-file name]]
    ] [
        if not keep [picked: copy []]
    ] 
    if none? picked [picked: copy []] 
    if file: picked/1 [where: first split-path file] 
    while [not tail? picked] [
        set [name file] split-path first picked 
        either name <> where [remove picked] [
            change picked file 
            picked: next picked
        ]
    ] 
    picked: head picked 
    if any [not where not exists? where] [where: clean-path %.] 
    if not keep [
        fp/data: head fp/data 
        so/data: head so/data 
        si: 1
    ] 
    either filter [
        filters: either block? filt [filt] [reduce [filt]]
    ] [if any [not keep not block? filters] [pick-filter]] 
    ff/text: form filters 
    tt/text: either title [copy title-line] ["Select a File:"] 
    ob/text: either title [copy button-text] ["Select"] 
    if all [
        error? done: try [
            filt-names: copy head fp/data 
            filt-values: copy filter-list 
            either filter [
                insert head filt-names "Custom" 
                insert/only filt-values filters
            ] [
                filt-names: at filt-names index? fp/data
            ] 
            done: local-request-file data: reduce 

            [tt/text ob/text clean-path where picked filt-names filt-values found? 
            any [only] found? any [save]] 
            if done [
                dir-path: data/3 
                picked: data/4 

                if not filter [fp/data: at head fp/data index? data/5]
            ] 
            done
        ] 
        (get in disarm done 'code) = 328
    ] [
        done: false 
        read-dir/full either where [where] [dir-path] 
        show-pick 
        inform out 
        unfocus
    ] 
    if error? done [done] 
    if all [done picked any [path not empty? picked]] [
        either path [
            done: insert copy picked copy dir-path 
            either only [done/1] [head done]
        ] [
            foreach file picked [insert file dir-path] 
            either only [picked/1] [picked]
        ]
    ]
]
Anton:
17-Dec-2006
request-file: func [

    {Requests a file using a popup list of files and directories.}
    /title "Change heading on request."
    title-line "Title line of request"
    button-text "Button text for selection"
    /file name "Default file name or block of file names"
    /filter filt "Filter or block of filters"
    /keep "Keep previous settings and results"
    /only "Return only a single file, not a block."
    /path "Return absolute path followed by relative files."
    /local where
][
    if none? out start-out
    done: false
    either file [

        either block? name [picked: copy name] [picked: reduce [to-file name]]
    ] [
        if not keep [picked: copy []]
    ]
    if none? picked [picked: copy []]
    if file: picked/1 [where: first split-path file]
    while [not tail? picked] [
        set [name file] split-path first picked
        either name <> where [remove picked] [
            change picked file
            picked: next picked
        ]
    ]
    picked: head picked
    if any [not where not exists? where] [where: clean-path %.]
    if not keep [
        fp/data: head fp/data
        so/data: head so/data
        si: 1
    ]
    either filter [
        filters: either block? filt [filt] [reduce [filt]]
    ] [if any [not keep not block? filters] [pick-filter]]
    ff/text: form filters
    tt/text: either title [copy title-line] ["Select a File:"]
    ob/texts/1: either title [copy button-text] ["Select"]
    read-dir/full either where [where] [dir-path]
    show-pick
    inform out
    unfocus
    if all [done picked any [path not empty? picked]] [
        either path [
            done: insert copy picked copy dir-path
            either only [done/1] [head done]
        ] [
            foreach file picked [insert file dir-path]
            either only [picked/1] [picked]
        ]
    ]
]
btiffin:
17-Dec-2006
Debian's package list is impressive.  And there is nothing stopping 
you from Dl'ing unpackaged goods.  Ubuntu comes no cost for free 
they pay postage...free.  And it's based on Debian, and perhaps making 
mama and papa a little jealous.  :)
PeterWood:
4-Mar-2007
Try this :

 list-dir %/media/hda1
Anton:
4-Mar-2007
Also try
list-dir %/
Gabriele:
14-Apr-2007
the contact list isn't a white list?
Graham:
14-Apr-2007
no, because I get rebol list mail being sent to spam at times
Maxim:
14-Apr-2007
In two years of using gmail exclusively, I have received less than 
10 spams to my inbox (I receive 70-100 a day) and receive many real 
mails to.


so far I have only detected 3 false positives in 3 years.  and since 
gmail aggressively collects all the mail addresses you've received 
and sent to, the white list is rapidly perfect with 0 need on my 
part.
Graham:
14-Apr-2007
I'll try adding them to my contact list.
Group: !Readmail ... a Rebol mail client [web-public]
Janeks:
27-Mar-2009
Hi! 
Probably a bit offt., but:
Could I use Rebol with Exchange Server 2003?

I read in some earlier mailing list archives that there was some 
problems with authentication standarts...
Group: SDK ... [web-public]
Tomc:
7-Sep-2005
from the mail list
Cyphre:
9-Dec-2005
I think blitting is already in the todo list so stay tuned ;)
Group: !RebGUI ... A lightweight alternative to VID [web-public]
Vincent:
25-Mar-2005
On radio - started some work on it.

I would like more info on needed 'list, behaviour and features wise.

I have a working text-list widget, with full mouse control (shift/ctrl 
selection), but it's too big imho (100+ lines.)
Robert:
25-Mar-2005
list (single or multi column): I once have hired Cyphre to create 
a style for me. Very useful and powerful. If someone is interested 
I can provide the code as a starting point (or at least as idea pool). 
You can find some documentation for it on my homepage under project 
data-form dialect.
shadwolf:
25-Mar-2005
I think list must be  multi colum is good, so multi colum must have 
a title (enable/disable), row design (enable/disable), sorted capability 
when clicking . Row is capable to display text, images, progressbar, 
checkbox, button all kind of widgets. Maybe as base we must have 
a dialect to format heavyly the content
shadwolf:
25-Mar-2005
I'm looking to dropdown and I can't see in the popup list the choice 
entries you supply in the data field...
Ashley:
26-Mar-2005
Vincent: 'list behavior & features - less is more at this stage, 
once we have something to look at we can refine it.


shadwolf: 'text+ removal. While a useful widget for certain domains 
(like WYSIWYG editors / browsers) it's not a basic building block 
widget. There were also some unresolved implementation issues with 
it at this stage - I'll add it back in at a later date as an optional 
or advanced widget.


shadwolf: multi-column list. An implementation model I liked was 
that adopted by Gui4Cli ( http://users.hol.gr/~dck/g4c/) which allows 
simple "table" representations (including column type and alignment 
definitions). Can't say I've come across that many UI's that use 
anything other than text / numbers in a standard list (thumbnails 
and scrolling check-box options are usually implemented in an app 
specific manner).


Ammon: 'display/popup. If it's sufficiently different from 'display/layout 
then I'm all for it.


Ammon: Wizard style. A wizard widget, if simple enough, would be 
a good addition. Like 'group-box and 'tab-panel it is a meta-widget 
that groups / uses other widgets. I'll make this distinction clearer 
in the next version of the docs. On a side note, my install example 
has convinced me of the need for an 'indent option (and the fact 
that use of 'offset should reset the line-height calculation).


Ammon: "Unless otherwise specified, text size reverts to 200x9999 
if the string contains a newline." I probably need to rephrase this, 
but what I was trying to say was that by default 'text is 9999x20 
which let's you write a string without having to know it's width 
in advance (9999 will auto-size it), *but* if the string contains 
a newline then it is the height that is the more important variable 
so it'll use 200x9999 instead. Of course it'll only do this if you 
don't provide an explicit size yourself (the "unless otherwise specified" 
bit). Hope that makes a bit more sense.
Ashley:
31-Mar-2005
Robert

 1) Widget observations: all noted. LED is the read-only functional 
 equivalent of 'check used for things like system status displays, 
 etc

 2) Tabbing (basic version) is slated for 0.1.8, more advanced features 
 will have to wait until the base widget set is complete.

 3) DATA is a required structural element to ensure widget specific 
 initialization is performed by init *not* the display function.

 4) Implicit face usage has two big advantages: a) allows you to cut 
 and paste code between widgets; b) different widgets can share the 
 same code.

 5) RebGUI still lacks a few of the more complex list / table / menu 
 / treeview type widgets.

 6) Re: new projects. RebGUI is still ALPHA and the basic design may 
 fluctuate as the requirements of more complex widgets becomes clearer. 
 I wouldn't be building any commercial applications based on it quite 
 yet (not until it goes beta at least).

Pekr

 1) Also remember that VID was created against a much earlier version 
 of View, and that it is only recently that View functionality has 
 stabilized. One example of this is the extensive use of 'draw by 
 RebGUI compared to VID.

 2) Tabbing, like key mapping, is less of a technical issue than a 
 convention issue; but my aim is to be able to "drive" all RebGUI 
 widgets both with and without a mouse (although the priority is to 
 get the mouse behavior right first).
Ashley:
9-Apr-2005
shadwolf: It's on my (growing) ToDo list. ;)
Ashley:
9-Apr-2005
Brock: validation is also on my ToDo list (you can see the beginnings 
of it in the field widget character length limits). A couple of questions 
though (both how it is done in .Net and how it *should* be done in 
RebGUI):

	What's the granularity of the validation?

 Does it allow the specification of a mask (e.g. for phone numbers)?

 Is it validated as I type, when I leave the field, or when I save 
 the form? (Or is it flexible enough to let me choose the level of 
 validation?)


shadwolf: Haven't really thought about it much, but I figured the 
tab-panel redraw feel was a logical place to do the work.
Ashley:
24-Apr-2005
Alpha2 build available at: http://www.dobeash.com/files/RebGUI-020.zip

Highlights include:


 - New, unit based sizing model (see http://www.dobeash.com/it/rebgui/display.html)

 - Improved language localization (see http://www.dobeash.com/it/rebgui/locale.html)

 - New arrow, chevron, check-group, led-group, scroller, spinner and 
 drop-list widgets
	- Lots of minor fixes
	- show redefine removed
	- Use of -1 instead of 9999 to denote auto-size
	- Aesthetic improvements (use of gradients)
	- %tour.r substantially rewritten

Known issues

	- spinner and drop-list widgets need more work
	- scroller needs more work (resizeable dragger)

In progress

	- Improved tab-panel (shadwolf)
	- Menu (cyphre / shadwolf)
	- tabbing
	- field input validation (field input masks, etc)

That leaves less than half a dozen widgets to go!

	list		single column
	listview	multi-column
	treeview
	popup-menu	context menu
	status		status bar with one or more “segments”
Gregg:
24-Apr-2005
Drop list seems to have some issues. Doesn't keep the selected value. 
Maybe just a demo thing.
shadwolf:
24-Apr-2005
Known issues

	- spinner and drop-list widgets need more work
shadwolf:
25-Apr-2005
I'm starting a portage of a very good list widget made by Claude 
RAMIER (cr8825) this code offer many things
shadwolf:
25-Apr-2005
I will made maybe a merge betwin cyphre my-list and Claude table 
widgets first because Table is twice biger in code than my-list and 
second because some fonctionnality interresting in table made by 
claude.
Robert:
26-Apr-2005
multi-column-list: Please consider adding the auto-filter feature 
as present in Excel. This is a super-fast filter / search feature 
that can be used in most applications.
shadwolf:
26-Apr-2005
Robert hum first we will try to make it as somplete as we can ;) 
the autofill feature is neede to for drop list IMOO
Volker:
26-Apr-2005
shadwolf: posted my header-list-1 in users/volker too. yet another 
multi-col-list, maybe it helps.
shadwolf:
27-Apr-2005
Well after one day of work on the multicolumn list  here is a little 
screen shot of what I succed to do http://shadwolf.free.fr/rebgui-list.jpg
shadwolf:
28-Apr-2005
to see my advance on list-view widget report to the first working 
sample http://shadwolf.free.fr/rebgui-list2.r
Brock:
30-Apr-2005
Having a minimal, lowest common denominator version of list is a 
good idea, considering the idea with RebGUI is to create a small/tight 
GUI environment.  Having a more advanced version (more code) running 
on the lighter GUI is also a good idea so programs written for it 
don't feel restricted.
Brock:
30-Apr-2005
Just checked with Excel, while dragging, the cell contents don't 
move or redraw, just the title or header columns.  Then when mouse 
is deselected the list redraws all the cells.
Graham:
30-Apr-2005
I just looked at Romano's ana-list.  When column resizing, he chooses 
to resize in real time only the adjacent column.  The other columns 
are not affected.
Graham:
30-Apr-2005
If you resize the 1st column, then Romano's ana-list resizes the 
1st and 2nd columns only.  The other columns stay where they are.
Robert:
1-May-2005
column-resizing:

- after starting regui-list I see gray column seperator lines. When 
I move the mouse over the line, it's highlighted in orange and than 
becomes black when moving the mouse away. Why not gray again?

- when making a column smaler I can see the virtual new edge (in 
orange) but when making the column wider this virtual new edge isn't 
shown. Looks to me like an order issue. The virtual line needs to 
be drawn last.
Group: !Uniserve ... Creating Uniserve processes [web-public]
Graham:
5-Mar-2005
REBOL [
	Title: "SMTP daemon"
	Author: "Graham Chiu"
	Version: 0.0.2
	Date: 5/3/2005
]

install-service [
	name: 'smtp
	port-id: 25

	multi-line-end: rejoin [crlf #"." crlf]
	stop-at: crlf
	
	server: make object! [ user-data: none ]

 clear-server: server/user-data [ state: "command" email: computer: 
 none ]
	
	maildir: %mail/ ; store mail here
	domains: [ "@compkarori.co.nz" ] ; list of accepted domains
	
	save-mail: func [ data /local mailbox ][

  if not dir? mailbox: rejoin [ maildir server/user-data/email "/" 
  ] [
			if not exists? mailbox: join maildir %misc/ [
				mailbox: make-dir join maildir %misc/
			]					
		]
		if not exists? join mailbox "mail.txt" [
			write join mailbox "mail.txt" "" 
		]
		write/append join mailbox "mail.txt" join crlf to-string data	
		; print dehex data
	]
	
	on-new-client: has [su] [
			su: server/user-data: context [
			state: copy "command"
			email: computer: none
	 	]
		stop-at: crlf
		write-client join "220 mail.compkarori.co.nz SMTP" crlf
	]

	smtp-rule: [
		"HELO" copy name thru newline
			( write-client join "250 mail.compkarori.co.nz SMTP" crlf 
				if not none? name [
					trim/head/tail name
				]
				server/user-data/computer: form name
			) |
		"EHLO" thru newline
			( write-client join "500 not implemented" crlf ) |
		"MAIL" thru newline
			( write-client join "250 OK MAIL FROM" crlf) |
		"QUIT" thru newline
			( write-client join "221 Good Bye" crlf close-client) |
		"RSET" thru newline
			( write-client join "250 OK RESET" crlf clear-server ) |
		"NOOP" thru newline
			( write-client join "250 OK NOOP" crlf ) |
		"VRFY" thru newline

   ( write-client join "252 send some mail, i'll try my best" crlf ) 
   |
		"EXPN" thru newline
			( write-client join "500 not implemented" crlf ) |

  "RCPT" [ thru "<" | thru ": " ] copy name to "@" copy domain to ">" 
  thru newline 
			( 
				either find domains domain [

     server/user-data/email: form name write-client join "250 OK RCPT 
     TO" crlf 
				][

     write-client join "553 sorry, that domain is not in my list of allowed 
     rcpthosts" crlf
					server/user-data/email: none					
				]
			) |
		"DATA" thru newline

   ( 	stop-at: multi-line-end server/user-data/state: copy "body" 
				write-client join "354 start mail input" crlf
			) 
	]
	
	on-received: func [data /local su] [
		su: server/user-data
		; print join "Data: " data
		switch su/state [
			"command" [
				if not parse data smtp-rule	[ 
					write-client join "500 command not understood" crlf
				]		
			]
			"body" [
				; reject if we don't have a RCPT command first
				if none? su/email [
					write-client join "500 no email address received" crlf
					stop-at: crlf
					su/state: copy "command"
					return
				]
				
				; write the body of the message somewhere

    save-mail rejoin [ "Received: from " su/computer " ( " su/computer 
    " [ " client/remote-ip " ]) " to-idate now newline dehex data newline 
    newline ]
				stop-at: crlf
				write-client join "250 OK MAIL received" crlf
				su/state: "command"
				su/email: none
			]	
		]
	]
]
DideC:
9-Mar-2005
encap-fs: context [
	cache: path: none
	root: system/script/path

	get-cache: func [file][
		path: parse file "/"	
		remove-each dir path [dir = ".."]
		file: to-file path	
		either file [
			either file: select cache file [file][load file]			
		][
			make error! join "Cannot access : " file
		]
	]
	
	set 'encap? to-logic select system/components 'decap

	either encap? [
		set 'set-cache func [list [block!] /local bin file][
			cache: list
			;cache: make block! 16
			;parse list [
			;	some [
			;		(bin: no) opt ['binary (bin: yes)]
			;		set file file! (
			;			repend cache [
			;				file
			;				either bin [read/binary file][read file]
			;			]
			;		)
			;	]
			;]
		]
		set 'do-cache func [file [file!]][do get-cache file]
		set 'load-cache func [file [file!]][load first get-cache file]
		set 'read-cache func [file [file!]][]
	][
		set-cache: none
		do-cache: :do
		load-cache: :load
		read-cache: :read
	]
]
Terry:
4-Feb-2006
with.. "Server error: tcp 553 sorry, that domain is not in my list 
of allowed rcpthosts"
Louis:
13-May-2006
If this list doesn't fulfill all your needs, here's the additionnal 
features planned for the 1.0 release :

    * RSP: REBOL Server Pages support.
    * General CGI support (run any CGI script).

    * Chunk-encoding transferts support (streamed data transferts).
    * Standard compression methods support: gzip, deflate, bzip2.

    * Byte-ranges request support (ability to request files in parts 
    and resume broken downloads).

    * mod-rewrite module for powerful request URL transformations (without 
    the regexp complexity!).

    * mod-map-url module for direct URL to REBOL functions or objects 
    mapping.
    * SSL support.
    * Advanced GUI client for local and remote administration.
Group: Hardware ... Computer Hardware Issues [web-public]
[unknown: 9]:
23-May-2006
You should, we can talk to you about how to configure your drive 
in the first place.  I have some simple tricks I do for my laptops 
(I only use laptops, and live on them). 

Quick list:

Put everything in PGP folders.

Install XP to a small partition, and have a ghosted version on the 
same drive (seperate partition).

Basic layout is C: = Boot and XP, D: = Data (your personal Data, 
E: = Extra applications, Z: = Archive og Ghost of C:.
Keep the custom Ghost CD for your laptop with you.


With this, if somoene steals your computer they don't get your data.
If C gets corrupted, you can recover.
And, it is REALLY easy to back up just your data fast.
[unknown: 9]:
24-May-2006
Pekr, that is not true ($1000 diff).  You must be comparing Toshiba's 
list price from the site to HP's street price.  It more like a hundred 
bucks.


But...I agree the HP specs are much better.    Finding the right 
laptop is a lot of work.
Pekr:
12-Feb-2007
hmm, dunno ... you can get list of devices somehow, but if there 
are any parameters, I don't know. Generally, you can check with free 
products as Everest, they pretty much disclose all possible hw info 
and categorise it. Cool app. If Everest or othere such sw does not 
disclose such info, then I am not sure it si possible.
[unknown: 9]:
21-Apr-2007
The universe *is* against me.  Don't try to suggest otherwise...
 - I believe  

And

I'm on the hit list too...
Group: SVG Renderer ... SVG rendering in Draw AGG [web-public]
shadwolf:
24-Jun-2005
I think I handle web the creation of the rebol list of linear gradient
shadwolf:
24-Jun-2005
if you wants to write the "in" AGG/draw code that is based on my 
rebol linear gradient list there is the code and a sample file from 
InkScape
shadwolf:
2-Jul-2005
this script support recursive G block (objects /list) and path (object 
list)
shadwolf:
5-Aug-2005
Good list ;)
shadwolf:
1-Jan-2006
well last thing i can say is that SVG rendering  engine is very high 
on my task  list ( task number one) i worked on the adding of some 
other new drawing primitive  (image rect, circles). I will continue 
to  work on the close support of all SVG datas that can have a meaning 
in AGG context. SVG rendering engine is  a   2   weeks of work only!!! 
... until i fall on the gradient and transforms problems so this 
ensure us advancing on this project will be very fast once we solve 
bugs in REBOL/View related to AGG (wich is in progress actually)
shadwolf:
2-Jan-2006
for me to be honnest the advantages of  using SVG instead of images 
 are a lot this is a quick list of my thoughts on what can be done 
with  SVG format.
 - easier embeding of graphical content
- resizing auto ith not grphics quality loss
- cheap but sharp skining 

 - graphical content of an  User  Interface  very low because rebol 
 is pretty able to  work with compression of text content ( compress/decompress)

A little sample to enlight this  compressed SVG file with blender 
logo ->  less than 500 octets (any size can be applyed with no graphic 
loss (aliasing, color loose, blur, pixelisation etc..) )  a fixed 
jped for same content will use  around  50ko. This means less datas 
in memory to as graphic pixel tables are very heavy in VM memory

- Dynamic graphical content. some thing like text scrolling or efffect 
like Flash ones but with  a  reduction of  1000  of the data and 
memory use SVG use a labeling system for  each graphical content 
that compose the image we can provided a tiny system to handle easy 
animation and show/hide of graphical content using raw rebol commands 
-> this will make pretty easier the realisation of dynamic animations 
in rebol ViD content and  as any REBOL/View face is DRaw/AGG capable 
the effects that we can create isn the futur with this idea will 
have no limits  -> this means too to have a pretty fast and ell designed 
SVG engine (that's my actual path on research)
Group: rebcode ... Rebcode discussion [web-public]
Gabriele:
13-Oct-2005
compile-rules: it's a compiler for parse rules, that allows extending 
the parse dialect. i think, that some of the extensions available 
using compile-rules should eventually get into the parse dialect. 
but, parse is not high on the pri list right now, so don't hold your 
breath.
BrianH:
14-Oct-2005
Actually, there is a lot of things I have to remember and adding 
long numeric constants to the list would be a problem. That isn't 
sufficient justification (to me) to add another opcode. Greater efficiency 
would be, as would making the log-* set as complete as REBOL's natives 
are to save on silly questions like mine in the future :)
Group: AJAX ... Web Development Using AJAX [web-public]
Allen:
9-Dec-2005
The google issue is a good one, search engines are the reasons that 
previous things like frames and iframes failed. As Neilson often 
states, since the advent of powerfull search engines like google, 
there is no longer a real concept of websites..rather from a web 
user point of view, it is just a search box and a list result web 
 pages with what they want to find
Group: Tech News ... Interesting technology [web-public]
Allen:
1-Mar-2006
Terry, I think computing is mature enough to have machines for different 
purposes, games machines, media machines and work machines. Most 
households I know have a least two on that list so far and are heading 
for the 3rd. Currently the pendulum is swinging away from "one machine 
to rule them all".
Terry:
4-Mar-2006
  MySQL 5.0 Adds Features for Enterprise Developers and DBAs
by Ken 
  North

Baseball legend Satchel Paige is famous for having said 

Don't look back, something might be gaining on you." Companies selling 
a commercial SQL database management system (DBMS) know its MySQL 
that's gaining on them. With an already large installed base, MySQL 
is set to attract new users because of the feature set of version 
5.0. It includes capabilities for which developers have often turned 
to commercial SQL products.


The purposes for which we use personal, mobile, workgroup, departmental, 
enterprise and web databases are diverse. Application requirements 
are a primary determinant of the capacity and features we need from 
an SQL DBMS. For example, a high-volume transaction processing web 
site places greater demands on a database than a contact list manager 
for laptops and small business servers.


A Web Techniques magazine article, "Web Databases: Fun with Guests 
or Risky Business?" discussed features that characterize an industrial-grade 
SQL DBMS. It explained SQL security and mission-critical databases, 
defined as


    "A database is mission critical if its lack of data integrity has 
    serious consequences, such as causing the loss of customers or even 
    lives."


Maintaining data integrity is implicit -- that's a prime directive 
for a DBMS. The article explained other features that enterprise 
developers look for in an SQL platform:


    ... mission-critical applications require features such as intrinsic 
    security, transaction journaling, concurrency controls and the ability 
    to enforce data integrity constraints. Without those features, you 
    do not have secure, robust databases. Connecting a database to a 
    Web server adds other requirements, such as a multithreaded architecture 
    and the ability to do database backups without taking the server 
    down.


    Freeware and PC DBMSs are suitable for certain classes of applications, 
    but not for high-volume Web sites and mission-critical databases. 
    In any case, don't bet your business, or lives, on such software 
    unless you have the source code and the expertise to understand and 
    repair it.


Since that article appeared in print, improvements to MySQL have 
removed the "not ready for prime time" label. Features described 
in that article are now available to MySQL users:

    * transactions
    * concurrency control, locking, SQL standard isolation levels
    * intrinsic security
    * integrity constraints
    * thread-based memory allocation.

  TII Computer Deals at Dell Home Systems 180x150
	


MySQL uses separate threads to handle TCP/IP and named pipes connections, 
authentication, signaling, alarms and replication. The combination 
of threaded architecture and MySQL clustering provides powerful parallel 
processing capabilities. MySQL can process transactions in parallel 
with separate connections on separate processors using separate threads.
MySQL Milestones


A decade of development has moved MySQL out of the bare-bones DBMS 
category, enlarged its user base, and turned MySQL AB into a profitable 
company. One of the important milestones was integration of the InnoDB 
engine with MySQL 4.0. That upgrade gave MySQL multiple tablespaces, 
tables greater than 4GB and support for transaction processing. Other 
enhancements included OpenGIS spatial data types and hot backups. 
The latter enables a DBA to perform a backup without taking the DBMS 
offline. Hot backup software is available as a commercial add-on 
for databases using the InnoDB storage engine. 


MySQL 5.0, the newest version, is a major milestone. There have been 
enhancements to the tool sets, storage engines, types and metadata. 
 MySQL 5.0 includes features enterprise developers have come to expect 
from commercial SQL products. 

    * capacity for very large databases
    * stored procedures
    * triggers
    * named-updateable views
    * server-side cursors
    * type enhancements
    * standards-compliant metadata (INFORMATION_SCHEMA)
    * XA-style distributed transactions
    * hot backups.


MySQL has a demonstrated capacity for managing very large databases. 
Mytrix, Inc. maintains an extensive collection of Internet statistics 
in a one terabyte (1 TB) data warehouse that contains 20 billion 
rows of data. Sabre Holdings runs the oldest and largest online travel 
reservation system. It replicates 10-60 gigabytes per day from its 
master database to a MySQL server farm. The MySQL databases are used 
to support a shopping application that can accommodate a million 
fare changes per day."
Gabriele:
22-Mar-2006
What is the big change in Firefox 2 that made them bump the major 
version number? (It looks more like a 1.7 from the tiny list of changes 
they have there ;)
Henrik:
13-Apr-2006
and list views
Graham:
12-May-2006
I note Orca mailing list has 22 messages in March, and none in April.
Group: SQLite ... C library embeddable DB [web-public].
Pekr:
15-Feb-2006
because - original aproach sounds much clearer - simply db: sqlite-open 
%/C/!mp3/my-mp3-list.db
Pekr:
15-Feb-2006
instead of db: open sqlite://localhost//C/!mp3/my-mp3-list.db - looks 
terrible ...
Robert:
23-Mar-2006
Is the linking between SQLite and RebGUI already implemented? In 
that if I get back a result set, that I can use it directly to fill 
a list or drop-down list? Or load a result set into a form?
BrianH:
1-May-2006
Still, here they are (best estimate based on reading the SQLite C 
source):

- id: The index of the foreign key in the list of foreign keys for 
the table, 0-based (integer)

- seq: The index of the column referenced in the foreign key, 0-based 
(integer)
- table: The name of the referenced table (string)
- from: The column name in the local table (string)
- to: The column name in the referenced table (string)
BrianH:
1-May-2006
It really is a linked list internally - that's why I called it that 
:)
BrianH:
1-May-2006
The statement that returns the result set we were talking about is:
    PRAGMA foreign_key_list(table-name);
Group: !Liquid ... any questions about liquid dataflow core. [web-public]
Sunanda:
8-Jul-2008
Max posted this to the mailing list about a month ago:

http://www.rebol.org/cgi-bin/cgiwrap/rebol/ml-display-message.r?m=rmlFGXC
Maxim:
8-Dec-2008
elixir, itself is about 90% done.  file i/o is done, GUI framework 
finiwhed,  CLI 100% operational, all I needed was to finish the data 
query language to be able to create/list/edit/delete stuff in the 
data cloud more easily...
Maxim:
8-Mar-2009
just thought I'd share this list I built while coaching someone in 
using liquid last night...

SANITY PRESERVING KNOWLEDGE WHEN USING LIQUID:
--------------------------------------------


#1:  liquid isn't a bully  - liquid shares its state, but asks for 
data (pulls, observes, etc) from its subordinates ("parents"), not 
the other way around (it doesn' push or force feed, like a highly 
inneficient signal messaging engine).


#2:  liquid is lazy by default - unless a plug or one of its observers 
 ("children") is stainless, nothing will process automatically (thus, 
faces usually are set to stainless, so that they refresh automatically).

#3:  liquid has several computing modes in a single base class.  
  * linking is for once sided dependencies
  * piping is for inter-dependencies or synchronisation
  * containment is for data storage
  * linked-containment is for processed data storage   


#4:  liquid mutates - plugs automatically change computing modes 
when you call some methods like linking, piping and filling.  depending 
on the order of these operations, a plug may "stick" to its previous 
computing mode.  e.g. a piped node remains piped, even you attempt 
to link it to something.


#5:  liquid is alive - remember that as you are setting up a liquid 
network, your plugs will start receiving messages as you are building 
up the tree, meaning that the process() (and other) functions might 
be triggered before every expected connections are done. always verify 
the integrity of the data before starting the process.  (i just got 
stumped by this one again, 5 minutes ago).


#6:  liquid is a collection of droplets - each plug should do one 
thing or manage one step of a process.  the more you break up the 
network, the better you will be at making it stable, reusable, flexible, 
and fast.


#7:  liquid is highly memory efficient - !plug uses shared classes. 
 so all the liquid operations are in a sub-object called a valve. 
 Thus, when you call internal functions, remember they are within 
the valve, and you must supply the plug as its first argument.  my-plug/valve/stats 
my-plug


#8:  liquid is volubile - its slim-based verbose & indented console 
printing engine (vprint) is YOUR BEST FRIEND.  use it profusely, 
to understand the chain of events and what the hell is going on.
Group: DevCon2007 ... DevCon 2007 [web-public]
[unknown: 9]:
10-May-2007
I do plan to use the list I posted for my session as my lead points 
for my talk.
Group: Printing ... [web-public]
Dockimbel:
9-Sep-2008
Btw, it's possible to list the available printers using : probe printer/enum
401 / 32331234[5] 67...2930313233