Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
prepare for expected change of bbs.cgi.
  • Loading branch information
nanashi committed Feb 8, 2003
1 parent c0d0901 commit 3b5df24
Show file tree
Hide file tree
Showing 2 changed files with 26 additions and 2 deletions.
8 changes: 8 additions & 0 deletions ChangeLog
@@ -1,3 +1,11 @@
2003-02-08 Nanashi San <nanashi@users.sourceforge.net>

* navi2ch-board.el (navi2ch-board-default-bbscgi-path): $B?7JQ?t!#(B
(navi2ch-board-bbscgi-path-alist): $B?7JQ?t!#(B
(navi2ch-board-get-bbscgi-path): $B?74X?t!#(B
(navi2ch-board-get-bbscgi-url): $B>e5-4X?t$r;H$&$h$&$K!#(B
bbs.cgi $B$N>l=j$,JQ$o$j$=$&$J$N$G!#(B

2003-02-06 Nanashi San <nanashi@users.sourceforge.net>

* navi2ch-mona.el (navi2ch-mona-enable-article-list): $B?7JQ?t!#(B
Expand Down
20 changes: 18 additions & 2 deletions navi2ch-board.el
Expand Up @@ -158,11 +158,27 @@
(format "%s/test/read.cgi/%s/"
(match-string 1 uri) (match-string 2 uri))))

(defcustom navi2ch-board-default-bbscgi-path "/test/bbs.cgi"
"*bbs.cgi $B$N%G%U%)%k%H$N(B path$B!#(B"
:type 'string
:group 'navi2ch-board)

(defcustom navi2ch-board-bbscgi-path-alist nil
"*$BHD(B URL $B$+$i(B bbs.cgi $B$N(B path $B$X$N(B alist$B!#(B"
:type '(repeat (cons (string :tag "URL") (string :tag "path")))
:group 'navi2ch-board)

(defun navi2ch-board-get-bbscgi-path (board)
"bbs.cgi $B$N(B path $B$rJV$9!#(B"
(let ((uri (navi2ch-board-get-uri board)))
(or (cdr (assoc uri navi2ch-board-bbscgi-path-alist))
navi2ch-board-default-bbscgi-path)))

(defun navi2ch-board-get-bbscgi-url (board)
"bbs.cgi $B$N(B url $B$rJV$9(B"
"bbs.cgi $B$N(B url $B$rJV$9!#(B"
(let ((uri (navi2ch-board-get-uri board)))
(string-match "\\(.+\\)/[^/]+/$" uri)
(format "%s/test/bbs.cgi" (match-string 1 uri))))
(concat (match-string 1 uri) (navi2ch-board-get-bbscgi-path board))))

(defun navi2ch-board-equal (board1 board2)
(string= (cdr (assq 'uri board1))
Expand Down

0 comments on commit 3b5df24

Please sign in to comment.