1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
;;;; cgi-get.jl -- return the parameters from a CGI GET request
;;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
;;; $Id: cgi-get.jl,v 1.2 1999/11/25 23:20:27 john Exp $
;;; This file is part of librep.
;;; librep is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;; librep is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;; You should have received a copy of the GNU General Public License
;;; along with librep; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'cgi-get)
(defvar cgi-unquote-plus-map (let
((map (make-string (1+ ?+)))
(i 0))
(while (< i ?+)
(aset map i i)
(setq i (1+ i)))
(aset map ?+ ? )
map))
(defun cgi-get-params (&optional query-string)
(unless query-string
(setq query-string (getenv "QUERY_STRING")))
(let
((point 0)
(params nil)
name value)
(while (string-looking-at "([^=]+)=([^&]*)(&|$)" query-string point)
(setq point (match-end))
(setq name (intern
(cgi-unquote
(substring query-string (match-start 1) (match-end 1)))))
(setq value (cgi-unquote
(substring query-string (match-start 2) (match-end 2))))
(when (string= value "")
(setq value nil))
(setq params (cons (cons name value) params)))
(nreverse params)))
(defsubst cgi-hexdigit (char)
(if (and (>= char ?0) (<= char ?9))
(- char ?0)
(+ (- (char-upcase char) ?A) 10)))
(defun cgi-unquote (string)
(let
((frags nil)
(point 0))
(setq string (translate-string string cgi-unquote-plus-map))
(while (string-match "%.." string point)
(setq frags (cons (substring string point (match-start)) frags))
(setq point (match-end))
(setq frags (cons (+ (* (cgi-hexdigit (aref string (- point 2))) 16)
(cgi-hexdigit (aref string (1- point)))) frags)))
(if (zerop point)
string
(setq frags (cons (substring string point) frags))
(apply concat (nreverse frags)))))
|
