scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Assure at least one digit for each ID in regexp for cont-URL.

This commit is contained in:
interp 2003-07-24 09:18:53 +00:00
parent 32a2473d2d
commit d7fb759988
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/surflet-handler.scm
View File

@ -542,9 +542,9 @@
;; URLs (= resume URLs). Resume URLs look like ;; URLs (= resume URLs). Resume URLs look like
;; http://localhost:8088/surflet/admin-handler.scm;k757033335;c1-684902143?return54= ;; http://localhost:8088/surflet/admin-handler.scm;k757033335;c1-684902143?return54=
(define *resume-url-regexp* (rx (submatch (* (- printing ";"))) (define *resume-url-regexp* (rx (submatch (* (- printing ";")))
";k" (submatch (* digit)) ; Instance-ID ";k" (submatch (+ digit)) ; Instance-ID
";c" (+ digit) ; Continuation Counter ";c" (+ digit) ; Continuation Counter
"-" (submatch (* digit)))) ; Continuation-ID "-" (submatch (+ digit)))) ; Continuation-ID
;; All arguments are numbers except PATH-STRING, which is a string. ;; All arguments are numbers except PATH-STRING, which is a string.
(define (make-resume-url path-string session-id continuation-counter continuation-id) (define (make-resume-url path-string session-id continuation-counter continuation-id)