HTTP/0.9 How I hate thee! ... what the...

HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

[-- Attachment #1: Type: text/plain, Size: 1396 bytes --]

Running CVS w3 

[Adding a little controversy to the raging message ID debate, you can
see what version of CVS I'm running by converting the unix epochal
time in mine --perl -e "print scalar localtime <string;>"

I don't often browse the web with w3, mostly let it work inside gnus
for me or on, local disk.  Today I tried connecting to several sites
and get this strange, but obiously intended to be humorous message.

        `HTTP/0.9 How I hate thee!'

According to *Messages* buffer the startup page is downloaded:

After pressing M-x w3:

  Downloading of `http://www.cs.indiana.edu/elisp/w3/docs.html' complete.
  Parsed  82% of 2632...
  Parsed 100% of 2632...done
  Drawing... |
  HTTP/0.9 How I hate thee!
  Drawing... done
  Quit

With a very lengthy pause between the `Drawing.. done' and pressing
`g'.  Pinging that address works and a traceroute to
`www.cs.indiana.edu' shows reasonable output.

That reminded me that I've never been able to find a command to load a
url from the emacs prompt.  Other than a local file that is.  There
doesn't seem to be an equivalent to `M-x w3-open-local' until you've
loaded the home page then use `C-o'.

Two items from C-h v load-path <RET>:
"/usr/local/w3/url/lisp" "/usr/local/w3/w3/lisp"

both accurate addresses.

So hiding all the *.elc files in both my cvs w3 and url
directories, enable debug on quit and let 'er rip...

And M-x w3....


[-- Attachment #2: w3 backtrace --]
[-- Type: application/octet-stream, Size: 13615 bytes --]

Signaling: (quit)
  accept-process-output(nil 3)
  (while (not retrieval-done) (accept-process-output nil 3))
  (if (not asynch-buffer) nil (while (not retrieval-done) (accept-process-output nil 3)) asynch-buffer)
  (let ((retrieval-done nil) (asynch-buffer nil)) (setq asynch-buffer (url-retrieve url ...)) (if (not asynch-buffer) nil (while ... ...) asynch-buffer))
  url-retrieve-synchronously("http://www.cs.indiana.edu/elisp/w3/styles/w3.css")
  (let ((buffer ...) (handle nil) (data nil)) (if (not buffer) (error "Opening input file: No such file or directory, %s" url)) (save-excursion (set-buffer buffer) (setq handle ...) (set-buffer ...) (if beg ... ...)) (kill-buffer buffer) (mm-destroy-parts handle) (if replace (delete-region ... ...)) (insert data) (list url (length data)))
  url-insert-file-contents("http://www.cs.indiana.edu/elisp/w3/styles/w3.css")
  (if url (url-insert-file-contents url))
  (save-excursion (set-buffer (generate-new-buffer " *style*")) (setq url-current-object pobj) (set-syntax-table css-syntax-table) (erase-buffer) (if url (url-insert-file-contents url)) (goto-char (point-max)) (if string (insert string)) (css-clean-buffer) (goto-char (point-min)) (while (not ...) (setq save-pos ...) (cond ... ... ... ... ...) (skip-chars-forward " 	\r\n")) (set-buffer-modified-p nil) (kill-buffer (current-buffer)))
  (let ((url-mime-accept-string "text/css ; level=2") (save-pos nil) (applies-to nil) (attrs nil) (att nil) (cur nil) (val nil) (device-type nil) (purl ...) (pobj url-current-object) (active-device-types ...) (sheet inherit)) (if (not sheet) (setq sheet ...)) (save-excursion (set-buffer ...) (setq url-current-object pobj) (set-syntax-table css-syntax-table) (erase-buffer) (if url ...) (goto-char ...) (if string ...) (css-clean-buffer) (goto-char ...) (while ... ... ... ...) (set-buffer-modified-p nil) (kill-buffer ...)) sheet)
  css-parse("http://www.cs.indiana.edu/elisp/w3/styles/w3.css" nil (cl-hash-table-tag eql [0 center h1 h2 h3 h4 h5 h6 menu strong 0 0 0 sub a b input 0 0 0 dfn 0 br caption dd xmp 0 sup 0 strike 0 0 quote 0 ol 0 blink secret abstract ul dt address 0] 43))
  (setq stylesheet (css-parse url string cur-sheet))
  (cond ((member type ...) (setq stylesheet ...)) (t (w3-warn ... "Unknown stylesheet notation: %s" type)))
  (save-excursion (cond (... ...) (t ...)))
  (if (not (memq media ...)) nil (save-excursion (cond ... ...)) (setq w3-current-stylesheet stylesheet))
  (let ((url ...) (media ...) (type ...) (stylesheet nil) (defines nil) (buffer nil) (cur-sheet w3-current-stylesheet) (string ...)) (if (not ...) nil (save-excursion ...) (setq w3-current-stylesheet stylesheet)))
  w3-handle-style((class (":visited") title "Emacs/W3 Stylesheet" rel "stylesheet" type "text/css" href "http://www.cs.indiana.edu/elisp/w3/styles/w3.css"))
  (if w3-honor-stylesheets (w3-handle-style plist))
  (cond ((member* desc ...) (if w3-honor-stylesheets ...)) (t nil))
  (case desc ((style stylesheet) (if w3-honor-stylesheets ...)) (otherwise))
  (let* ((type ...) (desc ...) (dc-desc ...) (dest ...) (plist ...) (node-1 ...) (node-2 ...)) (if (member dc-desc w3-defined-link-types) (setq desc dc-desc)) (if dest (cond ... ... ...)) (setq desc (and desc ...)) (case desc (... ...) (otherwise)))
  w3-parse-link(((class ":visited") (title . "Emacs/W3 Stylesheet") (rel . "stylesheet") (type . "text/css") (href . "http://www.cs.indiana.edu/elisp/w3/styles/w3.css")))
  (cond ((eql tag ...) (let* ... ... ... ... ... ... ... ... ... ... ... ... ...)) ((member* tag ...) (push ... w3-display-list-stack) (w3-handle-content node)) ((eql tag ...) (push 0 w3-display-list-stack) (setq node ...) (w3-handle-content node)) ((eql tag ...) (setq node ...) (w3-handle-content node)) ((eql tag ...) (w3-handle-image) (w3-handle-empty-tag)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-auto-run-java ... ...)) ((eql tag ...) (w3-handle-empty-tag)) ((member* tag ...) (w3-handle-content node)) ((eql tag ...) (let* ... ... ... ...)) ((eql tag ...) (let ... ...) (w3-handle-empty-tag)) ((eql tag ...) (setq node ...) (w3-handle-content node)) ((eql tag ...) (w3-display-table node) (setq w3-last-fill-pos ...) (w3-handle-empty-tag)) ((eql tag ...) (let ... ... ... ... ... ...)) ((member* tag ...) (let ... ... ... ... ... ...)) ((eql tag ...) (let ...!
 
 ... ... ... ... ... ... ... ... ... ... ...) (w3-handle-content node)) ((eql tag ...) (w3-handle-empty-tag)) ((eql tag ...) (quote ...) (w3-handle-empty-tag)) ((eql tag ...) (w3-parse-link args) (w3-handle-empty-tag)) ((eql tag ...) (let ... ... ... ...) (w3-handle-empty-tag)) ((eql tag ...) (setq w3-base-target ...) (w3-handle-content node)) ((eql tag ...) (setq w3-current-form-number ...) (let* ... ... ... ...)) ((eql tag ...) (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) ((eql tag ...) (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) ((eql tag ...) (let* ... ... ... ...)) ((eql tag ...) (let* ... ... ...) (w3-handle-empty-tag)) ((eql tag ...) (w3-handle-style ...) (w3-handle-empty-tag)) ((eql tag ...) (if ... ...) (set-marker w3-display-label-marker ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-!
 
content node)) (t (w3-handle-content node)))
  (case tag (a (let* ... ... ... ... ... ... ... ... ... ... ... ... ...)) ((ol ul dl menu) (push ... w3-display-list-stack) (w3-handle-content node)) (dir (push 0 w3-display-list-stack) (setq node ...) (w3-handle-content node)) (multicol (setq node ...) (w3-handle-content node)) (img (w3-handle-image) (w3-handle-empty-tag)) (frameset (if w3-display-frames ... ...)) (frame (if w3-display-frames ... ...)) (noframes (if w3-display-frames ... ...)) (applet (if w3-auto-run-java ... ...)) (script (w3-handle-empty-tag)) ((embed object) (w3-handle-content node)) (hr (let* ... ... ... ...)) (map (let ... ...) (w3-handle-empty-tag)) (note (setq node ...) (w3-handle-content node)) (table (w3-display-table node) (setq w3-last-fill-pos ...) (w3-handle-empty-tag)) (isindex (let ... ... ... ... ... ...)) ((html body) (let ... ... ... ... ... ...)) (*document (let ... ... ... ... ... ... ... ... ... ... ... ...) (w3-handle-content node)) (*invisible (w3-handle-empty-tag)) (meta (quote ...)!
 
 (w3-handle-empty-tag)) (link (w3-parse-link args) (w3-handle-empty-tag)) (title (let ... ... ... ...) (w3-handle-empty-tag)) (base (setq w3-base-target ...) (w3-handle-content node)) (form (setq w3-current-form-number ...) (let* ... ... ... ...)) (keygen (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) (input (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) (select (let* ... ... ... ...)) (textarea (let* ... ... ...) (w3-handle-empty-tag)) (style (w3-handle-style ...) (w3-handle-empty-tag)) (label (if ... ...) (set-marker w3-display-label-marker ...) (w3-handle-content node)) (pinhead (if ... nil ...) (w3-handle-content node)) (flame (if ... nil ...) (w3-handle-content node)) (cookie (if ... nil ...) (w3-handle-content node)) (otherwise (w3-handle-content node)))
  (if (stringp (car content)) (w3-handle-string-content (pop content)) (setq node (pop content) tag (nth 0 node) args (nth 1 node) id (or ... ...)) (if (w3-get-attribute ...) (let ... ... ... ... ...)) (setq w3-display-css-properties (css-get ... ... w3-current-stylesheet w3-display-open-element-stack)) (push (w3-get-style-info ... node) break-style) (push (w3-get-style-info ... node) insert-after) (setq insert-before (w3-get-style-info ... node)) (w3-display-handle-break) (if (w3-node-visible-p) nil (setq insert-before nil tag ...) (setcar insert-after nil)) (if insert-before (w3-handle-string-content insert-before)) (if nofaces nil (push ... w3-active-faces) (push ... w3-active-voices)) (setq insert-before nil) (if id (setq w3-id-positions ...)) (case tag (a ...) (... ... ...) (dir ... ... ...) (multicol ... ...) (img ... ...) (frameset ...) (frame ...) (noframes ...) (applet ...) (script ...) (... ...) (hr ...) (map ... ...) (note ... ...) (table ... ... ...) (isindex ...!
 
) (... ...) (*document ... ...) (*invisible ...) (meta ... ...) (link ... ...) (title ... ...) (base ... ...) (form ... ...) (keygen ... ...) (input ... ...) (select ...) (textarea ... ...) (style ... ...) (label ... ... ...) (pinhead ... ...) (flame ... ...) (cookie ... ...) (otherwise ...)))
  (while content (w3-display-progress-meter) (if (stringp ...) (w3-handle-string-content ...) (setq node ... tag ... args ... id ...) (if ... ...) (setq w3-display-css-properties ...) (push ... break-style) (push ... insert-after) (setq insert-before ...) (w3-display-handle-break) (if ... nil ... ...) (if insert-before ...) (if nofaces nil ... ...) (setq insert-before nil) (if id ...) (case tag ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (while content-stack (setq content (pop content-stack)) (pop w3-active-faces) (pop w3-active-voices) (w3-display-progress-meter) (setq last-element (pop w3-display-open-element-stack)) (case (car last-element) (a ... ...) (img ... ...) (... ...) (label ...) (otherwise nil)) (if (car insert-after) (w3-handle-string-content ...)) (pop insert-after) (w3-display-handle-end-break) (w3-pop-all-face-info) (while content (w3-display-progress-meter) (if ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (let ((content-stack ...) (right-margin-stack ...) (left-margin-stack ...) (inhibit-read-only t) (widget-push-button-gui nil) node insert-before insert-after tag args content hyperlink-info hyperimage-info break-style cur id class last-element) (while content-stack (setq content ...) (pop w3-active-faces) (pop w3-active-voices) (w3-display-progress-meter) (setq last-element ...) (case ... ... ... ... ... ...) (if ... ...) (pop insert-after) (w3-display-handle-end-break) (w3-pop-all-face-info) (while content ... ...)))
  w3-display-node((*document nil ((html nil ...))))
  (while tree (w3-display-node (car tree)) (setq tree (cdr tree)))
  w3-draw-tree(((*document nil (...))))
  (unwind-protect (w3-draw-tree parse) (kill-buffer source-buf) (set-buffer-modified-p nil) (setq w3-current-source source w3-current-parse parse) (w3-finish-drawing) (w3-mode))
  (let* ((source ...) (source-buf ...) (parse ...)) (set-buffer-modified-p nil) (unwind-protect (w3-draw-tree parse) (kill-buffer source-buf) (set-buffer-modified-p nil) (setq w3-current-source source w3-current-parse parse) (w3-finish-drawing) (w3-mode)) (set-buffer-modified-p nil))
  w3-prepare-buffer()
  (cond ((equal ... "text/html") (setq buff ...) (set-buffer buff) (setq url-current-object ...) (mm-insert-part handle) (w3-prepare-buffer) (w3-notify-when-ready ...)) ((equal ... "application/x-elisp-parsed-html") (w3-prepare-tree ...)) ((mm-inlinable-p handle) (setq buff ...) (set-buffer buff) (mm-display-part handle) (w3-notify-when-ready ...)) (t (mm-display-part handle)))
  (let ((handle ...) (buff nil)) (message "Downloading of `%s' complete." url) (w3-decode-charset) (url-mark-buffer-as-dead (current-buffer)) (cond (... ... ... ... ... ... ...) (... ...) (... ... ... ... ...) (t ...)) (mm-destroy-parts handle))
  w3-fetch-callback("http://www.cs.indiana.edu/elisp/w3/docs.html")
  apply(w3-fetch-callback "http://www.cs.indiana.edu/elisp/w3/docs.html")
  url-http-activate-callback()
  (if (url-http-parse-headers) (url-http-activate-callback))
  (cond ((string= "HEAD" url-http-method) (url-http-debug "HEAD request must have headers only (%s)." ...) (url-http-mark-connection-as-free ... ... url-http-process) (if ... ...)) ((string= "CONNECT" url-http-method) (url-http-debug "CONNECT request must have headers only.") (if ... ...)) ((equal url-http-response-status 304) (if ... ...)) (old-http (url-http-debug "Saw HTTP/0.9 response, connection closed means end of document.") (setq url-http-real-after-change-function ...)) ((equal url-http-transfer-encoding "chunked") (url-http-debug "Saw chunked encoding.") (setq url-http-real-after-change-function ...) (if ... ...)) ((integerp url-http-content-length) (url-http-debug "Got a content-length, being smart about document end.") (setq url-http-real-after-change-function ...)) (t (url-http-debug "No content-length, being dumb.") (setq url-http-real-after-change-function ...)))
  (if (not end-of-headers) nil (if old-http (message "HTTP/0.9 How I hate thee!") (progn ... ... ... ... ...)) (if url-http-transfer-encoding (setq url-http-transfer-encoding ...)) (cond (... ... ... ...) (... ... ...) (... ...) (old-http ... ...) (... ... ... ...) (... ... ...) (t ... ...)))
  (let ((end-of-headers nil) (old-http nil) (content-length nil)) (goto-char (point-min)) (if (not ...) (setq end-of-headers t url-http-end-of-headers 0 old-http t) (if ... ...)) (if (not end-of-headers) nil (if old-http ... ...) (if url-http-transfer-encoding ...) (cond ... ... ... ... ... ... ...)))
  url-http-wait-for-headers-change-function(1 186 0)
  funcall(url-http-wait-for-headers-change-function 1 186 0)
  (if (not url-http-real-after-change-function) nil (funcall url-http-real-after-change-function st nd length))
  (if (not (boundp ...)) (debug nil "after-change-function called in strange buffer: %s" (buffer-name)) (if (not url-http-real-after-change-function) nil (funcall url-http-real-after-change-function st nd length)))
  url-http-generic-after-change-function(1 186 0)

Re: HTTP/0.9 How I hate thee! ... what the...

[Hannu Koivisto]

Harry Putnam <reader@newsguy.com> writes:

| That reminded me that I've never been able to find a command to load a
| url from the emacs prompt.  Other than a local file that is.  There
| doesn't seem to be an equivalent to `M-x w3-open-local' until you've
| loaded the home page then use `C-o'.

w3-fetch

-- 
Hannu
Please don't send copies of list mail

Re: HTTP/0.9 How I hate thee! ... what the...

[Kai Großjohann]

On 28 Feb 2001, Harry Putnam wrote:

> Running CVS w3 

Where did you get the `url' package that's needed for this w3?

> I don't often browse the web with w3, mostly let it work inside gnus
> for me or on, local disk.  Today I tried connecting to several sites
> and get this strange, but obiously intended to be humorous message.
> 
>         `HTTP/0.9 How I hate thee!'

Well, you probably know that web browsers and web servers communicate
using the HTTP protocol.  There have been different versions of that
protocol.  The first version didn't have a number and was
retroactively numbered 0.9, I think.  Then came HTTP/1.0 and now
HTTP/1.1 is current.

HTTP/0.9 has some limitations that I'm sure the W3 author was not
happy with.

Hm.

What happens when you "telnet host.name 80" to that host, then type
"HEAD / HTTP/1.0" followed by two returns?

kai
-- 
Be indiscrete.  Do it continuously.

Re: HTTP/0.9 How I hate thee! ... what the...

[Charles Sebold]

On 5 Adar 5761, Harry Putnam wrote:

> That reminded me that I've never been able to find a command to load a
> url from the emacs prompt.  Other than a local file that is.  There
> doesn't seem to be an equivalent to `M-x w3-open-local' until you've
> loaded the home page then use `C-o'.

Does M-x w3-fetch do the trick (after w3 has fully loaded, of course, or
you could throw an autoload for that function in as I have done a few
times)?
-- 
Charles Sebold
Random Answer to a Gnus Very Frequently Asked Question:
 To see old posts, enter the group with C-u RET from the *Groups* buffer.
--
6th of Adar, 5761
--
TONIGHT ALSO MARKS THE ANNIVERSARY OF THE DAY WHEN MY POOR PONY WAS
EATEN YES FRIENDS, EATEN BY A GOTH...WE NEED TO RISE UP.. STEP UP...
ORGANIZE ORGANIZE AND UNITE TO SAY "WE'RE NOT GOING TO LET YOU GOTHIC
PONY EATING KIDS TAKE OUT OUR PONIES"
 -- seen on a web site defaced by "hacking 4 ponies"

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> On 28 Feb 2001, Harry Putnam wrote:
> 
> > Running CVS w3 
> 
> Where did you get the `url' package that's needed for this w3?

With the same cvs download when I got the w3 part about 2 weeks ago.
w3 comes in two parts now. A `w3' and a `url' directory.


> What happens when you "telnet host.name 80" to that host, then type
> "HEAD / HTTP/1.0" followed by two returns?

Nothing at all happens

	 $ telnet www.cs.indiana.edu 80
	Trying 129.79.254.195...
	Connected to grouchy.cs.indiana.edu.
	Escape character is '^]'.
	HEAD / HTTP/1.0
        []   <==cursor here  forever

Finally   ^]
          telnet>       

Without the " / HTTP/1.0" I get these results:
	 $ telnet www.cs.indiana.edu 80
	Trying 129.79.254.195...
	Connected to grouchy.cs.indiana.edu.
	Escape character is '^]'.
	HEAD

Returns:

	<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
	<HTML><HEAD>
	<TITLE>400 Bad Request</TITLE>
	</HEAD><BODY>
	<H1>Bad Request</H1>
	Your browser sent a request that this server could not understand.<P>
	client sent invalid HTTP/0.9 request: HEAD /<P>
	<HR>
	<ADDRESS>Apache/1.3.14 Server at www.cs.indiana.edu Port 80</ADDRESS>
	</BODY></HTML>
	Connection closed by foreign host.

Going a little farther here, I'm able to connect with netscape and
lynx like this

netscape/lynx http://www.cs.indiana.edu:80

But not when w3 starts up.  So starting w3 on a local file then
calling ^o and putting the address at the prompt:

URL: www.cs.indiana.edu:80
w3 clains to have downloaded the page but nothing appears:

(from messages buffer)
Downloading of `http://www.cs.indiana.edu:80' complete.

When I open that address in netscape or lynx and look at the source,
the doctype says:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd"> 
<!-- web page design by Marat Fairuzov -->
<!-- e-mail: mfairuzo@indiana.edu -->
<!-- www: http://www.cs.indiana.edu/hyplan/mfairuzo.html -->

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

Charles Sebold <csebold@ezl.com> writes:

> On 5 Adar 5761, Harry Putnam wrote:
> 
> > That reminded me that I've never been able to find a command to load a
> > url from the emacs prompt.  Other than a local file that is.  There
> > doesn't seem to be an equivalent to `M-x w3-open-local' until you've
> > loaded the home page then use `C-o'.
> 
> Does M-x w3-fetch do the trick (after w3 has fully loaded, of course, or
> you could throw an autoload for that function in as I have done a few
> times)?

I've had to revert back from the cvs versions to w3-4.0pre.46

With this `(require 'w3-auto "w3-auto")' in my startup files,
M-x w3-fetch opens and internet url just fine. (thanks Hannu).

It seem to load w3 first. 

Re: HTTP/0.9 How I hate thee! ... what the...

[ShengHuo ZHU]

[-- Attachment #1: Type: text/plain, Size: 518 bytes --]

Harry Putnam <reader@newsguy.com> writes:

> Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
> 
> > On 28 Feb 2001, Harry Putnam wrote:
> > 
> > > Running CVS w3 
> > 
> > Where did you get the `url' package that's needed for this w3?
> 
> With the same cvs download when I got the w3 part about 2 weeks ago.
> w3 comes in two parts now. A `w3' and a `url' directory.

Maybe it is a bug in the CVS url package.  It is a kind of narrowed
buffer problem.  I saw it before.  You can try the patch.

ShengHuo


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: url-http-widen.diff --]
[-- Type: text/x-patch, Size: 659 bytes --]

Index: url-http.el
===================================================================
RCS file: /gd/gnu/anoncvsroot/url/lisp/url-http.el,v
retrieving revision 1.8
diff -u -u -r1.8 url-http.el
--- url-http.el	2000/07/10 14:43:59	1.8
+++ url-http.el	2000/07/10 19:56:33
@@ -288,6 +298,7 @@
   (declare (special url-http-end-of-headers url-http-response-status))
   (if (not url-http-end-of-headers)
       (error "Trying to parse headers in odd buffer: %s" (buffer-name)))
+  (widen) ;; The buffer might be mysteriously narrowed.
   (goto-char (point-min))
   (url-http-debug "url-http-parse-headers called in (%s)" (buffer-name))
   (url-http-parse-response)

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> Harry Putnam <reader@newsguy.com> writes:
> 
> > Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
> > 
> > > On 28 Feb 2001, Harry Putnam wrote:
> > > 
> > > > Running CVS w3 
> > > 
> > > Where did you get the `url' package that's needed for this w3?
> > 
> > With the same cvs download when I got the w3 part about 2 weeks ago.
> > w3 comes in two parts now. A `w3' and a `url' directory.
> 
> Maybe it is a bug in the CVS url package.  It is a kind of narrowed
> buffer problem.  I saw it before.  You can try the patch.

Thanks... I've seem to have some problem still.  I've applied your patch

cd lisp && make w3
make[1]: Entering directory `/usr/local/w3-cvs/w3/lisp'

GNUSDIR=/usr/local/gnus/lisp/ URLDIR=/usr/local/w3-cvs/url/lisp\
W3SRCDIR=. emacs -batch -q -no-site-file -l ./docomp.el -f\
emacs-batch-build-autoloads . auto-autoloads.el

Cannot open load file: url-auto

make[1]: *** [auto-autoloads.el] Error 255
make[1]: Leaving directory `/usr/local/w3-cvs/w3/lisp'
make: *** [w3] Error 2

Seem to be something missing from the tree?

Re: HTTP/0.9 How I hate thee! ... what the...

[ShengHuo ZHU]

Harry Putnam <reader@newsguy.com> writes:


[...]

> 
> Thanks... I've seem to have some problem still.  I've applied your patch
> 
> cd lisp && make w3
> make[1]: Entering directory `/usr/local/w3-cvs/w3/lisp'
> 
> GNUSDIR=/usr/local/gnus/lisp/ URLDIR=/usr/local/w3-cvs/url/lisp\
> W3SRCDIR=. emacs -batch -q -no-site-file -l ./docomp.el -f\
> emacs-batch-build-autoloads . auto-autoloads.el
> 
> Cannot open load file: url-auto
> 
> make[1]: *** [auto-autoloads.el] Error 255
> make[1]: Leaving directory `/usr/local/w3-cvs/w3/lisp'
> make: *** [w3] Error 2
> 
> Seem to be something missing from the tree?

url-auto.el is an auto generated file in url package.  You should
build url package before w3.

ShengHuo

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

[-- Attachment #1: Type: text/plain, Size: 1535 bytes --]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> > 
> > Seem to be something missing from the tree?
> 
> url-auto.el is an auto generated file in url package.  You should
> build url package before w3.

OK, much better now...  Still get some messages but harmless I think:

   w3.txi:1234: warning: @sc argument all uppercase, thus no effect.
   w3.txi:1490: warning: @sc argument all uppercase, thus no effect.
   w3.txi:1517: warning: @sc argument all uppercase, thus no effect.
   makeinfo w3-faq.txi
   make[1]: Leaving directory `/usr/local/w3-cvs/w3/texi'

The bad news is I still get the same problem.

After applying your patch  I ran a diff on url-http.el~ url-http.el

        $ diff url-http.el~ url-http.el
        291a292
        >   (widen) ;; The buffer might be mysteriously narrowed.

Should there be more?

>From *Messages* buffer:
(is the line about the cookies causing this?)
   [...]
   Loading url-auth (source)...done
   
   Could not load cookie file /home/reader/.url/cookies
   
   Loading mail-extr...
   Loading mail-extr...done
   Loading w3-hot (source)...
   Loading w3-hot (source)...done
   Contacting host: www.cs.indiana.edu:80
   Loading url-cache (source)...
   Loading url-cache (source)...done
   Downloading of `http://www.cs.indiana.edu/elisp/w3/docs.html' complete.
   Parsed  82% of 2632...
   Parsed 100% of 2632...done
   Drawing... \
   Loading w3-style (source)...
   Loading w3-style (source)...done
   HTTP/0.9 How I hate thee!

Backtrace with *.elc files moved out of the line of fire.


[-- Attachment #2: w3 back trace --]
[-- Type: application/octet-stream, Size: 13615 bytes --]

Signaling: (quit)
  accept-process-output(nil 3)
  (while (not retrieval-done) (accept-process-output nil 3))
  (if (not asynch-buffer) nil (while (not retrieval-done) (accept-process-output nil 3)) asynch-buffer)
  (let ((retrieval-done nil) (asynch-buffer nil)) (setq asynch-buffer (url-retrieve url ...)) (if (not asynch-buffer) nil (while ... ...) asynch-buffer))
  url-retrieve-synchronously("http://www.cs.indiana.edu/elisp/w3/styles/w3.css")
  (let ((buffer ...) (handle nil) (data nil)) (if (not buffer) (error "Opening input file: No such file or directory, %s" url)) (save-excursion (set-buffer buffer) (setq handle ...) (set-buffer ...) (if beg ... ...)) (kill-buffer buffer) (mm-destroy-parts handle) (if replace (delete-region ... ...)) (insert data) (list url (length data)))
  url-insert-file-contents("http://www.cs.indiana.edu/elisp/w3/styles/w3.css")
  (if url (url-insert-file-contents url))
  (save-excursion (set-buffer (generate-new-buffer " *style*")) (setq url-current-object pobj) (set-syntax-table css-syntax-table) (erase-buffer) (if url (url-insert-file-contents url)) (goto-char (point-max)) (if string (insert string)) (css-clean-buffer) (goto-char (point-min)) (while (not ...) (setq save-pos ...) (cond ... ... ... ... ...) (skip-chars-forward " 	\r\n")) (set-buffer-modified-p nil) (kill-buffer (current-buffer)))
  (let ((url-mime-accept-string "text/css ; level=2") (save-pos nil) (applies-to nil) (attrs nil) (att nil) (cur nil) (val nil) (device-type nil) (purl ...) (pobj url-current-object) (active-device-types ...) (sheet inherit)) (if (not sheet) (setq sheet ...)) (save-excursion (set-buffer ...) (setq url-current-object pobj) (set-syntax-table css-syntax-table) (erase-buffer) (if url ...) (goto-char ...) (if string ...) (css-clean-buffer) (goto-char ...) (while ... ... ... ...) (set-buffer-modified-p nil) (kill-buffer ...)) sheet)
  css-parse("http://www.cs.indiana.edu/elisp/w3/styles/w3.css" nil (cl-hash-table-tag eql [0 center h1 h2 h3 h4 h5 h6 menu strong 0 0 0 sub a b input 0 0 0 dfn 0 br caption dd xmp 0 sup 0 strike 0 0 quote 0 ol 0 blink secret abstract ul dt address 0] 43))
  (setq stylesheet (css-parse url string cur-sheet))
  (cond ((member type ...) (setq stylesheet ...)) (t (w3-warn ... "Unknown stylesheet notation: %s" type)))
  (save-excursion (cond (... ...) (t ...)))
  (if (not (memq media ...)) nil (save-excursion (cond ... ...)) (setq w3-current-stylesheet stylesheet))
  (let ((url ...) (media ...) (type ...) (stylesheet nil) (defines nil) (buffer nil) (cur-sheet w3-current-stylesheet) (string ...)) (if (not ...) nil (save-excursion ...) (setq w3-current-stylesheet stylesheet)))
  w3-handle-style((class (":visited") title "Emacs/W3 Stylesheet" rel "stylesheet" type "text/css" href "http://www.cs.indiana.edu/elisp/w3/styles/w3.css"))
  (if w3-honor-stylesheets (w3-handle-style plist))
  (cond ((member* desc ...) (if w3-honor-stylesheets ...)) (t nil))
  (case desc ((style stylesheet) (if w3-honor-stylesheets ...)) (otherwise))
  (let* ((type ...) (desc ...) (dc-desc ...) (dest ...) (plist ...) (node-1 ...) (node-2 ...)) (if (member dc-desc w3-defined-link-types) (setq desc dc-desc)) (if dest (cond ... ... ...)) (setq desc (and desc ...)) (case desc (... ...) (otherwise)))
  w3-parse-link(((class ":visited") (title . "Emacs/W3 Stylesheet") (rel . "stylesheet") (type . "text/css") (href . "http://www.cs.indiana.edu/elisp/w3/styles/w3.css")))
  (cond ((eql tag ...) (let* ... ... ... ... ... ... ... ... ... ... ... ... ...)) ((member* tag ...) (push ... w3-display-list-stack) (w3-handle-content node)) ((eql tag ...) (push 0 w3-display-list-stack) (setq node ...) (w3-handle-content node)) ((eql tag ...) (setq node ...) (w3-handle-content node)) ((eql tag ...) (w3-handle-image) (w3-handle-empty-tag)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-auto-run-java ... ...)) ((eql tag ...) (w3-handle-empty-tag)) ((member* tag ...) (w3-handle-content node)) ((eql tag ...) (let* ... ... ... ...)) ((eql tag ...) (let ... ...) (w3-handle-empty-tag)) ((eql tag ...) (setq node ...) (w3-handle-content node)) ((eql tag ...) (w3-display-table node) (setq w3-last-fill-pos ...) (w3-handle-empty-tag)) ((eql tag ...) (let ... ... ... ... ... ...)) ((member* tag ...) (let ... ... ... ... ... ...)) ((eql tag ...) (let ...!
 
 ... ... ... ... ... ... ... ... ... ... ...) (w3-handle-content node)) ((eql tag ...) (w3-handle-empty-tag)) ((eql tag ...) (quote ...) (w3-handle-empty-tag)) ((eql tag ...) (w3-parse-link args) (w3-handle-empty-tag)) ((eql tag ...) (let ... ... ... ...) (w3-handle-empty-tag)) ((eql tag ...) (setq w3-base-target ...) (w3-handle-content node)) ((eql tag ...) (setq w3-current-form-number ...) (let* ... ... ... ...)) ((eql tag ...) (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) ((eql tag ...) (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) ((eql tag ...) (let* ... ... ... ...)) ((eql tag ...) (let* ... ... ...) (w3-handle-empty-tag)) ((eql tag ...) (w3-handle-style ...) (w3-handle-empty-tag)) ((eql tag ...) (if ... ...) (set-marker w3-display-label-marker ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-!
 
content node)) (t (w3-handle-content node)))
  (case tag (a (let* ... ... ... ... ... ... ... ... ... ... ... ... ...)) ((ol ul dl menu) (push ... w3-display-list-stack) (w3-handle-content node)) (dir (push 0 w3-display-list-stack) (setq node ...) (w3-handle-content node)) (multicol (setq node ...) (w3-handle-content node)) (img (w3-handle-image) (w3-handle-empty-tag)) (frameset (if w3-display-frames ... ...)) (frame (if w3-display-frames ... ...)) (noframes (if w3-display-frames ... ...)) (applet (if w3-auto-run-java ... ...)) (script (w3-handle-empty-tag)) ((embed object) (w3-handle-content node)) (hr (let* ... ... ... ...)) (map (let ... ...) (w3-handle-empty-tag)) (note (setq node ...) (w3-handle-content node)) (table (w3-display-table node) (setq w3-last-fill-pos ...) (w3-handle-empty-tag)) (isindex (let ... ... ... ... ... ...)) ((html body) (let ... ... ... ... ... ...)) (*document (let ... ... ... ... ... ... ... ... ... ... ... ...) (w3-handle-content node)) (*invisible (w3-handle-empty-tag)) (meta (quote ...)!
 
 (w3-handle-empty-tag)) (link (w3-parse-link args) (w3-handle-empty-tag)) (title (let ... ... ... ...) (w3-handle-empty-tag)) (base (setq w3-base-target ...) (w3-handle-content node)) (form (setq w3-current-form-number ...) (let* ... ... ... ...)) (keygen (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) (input (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) (select (let* ... ... ... ...)) (textarea (let* ... ... ...) (w3-handle-empty-tag)) (style (w3-handle-style ...) (w3-handle-empty-tag)) (label (if ... ...) (set-marker w3-display-label-marker ...) (w3-handle-content node)) (pinhead (if ... nil ...) (w3-handle-content node)) (flame (if ... nil ...) (w3-handle-content node)) (cookie (if ... nil ...) (w3-handle-content node)) (otherwise (w3-handle-content node)))
  (if (stringp (car content)) (w3-handle-string-content (pop content)) (setq node (pop content) tag (nth 0 node) args (nth 1 node) id (or ... ...)) (if (w3-get-attribute ...) (let ... ... ... ... ...)) (setq w3-display-css-properties (css-get ... ... w3-current-stylesheet w3-display-open-element-stack)) (push (w3-get-style-info ... node) break-style) (push (w3-get-style-info ... node) insert-after) (setq insert-before (w3-get-style-info ... node)) (w3-display-handle-break) (if (w3-node-visible-p) nil (setq insert-before nil tag ...) (setcar insert-after nil)) (if insert-before (w3-handle-string-content insert-before)) (if nofaces nil (push ... w3-active-faces) (push ... w3-active-voices)) (setq insert-before nil) (if id (setq w3-id-positions ...)) (case tag (a ...) (... ... ...) (dir ... ... ...) (multicol ... ...) (img ... ...) (frameset ...) (frame ...) (noframes ...) (applet ...) (script ...) (... ...) (hr ...) (map ... ...) (note ... ...) (table ... ... ...) (isindex ...!
 
) (... ...) (*document ... ...) (*invisible ...) (meta ... ...) (link ... ...) (title ... ...) (base ... ...) (form ... ...) (keygen ... ...) (input ... ...) (select ...) (textarea ... ...) (style ... ...) (label ... ... ...) (pinhead ... ...) (flame ... ...) (cookie ... ...) (otherwise ...)))
  (while content (w3-display-progress-meter) (if (stringp ...) (w3-handle-string-content ...) (setq node ... tag ... args ... id ...) (if ... ...) (setq w3-display-css-properties ...) (push ... break-style) (push ... insert-after) (setq insert-before ...) (w3-display-handle-break) (if ... nil ... ...) (if insert-before ...) (if nofaces nil ... ...) (setq insert-before nil) (if id ...) (case tag ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (while content-stack (setq content (pop content-stack)) (pop w3-active-faces) (pop w3-active-voices) (w3-display-progress-meter) (setq last-element (pop w3-display-open-element-stack)) (case (car last-element) (a ... ...) (img ... ...) (... ...) (label ...) (otherwise nil)) (if (car insert-after) (w3-handle-string-content ...)) (pop insert-after) (w3-display-handle-end-break) (w3-pop-all-face-info) (while content (w3-display-progress-meter) (if ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (let ((content-stack ...) (right-margin-stack ...) (left-margin-stack ...) (inhibit-read-only t) (widget-push-button-gui nil) node insert-before insert-after tag args content hyperlink-info hyperimage-info break-style cur id class last-element) (while content-stack (setq content ...) (pop w3-active-faces) (pop w3-active-voices) (w3-display-progress-meter) (setq last-element ...) (case ... ... ... ... ... ...) (if ... ...) (pop insert-after) (w3-display-handle-end-break) (w3-pop-all-face-info) (while content ... ...)))
  w3-display-node((*document nil ((html nil ...))))
  (while tree (w3-display-node (car tree)) (setq tree (cdr tree)))
  w3-draw-tree(((*document nil (...))))
  (unwind-protect (w3-draw-tree parse) (kill-buffer source-buf) (set-buffer-modified-p nil) (setq w3-current-source source w3-current-parse parse) (w3-finish-drawing) (w3-mode))
  (let* ((source ...) (source-buf ...) (parse ...)) (set-buffer-modified-p nil) (unwind-protect (w3-draw-tree parse) (kill-buffer source-buf) (set-buffer-modified-p nil) (setq w3-current-source source w3-current-parse parse) (w3-finish-drawing) (w3-mode)) (set-buffer-modified-p nil))
  w3-prepare-buffer()
  (cond ((equal ... "text/html") (setq buff ...) (set-buffer buff) (setq url-current-object ...) (mm-insert-part handle) (w3-prepare-buffer) (w3-notify-when-ready ...)) ((equal ... "application/x-elisp-parsed-html") (w3-prepare-tree ...)) ((mm-inlinable-p handle) (setq buff ...) (set-buffer buff) (mm-display-part handle) (w3-notify-when-ready ...)) (t (mm-display-part handle)))
  (let ((handle ...) (buff nil)) (message "Downloading of `%s' complete." url) (w3-decode-charset) (url-mark-buffer-as-dead (current-buffer)) (cond (... ... ... ... ... ... ...) (... ...) (... ... ... ... ...) (t ...)) (mm-destroy-parts handle))
  w3-fetch-callback("http://www.cs.indiana.edu/elisp/w3/docs.html")
  apply(w3-fetch-callback "http://www.cs.indiana.edu/elisp/w3/docs.html")
  url-http-activate-callback()
  (if (url-http-parse-headers) (url-http-activate-callback))
  (cond ((string= "HEAD" url-http-method) (url-http-debug "HEAD request must have headers only (%s)." ...) (url-http-mark-connection-as-free ... ... url-http-process) (if ... ...)) ((string= "CONNECT" url-http-method) (url-http-debug "CONNECT request must have headers only.") (if ... ...)) ((equal url-http-response-status 304) (if ... ...)) (old-http (url-http-debug "Saw HTTP/0.9 response, connection closed means end of document.") (setq url-http-real-after-change-function ...)) ((equal url-http-transfer-encoding "chunked") (url-http-debug "Saw chunked encoding.") (setq url-http-real-after-change-function ...) (if ... ...)) ((integerp url-http-content-length) (url-http-debug "Got a content-length, being smart about document end.") (setq url-http-real-after-change-function ...)) (t (url-http-debug "No content-length, being dumb.") (setq url-http-real-after-change-function ...)))
  (if (not end-of-headers) nil (if old-http (message "HTTP/0.9 How I hate thee!") (progn ... ... ... ... ...)) (if url-http-transfer-encoding (setq url-http-transfer-encoding ...)) (cond (... ... ... ...) (... ... ...) (... ...) (old-http ... ...) (... ... ... ...) (... ... ...) (t ... ...)))
  (let ((end-of-headers nil) (old-http nil) (content-length nil)) (goto-char (point-min)) (if (not ...) (setq end-of-headers t url-http-end-of-headers 0 old-http t) (if ... ...)) (if (not end-of-headers) nil (if old-http ... ...) (if url-http-transfer-encoding ...) (cond ... ... ... ... ... ... ...)))
  url-http-wait-for-headers-change-function(1 186 0)
  funcall(url-http-wait-for-headers-change-function 1 186 0)
  (if (not url-http-real-after-change-function) nil (funcall url-http-real-after-change-function st nd length))
  (if (not (boundp ...)) (debug nil "after-change-function called in strange buffer: %s" (buffer-name)) (if (not url-http-real-after-change-function) nil (funcall url-http-real-after-change-function st nd length)))
  url-http-generic-after-change-function(1 186 0)

Re: HTTP/0.9 How I hate thee! ... what the...

[Florian Weimer]

Harry Putnam <reader@newsguy.com> writes:

> > What happens when you "telnet host.name 80" to that host, then type
> > "HEAD / HTTP/1.0" followed by two returns?
> 
> Nothing at all happens
> 
> 	 $ telnet www.cs.indiana.edu 80
> 	Trying 129.79.254.195...
> 	Connected to grouchy.cs.indiana.edu.
> 	Escape character is '^]'.
> 	HEAD / HTTP/1.0
>         []   <==cursor here  forever
> 

Did you really press RET twice?

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

Florian Weimer <fw@deneb.enyo.de> writes:

> > Nothing at all happens
> > 
> > 	 $ telnet www.cs.indiana.edu 80
> > 	Trying 129.79.254.195...
> > 	Connected to grouchy.cs.indiana.edu.
> > 	Escape character is '^]'.
> > 	HEAD / HTTP/1.0
> >         []   <==cursor here  forever
> > 
> 
> Did you really press RET twice?

Egad... don't know how I tie my shoes sometimes...

With 2 <CR> I get some output but does it shed light on the problem?

  HTTP/1.1 200 OK
  Date: Fri, 02 Mar 2001 15:23:36 GMT
  Server: Apache/1.3.14 (Unix) PHP/4.0.3pl1 mod_ssl/2.7.1 OpenSSL/0.9.5
  Last-Modified: Wed, 21 Feb 2001 18:36:40 GMT
  ETag: "c760c-1f60-3a940ab8"
  Accept-Ranges: bytes
  Content-Length: 8032
  Connection: close
  Content-Type: text/html

Looks like it means HTTP/1.1 is in use at that sight.  But I still get
the `...0.9 How I hate thee' , when firing up w3 with `M-x w3 <RET>'.

However if I start it with `M-x w3-fetch' and give a different address
it starts and loads the page.

Looking like the home page of w3 is unloadable by w3... oooops.

Re: HTTP/0.9 How I hate thee! ... what the...

[William M. Perry]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> On 28 Feb 2001, Harry Putnam wrote:
> 
> > Running CVS w3 
> 
> Where did you get the `url' package that's needed for this w3?
> 
> > I don't often browse the web with w3, mostly let it work inside gnus
> > for me or on, local disk.  Today I tried connecting to several sites
> > and get this strange, but obiously intended to be humorous message.
> > 
> >         `HTTP/0.9 How I hate thee!'
> 
> Well, you probably know that web browsers and web servers communicate
> using the HTTP protocol.  There have been different versions of that
> protocol.  The first version didn't have a number and was retroactively
> numbered 0.9, I think.  Then came HTTP/1.0 and now HTTP/1.1 is current.

There is currently a bug in the persistent-connection code for HTTP.  You
can fix this one of two ways:

1. Turn off stylesheets for now...
   (setq w3-honor-stylesheets nil)

2. Turn off HTTP/1.1 persistent connections...
   You can do this by editing the line in url-http-create-request that says
   (if proxy-obj "close" "keep-alive") to just "close" to disable ALL
   persistent connections.  This is equivalent to the old URL package, but
   will still get you chunked encoding and fun things like that.

-bp

Re: HTTP/0.9 How I hate thee! ... what the...

[William M. Perry]

Harry Putnam <reader@newsguy.com> writes:

> Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
> 
> > On 28 Feb 2001, Harry Putnam wrote:
> > 
> > > Running CVS w3 
> > 
> > Where did you get the `url' package that's needed for this w3?
> 
> With the same cvs download when I got the w3 part about 2 weeks ago.
> w3 comes in two parts now. A `w3' and a `url' directory.
> 
> 
> > What happens when you "telnet host.name 80" to that host, then type
> > "HEAD / HTTP/1.0" followed by two returns?
> 
> Nothing at all happens
> 
> 	 $ telnet www.cs.indiana.edu 80
> 	Trying 129.79.254.195...
> 	Connected to grouchy.cs.indiana.edu.
> 	Escape character is '^]'.
> 	HEAD / HTTP/1.0
>         []   <==cursor here  forever

Doesn't look like you hit return twice... this is a bug in the state
machine for HTTP/1.1 that I haven't had a chance to track down yet.

What happens if you (setq url-http-debug t) and then start the download?
This will spit out a LOT of debugging info about reusing connections,
requests/responses, etc into the "*HTTP-DEBUG*" buffer.

-bp

Re: HTTP/0.9 How I hate thee! ... what the...

[Florian Weimer]

Harry Putnam <reader@newsguy.com> writes:

> Running CVS w3 
> 
> [Adding a little controversy to the raging message ID debate, you can
> see what version of CVS I'm running by converting the unix epochal
> time in mine --perl -e "print scalar localtime <string;>"
> 
> I don't often browse the web with w3, mostly let it work inside gnus
> for me or on, local disk.  Today I tried connecting to several sites
> and get this strange, but obiously intended to be humorous message.
> 
>         `HTTP/0.9 How I hate thee!'

For some reason, the server buffer is empty when this message is
printed.  It seems to be a bug in W3.

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

wmperry@aventail.com (William M. Perry) writes:

> > 
> > 	 $ telnet www.cs.indiana.edu 80
> > 	Trying 129.79.254.195...
> > 	Connected to grouchy.cs.indiana.edu.
> > 	Escape character is '^]'.
> > 	HEAD / HTTP/1.0
> >         []   <==cursor here  forever
> 
> Doesn't look like you hit return twice... this is a bug in the state
> machine for HTTP/1.1 that I haven't had a chance to track down yet.

Yeah, sorry, I forgot how to tie my shoes for a moment...

> 
> What happens if you (setq url-http-debug t) and then start the download?
> This will spit out a LOT of debugging info about reusing connections,
> requests/responses, etc into the "*HTTP-DEBUG*" buffer.

Nothing different happens in any way that I can see.  Following this
sequence.

Start a new instance of emacs with this code in startup files:

site-start.el:
  (add-to-list 'Info-default-directory-list "/usr/local/w3-cvs/w3/texi")
  (add-to-list 'Info-default-directory-list "/usr/local/w3-cvs/url/texi")

  (add-to-list 'load-path  "/usr/local/w3-cvs/w3/lisp")
  (add-to-list 'load-path  "/usr/local/w3-cvs/url/lisp")  
        (all pointing to current cvs files)

~/.emacs     :  
  (require 'w3-auto "w3-auto")
and the new setq
        (setq url-http-debug t)

Pressing M-x w3 it trys to download the home page then prints the `How
I hate thee' and stalls.

   Reading directory /home/reader/...done
   Loading w3 (source)...
   Loading cl-macs...
   Loading cl-macs...done
   Loading cl-seq...
   Loading cl-seq...done
   Loading cl...
   Loading cl...done
   Loading cl-extra...
   Loading cl-extra...done
   Loading bytecomp...
   Loading bytecomp...done
   Loading byte-opt...
   Loading byte-opt...done
   Loading cus-edit...
   Loading wid-browse...
   Loading wid-browse...done
   Loading cus-edit...done
   Loading w3 (source)...done
   Loading url-auth (source)...
   Loading url-auth (source)...done
   Could not load cookie file /home/reader/.url/cookies
   Loading mail-extr...
   Loading mail-extr...done
   Loading w3-hot (source)...
   Loading w3-hot (source)...done
   Contacting host: www.cs.indiana.edu:80
   Loading url-cache (source)...
   Loading url-cache (source)...done
   Downloading of `http://www.cs.indiana.edu/elisp/w3/docs.html'\
   complete.
   Parsed  82% of 2632...
   Parsed 100% of 2632...done
   Drawing... \
   Loading w3-style (source)...
   Loading w3-style (source)...done
   HTTP/0.9 How I hate thee!
   Drawing... done
   Quit
   

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

wmperry@aventail.com (William M. Perry) writes:

> There is currently a bug in the persistent-connection code for HTTP.  You
> can fix this one of two ways:
> 
> 1. Turn off stylesheets for now...
>    (setq w3-honor-stylesheets nil)
> 
> 2. Turn off HTTP/1.1 persistent connections...
>    You can do this by editing the line in url-http-create-request that says
>    (if proxy-obj "close" "keep-alive") to just "close" to disable ALL
>    persistent connections.  This is equivalent to the old URL package, but
>    will still get you chunked encoding and fun things like that.

I may be doing this wrong, but your meaning here is that either of the
above bits of code in emacs will cure my porblem .. right?

Adding this to emacs:   (setq w3-honor-stylesheets nil)
And restarting; then M-x w3; I still get the `how I hate thee'.
and a full bodied stall.

On the second item.. editing the file `url-http.el' as suggested.

Restarting emacs... I still get the same `how I hate thee' and stall

Re: HTTP/0.9 How I hate thee! ... what the...

[Kai Großjohann]

On 03 Mar 2001, Harry Putnam wrote:

> On the second item.. editing the file `url-http.el' as suggested.

Did you delete url-http.elc or re-byte-compile url-http.el?

kai
-- 
Be indiscrete.  Do it continuously.

Re: HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> On 03 Mar 2001, Harry Putnam wrote:
> 
> > On the second item.. editing the file `url-http.el' as suggested.
> 
> Did you delete url-http.elc or re-byte-compile url-http.el?

I'm running without any *.elc files until I get this figured out.