Navi2ch for Emacs (Part 22)

Navi2ch for Emacs (Part 22) (390ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

175: sage [その3の3 最後] 2023/07/15(土) 12:44:44.17

-       (cons 'host (match-string 1 url))
-       (cons 'port (string-to-number (or (match-string 2 url)
-      "80")))
-       (cons 'file (match-string 3 url))
-       (cons 'host2ch host2ch)))))
+       (cons 'host (match-string 2 url))
+       (cons 'port
+      (if (match-string 3 url)
+   (string-to-number (match-string 3 url))
+        (if (string-prefix-p "https:" (match-string 1 url))
+     443 80)))
+       (cons 'file (match-string 4 url))
+       (cons 'host2ch host2ch)
+       (cons 'rest (navi2ch-net-split-url-scheme-to-rest (match-string 1 url)))))))

(defun navi2ch-net-http-basic-credentials (user pass)
"USER と PASS から Basic 認証の証明書 (?) 部分を返す。"
@@ -999,7 +1006,7 @@ This is taken from RFC 2396.")
"BBS_\$TITLE_PICTURE\\|FIGUREHEAD\$=\$.+\$" content))
(setq src (match-string 2 content))
(let (url file)
- (setq url (if (string-match "http://" src)
+ (setq url (if (string-match "https?://" src)
src
(navi2ch-board-get-url board src)))
(string-match "/\$[^/]+\$$" url)

http://mevius.5ch.net/test/read.cgi/unix/1575011531/175

176: sage [その1] 2023/07/15(土) 12:50:19.62

なんかタブが潰れたり文字参照になってたりなので、gzip + base64

H4sICC0QsmQAA2RpZmYtMjAyMzA3MTYudHh0ALVYbXPaOBD+DH+hX3Qcc9gHIkBIAum0SdMmbXqd
ppOkNzct1zthC3BjbGKLJp25H3+7K9v4DUKmUyatQdpd7WqffbSy7UwmjPOpo5jY8cQ3p2fNuOuE
qi1dNs6PVB3Plves3x0MDnb32m3RkwNL2Kzb6ez3+1XOedFKtdlsllg6PmZ8b/+gdcCa+gED1kx4
U2mTDHtSP6lfPDFOWMMwxr4IbO7YzHdtTj+YJ+/0N5O1222TxN+iuEBt+PXLr0+qjDHDlYqlLBiW
HTBDhKFvsWXgsrRfPJbiZMSED5oAI37A4rkqqxih+Cb5XCjQs4USVV4BGWfCjFAFjjfVU6w2Gv07
U2pxuLPTbu6MRsbnLzt/N0cjE743ari6WW1u1AyPNumyCtPeaU+0BdalSVM7X2WGLSdLLxvmXNzI
KFZ1D7tj6mwMO5QNevyUbJTHKmpMiWkqHMoY5iZZCP6WKFAx7mbSg/R5kEjPV8yZen4gTUhABbVz
lmeBnDyDvSvsoFljQqnAxP1fr1g72qzLUNUIpbolJOXTsEYKoJTCIE5XosBhmhKx3+tjIvTjpySi
HBbfQCa2A/vvEPiLWKcc6Tzkdk1jPbtdq++IWrDZ3KhPiH/AAkvjxJj5sCvFEnAI/5UVVLKLZQJ3
PB06muKBnMr7BcPvZgLKDcrrVKkA7TJ6nS9d5YzHYZZiU6MRzQ5kfzjpDdptuysng91uOc2m9bJU
m55BXO329xBX+gEDV9cvLq9b7PT9qxZ7f3F2fnl1TXh5/eaic1EPnv716mt9WL8B9NQQMk+fPuWP
+4AWR6CFyzHkKHYL/8HIV2kpbgnXHQvrBjmoua3ob/5COb4nXCaCaahRSniK1XRdLEOJyqjDZ2ru
RlSeFSIqjJcAMtSsSXTYo93Sj8fuVlzUDXm7FG5yjqSWt4Q1k3wqVTwDrOB7ISKXTRxXck/MkdhS
kwDktRV3dPj5yzGUyTHUiaYtYqpVxW20EVfdJisJPccRANShuHjibCJBC1mivCo1H9JnFea6SvFk

http://mevius.5ch.net/test/read.cgi/unix/1575011531/176

198: 名無しさん＠お腹いっぱい。 [sage] 2023/07/23(日) 14:02:30.32

コネクション切れないのは nc の問題だった…。
https://github.com/larryhou/connect-proxy 入れて、
(setq navi2ch-open-network-stream-function 'navi2ch-open-network-stream-via-command)
(setq navi2ch-open-network-stream-command "connect -R remote -S 127.0.0.1:1080 %s %s")
でもだめで、
(defun navi2ch-net-send-request (url method &optional other-header content)
(message "Now connecting...")
(setq proc nil)
(unless (navi2ch-net-down-p host)
(condition-case nil
(setq proc (apply navi2ch-open-network-stream-function
navi2ch-net-connection-name buf host port rest)) ←このへんでエラーになっているっぽい。
(error (navi2ch-net-add-down-host host)))))

Error: Wrong number of arguments: (lambda (name buffer host service) (let ((command (cond ((stringp navi2ch-open-network-stream-command) (format navi2ch-open-network-stream-command host service)) ((functionp navi2ch-open-network-stream-command) (funcall navi2ch-open-network-stream-command host service))))) (apply #'start-process name buffer (if (stringp command) (list shell-file-name shell-command-switch command) command)))), 6

http://mevius.5ch.net/test/read.cgi/unix/1575011531/198

200: 名無しさん＠お腹いっぱい。 [sage] 2023/07/31(月) 02:31:03.96

ネイティブコンパイラがこけていることに気付いてハマってました。
https://pastebin.com/gWiBJv1i

>>185からの変更点
1 >>193 socks使う場合に対応
2 >>194 json-parse-stringがない場合のデフォルトをbbsmenu.htmlにした
3 バイトコンパイル、ネイティブコンパイルのコンパイルエラーの修正

* このパッチで修正されること
open-network-streamがTLS接続をサポートするようになり、tls-open-streamが利用できなくなっていたので、
httpsを積極的に利用する事にしました。(https:はhttps:のまま取得するように変更しました。
変数navi2ch-net-http-proxyや環境変数HTTP_PROXYでプロキシサーバーを使う方法は利用できません。
外部コマンドを使用してご利用ください。
ネイティブコンパイラのコンパイルエラーを回避するために、相当量の修正が必要でした。
(ネイティブコンパイラがエラー終了すると、ロードのたびにコンパイルしなおしているようだ)
SSL接続して、HTTP/1.0ではプロトコルエラーになるっぽいので、全部HTTP/1.1で接続します。
navi2ch-net-enable-http11はkeep-aliveを使用するフラグに変更になりました。(これを指定するとうまく動作しませんでした)

* 外部コマンドでの利用
navi2ch-open-network-stream-via-commandがコマンドを生成する際に、http:からダウンロードする場合は3番目の引数としてnilが渡されます。
socks4+ncatでの利用例(かなり強引) ncatはnmapの付属品です。

(setq navi2ch-open-network-stream-command
"unset ssl sslsw; host=\"%s\";port=\"%s\";ssl=\"%s\"; if [ ${ssl:-nil} != nil ]; then sslsw=\"--ssl\";fi; ncat --proxy localhost:1080 --proxy-type socks4 $sslsw $host $port")
(setq navi2ch-open-network-stream-function
#'navi2ch-open-network-stream-via-command)
この設定でスレの表示、書き込み、イメージの表情は軽くテストしました。

↓でどーぞ。patchの-lをつけないとリジェクトされます。
curl https://pastebin.com/raw/gWiBJv1i | iconv -f utf-8 -t iso-2022-jp |tr -d '\r' |patch -p1 -l

http://mevius.5ch.net/test/read.cgi/unix/1575011531/200

上下前次 1-新書関写板覧索設栞歴

あと 186 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.007s