"I am only an egg."

custom feed

Thu, 28 Feb 2008 14:48:38 GMT

Господа народ,

а подскажите, пожалуйста, есть ли в природе сервис аналогичный Yahoo Pipes, но Не! От! Yahoo!?

Я просто забыл свой яху ID, а их password restoration система надо мной издевается...

(Хочу сделать себе custom feed из haskell-cafe по ключевому слову "job".)

UFO soundtrack

Tue, 12 Feb 2008 08:33:57 GMT

Народ,

есть ли у кого саундтрек к `X-COM: UFO Defense'?..

Буду очень признателен. Хвалят его. :)

dl

Sat, 09 Feb 2008 22:32:55 GMT

http://lucidmedia.blogspot.com/

Симпатичный ресурс, на котором нашелся саундтрек к моему любимому The Hobbit (мульт. 1977 года).

Пробегитесь глазами, вдруг какую музыку себе найдете.

audioscrobbler: problem and solution

Fri, 08 Feb 2008 13:57:31 GMT

Several days ago (~05 Feb 2008) scrobbling audio tracks to last.fm stopped working.

What is scrobbling?

"Scrobbling a song means that when you listen to it, the name of the song is sent to Last.fm and added to your music profile."

Yep. I listen to music, a player sends track names to some server (post2.audioscrobbler.com), and you can see nice charts on my profile page.

Everything works fine until it breaks.

I suspected firewall (iptables) that had been enabled recently. But even without any firewall my player (amarok) continued displaying "Failed to submit several tracks to last.fm" error.

Fortunately, enforced with network tools (tcpdump and wireshark), I've found the proper google search keyword - BADAUTH - located in HTTP server response.

Googling was fruitful this time: the solution is to reset [the same] password at last.fm site.

"The reason for this was said to be that the hash on last.fm database for our password was corrupted due to some update on their database or something, so if you retype the password it should work."

Happy scrobbling!

enlarge your Haskell

Thu, 24 Jan 2008 13:59:59 GMT

Меня очень напрягает дурная работа и дурной язык программирования C++. За это платят, но беспросвет угнетающий.

Я очень хочу найти работу Haskell программиста. Только мне вначале нужно подтянуться, побольше на нем покодить... Трудно время находить - рутина высасывает энергию, - но нужно, иначе ж как.

* Ask Reddit: How do I get a job hacking Haskell all day?

()

Tue, 15 Jan 2008 09:02:48 GMT

Последнее сообщение викингов: "ВАЖНО! Опрос по ценностям бренда и лидерства"...

Отправляю их в Валгаллу: нечего Кобейна перекрывать.

Cursor*10

Sat, 05 Jan 2008 21:49:44 GMT

Народ, побавтесь:

[ via http://gaming.reddit.com/info/64hy6/comments/ ]

DISCLAIMER

Fri, 07 Dec 2007 15:53:31 GMT

Дорогие фрэнды!

Если вы обнаружили, что я от вас отписался, НЕ СМЕЙТЕ забивать себе голову вопросами "а почему?", "что я сделал не так?" и т.п.

Я вас по-прежнему люблю.
Я вас читаю через Google Reader.
Да идите в жопу! Что хочу, то и делаю.

;)

having fun with spam

Thu, 06 Dec 2007 15:56:02 GMT

Вы знаете, я теперь с нетерпением жду очередного бреда из корпоративной спам-рассылки.

Как только он приходит, викинги поют веселую песенку из оригинального монти пайтоновского скетча. Достигается добавлением в ~/.gnus.el следующих строчек:

(defun split-with-osd (split)
  (osd "Mail")
  split)

(defun split-with-vikings (split)
  (start-process "vikings" nil "play" "-q" "/home/vvv/downloads/spam-song.wav")
  split)

(setq nnmail-split-methods 'nnmail-split-fancy
      nnmail-split-fancy
      '(| (from "\\(recruitment\\|fooincbreak\\)@fooinc.com.ua"
                (: split-with-vikings "mail.spam"))
          (to "broadcast@fooinc.com.ua" (: split-with-vikings "mail.spam"))
          (from "servicedesk@fooinc.com.ua" (: split-with-osd "mail.sdesk"))
          (: split-with-osd "mail.misc")))

Ссылки:

песенка викингов (текст + .wav файл)
функция `osd'

XXX

Wed, 05 Dec 2007 13:21:04 GMT

Шутка.

Просто, увидев кат с этим текстом во френдленте, я очень удивился. У моей жены не настолько хорошо с английским.

