World: r3wp

I was getting async read errors, and at least one data type recycle 
error before switching to  2.5.55.3.1

Uniserve is not usable with recent async Core. It use the "old" async 
port system.

so, doc said .. but my smtp service appears to be working ...

dunno what this means ...

Graham, can you encap uniserve scripts?

I don't see any reason why not ...

need to redefine 'launch back to itself again.

it looks for files in the services directory .. need to change that 
as well I guess

Last I checked uniserve uses a directory structure to handle stuff. 
So I wonder if the encaped app needs to replicate this structure.

I just encap Uniserve script 2 weeks ago.

Need some tricks to encap the protocols/services, that normally Uniserve 
loads from disk at startup.

Thats what I thought?

DideC, Do you mind sharing?

Didier, do you have an example of your encapped changes ?

I want to add database storage for my smtp service, and since I use 
odbc, I have to encap to distribute ...otherwise users have to purchase 
command

( and, no, I don't know anything about mysql .. )

In short.

Protocols and services (or whatever else) are encapped as data in 
a block! (a cache sort-of).

instead of 'do/'load, you have to use 'do-cache/'load-cache in your 
script.


The cache functions are initialize differently either you are encapping 
or doing the script.

if you do cgi, then you have to launch a new version of the encapped 
script for each cgi ?

Here is an example of a starter that can be used for doing the script 
and to encap it :

Rebol [

 title: "example of starter script that act the same with View after 
 encap"
]

#include %/e/rebol/sdk/source/mezz.r
#include %/e/rebol/sdk/source/prot.r
#include %/e/rebol/sdk/source/view.r

;***** This is the function that make the tricks
#include %uniserve/libs/encap-fs.r 
if not value? 'encap-fs [do %uniserve/libs/encap-fs.r]

set-cache [
	%uniserve/uni-engine.r		[#include %uniserve/uni-engine.r]
	%uniserve/libs/headers.r	[#include %uniserve/libs/headers.r]
	%libs/log.r					[#include %uniserve/libs/log.r]
	%uniserve/protocols/HTTP.r	[#include %uniserve/protocols/HTTP.r]
	
	%your-file.r					[#include %path/to/your-file.r]
	;...
]

;***** Start
do-cache %uniserve/uni-engine.r
do-cache %uniserve/libs/headers.r

UniServe-path: %./uniserve/
logger/level: none


;***** You have to load protocols and services before starting Uniserve
do-cache %uniserve/protocols/HTTP.r

;***** Uniserve Initialise
; Require like this to not loading protocols/services from disk
uniserve/boot/no-loop/with []

;***** Your script initialise
;...

This is a strip down of the script I use for encaping lecture-forum.

I can also doing it with View.

where's the encapped version of lecture-forum?

Nowhere actually. Just on my disk.

o :)

Does encap-fs defines do-cache and set-cache?

Yes, very short funcs...

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.