#! / USR / бен / Perl

## Название программы: make_sound_on_new_block.pl v1.0 (для GNU / Linux).
## (с) 2011, Томислав Dugandzic (neo101.org).
## Лицензия: GPLv2 (http://www.gnu.org/licenses/old-licenses/gpl-2.0.html).

## Описание:
## Этот сценарий Perl играет звук каждый раз, когда кто-то нашел новый Bitcoin блок. Запустите его в терминале и оставить ее работать.
## Он делает эти проверки один раз в секунду.
## Цель эта программа существует так, что пользователи Bitcoin могут делать другие вещи во время ожидания транзакции проверки, чтобы закончить. Звук будет воспроизводиться, когда сделано.
## Таким образом, мы не должны смотреть на клиента Bitcoin медленно и периодически видеть увеличение счетчика блока. Bitcoin обмены, как правило, не позволяют не использовать ваши биткойны до
## определенное количество новых блоков было получено, после сделки. В идеале этот вид звукового уведомления будет интегрирован в клиент Bitcoin. Но вы можете
## использовать это, пока кто-нибудь не реализует его в главном клиенте.
##
## Что нужно для этой работы:
## 1. Вам нужен переводчик программы Perl установлен.
## 2. Вы должны иметь "MPlayer" установленная программа.
## 3. Вы должны иметь этот PERL скрипт-файл в вашем файле ~ / .bitcoin / каталог.
## 4. Вы должны иметь ваш клиент Bitcoin обновить файл debug.log. Это в настоящее время (2011-08-19) уже так по умолчанию.
## 5. Вы должны иметь mp3 файл, который вы хотите воспроизвести, в ~ / .bitcoin / каталог.
## 6. Вы должны иметь ваш клиент работает Bitcoin.
## 7. Вы должны запустить этот скрипт на языке Perl из терминала и оставить ее работать.
##
## Я прокомментировал эту программу в деталях, так что программисты, которые не говорят на Perl легко может проверить, что это
## не пытается украсть файл wallet.dat или пытается быть плохим в других отношениях.

в то время как (){

  $ Cli_data = `хвост -n 1000 debug.log | Grep -i лучше | хвост -n 1`; ## Посмотрите на последние 1000 строк в файле debug.log, выбрать последнюю строку, и посмотреть, если есть какая-либо строка, которые описывают недавно найденный блок.
  
  $ Latest_block = $ cli_data;
  
  ## Закомментированная строка ниже, как ряд мы хотим найти, как выглядит:
  ## SetBestChain: новая лучшая = 00000000000007ac4781 высоты = 141545 работы = 85257364198960066368
  $ Latest_block = ~ / новый лучший * высота = (\ d {1,16}) /. ## Это и следующая строка пытается отфильтровать только номер блока из найденной строки. Он ищет любые цифры, которые содержат 1-16 цифр.
  $ Latest_block = $ 1;
  
  если ($ previous_block == UNDEF) {## Первый раз, когда мы проводим это время петли, нет старшего номера блоков, которые мы можем сравнить последний номер блока с.
  Распечатать "Уведомление звук будет воспроизводиться каждый раз, когда кто-то нашел новый блок. В настоящее время последний блок в вашем blockchain является: \"$ Latest_block \". \ П";
  $ Previous_block = $ latest_block; ## С этого момента, мы будем иметь более старый номер блока для сравнения недавно найдены те, с.
  }
  
  если ($ latest_block > $ Previous_block) {
  Распечатать "Кто-то нашел новый блок: \"$ Latest_block \". \ П";
  `MPlayer ./make_sound_on_new_block.mp3 2> / DEV / null`; ## Это команда, которая использует MPlayer для воспроизведения mp3 файлов.
  $ Previous_block = $ latest_block;
  }
    
  сон 1; ## Подождите одну секунду, прежде чем снова смотрит на файл debug.log.
 
}