Клацнув, увидел интригующее:

18	Adult Content Notice
The content that you are about to view may contain material only suitable for adults. To continue, you must confirm that you are at least 18 years of age.

По ТТХ я прохожу, поэтому нажал кнопку "Yes, I am at least 18 years old." Открылся вчерашний пост моей жены, я его уже читал, квадратных трехчленов не содержит...

~~Я так думаю, что LJ движок повёлся на присвоенный тэг — XX. Какой чудак, ей-богу. :)~~
UPD: Оказалось, мой чудный половина сконфигурила себя во взрослые, "шоб всякие малолетки не лазили"... Вернее, чтобы лазили, но сначала на кнопочку нажимали.

PS: И раз уж я взялся бложить о блогах, то не могу не показать весёлую песенку. Тоже на английском (как кстати!)

PPS: Пошлить, так пошлить. Отгадайте, кто это: красный, с яичками? [ответ]

Корпоративный слалом

Mon, 26 Nov 2007 14:08:30 GMT

Двери открываются одна за другой и народ начинает массово выходить в коридор, по которому ты пытаешься пройти с чашкой горячего чая (NB: зеленый практически не отстирывается).

Mon, 26 Nov 2007 13:38:04 GMT

Пора перестать париться. Нельзя ожидать разумного поведения от людей, которые не могут попасть в унитаз и не сливают за собой.

feeling smuggy smug smug smug

Wed, 14 Nov 2007 16:25:36 GMT

Господин назначил меня любимой женой!

(Subject отсюда.)

word of the day

Wed, 14 Nov 2007 09:01:45 GMT

From Jargon File (4.4.4, 14 Aug 2003) [jargon]:

creationism
 n.

   The (false) belief that large, innovative software designs can be
   completely specified in advance and then painlessly magicked out of
   the void by the normal efforts of a team of normally talented
   programmers. In fact, experience has shown repeatedly that good
   designs arise only from evolutionary, exploratory interaction between
   one (or at most a small handful of) exceptionally able designer(s) and
   an active user population -- and that the first try at a big new idea
   is always wrong. Unfortunately, because these truths don't fit the
   planning models beloved of management, they are generally ignored.

:t randomJHacker

Fri, 09 Nov 2007 20:25:49 GMT

Try to find yourself:

http://open.blogs.nytimes.com/2007/11/01/self-service-prorated-super-computing-fun/

:)

.py macros

Mon, 05 Nov 2007 14:59:46 GMT

Пишу тут юнит-тесты на Python и думаю, что язык очень выиграл бы, обзаведясь аналогом лисповых макросов...

хозяйке на заметку

Mon, 29 Oct 2007 17:11:57 GMT

Чтобы смахнуть паутину с web-журнала, оставлю ссылку на охоту за азевайзом.

Другое... другоэ... асталъное... Пусть будет прочерк (_).

picture of the week

Fri, 26 Oct 2007 12:28:19 GMT

;) Have fun.

import lists: explicit vs. implicit

Wed, 24 Oct 2007 08:28:11 GMT

Since the subject relates to holy wars, this post should stay in personal blog. ;)

There is a rather active thread in xmonad mailing list, concerning Haskell coding style guidelines. And a question about what kind of import lists is preferable - implicit or explicit - has been raised in particular.

I choose not to use explicit import lists. They are tedious to write, they lead to code which looks dirty, and they are headache to maintain.

And I don't agree with the argument that it is hard to find a particular definition without explicit lists. It is not. When a code is loaded into ghci, I can use the :info command to find a definition. I can use etags (ctags?) to jump between symbols in my favorite editor. And when I am stuck (or lazy), I use hoogle.

It is so simple, it should stay that way. Let compiler do its job.

Kestrel

Tue, 23 Oct 2007 16:02:06 GMT

~~Народ, засуньте свои броузеры в XXX — у Opera теперь есть синхронизация табов через Web!~~

Feel free to leave your comments below. :)

