Request for Test: Emacs URL

Ivan8209



(require 'url)

(url-retrieve "http://ya.ru/" 

	      (lambda (status)

		(display-buffer (current-buffer

(emacs-version t)

Особенно интересуют версии: 21.3, 21.4, 22.0.50.1.
Если кто-то до сих пор использует XEmacs, то и там проверьте.
---
A20: это не повод его не апгрейдить.

Landstreicher

выводит #<buffer *http ya.ru:80*>, внизу открывается окно, в нем HTML-страница (в виде простого текста, без парсинга разметки).
(emacs-version t)
GNU Emacs 22.0.92.1 (x86_64-pc-linux-gnu)
of 2007-01-14 on nautilus, modified by Debian

Ivan8209

А можешь ещё проверить вот это:


(cd /path/to && wget 'http://cvs.savannah.gnu.org/viewcvs/*checkout*/emacsweblogs/weblogger/lisp/xml-rpc.el')





(load-library "/path/to/xml-rpc.el")

(xml-rpc-method-call "http://time.xmlrpc.com/RPC2"

		     'currentTime.getCurrentTime)

---
...Я работаю антинаучным аферистом...

qsk78

А зачем параметр status? Если с ним, то не работает.
Если без него, то:


HTTP/1.1 200 OK

Content-Type: text/html; charset=windows-1251

ETag: "-871271307"

Accept-Ranges: bytes

Last-Modified: Mon, 25 Dec 2006 13:49:27 GMT

Content-Length: 2377

Date: Mon, 15 Jan 2007 12:19:49 GMT

Server: httpd



<html>

<head>

<title>Яndex</title>

<link rel="SHORTCUT ICON" href="/favicon.ico" />

<base target="_top" />

<style type="text/css">

* {font-size:100.01%}

body {font-size:0.8em}

body, a {color:#999999}

form {margin:0}

a:hover, div a, div i {color:#000000}

div a {color:#000000;text-decoration:none}

div a span, div a i {text-decoration:underline;font-style:normal;}

div a:hover {color:#ff0000}

table table

{

max-width:1000px;

width:60%;

width:expression(document.body.clientWidth > 1600 ? '1000px' : '60%');

}

table table td {padding:0.25em}

#text {width:100%}

#text * {width:100%}

div {padding:2em 0 2em 20px;width:400px;//width:250px;}

p {padding:5em 2em 2px 2em;margin:0}

</style>

<style type="text/css" media="handheld">

body {padding:0.5em;margin:0}

tr, td {display:block}

table, table table, td, div, p {padding:0;height:auto;width:100%;text-align:center}

#text * {width:180px}

input {margin:0.5em 0}

</style>

</head>

<body bgcolor="#ffffff" onload="if(self.parent.frames.length!= 0) self.parent.location=document.location; else document.web.text.focus;">

<table border="0" width="100%" height="100%">

<tr>

<td align="center" colspan="2">

<form name="web" method="get" action="http://www.yandex.ru/yandsearch">

<input type="hidden" name="rpt" value="rad" />



<table border="0">

<tr>

<td><a href="http://www.yandex.ru/"><img src="logo.gif" width="76" height="44" border="0" alt="Яндекс" /></a></td>

<td id="text"><input type="text" name="text" size="50" maxlength="300" /></td>

<td><input type="submit" value="Найти!" /></td>

</tr>

<tr>

<td colspan="3"><div><a href="http://mail.yandex.ru"><span>Почта</span><i> @</i></a></div></td>

</tr>

</table>

</form>



<script language="JavaScript">

setTimeout(function{

var img = new Image;

img.src = 'http://www.tns-counter.ru/V13a***R>' + document.referrer.replace(/\*/g,'%2a').substring(0,256) + '*yandex_ru/ru/CP1251/tmsec=yandex_ya/' + Math.random;

},1);

</script>

<noscript><img src="http://www.tns-counter.ru/V13a****yandex_ru/ru/CP1251/tmsec=yandex_ya/" alt="" /></noscript>



</td>

</tr>

<tr valign="bottom">



<td width="50%" height="1">

<p align="right">&copy; 1997&#151;2006 &laquo;<a href="http://www.yandex.ru/" class="copy">Яндекс</a>&raquo;</p>

</td>

<td width="50%">

<p>Дизайн&nbsp;&#151;&nbsp;<a href="http://www.artlebedev.ru/" class="copy">Студия Артемия Лебедева</a></p>

</td>

</tr>

</table>

</body>

</html> 



GNU Emacs 21.4.2 (i486-slackware-linux-gnu, X toolkit, Xaw3d scroll bars)

 of 2005-07-30 on midas

P. S. Пришлось поставить из-за этого emacs-url. Хоть он и входит теперь по умолчанию в emacs, в Slackware 10.2 этот пакет не включен.

Ober

+1, то есть, такая же херня получается =)
(emacs-version t)
GNU Emacs 22.0.92.1 (i686-pc-linux-gnu, GTK+ Version 2.10.6)
of 2006-12-31 on w5

Ivan8209

> А зачем параметр status?
Сложно сказать.
> Если с ним, то не работает.
Значит, надо писать "(lambda (&rest args) ...)".
> Если без него, то:
Спасибо.
> GNU Emacs 21.4.2 (i486-slackware-linux-gnu, X toolkit, Xaw3d scroll bars)
> of 2005-07-30 on midas
> P. S. Пришлось поставить из-за этого emacs-url.
Если не сложно, как ставил?
> Хоть он и входит теперь по умолчанию в emacs, в Slackware 10.2 этот пакет не включен.
---
...Я работаю...

Ober

(load-library "/path/to/xml-rpc.el") (xml-rpc-method-call "http://time.xmlrpc.com/RPC2" 'currentTime.getCurrentTime)

внизу вывело "20070115T04:57:25"

Ivan8209

А xml-rpc не проверял?
У меня даже url-retrieve не проходит, ибо "GNU Emacs 22.0.91.1 (i386--netbsdelf, X toolkit) of 2006-12-12" ---
повод апгрейдить.
---
...Я работаю...

Ivan8209

Спасибо!
---
...Я работаю...

Ober

> Если с ним, то не работает.
Значит, надо писать "(lambda (&rest args) ...)".
Откопал 22.0.50.1, там тоже, как я понял, надо "(lambda (&rest args) ...)".

qsk78

Если не сложно, как ставил?
Взял в сетке файл emacs-url-2001.11.08-7mdk.src.rpm, там внутри были исходники.
Ну, потом ./configure --prefix=~/emacs && make && make install.
Ставил в home т. к. прав нету.

Ivan8209

Странно. У меня получалось без "&rest".
Вот только это на машине без доступа, и версию я точно не помню.
Пойду проверять ntemacs.sf.net.
---
...Я работаю...

qsk78

Значит, надо писать "(lambda (&rest args) ...)".
Да, так работает.

Ivan8209

> Пойду проверять ntemacs.sf.net.
Их SFX валит мой WINE.
Если кто будет апгрейдиться или апгрейдился их версией, скажите, чему равен "x" в их "22.x".
---
...Я работаю...

Landstreicher

(load-library "/home/alex/tmp/8/xml-rpc.el")
t
(xml-rpc-method-call "http://time.xmlrpc.com/RPC2"
'currentTime.getCurrentTime)
"20070115T06:44:38"

Ivan8209

Если кто будет пользоваться XML-RPC отсюда, предупреждаю:
xml-rpc-method-call-async работает не так, как ожидается обладающим интуицией.
Надо пропинать патч.
---
...Я работаю антинаучным аферистом...
Оставить комментарий
Имя или ник:
Комментарий: