Commits

Greg Slepak committed e46cab0

minor changes

Comments (0)

Files changed (3)

 If you're on Windows open that file and run the command that's
 inside of it manually instead, i.e.:
 
-	newlisp "dragonfly-framework/newlisp-redirection.lsp" -c -http -d 8080 -w .
+	newlisp dragonfly-framework/newlisp-redirection.lsp -http -d 8080 -w .
 
 Open Your browser and visit http://localhost:8080/ - have FUN!
 
 	
 Or, if you're on Windows:
 
-	newlisp "dragonfly-framework/newlisp-redirection.lsp" -c -http -d 8080 -w .
+	newlisp dragonfly-framework/newlisp-redirection.lsp -http -d 8080 -w .
 
 +=================+
  APACHE AS SERVER 

example-site/dragonfly-framework/newlisp-redirection.lsp

 (set 'NEWLISP_REDIRECTION_EXTRACT_PATH (regex-comp {\w+\s+/([^\s]+)}))
 (set 'NEWLISP_REDIRECTION_REWRITE (regex-comp {^(\w+)\s+/([^\?]+)(\?)?}))
 
-(define (command-event-handler s , request)
+(command-event (fn (s , request)
 	(regex NEWLISP_REDIRECTION_EXTRACT_PATH s 0x10000)
 	(set 'request $1)
 	(if (and request (not (file? request)))
 		)
 	)
 	s
-)
-
-(command-event command-event-handler)
+))