UPD: Нет, не табов. :( Только bookmarks, personal bar и speed dial.
Bloody browser.

Key That Was Lost, Galbadia

Fri, 05 Oct 2007 16:26:07 GMT

Не знаю, как кому, а мне иногда приятно слушать саунтреки к когда-то игранным компьютерным игрушкам. И сайт присмотрел, где этих саунтреков валом — Galbadia Hotel. Одно плохо — выкачивать неудобно.

Расскажу, в чем трудность. Выбрав саунтрек, вы попадаете на страничку со списком .mp3 файлов. Скачать все сразу нельзя — сайтодержцы проводят какую-то мутную политику completely free регистрации. Заветная кнопка "скачать все" не появляется, а ваш email улетает в неизвестном направлении.[1]

Выходи по одному? Попробуем. Кликаем "песенка 1". Открывается страничка первого .mp3, на ней — волшебная "click here" to download. Нажали, save, переключились с вкладки Transfers (у меня Opera), back на список треков. 5 кликов на файл, это для Fallout2 = 95 мышкокликов с промежуточным прицеливанием (для Tomb Raider game rip — 160).

Одну песенку тяну, на другую смотрю, третью примечаю, четвертая мерещится... Нормальный человек на 94-м клике сломается и откроет HTML списка файлов. Увидит, что URLы "песенных" страничек, хоть и вперемешку, но придерживаются общего шаблона — /song/<id саундтрека>/<порядковый номер файла>. Это хорошо, значит эти страницы легко вынуть wget'ом. Что дальше?

Открываем HTML код песенной страницы, ищем "click here". Гы, а его тут нет.[2] :) От соседей ("begin downloading"), по следу 'linkcode' выходим на что-то невыразимо прекрасное:

<script>
                var data = "var%20addr%20%3D%20%22http%3A%2F%2Fdl1.ffshrine.org%2Fsoundtracks%2Fdl%2F3574%2Fd3a00b%2FFallout%202%20Gamerip%2Fywnwm00_a_kiss_to_build_a_dream_on.mp3%22%3B%0Afunction%20decode%28address%29%20%7B%0Avar%20Address%20%3D%20%22%22%3B%0AAddress%20%3D%20address%3B%0AAddress%20%3D%20unescape%28Address%29%3B%0AAddress%20%3D%20Address.replace%28%2F%5C%2Fywnwm%2F%2C%20%22%2F%22%29%3B%0A%0A%0Afunction%20unescapesome%28thesome%29%20%7B%0A%09var%20newString%20%3D%20thesome%3B%0A%09newString%20%3D%20newString.replace%28%2F%253A%2Fg%2C%20%22%3A%22%29%3B%0A%09newString%20%3D%20newString.replace%28%2F%2527%2Fg%2C%20%22%27%22%29%3B%0A%09newString%20%3D%20newString.replace%28%2F%2528%2Fg%2C%20%22%28%22%29%3B%0A%09newString%20%3D%20newString.replace%28%2F%2529%2Fg%2C%20%22%29%22%29%3B%0A%09newString%20%3D%20newString.replace%28%2F%2521%2Fg%2C%20%22%21%22%29%3B%0A%09newString%20%3D%20newString.replace%28%2F%257E%2Fg%2C%20%22%7E%22%29%3B%0A%09return%20newString%3B%0A%7D%0A%0Adocument.getElementById%28%22linkcode%22%29.innerHTML%20%3D%20%22%3Ca%20href%3D%5C%22%22%20%2B%20unescapesome%28escape%28Address%29%29%20%2B%20%22%5C%22%3Eclick%20here%3C%2Fa%3E%22%3B%0A%7D%0A%0Adecode%28addr%29%3B%0A%0A%09%09";
                eval(unescape(data));
                </script>

Всё пропало! Холостяцким способом? Правой рукой по мышке?..

Everybody stand back. I know regular expressions.

#!/usr/bin/env perl

## Getting songs from http://gh.ffshrine.org/soundtracks/3574:
##
## for n in `seq 1 19`; do \
##   wget -O - http://gh.ffshrine.org/song/3574/$n | ./gh.pl; \
## done | wget -i -

use strict;
use warnings;
use URI::Escape qw(uri_unescape);

my (@sloc, $addr, @decodings);

while (<>) {
    next unless $_ =~ q/^\s*var data = "(.*)";$/;
    @sloc = split("\n", uri_unescape $1);
    last;
}

sub getAddr($) {
    my ($ln) = @_;
    die "Galbadia strikes back!\n$ln\n"
        unless $ln =~ /^var\ addr\ =\ (?:
                                       "(.+)";         # 0. ready to use `addr'
                                       |new\ Array\(\) # 1. to be gathered
                                      )$/x;
    return (defined $1 ? $1 : "");
}

unless ($addr = getAddr(shift @sloc)) {
    $addr .= $1 while (shift(@sloc) =~ /^addr\[\d+\] = "(.*)";$/);
}

foreach (@sloc) {
    next unless m|^.+Address\.replace\(/(.+?)/g?, "(.+?)"\);$|;
    push @decodings, [$1,$2];
}

