summaryrefslogtreecommitdiffabout
path: root/src/cgi-bin/nea.scm4
Side-by-side diff
Diffstat (limited to 'src/cgi-bin/nea.scm4') (more/less context) (ignore whitespace changes)
-rw-r--r--src/cgi-bin/nea.scm422
1 files changed, 11 insertions, 11 deletions
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
0)))
(lambda args
0)))
- (fwd (let ((dir (cgi:value "dir")))
+ (fwd (let ((dir (cgi:value-u8 "dir")))
(or (not dir)
(string=? dir "1"))))
(entries (collect-entries from fwd)))
@@ -199,7 +199,7 @@ ifelse(IFACE,[CGI],(cgi:init))
(let ((num-entries (length result))
(begin (if fwd from start))
(end (if fwd start from))
- (id (cgi:value "id")))
+ (id (cgi:value-u8 "id")))
(cond
((not (and (= from 0) (< num-entries nea-max-rows)))
@@ -273,7 +273,7 @@ ifelse(IFACE,[CGI],(cgi:init))
(display "<span class=\"itemsubject\">\n")
(display (list-ref item 2))
(display "</span>")
- (if (not (cgi:value "timestamp"))
+ (if (not (cgi:value-u8 "timestamp"))
(permalink "span" (list-ref item 1)))
(display "</div><!-- news-header -->"))
@@ -337,7 +337,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)
@@ -435,7 +435,7 @@ ifelse(IFACE,[CGI],(cgi:init))
;;; Main
(cond
- ((cgi:value "rss")
+ ((cgi:value-u8 "rss")
ifelse(IFACE,[CGI],
(display ["Content-type: text/xml; charset=utf-8\r\n\r\n"]),
(request-rec:set-content-type! Request ["text/xml; charset=UTF-8"]))
@@ -447,15 +447,15 @@ ifelse(IFACE,[CGI],(cgi:init))
(display ["Content-type: text/html; charset=utf-8\r\n\r\n"]))
(ellinika:sql-connect ellinika-sql-connection)
(cond
- ((or (cgi:value "timestamp") (cgi:value "id"))
+ ((or (cgi:value-u8 "timestamp") (cgi:value-u8 "id"))
(let ((tuples
(cond
- ((cgi:value "timestamp") =>
+ ((cgi:value-u8 "timestamp") =>
(lambda (ts)
(ellinika:sql-query
"SELECT date,unix_timestamp(date),ident\
FROM news WHERE unix_timestamp(date)=~Q" ts)))
- ((cgi:value "id") =>
+ ((cgi:value-u8 "id") =>
(lambda (id)
(ellinika:sql-query
"SELECT date,unix_timestamp(date),ident\

Return to:

Send suggestions and report system problems to the System administrator.