(. *)<\ / Дел>$ /); }
  $ S + = 20; #The выше содержит почтовое тело и возможные цитируемый пользователя. Теперь увеличиваем 20 строк на следующий URL / Название комментария. 
  если ($ не цитировал [$ я]) {$ цитировал [$ я] = "никто"; }
  $ Содержание [$ я] = ~ s / (<ш \ />)/ /г;
  $ Содержание [$ я] = ~ s / (<[^>] *>)//г;
  #print $ журналы "Цитирование ($ цитировал [$ я]), Body [$ я]: \"$ Содержание [$ я] \"\ п";
  если (&isProcessedPost ($ пользователя, дата $ [$ я])) {возвращение; }
  если ($ сумма = &isMarking ($ содержание [$ я])) { &ProcessMarking ($ пользователей, $ цитирует [$ я], $ содержание [$ я], $ $ сумма, пост [$ я]); }
 }
}

суб ProcessMarking () {
 мой ($ potentialSender, $ potentialRecipient, $ тела, $ sendAmount, $ палить) = @_;
 мой ($ причина, $ precipient, $ newAmountS, $ newAmountR, $ противовесов, $ балансиром $ IdS, $ IDR, $ отправитель, получатель $);
 ## Установить получателя
 ($ Precipient) = $ = тело ~ / (?: \ S | \ A) @"(. *?)"(?: \ S | \ Z | \ г) / г;
 ($ Precipient) = $ = ~ тело /: | @ (\ S *) (: \ S | \ Z | \ г?) / Г, если ($ precipient), (\ S \ A?)
 если (! $ precipient && ($ PotentialRecipient экв 'никто')) {печать $ ФХ "Ошибка маркировки детектируется $ пользователем, но ни один реципиент не может быть установлен! \ П"; Выход (0); }
 если ($ precipient && $ PotentialRecipient эк 'никто') {$ potentialRecipient = $ precipient; }
 ## Установить причину
 ($ Причина) = $ тела = ~ /^(.*)?;/;
 ($ Причина) = $ = ~ тело /^(.{1,512})/ если ($ причина);
 ## Отправить информацию в базу данных
 $ Причина = ~ s /"/&Quot; / г;
 $ Причина = ~ s / '/ # 39; / г;
 $ Причина = ~ s />/> / г;
 $ Причина = ~ s / $ PotentialSender = (ЖЕ ($ potentialSender). "\ @btt");
 $ PotentialRecipient = (ЖЕ ($ potentialRecipient). "\ @btt");

 мой @arr;
 мой $ STH = $ db->подготовка ( 'SELECT * FROM WHERE счета bttname =?'); $ sth->выполнить ($ potentialSender); @arr = $ sth->fetchrow_array;
 если (@arr) {
  $ противовесов = $ обр [1]; $ Идентификаторы = $ обр [3]; $ Отправитель = $ potentialSender;
  $ NewAmountS = $ противовесов - $ sendAmount;
  если ($ newAmountS >= 0) {
   мой $ STH = $ db->подготовка ( 'SELECT * FROM WHERE счета bttname =?'); $ sth->выполнить ($ potentialRecipient); @arr = $ sth->fetchrow_array;
   если (@arr) {
    $ BALANCER = $ обр [1]; $ IDR = $ обр [3]; $ Реципиент = $ potentialRecipient;
    $ NewAmountR = $ Balancer + $ sendAmount;
    печать $ журналы "Вызов recordTransacion с ($ отправителя, получателя, $ $ newAmountS, $ newAmountR, $ причине, $ Plink) \ п";
    &recordTransaction ($ отправитель, получатель $, $ newAmountS, $ newAmountR, $ причина, $ sendAmount, $ палить);
   } Еще {
    мой $ potentialRecipientStripped = ($ potentialRecipient = ~ s / \ @ БТТ $ // г);
    #print $ potentialRecipientStripped;
    $ STH = $ db->подготовить ( 'SELECT, идентификатор из ALLUSERS, где более низкое (имя) =?'); $ sth->выполнить ($ potentialRecipientStripped); @arr = $ sth->fetchrow_array;
    если (@arr) {
     #print @arr;
     $ Реципиент = $ potentialRecipient; $ IDR = $ обр [0];
     $ STH = $ db->подготовить("INSERT INTO счета ЗНАЧЕНИЯ (\"\"\"0 \"\"$ PotentialRecipient \"\"$ Обр [0] \" )"); $ sth->выполнить ();
     $ NewAmountR = $ sendAmount;
     печать $ журналы "Вызов recordTransacion с ($ отправителя, получателя, $ $ newAmountS, $ newAmountR, $ причине, $ Plink) \ п";
     &recordTransaction ($ отправитель, получатель $, $ newAmountS, $ newAmountR, $ причина, $ sendAmount, $ палить);
    } Еще {печать $ ФХ "Не удалось загрузить $ potentialRecipient ID покушении сумма составила $ sendAmount \ п"; }
   }
  } Еще {печать $ ФХ "$ Отправителем, извините, не хватает средств. \ П"; }
 } Еще {печать $ ФХ "$ Отправителем, маркировка обнаружена, но пользователь не имеет учетной записи. \ П"; }
}

суб recordTransaction () {
 мой ($ отправитель, получатель $, $ newAmountS, $ newAmountR, $ причина, $ sendAmount, $ палить) = @_;
  $ STH = $ db->подготовить("INSERT INTO операций VALUES (\"$ Отправитель \"\"$ Получателя \"\"$ SendAmount \"\"$ Причина \" )"); $ sth->выполнить ();
  если ($ отправитель п $ реципиент) {
   $ STH = $ db->подготовить("UPDATE счета SET баланс = \"$ NewAmountS \" ГДЕ bttname = \"$ Отправитель \""); $ sth->выполнить ();
   $ STH = $ db->подготовить("UPDATE счета SET баланс = \"$ NewAmountR \" ГДЕ bttname = \"$ Получателя \""); $ sth->выполнить ();
   $ Ответ. = "$ Отправитель получил $ sendAmount ₥ до $ получателя. ($ Палить) \ п";
  } Еще {
    $ Ответ. = "$ Отправитель получил $ sendAmount ₥ себе. ($ Палить) \ п";
  }
}

к югу isMarking () \) /; #Regex, чтобы проверить, если пост разметки
 вернуть $ суммы;


суб isProcessedPost () {
 мой ($ postAcnt, $ постдатировать) = @_;
 мой $ STH = $ db->подготовка ( '? SELECT, имя, время от processedPosts где имя = и времени =?');
 $ sth->выполнить ($ postAcnt, $ постдатировать);
 мой @arr = $ sth->fetchrow_array;
 если (@arr) {вернуться 1; } #The транзакция уже была обработана таким образом вернуть.
 еще {
  $ db->делать( "INSERT INTO processedPosts VALUES (\"$ PostAcnt \"\"$ Постдатировать \" ) " ); #The транзакция не была обработана, поэтому добавьте его в обработанных списках, так как это Виль быть обработаны после.
  возвращать 0;
 }
}

суб loadHTML () {
 $ UID = сдвиг;
 $ URL = "https://bitcointalk.org/index.php?action=profile;u=" , $ Uid. "; Са = showPosts; WAP2; начать = 0";
 мой $ иа = LWP :: UserAgent->новый (ssl_opts => {Verify_hostname => 1});
 мой $ Рез = $ ua->получить ($ URL);
 @html = Раскол (/ \ п /, $ res->decoded_content);
}