|
#1
|
||||
|
||||
Torrent auto upload bot
Code:
Please note! If your tracker download path looks like this download/12/some.torrent.torrent then you will need to modify regex around line 78, If you need help just shout! Code:
#!/usr/bin/perl ############################ Semi auto upload bot, bot by firefly dan.oak44@gmail.com ############################# # Please note! You do not need to follow steps 3,4,5 if you are using Janis's script. # Create a new file called bot.pl and save it in /home/user/ and chown and chmod it #1 You will need CPAN module LWP::Simple and WWW::Mechanize #2 You also need Mktorrent apt-get install mktorent #3 You will also need to uncommand this line in your rtorrent.rc #4 schedule = watch_directory,5,5,load_start=./watch/*.torrent #5 Then create a new folder in your home folder where rutorrent is installed and chown and chmod. #6 Then edit the paths and login details make sure you leave out or add paths where needed # This is built for TBDEV but is very easy to mod you will need to check the Login section and Upload section. # USAGE: ./bot.pl [name] [10] [PATH/TO/RELEASE/FOLDER] Remember to point to folder not file inside other wise it will not seed. use strict; use warnings; use WWW::Mechanize; ## my $username = "firefly"; #Your tracker username my $password = "5821374"; #Your tracker password my $site_url = "http://freakleech.net"; #Tracker URL NO ending slash my $announce = "http://ann.fln.si/announce.php?passkey=7602dabe6e6b5f4e56d7a99f70a992dd"; #Announce URl NO ending slash my $tempwatch = "/home/bot2/tempwatch/"; #Watch folder MUST add ending slash my $watch = "/home/bot/watch/"; #Watch folder MUST add ending slash my $download = "/home/bot2/Downloads"; my $num_args = $#ARGV + 1; if ($num_args != 3) { print "\nCommand!: {RELEASE.NAME} {CAT_ID} {/home/user/downloads/RELEASE.NAME or FOLDER.NAME} \n"; print "\nUsage: ./auto.pl Ancient.Black.Ops.S01E03.HDTV.XviD-AFG 50 /home/user/downloads/Ancient.Black.Ops.S01E03.HDTV.XviD-AFG \n"; exit; } my $name=$ARGV[0]; my $cat=$ARGV[1]; my $tor=$ARGV[2]; my $namepre = "[FLN].$name"; system ("mktorrent -p -a $announce -o $tempwatch$name.torrent $tor"); #system (" ./rtorrent_fast_resume.pl $download < $tempwatch$namepre.torrent > $watch$namepre.torrent"); # LOGIN my $mech = WWW::Mechanize->new(); $mech->get("$site_url/login.php"); print "Logging Into site, Please Wait.\n"; #Alerts The User $mech->form_number(2); $mech->field('username', $username); $mech->field('password', $password); $mech->submit(); # Upload my $content = "$tempwatch$name.torrent"; print "Uploading..., Please Wait.\n"; #Alerts The User $mech->get("$site_url/upload.php"); #Loads Upload Page Into Mech $mech->field('file', $content); $mech->field('name', $name); $mech->field('descr', "Will be added later"); $mech->field('type', $cat); $mech->click(); my $txt = $mech->content; my $re1='(download.php\?id\=[1-9][0-9]*)'; #Get download and id my $re=$re1; if ($txt =~ m/$re/is) { my $int1=$1; my $rexout = "$int1 \n"; print $rexout; my $url = "$site_url/$rexout&hit=1"; my $local_file_name = "$watch$name.torrent"; $mech->get($url, ":content_file" => $local_file_name ); } print $mech->content;
__________________
Please Support Majority Report You can contact me on Skype live:phesadent.elect but please let me know first. If you are ever need me desperately then please email me at dan.oak44@gmail.com and I will contact u within a week. Due to free time I'm able to help interested member's with their tracker. Please Note! Depending on your requests I will charge you for my assistance for Tracker installs and mods. All my mods are custom and prices will very depending on the request. I'm able to install any tracker and mods including themes. Please PM me |
Tags |
auto , bot , torrent , upload |
|
|