World: r3wp

source send
source build-attach-body
source make-mime-header
;now to find that..

ah, build-attach-body ... did not know there are other functions 
involved ...

however, I can't parametrise 'send further, so ....

but you can check for suffix maybe

I can adapt thouse functions probably though ... I need to make different 
headers .... build-attach-body uses application/octect-stream, without 
ability to parametrise for e.g.

How come you are sending JPEGs ? I thought you would want to keep 
open the possibility of creating your postcard images using rebol, 
therefore it's better to get PNG working, isn't it ?

not sure .... but it could be so ....

simply the plan is - get jpeg (source file), compose with text, send 
inline, not even as an attachement. It is just that I did not heard 
about cid: container email reference before ... do all mailers handle 
pngs?

I am also not sure, how many ppl has turned off ability to display 
html content in email .... maybe it would be better to actually not 
send post-card .... but post a link to on-server stored image?

I will play with what was requested (sending an image) and I will 
see how can I handle it ...

There is also something like an inline-image inside the tag.

<img src="data:image/png;base64,iVBORw0KGgo..." alt="Testbild" />
but non-ie

'make-mime-header is inside 'build-attach-body.

make-mime-header: func [file] [
        net-utils/export context [

            Content-Type: join {application/octet-stream; name="} [file {"}]
            Content-Transfer-Encoding: "base64"

            Content-Disposition: join {attachment; filename="} [file {"
}]
        ]
    ]

i guess if you patch there based on "suffix? file" it should work

Maybe this useful to someone


delimit: func [data /quoted /with separator  [string! char!]  /local 
result quote][

    result: copy {}

    unless with [separator: ","]

    quote: either quoted [:mold][func[x][x]]
    append result quote form first data

    foreach value next data [
      append result separator
      append result quote form value

    ]

]



delimit [1 2 3] ;== "1,2,3"

delimit/with [1 2 3] ":" ;== "1:2:3"

delimit/quoted [1 2 3] ;== {"1","2","3"}

delimit/quoted/with [1 2 3] "|" ;== {"1"|"2"|"3"}

insert insert tail result separator quote form value

keep in mind that mold uses {} instead of "" in a number of cases 
(included when the size of the string is greater than a certain amount)

I have to encrypt some rather large files .. many megabytes.  Is 
there an encryption port that will do this in Rebol?  Or does encryption 
require that the whole file be in memory?

I don't think encryption changes the file-length, so you could just 
choose a large chunk size and encrypt those separately.

it does.

http://www.rebol.com/docs/encryption.html#section-3.1"It is possible 
to copy from the port before all data has been written"

any reason why Rebol has a get-env function, but not the set-env?

http://www.rebol.com/docs/view1300.html

run 	Runs the system application associated with a file.
 	
I'm sure that is not working ...

http://www.rebol.org/cgi-bin/cgiwrap/rebol/ml-display-thread.r?m=rmlPRTS
on how to set the environment variables in win32

using the win32 api

hmm.  Doesn't work.

Graham, there are two good reasons for that: Security and portability. 
Some platforms have one environment, some have per-process, some 
have global and per-user (like Windows) - which environment do you 
want to set? As for security, if you set any variable other than 
per-process it can affect the behavior of other programs, an ability 
that should be restricted in a sandboxed environment.


You should check out command line apps that you can call to set the 
various environments on your platform. If the REBOL process doesn't 
have call because of security restrictions, it shouldn't be able 
to set environment variables anyways.

run is available in ios. Somewhere i read in windows one can type 
a filename in shell, like text.txt, and windows launches the accosiated 
application. If that works, maybe with 'call too?

I think the lack of 'run in other than IOS is some type of oversight.

I agree

I wonder why using the windows 32 api, I still can't set the user 
environment variables

In linux they are copied for each process, not shared AFAIK. MAybe 
windows does the same?

; Does this work for you Graham?

REBOL []

; GET-ENV is a standard REBOL function now

; environment variable APIs
; msvcrt.dll
; getenv _putenv _environ
; char *getenv( const char *varname );
; int _putenv( const char *envstring );

lib:  load/library %msvcrt.dll

get-env: make routine! [
	varname [string!]
	return: [string!]
] lib "getenv"

put-env: make routine! [
	env-string [string!]
	return:    [integer!]
] lib "_putenv"

remove-env-var: func [name [string!]] [put-env join name "="]

env-var-exists?: func [name [string!]] [
	either "^@" = get-env name [false][true]
]

tz-set: make routine! [
	return:    [integer!]
] lib "_tzset"

print get-env "path"
print get-env "lib"
print get-env "temp"
print get-env "test"

if 0 <> put-env "test=blah" [
	print "error writing environment variable"
]
print get-env "test"
remove-env-var "test"
print mold get-env "test"

print get-env "TZ"
tz-set

free lib

halt

No, it doesn't.  It appears to .. but as soon as you quit the rebol 
session and see if the env variable is still set, it's not.

What you are doing there is setting the per-process environment. 
To set any of the other environments you need some other, somewhat 
more complex APIs. Or some much more simple command line apps.

I guess that's why we have get-env and not set-env

I have a few command line apps that do the job, but the best one 
I've found I got from a web site that isn't there any more. If you 
want it PM me and I will email it to you. Otherwise, try setx.exe 
from the Windows Resource Kit - it can do all sorts of stuff.

There are 4 environments on Windows (aside from the per-process ones), 
the system, user, default user and volatile environments. The setenv.exe 
I found can set any of these 4, the setx.exe in the Resource Kit 
can set the system and user environments.

I'm only looking at present to set the current user environment

Do you mean the current user's initial environment, or something 
less lasting?

Or do you mean the REBOL process' environment that is inherited by 
the subprocesses started by CALL (assuming that CALL internally passes 
along the current environment to its subprocesses)? Or do you mean 
the environment of the parent process?


Every started process is passed an environment, usually a copy of 
the parent environment (sometimes with some modifications). On Windows 
(NT kernel, not 9x), the initial environment is a combination of 
variables associated with the system (or machine), the user and volatile 
values, in that order. The initial values of these variables are 
constructed from data in the registry. Once these variables are constructed 
and compiled into an environment, this environment is passed to a 
process. Changes to the environment of that process (with getenv 
and setenv) don't affect the environment of the parent processes, 
and certainly don't affect the global values.


To change the initial environment variables, you need to change them 
in their original registry entries. You can either do that directly 
or through using external applications. Keep in mind that changes 
to these initial values won't affect your current environment, or 
those of any running processes, as those environments are already 
set and can only be changed internally.

I want to change the user environment strings that othewise I have 
to do in the control panel -> system -> advanced

so that they remain changed when I next login

Do you need to support Win9x, or just WinNT derivatives like 2000, 
XP and 2003?

Just Win32

and Win64

Windows 95 is Win32 as well, but its environment handling is completely 
different. My question still stands :)

Ok, 2000, XP, 2003