1. Kurt Miebach
  2. dragonfly-newlisp

Commits

Greg Slepak  committed fe040dd

fixed a bug with Route.CGI

  • Participants
  • Parent commits a2b45bd
  • Branches default

Comments (0)

Files changed (1)

File example-site/dragonfly-framework/plugins-inactive/route_cgi.lsp

View file
 (constant 'CGI_EXTENSION ".nl")
 
 (define (matches?)
-	(set 'chunks (parse QUERY_STRING "?"))
-	(and (not (empty? chunks))
-		(ends-with (set 'path (first chunks)) CGI_EXTENSION)
-		(file? path)
-	)
+	(setf path (1 DFLY_PAGE))
+	(and (ends-with path CGI_EXTENSION) (file? path))
 )
 (define (run)
 	(SET_DFLY_SELF path)