🚀 go-pugleaf

~~~xemacs~~~~~~~~~~~~~~~~~
~~~~~
emacs-lisp~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~

~~: FreeBSD 4.3-RELEASE
	  xemacs-21.1.14

~~~~~~~~~~~~~~~~~~~~~~~~~~~
open-network-stream~~~~web~~~~~~~log~~~~~~~
~~~~~~~~~~~~~~~~~~

~~~~~~~~~log~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~log~~~~~sjis~~~
~
------------------------------------------------------------
~~~~~Ž€~~~~~~~~~~~~~~~
------------------------------------------------------------

set-process-coding-system ~
sjis euc-japan shift_jis-dos automatic-conversion ~~~~~~
~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~

~~~shell-command-to-string~~~~nkf -e~~~~~~~~~
~~~~~~~~~~~~~~~~emacs-lisp~~~~~~~~~~
~~~~~

------------------------------------------------------------
(defun nybc-get-log-file ()
  "~~~~~~~~~~~~"
  (save-excursion
	(let (proc)
	  (message "now connecting...")
	  (open-network-stream nybc-view-net-process
						   nybc-view-net-buffer
						   nybc-view-net-url
						   80)
	  (set-buffer nybc-view-net-buffer)
	  (erase-buffer)
	  (setq proc (get-buffer-process (current-buffer)))
	  (set-process-coding-system proc 'shift_jis-dos 'shift_jis-dos)
;	  (set-process-coding-system proc 'automatic-conversion 'automatic-conversion)
	  (process-send-string proc
						   (format "%s" (concat "GET /hogehoge/keijiban.log HTTP/1.1\n"
												"Host: "
												nybc-view-net-url
												"\n"
												"Connection: close\n"
												"\n")))
	  (while (and (eq (process-status proc) 'open)
				  (goto-char (point-min))
				  (not (re-search-forward "^Process" nil t)))
		(accept-process-output proc))
	  (message "now connecting...connected"))))
------------------------------------------------------------