Hi.
Here are a couple of small bugfixes for sunet. The diffs are against
the head of the CVS repository at sourceforge.
The DNS change aligns the resolv.conf parser a bit closer to the BIND
resolver. (but sunet still raises an exception if it hits a parse
error, while BIND just skips the errant line)
- S
--- sunet-current/lib/dns.scm 2003-02-27 08:23:51.000000000 -0800
+++ sunet-hack/lib/dns.scm 2003-06-23 17:50:02.000000000 -0700
@@ -1111,6 +1111,10 @@
((eof-object? l)
(adjust-result rev-result #f '()))
((regexp-search
+ (rx (: bos ("#;")))
+ l)
+ (loop rev-result))
+ ((regexp-search
(rx (: "nameserver" (+ (| " " "\t")
(submatch (* any))
eos)))
@@ -1141,16 +1145,16 @@
eos)))
l)
=> (lambda (match)
- (parse-sortlist (match:substring match 1))))
-
-
+ (loop (cons (parse-sortlist (match:substring match 1))
+ rev-result))))
((regexp-search
(rx (: "options" (+ (| " " "\t")
(submatch (* any))
eos)))
l)
=> (lambda (match)
- (parse-options (match:substring match 1))))
+ (loop (cons (parse-options (match:substring match 1))
+ rev-result))))
(else (signal 'resolv.conf-parse-error))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- sunet-current/httpd/file-dir-handler.scm 2003-06-23 15:32:36.000000000
-0700
+++ sunet-hack/httpd/file-dir-handler.scm 2003-06-23 17:52:37.000000000
-0700
@@ -7,8 +7,6 @@
;;; For copyright information, see the file COPYING which comes with
;;; the distribution.
-(define server/buffer-size 8192) ; WTF
-
(define-record-type file-directory-options :file-directory-options
(really-make-file-directory-options file-name->content-type
file-name->content-encoding
@@ -424,10 +422,10 @@
(emit-header port 1 title)
(with-tag port pre ()
(if blank-icon
- (display "[ ]" port)
(emit-tag port 'img
(cons 'src blank-icon)
- (cons 'alt " ")))
+ (cons 'alt " "))
+ (display " " port))
(write-string "Name " port)
(write-string "Last modified " port)
(write-string "Size " port)
|