r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[!Cheyenne] Discussions about the Cheyenne Web Server

Terry
13-Jul-2007
[1987x3]
shell32b: load/library %shell32.dll
  shell32c: "ShellExecuteA"
 
shell32R: make routine! [
hwnd [integer!]
    lpOperation [string!]
    lpFile [string!]
    lParameters [string!]
	lpDirectory [string!]
	nShowCmd [integer!]
] shell32b shell32c

Opener: func [inpu] [shell32R 0 "open" inpu "" "" 1];
Opens full path, url etc. without DOS box


Opener "docs/notes.txt"   or   Opener "http://kommonwealth.com/tb"
  ; cheap plug
Opener as a function name? What was I thinking?
Dockimbel
13-Jul-2007
[1990x2]
For executing external applications as CGI, you need to handle stdin, 
stdout and stderr, that's something that can't be done with ShellExecute(), 
you need to use CreateProcess() for that. I've partially done it 
in my async-call library, but it lacks a few features and it only 
support Windows.
Btw, REBOL provides a native wrapper to ShellExecute, see the 'run 
function.
ICarii
13-Jul-2007
[1992x2]
** Script Error: Feature not available in this REBOL - not in REBOL/View 
2.7.5.3.1 18-Mar-2007
although it does list the run command
Dockimbel
13-Jul-2007
[1994]
You need a license key to unlock that feature.
ICarii
13-Jul-2007
[1995x2]
command only?
because with the sdk key it was giving me that error
Dockimbel
13-Jul-2007
[1997]
It can't make it work with any binary from the SDK, it looks like 
a bug to me.
ICarii
13-Jul-2007
[1998]
;-)
Dockimbel
13-Jul-2007
[1999]
Or it might be unlocked for IOS /link binaries.
Graham
13-Jul-2007
[2000x2]
it's been rambo'd ages ago
only works on IOS
Dockimbel
13-Jul-2007
[2002]
There are some days when I envy developers using open-sourced programming 
languages...
Graham
13-Jul-2007
[2003]
http://www.rebol.net/cgi-bin/rambo.r?id=3447&
I mentioned this in 2004
Dockimbel
13-Jul-2007
[2004x2]
I've summarized the new way to configure the PHP interface in Cheyenne 
here : http://softinnov.org/cheyenne/blog.cgi?view=0011
Pekr, the new PHP interface can now work with relative paths, so 
you can now put Cheyenne and PHP in your USB stick and spread it 
everywhere ;-). Did you solve your issue regarding php process not 
responding on Vista ?
Gabriele
14-Jul-2007
[2006]
Doc: remember the Detective version of async-call also works on linux, 
freebsd, solaris, and mac os x. :) i guess we should make a sync 
version of that for normal human beings to use ;)
Dockimbel
14-Jul-2007
[2007x2]
Right Gabriele, I forgot that one !
Is Detective sources available somewhere, I can't find the download 
link ?
Gabriele
14-Jul-2007
[2009x4]
async-call is here: http://www.colellachiara.com/soft/async-call-definition.r
license says GPL however i think we agreed it is ok to switch it 
to BSD.
(i'll need to update that.)
detective source should be somewhere on surfnet site... but i probably 
should put a zip on my site too.
Dockimbel
14-Jul-2007
[2013]
Thanks !
Graham
14-Jul-2007
[2014x5]
Has anyone got a public Cheyenne server running?  With show.cgi available?
This is with the latest beta ...

>> page: read http://127.0.0.1/show.cgi
URL Parse: none none 127.0.0.1 none none show.cgi
Net-log: ["Opening" "tcp" "for" "HTTP"]
connecting to: 127.0.0.1
Net-log: {GET /show.cgi HTTP/1.0
Accept: */*
Connection: close
User-Agent: REBOL View 1.3.2.3.1
Host: 127.0.0.1
}
Net-log: "HTTP/1.1 200 OK"
Net-log: ["low level read of " 2048 "bytes"]
Net-log: ["low level read of " 2048 "bytes"]

== {<HTML><BODY><FONT FACE='ARIAL' SIZE='-1'><a href="/">Back</a><br><br>
<B>Script path :</B> /E/cheyenne916/Cheyenne/www/ <BR><BR...

>> page: read/custom http://127.0.0.1/show.cgireduce ['post join 
"content=" url-encode content ]
URL Parse: none none 127.0.0.1 none none show.cgi
Net-log: ["Opening" "tcp" "for" "HTTP"]
connecting to: 127.0.0.1
Net-log: {POST /show.cgi HTTP/1.0
Accept: */*
Connection: close
User-Agent: REBOL View 1.3.2.3.1
Host: 127.0.0.1
Referer: http://127.0.0.1/show.cgi
Content-Type: application/x-www-form-urlencoded
Content-Length: 147479
}
Net-log: none

** User Error: Error.  Target url: http://127.0.0.1/show.cgicould 
not be retrieved.  Server response: none

** Near: page: read/custom http://127.0.0.1/show.cgireduce ['post 
join "content=" url-encode content]
>>
and from Cheyenne


