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 /src | |
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.
Diffstat (limited to 'src')
-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 |
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 @@ -293,13 +293,13 @@ ifelse(IFACE,[CGI],(cgi:init)) (let ((explist (list (cons "@@args@@" (lambda () (for-each (lambda (name) (cond - ((string=? name "LANG")) + ((string=? name "lang")) (else (let ((v (cgi:value name))) (cond ((and v (not (string-null? v))) (display "&") (display name) (display "=") 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 @@ -129,20 +129,20 @@ ifelse(IFACE,[CGI],(cgi:init)) (display " <tr> <td>") (display (_"Επιλέξτε το μέρος του λόγου")) (display "</td><td>") - (let ((selected-choice (or (let ((s (cgi:value "POS"))) + (let ((selected-choice (or (let ((s (cgi:value "pos"))) (if s (string->number s) #f)) 0)) (index 0)) - (display "<select name=\"POS\" tabindex=\"2\">") + (display "<select name=\"pos\" tabindex=\"2\">") (for-each (lambda (x) (let ((name (car x))) (display "<option value=\"") (display index) @@ -272,13 +272,13 @@ ifelse(IFACE,[CGI],(cgi:init)) rlist) (display "</table>") (newline)) (define (display-cross-reference word) (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 "\">") (display word) (display "</a>")) (define (display-xref rlist text) (display text) @@ -406,27 +406,27 @@ ifelse(IFACE,[CGI],(cgi:init)) (display "</td>")) (display "</tr>"))) (display "</table>")))))) (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"))) (theme (do ((catlist (get-topic-list) (cdr catlist)) (ret '())) ((null? catlist) ret) (let ((name (caar catlist))) (let ((v (cgi:value name))) (if (and v (> (string->number v) 0)) (set! ret (append ret (list (= (string->number (cgi:value (string-append "join" name))) 0) v)))))))) - (pos (or (cgi:value "POS") "0"))) + (pos (or (cgi:value "pos") "0"))) (sql-catch-failure (cond ((and keyval (not (string-null? keyval)) (null? theme) @@ -507,13 +507,13 @@ dict.forms,articles.subindex,articles.meaning\ (let ((explist (list (cons "@@args@@" (lambda () (for-each (lambda (name) (cond - ((string=? name "LANG")) + ((string=? name "lang")) (else (let ((v (cgi:value name))) (cond ((and v (not (string-null? v))) (display "&") (display name) (display "=") 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 @@ -332,13 +332,13 @@ ifelse(IFACE,[CGI],(cgi:init)) article))))) (cons "@@args@@" (lambda () (for-each (lambda (name) (cond - ((string=? name "LANG")) + ((string=? name "lang")) (else (let ((v (cgi:value name))) (cond ((and v (not (string-null? v))) (display "&") (display name) (display "=") 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 @@ -89,15 +89,15 @@ ifelse(IFACE,[CGI],,dnl (define-public (make-cgi-name cgi-path . rest) (apply string-append (cons 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)) (i 1 (1+ i)) (olist '())) ((null? ilist) (if (null? olist) olist (reverse (cdr olist)))) @@ -153,13 +153,13 @@ THUNK. (define-public (ellinika-cgi-init template-file-name) ;;; Load the site defaults (ellinika-config-setup) ;;; Load the language-specific defaults (cond - ((cgi:value "LANG") => + ((cgi:value "lang") => (lambda (x) (if (file-exists? (template-file x template-file-name)) (set! target-language x))))) ;;; Initialize i18n (let ((x (locale-setup target-language "PACKAGE" locale-path))) (if x |