CPAN Finance::Quote::Sberbank - Модуль для получения котировок ОМС Сбербанка

Выложил свои труды на CPAN. Теперь любой желающий сможет это установить.

kilork@pantogan:~$ cpan

cpan> i Finance::Quote::Sberbank
Strange distribution name [Finance::Quote::Sberbank]
Module id = Finance::Quote::Sberbank
    CPAN_USERID  KILORK (Alexander Korolyoff )
    CPAN_VERSION 0.01
    CPAN_FILE    K/KI/KILORK/Finance-Quote-Sberbank-0.01.tar.gz
    MANPAGE      Finance::Quote::Sberbank - Obtain quotes from Sberbank (Savings Bank of  the Russian Federation)
    INST_FILE    /home/kilork/perl/share/perl/5.8.8/Finance/Quote/Sberbank.pm
    INST_VERSION 0.01


cpan> install Finance::Quote::Sberbank

Сразу, правда, в gnucash это не заработает - требуется немного магии. Магия заключается в том, что надо поправить сам Finance::Quote и добавить туда загрузку модуля, выглядит это приблизительно так:

kilork@pantogan:~/perl/share/perl/5.8.8/Finance$ diff Quote.pm~ Quote.pm -u
--- Quote.pm~ 2008-10-26 11:15:50.000000000 +0300
+++ Quote.pm 2009-01-08 11:13:02.000000000 +0300
@@ -170,7 +170,7 @@
          DWS FTPortfolios Fidelity FinanceCanada Fool HEX IndiaMutual
          LeRevenu ManInvestments NZX Platinum SEB StockHouseCanada
          TSP TSX Tdefunds Tdwaterhouse Tiaacref Troweprice Trustnet Union
-         USFedBonds VWD ZA Cominvest Finanzpartner
+         USFedBonds VWD ZA Cominvest Finanzpartner Sberbank
          Yahoo::Asia Yahoo::Australia Yahoo::Brasil
          Yahoo::Europe Yahoo::NZ Yahoo::USA/; }

Т.е. просто дописываем модуль в список загружаемых. В данном примере подразумевается, что cpan для пользователя настроен на локальную директорию в папке пользователя, и туда же установлены модули Finance::Quote и Finance::Quote::Sberbank. Подробнее о настройке установки модулей в локальную директорию можно посмотреть здесь. Я пока сомневаюсь, что мой модуль включат в официальный дистрибутив, так что пока так.

UPDATE: Внимательно прочитал модуль, можно сделать гораздо проще, надо назначить переменную окружения:
FQ_LOAD_QUOTELET="-defaults Sberbank"

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

kilork@mexidol ~$ FQ_LOAD_QUOTELET="-defaults Sberbank" gnucash finans

Итак, если мы все сделали правильно, то в gnucash->Инструменты->"Редактор ценных бумаг" можно будет настроить следующее:




Теперь, надеюсь более подробно описать собственно сам процесс разработки новых модулей для gnucash. Цепочка отработана.

UPDATE2: Добавил отдельный сайт для работы с котировками ОМС Сбербанка - пользовательский и программный интерфейс: http://kilork.blogspot.com/2012/01/sberbank-quotes.html.