diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-16 22:01:59 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-16 23:37:03 +0300 |
commit | 79998f1e7772ba1040154c7ba79dc382e23c6302 (patch) | |
tree | b24997235eff88b248bf4156ac77bfda75251bb5 | |
parent | 393fc19572aee23f558f36beedec1a3ee2c89cc2 (diff) | |
download | ellinika-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.
-rw-r--r-- | src/cgi-bin/conj.scm4 | 2 | ||||
-rw-r--r-- | src/cgi-bin/dict.scm4 | 14 | ||||
-rw-r--r-- | src/cgi-bin/nea.scm4 | 2 | ||||
-rw-r--r-- | src/ellinika/cgi.scm4 | 6 | ||||
-rw-r--r-- | xml/lingua.conf.in | 4 | ||||
-rw-r--r-- | xml/pl/ellinika.xml | 4 | ||||
-rw-r--r-- | xml/ru/ellinika.xml | 4 | ||||
-rw-r--r-- | xml/uk/ellinika.xml | 4 |
8 files changed, 20 insertions, 20 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) diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index 3b86202..1e7ded3 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -41,3 +41,3 @@ (lingua:get-cgi-bin) - "/nea.=SCRIPT_SUFFIX=?LANG=" + "/nea.=SCRIPT_SUFFIX=?lang=" (lingua:LANG args))))) @@ -51,3 +51,3 @@ (lingua:get-cgi-bin) - "/conj.=SCRIPT_SUFFIX=?LANG=" + "/conj.=SCRIPT_SUFFIX=?lang=" (lingua:LANG args))))) diff --git a/xml/pl/ellinika.xml b/xml/pl/ellinika.xml index f2d7f15..1c18a62 100644 --- a/xml/pl/ellinika.xml +++ b/xml/pl/ellinika.xml @@ -1,3 +1,3 @@ <?xml version="1.0" encoding="UTF-8"?> -<!-- Copyright (C) 2004, 2005, 2006, 2007, 2010 Sergey Poznyakoff +<!-- Copyright (C) 2004-2011 Sergey Poznyakoff @@ -10,3 +10,3 @@ <!-- $Id$ --> -<LINGUA LANG="pl" TER="PL" PREFIX="ellinika" LINK="rss=/pl/nea.rss"> +<LINGUA PREREQ="1.3 commit=147" LANG="pl" TER="PL" PREFIX="ellinika" LINK="rss=/pl/nea.rss"> diff --git a/xml/ru/ellinika.xml b/xml/ru/ellinika.xml index 65abe4d..b0ef595 100644 --- a/xml/ru/ellinika.xml +++ b/xml/ru/ellinika.xml @@ -1,3 +1,3 @@ <?xml version="1.0" encoding="UTF-8"?> -<!-- Copyright (C) 2004, 2005, 2006, 2007, 2010 Sergey Poznyakoff +<!-- Copyright (C) 2004-2011 Sergey Poznyakoff @@ -10,3 +10,3 @@ <!-- $Id$ --> -<LINGUA LANG="ru" TER="RU" PREFIX="ellinika" LINK="rss=/ru/nea.rss"> +<LINGUA PREREQ="1.3 commit=147" LANG="ru" TER="RU" PREFIX="ellinika" LINK="rss=/ru/nea.rss"> diff --git a/xml/uk/ellinika.xml b/xml/uk/ellinika.xml index 5cf32f7..12d8550 100644 --- a/xml/uk/ellinika.xml +++ b/xml/uk/ellinika.xml @@ -1,3 +1,3 @@ <?xml version="1.0" encoding="UTF-8"?> -<!-- Copyright (C) 2004, 2005, 2006, 2007, 2010 Sergey Poznyakoff +<!-- Copyright (C) 2004-2011 Sergey Poznyakoff @@ -10,3 +10,3 @@ <!-- $Id$ --> -<LINGUA LANG="uk" TER="UA" PREFIX="ellinika" LINK="rss=/uk/nea.rss"> +<LINGUA PREREQ="1.3 commit=147" LANG="uk" TER="UA" PREFIX="ellinika" LINK="rss=/uk/nea.rss"> |