$addr =~ s/$_->[0]/$_->[1]/g foreach (@decodings);
print "$addr\n";

Столько счастья. :") А сайтодержцам можно показать большую дулю.

P.S.: Как-нибудь однажды спросите меня, как я вышел на uri_unescape()...

Примечания

^{^} Наверняка он прилетит в БД спамеров, поэтому регистрируйтесь через ~~chroot-jail~~ одноразовый email.
^{^} С заклавной буквы не считается.

* * *

UPD: Ха! Алгоритм поменяли. :) "Недельки" у них, что ли...
Окей, Perl скрипт я обновил. [Sun, 07 Oct 2007 00:34:38 +0300]

* * *

UPD-2: Использовать eval слишком стрёмно — однажды напорешься на файл с именем "rm -rf *". Thanks to xrgtn.

diff -rN -u old-Galbadia/gh.pl new-Galbadia/gh.pl
--- old-Galbadia/gh.pl  2007-10-08 15:54:17.197266795 +0300
+++ new-Galbadia/gh.pl  2007-10-08 15:54:17.197266795 +0300
@@ -33,9 +33,9 @@
 }
 
 foreach (@sloc) {
-    next unless s|^.+Address\.replace\(/(.+?)/(g?), "(.+?)"\);$|s{$1}{$3}$2|;
-    push @decodings, $_;
+    next unless m|^.+Address\.replace\(/(.+?)/g?, "(.+?)"\);$|;
+    push @decodings, [$1,$2];
 }
 
-eval "\$addr =~ $_" foreach (@decodings);
+$addr =~ s/$_->[0]/$_->[1]/g foreach (@decodings);
 print "$addr\n";

find kiev -type company -print0 | xargs -0 grep -i haskell

Fri, 14 Sep 2007 06:39:14 GMT

Панове,
а знаете ли вы в Киеве конторы, где на Haskell софт пишут?

yet another message (not in the bottle this time)

Fri, 27 Jul 2007 17:00:44 GMT

A friend of mine asked for some Haskell starter links for vacation reading. Here they go...

Places to start:

a Gentle Introduction to Haskell 98
then some YAHT
and the `Gentle Introduction' again (it's much gentler now, have you noticed?)
http://www.haskell.org/haskellwiki/IO_inside

Short code examples you might be looking for:

http://www.haskell.org/haskellwiki/Simple_unix_tools

"All-included":

Haskell wikibook

Very good monadic reading:

Join the mailing list..

haskell-cafe (the community is healthy here)

..and read some

Haskell Weekly News

Hoogle is a very useful tool

http://haskell.org/hoogle
(you can install lambdabot and use hoogle offline)

Libraries you shouldn't miss:

Parsec
QuickCheck

And the Glorious Haskell Compiler itself

ghc (`g' stands for `Glasgow', to be honest)

Welcome, hacker.
And have fun. ;)

()

Mon, 18 Jun 2007 09:00:39 GMT

Довод в пользу QuickCheck — randomized controlled trial.

<- norvig.com

"Humans are very good at detecting patterns, but rather poor at detecting randomness."
-Peter Norvig, "Mistakes in Experimental Design and Interpretation"

<- science.reddit.com

Google Talk with emacs-jabber

Thu, 14 Jun 2007 13:49:41 GMT

We did it!

"We" includes my new friend Jun Jie: it's his blog where I found the missing variable (ta-dah!) — jabber-network-server.

(To self: RTFM, RTFM, MF!..)

With new settings

(setq jabber-username "valery.vv" jabber-server "gmail.com"
      jabber-network-server "talk.google.com"
      jabber-port 443 ; there is a firewall here
      jabber-connection-type 'ssl)

the connection succeeded.

...But another error manifested:

error in process filter: xml-parse-tag: XML: End tag for iq not found before end of region

This one was easier to handle. Here goes the patch:

--- /usr/share/emacs/21.4/lisp/xml.el   2001-10-18 23:19:51.000000000 +0300
+++ /home/vvv/.elisp/xml.el     2007-06-15 12:34:13.451906206 +0300
@@ -262,7 +262,7 @@
                    (set 'children (append children
                                           (list (xml-substitute-special string))))))))
              (goto-char (match-end 0))
-             (skip-chars-forward " \t\n")
+;;           (skip-chars-forward " \t\n")
              (if (> (point) end)
                  (error "XML: End tag for %s not found before end of region"
                         node-name))

Looks much better now. :-)

[previous post]