patcher для rtorrent, на основе патчера псевдотрекер |
Здравствуйте, гость ( Вход | Регистрация )
patcher для rtorrent, на основе патчера псевдотрекер |
5.3.2009, 21:53
Сообщение
#1
|
|
Участник Группа: Пользователи Сообщений: 27 Регистрация: 22.2.2009 Пользователь №: 569 |
Версия 1.1
Конфиг: Код /usr/local/scripts/tr_patcher/>more patcher.conf # Директория, за которой следит patcher. fdirectory = /data/rtorrent/torrents # Директория, в которую patcher скидывает торренты после добавления ретрекеров. tdirectory = /data/rtorrent/.torrents # Директория session из конфига rTorrent sdirectory = /data/rtorrent/.session # Город gorod = 2 # Провайдер prov = 1 Опции запуска: Код Проверяет папку fdirectory на наличие торрентов, патчит найденные и сохраняет в tdirectory. ./patcher.pl -p Код Патчит уже добавленныe в rTorrent торренты (перед запуском нужно остановить rTorrent). ./patcher.pl -c Код Обновляет список ретрекеров и проверяет их доступность. ./patcher.p -u При первом запуске автоматически обновляет список ретрекеров и проверяет их доступность. Для работы нужен перл собранный с поддержкой threads и модули LWP::Simple Text::Iconv. скачать -------------------- | Перово | Ивановское| Новогиреево | Новокосино | | Тыкалка | |
|
|
10.4.2009, 23:55
Сообщение
#2
|
|
Участник Группа: Пользователи Сообщений: 27 Регистрация: 22.2.2009 Пользователь №: 569 |
как то так....
Код if ($opt eq "update") {
use LWP::Simple; use IO::Socket; @list = split(/\n/, (get "http://re-tracker.ru/resume.php?tr_list=1&city=+$gorod&isp=+$prov")); @list = sort(@list); binmode STDOUT,":bytes"; my $p = ""; my $out = ""; for $t(@list) { next if $t eq $p; $p=$t; $t=~m#//(.+?):(\d+)/#; $s=new IO::Socket::INET(PeerAddr=>$1,PeerPort=>$2,Timeout=>2); if($s) { $out .= "$t\n"; close $s; } } open (RTR, ">$file_txt"); print RTR "$out"; close (RTR); exit 0; } -------------------- | Перово | Ивановское| Новогиреево | Новокосино | | Тыкалка | |
|
|
Текстовая версия | Сейчас: 27.9.2024, 9:53 |