Hi,
Here is my improved 'default' script. It now works both on c9.io and on
localhost, and it handles both "doc" and "doc/". The logic that takes
care of all this, may not be rock solid and very clean, but at the
moment it's the best I can do. Here it is:
# This 'default' will be executed as a "script", called from lib/http.l
(let (Localhost (tail (chop "127.0.0.1") (chop *Adr))
IndexOf "Index of "
Path (car (file))
APath Path
Th '(class . th) )
(when (tail '("/" "/") (chop Path))
(setq Path (pack (head -1 (chop Path)))) # removing extra
"/" at the end
(setq APath
(if Localhost
Path # need APath on localhost
"" ) ) ) # no APath needed
(html NIL
(pack IndexOf Path (when Localhost " (localhost)")) # title
"@lib.css"
'(style . "margin: 20px 60px; font-size: 105%;") # body style
(prin "<style scoped>"
"tr:not(.th):hover {background-color: #ccf}"
"</style>" )
(<h1> NIL IndexOf Path)
(<table> '(style . "border-collapse: collapse") NIL NIL
(<tr> Th (<th> NIL "Name") (<th> NIL "Last modified") (<th>
NIL "Size"))
(<tr> Th (<th> '(colspan . "3") (<hr>)))
(chdir Path
(for F (sort (dir))
(unless (= "default" F) # skipping name of
this file
(let (Cnt (car (info F))
Dat (dat$ (cadr (info F)) "-")
Tim (tim$ (cddr (info F))) )
(when (=T Cnt) (setq Cnt "-")) # directory
(<tr> NIL
(<td> NIL (<href> F (pack APath F)))
(<td> '(style . "padding: 0 2em")
(<span> NIL Dat) (<span> '(style .
"padding-left: 1em") Tim) )
(<td> '(style . "text-align: right")
Cnt)) ) ) ) )
(<tr> Th (<th> '(colspan . "3") (<hr>))) )
(<p> '(style . "margin: 0; font: italic small serif;")
(ht:Prin "PicoLisp v" (glue "." (version T)) " (" *OS ")
Server") ) ) )
/Jon
On 23-05-13 14:19 , Jon Kleiser wrote:
Hi Alex,
I tried *Host and *Referer from my script, but they were empty. *Adr,
however, gave me "::ffff:127.6.26.129", and that can be useful. I
think I've also found a workaround for the "doc" / "doc/" effect on
the URLs in the list. I'll show it a little later ...
Thanks for the globals!
/Jon
On 23-05-13 13:59 , Alexander Burger wrote:
Hi Jon,
of doc/"). Is it possible for my "default" script to access any info
about the HTTP request from my web server (web.l)?
There are some globals which are set by the server, like
*Url The requested URL
*Adr The client's address
*Post Boolean GET/POST
*SesId Session ID
*ContLen Content length
*Http1 0 or 1
*Host Host machine
*Gate https or not
*Referer Referrer
*Cookies Assoc-List of cookies
*Agent User agent
♪♫ Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
