World: r3wp

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
	]
]

Oups, forget the "Rebol [ ]" header

... and to remove the comments

encap uses old core though ...

I use enface 1.2.48.3.1

I must try this out tonight :)

Bed time here. I let you play with it.
Take care of paths, it's what doom me to trouble.

Thanks. DideC I been looking for something like this for sometime. 
You should posted to the rebol.org

More statistics .. over the last 12 hours, 3400 smtp connections 
from mainly spamming smtp servers.  62 of those were from trusted 
servers, and 37 were caught by spamcop.  21 mails were passed thru, 
but most of these were spam as well.  These ones would be subjected 
to Bayesian analysis etc.

Jaime: not my code. Dockimbel's one. I let him do it if he wants.

Got a working pop server now for uniserve .. connected to a firebird 
database.

Now to get the smtp service to save files to the database as well.

cool

I did very little testing so far ..

by using the session variables, I think it should be able to handle 
multiple pop connections concurrently.

if anyone uses, mysql, they can rewrite the sql statements.

http://www.compkarori.com/vanilla/display/popd.r

the delete on quit is not implemented yet ...

I've further improved my spam busting mail service.  If I get an 
email from a new user, and that email passes all my spam tests, I 
now will send an smtp challenge to the mail server that should have 
sent that mail.  I know some mail servers will respond that every 
user combination exists, but others will not, and that will all help.

I've got to the point where I can receive mail from the smtp service, 
store it in a database, and retrieve it using pop3.

that sounds pretty cool Graham!

even better still, I had over a 1000 smtp connections over night, 
and I caught all the spam :)

Does anyone want to try out some spam protection for their mailbox?

It will help me determine how effective this is.

I need people who get a fair bit of spam, and don't mind their mail 
sitting on my server.

I can give you an account, and you put your existing email account 
into vacation mode, redirecting all mail to the account on my server.

My smtp service will spam filter it for you, and you can pick up 
your mail as normal but from my Rebol pop server.

Just message me here ... and I'll set it up tonight when I get back 
home.

Let me know your userid and password you want.

*message me privately here.

Can some of you lurkers help me test out my spam filtering?
I just need you to send me an email to [gchiu-:-compkarori-:-com].

I want to see how many get non delivered, or misclassified as spam.
Just post here if you send me an email.

Thanks,

Sent...

ta.

Sent...

thanks.

sent

ta.

Mail returned ----- 554 <[gchiu-:-compkarori-:-com]>... Service unavailable

sent

Got Ammons, and my mailserver only delayed it for 30 mins.

(I actually sent two from different accounts...)

I got the gmail one.

Hmm.  554 .. I don't issue 554's.  I should have kept some logs to 
see why this was rejected.

Got DideC.. who used Rebol to send it.  We should really have a message-id 
generator as part of the send command.

Got tomc's email ...wonder how that got thru !

Haven't so far seen Ammon's alternate mail.  And Sunanda's suffered 
a write failure .. in my save-email routine :(

But no misclassification of spam so far.

Why shouldn't have TomC's made it through?

My alternate hasn't bounced yet so maybe it is still in queue somewhere...

I was bouncing spam

well, it wasn't even addressed to me ( in the to field ) ...

that part is easy graham

I tend to filter based on the header ... but I guess my filters so 
far didn't object to it :)