(www-ids-find-version): New constant.

(www-ids-find-ideographic-products-file-name): New variable.
(www-batch-ids-find): Display version, Last-modified, copyright;
display warning when updating the system; add links for related sites.

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 436454c..4688510 100644 (file)
--- a/www/www-ids-find.el
+++ b/www/www-ids-find.el
@@ -15,6 +15,16 @@
         (concat dest (substring string i))
         coding-system))))
 
+(defconst www-ids-find-version "0.22.1")
+
+(defvar www-ids-find-ideographic-products-file-name
+  (expand-file-name "ideographic-products"
+                   (expand-file-name
+                    "feature"
+                    (expand-file-name
+                     "character"
+                     chise-system-db-directory))))
+
 (defvar www-ids-find-tang-chars-file-name
   "~tomo/projects/chise/ids/www/tang-chars.udd")
 
@@ -204,7 +214,20 @@
 
 <h1>")
     (princ (encode-coding-string "CHISE IDS \e$B4A;z8!:w\e(B" 'utf-8-jp-er))
-    (princ "</h1>
+    (princ "</h1>")
+    (princ "
+<p>Version ")
+    (princ www-ids-find-version)
+    (princ (format-time-string
+           " (Last-modified: %Y-%m-%d %H:%M:%S)"
+           (nth 5
+                (file-attributes
+                 www-ids-find-ideographic-products-file-name))))
+    (princ "
+<p>
+Copyright (C) 2005 <a href=\"http://kanji.zinbun.kyoto-u.ac.jp/~tomo/\"
+>MORIOKA Tomohiko</a>
+<hr>
 <p>
 <form action=\"http://mousai.kanji.zinbun.kyoto-u.ac.jp/ids-find\" method=\"GET\">
 ")
@@ -219,6 +242,16 @@
 </form>
 
 ")
+    (unless (file-newer-than-file-p
+            www-ids-find-ideographic-products-file-name
+            (locate-file (car command-line-args) exec-path))
+      (princ (encode-coding-string "<hr>
+<p>
+\e$B8=:_!"%7%9%F%`$N99?7:n6HCf$G$9!#$7$P$i$/$*BT$A$/$@$5$$!#\e(B
+<hr>
+" 'utf-8-jp-er))
+      ;; (setq components nil)
+      )
     (cond
      (components
       ;; (map-char-attribute
@@ -254,6 +287,37 @@
 \e$B;XDj$7$?ItIJ$rA4$F4^$`4A;z$N0lMw$rI=<($7$^$9!#\e(B
 <p>
 CHISE \e$B$GMQ$$$i$l$k<BBV;2>H7A<0!JNc!'\e(B&amp;M-00256;\e$B!K$GItIJ$r;XDj$9$k;v$b$G$-$^$9!#\e(B" 'utf-8-jp-er))
+      (princ (encode-coding-string "
+<p>
+\[Links\]
+<ul>
+<li><a href=\"http://www.shuiren.org/chuden/toyoshi/syoseki/chise_ids.html\"
+>\e$B!V\e(BCHISE IDS FIND\e$B$G4A;z$r8!:w!W\e(B</a> \e$B!=\e(B \e$B;3ED?r?N$5$s!J\e(B<a
+href=\"http://www.shuiren.org/\">\e$B?g?MDb\e(B</a>\e$B!K$K$h$k2r@b\e(B
+</ul>
+<ul>
+<li><a href=\"http://www.karitsu.org/tools/firefox_plugin.htm\"
+>Firefox \e$BMQ\e(B plugin</a> by \e$B=);3M[0lO:$5$s!J\e(B<a href=\"http://www.karitsu.org/\"
+>\e$B2aN)c7\e(B</a>\e$B!K\e(B
+</ul>
+<ul>
+<li><a href=\"http://cvs.m17n.org/viewcvs/chise/ids/www/www-ids-find.el?view=markup\"
+>www-ids-find.el (source file (Emacs Lisp part))
+<li><a href=\"http://kanji.zinbun.kyoto-u.ac.jp/projects/chise/ids/\"
+>\e$B!V\e(BCHISE \e$B4A;z9=B$>pJs%G!<%?%Y!<%9!W\e(B</a>
+<li><a href=\"http://kanji.zinbun.kyoto-u.ac.jp/projects/chise/\"
+>CHISE Project</a>
+</ul>
+<ul>
+<li><a href=\"http://coe21.zinbun.kyoto-u.ac.jp/djvuchar\"
+>\e$B!VBsK\J8;z%G!<%?%Y!<%9!W\e(B</a> by
+<a href=\"http://coe21.zinbun.kyoto-u.ac.jp/\"
+>\e$B5~ETBg3X\e(B21\e$B@$5*\e(BCOE\e$B!VEl%"%8%"@$3&$N?MJ8>pJs3X8&5f650i5rE@!W\e(B</a>
+<li><a href=\"http://www.unicode.org/\"
+>Unicode</a>
+</ul>"
+ 'utf-8-jp-er))
+
       ))
     (princ "<hr>")
     (princ