Code: Select all
ERR: problem accessing file : "/home/myacct/webapps/_/dragonfly-framework/lib/utils.lsp"Code: Select all
ERR: problem accessing file : "/home/myacct/webapps/_/dragonfly-framework/lib/utils.lsp"Code: Select all
; docroot (also site root, usually doesn't need modification)
(constant (global 'DOCUMENT_ROOT) (env "DOCUMENT_ROOT"))
; dragonfly root
(constant (global 'DRAGONFLY_ROOT) (string DOCUMENT_ROOT "/dragonfly-framework"))Code: Select all
; docroot (also site root, usually doesn't need modification)
; (constant (global 'DOCUMENT_ROOT) (env "DOCUMENT_ROOT"))
(constant (global 'DOCUMENT_ROOT) "/home/myacct/webapps/myapp")Code: Select all
http://www.mysite.com/ysiteapp/welcomeCode: Select all
(context 'tracer)
(define-macro (tracer:tracer farg) 
    (cond
     ((list? farg)
        (set (farg 0) 
            (letex (func   (farg 0) 
                    arg    (rest farg) 
                    arg-p  (cons 'list 
                                (map (fn (x) 
                                    (if (list? x) (first x) x)) 
                                (rest farg)))
                    body   (cons 'begin (args))) 
                   (lambda 
                       arg 
                       (append-file 
                         "/tmp/trace.log" 
                         (string (date) { } (context) {:} 'func { } arg-p "\n")) 
                       body))))                   
     (true
        (if (args) (set farg (eval (first (args)))) (set farg nil)))
    )  
)Code: Select all
Sat Jun 26 15:47:39 2010 MAIN:load-files-in-dir ("/home/public/dragonfly-framework/lib" ".lsp$")
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 Response:content-type ("text/html; charset=utf-8")
Sat Jun 26 15:47:39 2010 Response:header ("Content-Type")
Sat Jun 26 15:47:39 2010 Response:header ("Connection")
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 Request:parse-query ("welcome")
Sat Jun 26 15:47:39 2010 Request:utf8-urldecode ("welcome")
Sat Jun 26 15:47:39 2010 Request:utf8-urldecode ("")
Sat Jun 26 15:47:39 2010 Request:add-keyvalue-to-ctx ("welcome" "" $GET)
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:run ()
Sat Jun 26 15:47:39 2010 Dragonfly:listener ()
Sat Jun 26 15:47:39 2010 MAIN:load-files-in-dir ("/home/public/dragonfly-framework/plugins-active" ".lsp$")
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Sat Jun 26 15:47:39 2010 MAIN:load-once ()
Code: Select all
    (true
        (if (args) (set farg (eval (first (args)))) (set farg nil)))
    ) Code: Select all
ERR: symbol expected in function set : farg
called from user defined function tracer:tracer
Code: Select all
(append-file "/home/myhome/webapps/myapp/dragonfly-framework/test.tmp" DOCUMENT_ROOT)
Code: Select all
if (!-d $request_filename){
	set $rule_0 1$rule_0;
}
if ($request_filename !~ "-l"){
	set $rule_0 2$rule_0;
}
#ignored: condition 2
if ($request_filename ~ "\.(html|nl)$"){
	set $rule_0 4$rule_0;
}
if ($rule_0 = "431"){
	rewrite /(.*) /index.cgi?$1 last;
}