1 ;; -*- coding: utf-8-mcs-er -*-
2 (defvar chise-wiki-view-url "view.cgi")
3 (defvar chise-wiki-edit-url "edit.cgi")
7 ;; (defun www-add-display-feature-input-box (char &optional format)
9 ;; (setq format 'default))
11 ;; "<p><input type=\"text\" name=\"feature-name\"
12 ;; size=\"32\" maxlength=\"256\" value=\"\">")
13 ;; (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er))
15 ;; (format "%s<input type=\"text\" name=\"%s\"
16 ;; size=\"64\" maxlength=\"256\" value=\"\">
17 ;; <input type=\"submit\" value=\"set\" /></p>
19 ;; (if (or (eq format 'HEX)(eq format 'hex))
25 (defun www-add-display-object-desc (genre uri-object &optional lang format)
26 (www-edit-display-object-desc genre uri-object "" lang format)
29 (defun www-batch-add ()
30 (setq terminal-coding-system 'binary)
32 (let* ((target (pop command-line-args-left))
33 (user (pop command-line-args-left))
34 (accept-language (pop command-line-args-left))
36 (intern (car (split-string
38 (car (split-string accept-language ","))
42 (princ "Content-Type: text/html; charset=UTF-8
44 <!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"
45 \"http://www.w3.org/TR/html4/loose.dtd\">
49 (mapcar (lambda (cell)
50 (if (string-match "=" cell)
54 (substring cell 0 (match-beginning 0))
56 (substring cell (match-end 0)))
57 (list (decode-uri-string cell 'utf-8-mcs-er))))
58 (split-string target "&")))
59 (setq ret (car target))
60 (cond (t ; (eq (car ret) 'char)
61 (www-add-display-object-desc
65 (decode-uri-string (cdr (assq 'format target))
68 ;; ((eq (car ret) 'feature)
69 ;; (www-add-display-feature-desc
70 ;; (decode-uri-string (cdr ret) 'utf-8-mcs-er)
71 ;; (decode-uri-string (cdr (assq 'property target))
74 ;; (cdr (assq 'char target))
75 ;; ;; (decode-uri-string (cdr (assq 'char target))
79 (www-html-display-paragraph
82 (princ (format "user=%s\n" user))
83 (princ (format "local user=%s\n" (user-login-name)))
84 (princ (format "lang=%S\n" lang))
87 (princ (encode-coding-string xemacs-chise-version 'utf-8-jp-er))
93 (princ (format "%S" err)))