Switch to guile-www-2.38

* am/guile.m4: Remove.
* Makefile.am (install-html): Fix generation of symlinks
* configure.ac: Fall back to info prefix, if guile-config info bindir
returns empty string.
* data/db.struct: Minor change
* data/pl/Makefile.am: Add missing silent rule markers
* data/ru/Makefile.am: Likewise.
* scm/dictrans.scm: Call setlocale.
* scm/neatrans.scm: Likewise.
* scm/verbop.scm: Likewise.
* src/cgi-bin/conj.scm4: Call setlocale.
Use cgi:value-u8 instead of cgi:value-u8.
* src/cgi-bin/dict.scm4: Likewise.
* src/cgi-bin/nea.scm4: Likewise.
* src/ellinika/cgi.scm4 (cgi-script-name)
(cgi-server-hostname,cgi-server-protocol-name)
(cgi-server-protocol-version): Define in CGI mode.
(cgi:value-u8): New public function.
* src/ellinika/i18n.scm: Conditionally use syncase.

3 files changed, 31 insertions, 28 deletions

diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4
index 83fb846..6a49c62 100644
--- a/src/cgi-bin/conj.scm4
+++ b/src/cgi-bin/conj.scm4
@@ -1,5 +1,5 @@
 ;;;; Greek Dictionary Web Engine
-;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011 Sergey Poznyakoff
+;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011, 2015 Sergey Poznyakoff
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -18,6 +18,7 @@
 ;;; Tailor this statement to your needs if necessary.
 (set! %load-path (cons "GUILE_SITE" %load-path))
 
+(setlocale LC_ALL "")
 (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user))
              (srfi srfi-1)
              (ice-9 rdelim)
@@ -61,7 +62,7 @@ ifelse(IFACE,[CGI],(cgi:init))
  </td>
  <td>
   <input size=\"36\" name=\"key\" tabindex=\"1\"")
