aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-16 22:01:59 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-06-16 23:37:03 +0300
commit79998f1e7772ba1040154c7ba79dc382e23c6302 (patch)
treeb24997235eff88b248bf4156ac77bfda75251bb5 /src
parent393fc19572aee23f558f36beedec1a3ee2c89cc2 (diff)
downloadellinika-79998f1e7772ba1040154c7ba79dc382e23c6302.tar.gz
ellinika-79998f1e7772ba1040154c7ba79dc382e23c6302.tar.bz2
Various improvements.
* src/cgi-bin/conj.scm4: Expect argument names in lower case. * src/cgi-bin/dict.scm4: Likewise. * src/cgi-bin/nea.scm4: Likewise. * src/ellinika/cgi.scm4: Likewise. * xml/lingua.conf.in: Pass lang argument to CGIs in lower case. * xml/pl/ellinika.xml: Add PREREQ LINGUA attribute. * xml/ru/ellinika.xml: Likewise. * xml/uk/ellinika.xml: Likewise. * .htaccess: Downcase CGI argument names.
Diffstat (limited to 'src')
-rw-r--r--src/cgi-bin/conj.scm42
-rw-r--r--src/cgi-bin/dict.scm414
-rw-r--r--src/cgi-bin/nea.scm42
-rw-r--r--src/ellinika/cgi.scm46
4 files changed, 12 insertions, 12 deletions
diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4
index fcacaad..0c7b8f2 100644
--- a/src/cgi-bin/conj.scm4
+++ b/src/cgi-bin/conj.scm4
@@ -298,3 +298,3 @@ ifelse(IFACE,[CGI],(cgi:init))
(cond
- ((string=? name "LANG"))
+ ((string=? name "lang"))
(else
diff --git a/src/cgi-bin/dict.scm4 b/src/cgi-bin/dict.scm4
index c3429e9..de6b8c5 100644
--- a/src/cgi-bin/dict.scm4
+++ b/src/cgi-bin/dict.scm4
@@ -134,3 +134,3 @@ ifelse(IFACE,[CGI],(cgi:init))
- (let ((selected-choice (or (let ((s (cgi:value "POS")))
+ (let ((selected-choice (or (let ((s (cgi:value "pos")))
(if s
@@ -141,3 +141,3 @@ ifelse(IFACE,[CGI],(cgi:init))
- (display "<select name=\"POS\" tabindex=\"2\">")
+ (display "<select name=\"pos\" tabindex=\"2\">")
@@ -277,3 +277,3 @@ ifelse(IFACE,[CGI],(cgi:init))
(display "<a href=\"")
- (display (make-cgi-name cgi-script-name "IDENT" (dict:encode-string word)))
+ (display (make-cgi-name cgi-script-name "ident" (dict:encode-string word)))
(display "\">")
@@ -411,4 +411,4 @@ ifelse(IFACE,[CGI],(cgi:init))
(define (dict-search)
- (let ((keyval (if (cgi:value "IDENT")
- (dict:decode-string (cgi:value "IDENT"))
+ (let ((keyval (if (cgi:value "ident")
+ (dict:decode-string (cgi:value "ident"))
(cgi:value "key")))
@@ -425,3 +425,3 @@ ifelse(IFACE,[CGI],(cgi:init))
v))))))))
- (pos (or (cgi:value "POS") "0")))
+ (pos (or (cgi:value "pos") "0")))
@@ -512,3 +512,3 @@ dict.forms,articles.subindex,articles.meaning\
(cond
- ((string=? name "LANG"))
+ ((string=? name "lang"))
(else
diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4
index 9c940f6..f64aca2 100644
--- a/src/cgi-bin/nea.scm4
+++ b/src/cgi-bin/nea.scm4
@@ -337,3 +337,3 @@ ifelse(IFACE,[CGI],(cgi:init))
(cond
- ((string=? name "LANG"))
+ ((string=? name "lang"))
(else
diff --git a/src/ellinika/cgi.scm4 b/src/ellinika/cgi.scm4
index 8cbfeca..d1b4a5c 100644
--- a/src/ellinika/cgi.scm4
+++ b/src/ellinika/cgi.scm4
@@ -94,5 +94,5 @@ ifelse(IFACE,[CGI],,dnl
cgi-path
- (let ((arglist (let ((lang (cgi:value "LANG")))
+ (let ((arglist (let ((lang (cgi:value "lang")))
(do ((ilist (if lang
- (cons "LANG" (cons lang rest))
+ (cons "lang" (cons lang rest))
rest) (cdr ilist))
@@ -158,3 +158,3 @@ THUNK.
(cond
- ((cgi:value "LANG") =>
+ ((cgi:value "lang") =>
(lambda (x)

Return to:

Send suggestions and report system problems to the System administrator.