[REBOL] Re: PROTECT bug
From: nitsch-lists:netcologne at: 11-Dec-2001 20:02
RE: [REBOL] Re: PROTECT bug
hmm. not here (linux, /view 1.2.1.4.2, started from desktop).
[
rebol []
print "virus alert!"
protect 'secure
system/error/script/type: ""
system/error/script/expect-arg: [
(
change pick third :secure 3 reduce [word! block!]
secure allow
("I love you")
)
]
change pick third :secure 3 reduce [unset! none!]
secure throw
print "hey!"
probe secure query
]
gives
virus alert!
** : REBOL - Security Check:
Script requests permission to lower security level
Yes, allow all, no, or quit? (Y/A/N/Q) N
** Access Error: Attempt to change security level to none
** Near: secure allow
("I love you")
>> probe secure []
[net allow library ask shell ask file ask %/home/volker/rebol/view/user.r [allow read
ask write ask execute] %/home/volker/rebol/view/prefs.r [allow read ask write ask execute]
%/home/volker/rebol/view/public [allow read ask write ask execute] %/home/volker/rebol/view/local/sandbox
allow]
== [net allow library ask shell ask file ask %/home/volker/rebol/view/user.r [allow read
ask write ask execute] %/home/volker/rebol...
Iam doing something wrong?
have to look where my core is ;-)
-Volker
[lmecir--mbox--vol--cz] wrote:
