VPS makinemde torrent up down yapiyorum makinede utorrent kurulu makineye utorrentin WebUI arayuzu ile baglaniyorum oradan torrent ekleyip kaldirip silebiliyorum www.torrentleech.org trackerinden genelde torrentleri up down yapiyorum ve irc.torrentleech.org:7011 e baglanip #torrentleech kanalindaki _announcebot_ tarafindan gonderilen otomatik yeni torrentleri hizli bir sekilde VPS deki utorrente gonderip down sonrada up yapiyorum ornegin soyle anons yapiyor bot
[11:01] <+_AnnounceBot_> New Torrent Announcement: <NonScene/BRRip-XviD> Name:'Ip Man 2 2010 720p [CANTONESE] BDRip XviD AC3-ViSiON' uploaded by 'oZi_TL' - http://www.torrentleech.org/details.php?id=235670
kullandigim scriptte bunu gorup hemen download edip VPS deki makineme gonderiyo ve down ardindan up gerceklesiyo aslinda gerceklesmiyo cunki calismiyo aslinda iyikide calismiyo
Benim ihtiyacim olana gelince bot her anons yaptiginda bir uyari sesi calsin istiyorum mIRC bu nasil olur? Script asagida..
on *:TEXT:*:#torrentleech: {
tokenize 32 $strip($1-)
if (!$readini(tl.ini,settings,enabled)) || ($nick != _AnnounceBot_) { halt }
var %inline = ^(?i)New Torrent Announcement: <(.*?)> Name:'(.*)' uploaded by '.*?' - http://www.torrentleech.org/details.php\?id=(\d+)
if ($regex($1-, %inline)) {
var %tlsec1 = $regml(1)
var %tlsec = $replace(%tlsec1, ISO,_ISO)
var %tlrls1 = $regml(2)
var %tlrls = $replace(%tlrls1,$chr(32),.)
var %tlurl = $right($gettok($1-,$calc(%t - 2) - %t,32),-2)
var %tlid1 = $right(%tlurl,7)
var %tlid = $replace(%tlid1,=,/)
}
if (!$readini(tl.ini,%tlsec,filters)) { halt }
var %filter = 1
while ($gettok($readini(tl.ini,%tlsec,filters),%filter,59)) {
if ($v1 iswm %tlrls) {
var %except = 1
while ($gettok($readini(tl.ini,%tlsec,except),%except,59)) { if ($v1 iswm %tlrls) { halt }
inc %except }
tldl %tlid %tlsec %tlrls %tlurl
halt
}
inc %filter
}
}
alias tldl {
if (!$window(@Downloads)) { window -k0z @Downloads }
var %tldlurl = http://www.torrentleech.org/download_rss.php $+ $1 $+ / $+ $readini(tl.ini,settings,passkey) $+ / $+ $3 $+ .torrent
timerut $+ $3 1 60 utorrent.add $readini(tl.ini,webui,ip) $readini(tl.ini,webui,port) $readini(tl.ini,webui,user) $readini(tl.ini,webui,pass) $replace(%tldlurl,&, $chr(37) $+ 26)
noop $tip(TL,TL Download:,$3,30)
aline @Downloads $time(hh:nn:ss TT) $+ 10: 14( 3TL 14|3 $2 14) 14- 11 $3 14(13 $4 14)
}
alias utorrent.add {
if (!$5) { return }
var %sockname ut.add. $+ $rand(1,999999)
sockopen %sockname $1 $2
sockmark %sockname $3-
}
on *:sockopen:ut.add.*:{
if ($sockerr) {
aline @Downloads $time(hh:nn:ss TT) $+ 10: 11 %tlrls 2 (Error connecting to WebUI)
halt
}
sockwrite -t $sockname GET /gui/?action=add-url&s= $+ $gettok($sock($sockname).mark, 3-, 32) HTTP/1.1
sockwrite -t $sockname Host: $sock($sockname).addr $+ : $+ $sock($sockname).port $+ $crlf
sockwrite -t $sockname Authorization: Basic $encode($replace($gettok($sock($sockname).mark, 1-2, 32), $chr(32), :), m) $+ $crlf
sockwrite -t $sockname $crlf
sockclose $sockname
}