-  (let ((value (cgi:value "key")))
+  (let ((value (cgi:value-u8 "key")))
     (if value
         (begin
           (display " value=\"")
@@ -350,7 +351,7 @@ ifelse(IFACE,[CGI],(cgi:init))
 
 
 (define (do-conj)
-  (let ((keyval (cgi:value "key")))
+  (let ((keyval (cgi:value-u8 "key")))
     (if (and keyval (not (string-null? keyval)))
         (let ((input (ellinika:translate-input
                       (let ((keyval keyval))
@@ -400,7 +401,7 @@ ifelse(IFACE,[CGI],(cgi:init))
                               (cond
                                ((string=? name "lang"))
                                (else
-                                (let ((v (cgi:value name)))
+                                (let ((v (cgi:value-u8 name)))
                                   (cond ((and v (not (string-null? v)))
                                          (display "&amp;")
                                          (display name)
diff --git a/src/cgi-bin/dict.scm4 b/src/cgi-bin/dict.scm4
index 77c1b3a..3b24367 100644
--- a/src/cgi-bin/dict.scm4
+++ b/src/cgi-bin/dict.scm4
@@ -1,5 +1,5 @@
 ;;;; Greek Dictionary Web Engine
-;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011 Sergey Poznyakoff
+;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011, 2015 Sergey Poznyakoff
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -18,10 +18,13 @@
 ;;; Tailor this statement to your needs if necessary.
 (set! %load-path (cons "GUILE_SITE" %load-path))
 
+(setlocale LC_ALL "")
+
 (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user))
              (ice-9 rdelim)
              (xmltools dict)
              (gamma sql)
+             (gamma syslog)
              (ellinika elmorph)
              (ellinika sql)
              (ellinika i18n)
@@ -79,7 +82,7 @@ ifelse(IFACE,[CGI],(cgi:init))
 
 (define (join-widget widget-id tabindex)
   (let* ((name (string-append "join" widget-id))
-         (selected-choice (or (let ((s (cgi:value name)))
+         (selected-choice (or (let ((s (cgi:value-u8 name)))
                                 (if s
                                     (string->number s)
                                     #f))
@@ -112,7 +115,7 @@ ifelse(IFACE,[CGI],(cgi:init))
  </td>
  <td>
   <input size=\"36\" name=\"key\" tabindex=\"1\"")
-  (let ((value (cgi:value "key")))
+  (let ((value (cgi:value-u8 "key")))
     (if value
         (begin
           (display " value=\"")
@@ -132,7 +135,7 @@ ifelse(IFACE,[CGI],(cgi:init))
   (display (_"Επιλέξτε το μέρος του λόγου"))
   (display "</td><td>")
   
-  (let ((selected-choice (or (let ((s (cgi:value "pos")))
+  (let ((selected-choice (or (let ((s (cgi:value-u8 "pos")))
                                (if s
                                    (string->number s)
                                    #f))
@@ -166,7 +169,7 @@ ifelse(IFACE,[CGI],(cgi:init))
        (display "<tr><td>")
        (display (list-ref category 1))
        (display "</td><td>")
-       (let ((selected-choice (or (let ((s (cgi:value (list-ref category 0))))
+       (let ((selected-choice (or (let ((s (cgi:value-u8 (list-ref category 0))))
                                     (if s
                                         (string->number s)
                                         #f))
@@ -353,7 +356,7 @@ ifelse(IFACE,[CGI],(cgi:init))
              (list-ref part-of-speech (string->number pos))))
         (if (or (not (string-null? key)) (not (null? theme)))
             (set! where-cond (cons 
-                              (if (string=? (cgi:value "joinpos") "0")
+                              (if (string=? (cgi:value-u8 "joinpos") "0")
                                   " AND"
                                   " OR")
                               where-cond)))
@@ -418,21 +421,20 @@ ifelse(IFACE,[CGI],(cgi:init))
   
 
 (define (dict-search)
-  (let ((keyval (if (cgi:value "ident")
-                    (dict:decode-string (cgi:value "ident"))
-                    (cgi:value "key")))
+  (let ((keyval (or (cgi:value-u8 "ident")
+                    (cgi:value-u8 "key")))
         (theme (do ((catlist (get-topic-list) (cdr catlist))
                     (ret '()))
                    ((null? catlist) ret)
                  (let ((name (caar catlist)))
-                   (let ((v (cgi:value name)))
+                   (let ((v (cgi:value-u8 name)))
                      (if (and v (> (string->number v) 0))
                          (set! ret (append
                                     ret
                                     (list (= (string->number
-                                              (cgi:value (string-append "join" name))) 0)
+                                              (cgi:value-u8 (string-append "join" name))) 0)
                                           v))))))))
-        (pos (or (cgi:value "pos") "0")))
+        (pos (or (cgi:value-u8 "pos") "0")))
 
     (sql-catch-failure
      (cond
@@ -521,7 +523,7 @@ dict.forms,articles.subindex,articles.meaning,(dict.pos & conv(\"100000\",16,10)
                               (cond
                                ((string=? name "lang"))
                                (else
-                                (let ((v (cgi:value name)))
+                                (let ((v (cgi:value-u8 name)))
                                   (cond ((and v (not (string-null? v)))
                                          (display "&amp;")
                                          (display name)
diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4
index f64aca2..e366a7c 100644
--- a/src/cgi-bin/nea.scm4
+++ b/src/cgi-bin/nea.scm4
@@ -1,5 +1,5 @@
 ;;;; News page for Ellinika
-;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011 Sergey Poznyakoff
+;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011, 2015 Sergey Poznyakoff
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -30,7 +30,7 @@
 ifelse(IFACE,[CGI],(cgi:init))
 
 (define tmpl (if (and monima-nea-template-file-name
-                      (cgi:value "timestamp"))
+                      (cgi:value-u8 "timestamp"))
                  monima-nea-template-file-name
                  nea-template-file-name))
 
@@ -177,13 +177,13 @@ ifelse(IFACE,[CGI],(cgi:init))
                          0)))
           (from (catch #t
                        (lambda ()
-                         (let ((x (string->number (cgi:value "from"))))
+                         (let ((x (string->number (cgi:value-u8 "from"))))
                            (if (< x count)
                                x