## Error in [uniserve] : On-received call failed with error: make 
object! [
    code: 305
    type: 'script
    id: 'invalid-arg
    arg1: none
    arg2: none
    arg3: none
    near: [parse/all data [
            some [
                s: to bound e: (
                    if e <> s [
                        either wrt? [
                            insert/part tmp/port s skip e -2
                        ] [
                            insert/part tail req/in/content s e
                        ]
                    ]
                )
                s: bound [
                    "--" to end s: break
                    | thru crlfcrlf e: (
                        insert/part tail req/in/content s e

                        if wrt?: to logic! find/part s "Content-Type" e [

                            append tmp/files name: make-tmp-filename

                            repend req/in/content [mold name crlf]
                            if tmp/port [close tmp/port]
                            tmp/port: open/mode name [
                                binary direct no-wait write new
                            ]
                        ]
                    )
                ]
            ]
        ]
        tmp/buffer: either
    ]
    where: 'process-content
] !
Posted bug to curecode
There's a magic number here 

 page: read/custom http://127.0.0.1/show.cgireduce ['post join "content=" 
 copy/part url-encode content 65528 ]
works
but 

 page: read/custom http://127.0.0.1/show.cgireduce ['post join "content=" 
 copy/part url-encode content 65529 ]
fails
Dockimbel
14-Jul-2007
[2019]
Thanks for the detailed report Graham, this bug will be fixed in 
the next release.
Graham
14-Jul-2007
[2020]
release today?? :)
Dockimbel
14-Jul-2007
[2021]
I've planned to make the next release in a few days, mainly bugfixes 
and minor new features. If you can't wait, I can send you a quick 
fix now ?
Graham
14-Jul-2007
[2022x2]
please :)
I only have time in the weekends to do any development :(
Dockimbel
14-Jul-2007
[2024]
Are you using REBOL CGI and RSP scripts in the same Cheyenne server 
instance ?
Graham
14-Jul-2007
[2025x3]
No.  I was just using the cgi to see why my rsp script was failing.
ie.to determine why nothing was being returned by my rsp script.
ethereal showed I was posting all the data .. just no server response
Dockimbel
14-Jul-2007
[2028]
Does your RSP script use my MySQL driver ? I've fixed a bug related 
to that today : http://softinnov.org:8000/curecode/ticket.rsp?id=10031
Graham
14-Jul-2007
[2029x2]
No.
it's a script that takes a submitted postscript file and returns 
a pdf
Dockimbel
14-Jul-2007
[2031x2]
Ok, give me a few minutes and I'll send you a fix by email.
There's an immediate fix you could make in your %HTTPd.r file : find 
the following line : if stop-at > 65536 [
Graham
14-Jul-2007
[2033]
why the limit?
Dockimbel
14-Jul-2007
[2034x2]
and either put a much higher value or replace it by : if false [
It's not a limit, it's a trigger that switch to the file disk mode 
instead of receiving all the POSTed data in memory
Graham
14-Jul-2007
[2036]
Ok.