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/welcome
Code: 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;
}