Thread: Script irssi not working for scc why?

Hello, i use this script filled in the info but i can't get it work in fact no download start i used Mike tuto to join #announce my bot is here, but nothing start.
In my Irssi configuration in ruttorent i told irssi to use the script, filled the authkey,filled the manage irc server with all the infos etc..
Used script load command before my bot join the channel i dont get any error messages, checked everything, i cant see where is my problem .
If anyone can check the script and tell me if something is wrong that would help me a lot.
Thank you.







use Irssi;
use Irssi::Irc;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION="0.3";
%IRSSI = (
authors=> 'cyb',
name=> 'SCC',
description=> 'SCC Auto download script',
license=> 'GPL',
);
# Auto download script for SCC
#
# The script currently downloads all mp3, archive and 0day releases and matching filters of tv/xvid and movies/xvid releases
# You need wget and irc client irssi installed
#
# Install:
# 1. Edit the values below
# 2. Load irssi eg:
# $ irssi -c irc.sceneaccess.org
# 3. In irssi type /script load ~/.irssi/scripts/
scc.pl
# 4. Add $torrentdir to your rtorrent config to auto start torrents
# 5. join #announce and wait
# Change these to NO or YES depending on what you want to download
# Archive section
my $downloadpacks = "no";
# maximum pack size in GB eg, 200GB
my $packsize = 60;
# Movies/xvid section
my $downloadxvid = "yes";
# Tv section
my $downloadtv = "YES";
# mp3s section
my $downloadmp3s = "YES";
# apps/0day section
my $downloadapps = "yes";
# TV/DVDRiP
my $downloadtvdvdrips = "yes";
# Movies/X264
my $downloadmx264 = "YES";
# GAMES/PC_ISO
my $downloadgames = "YES";
# XXX
my $downloadxxx = "YES";
# X360
my $downloadx360 = "YES";
# DVDR
my $downloaddvdr = "NO";
# MP3 packs
my $downloadmp3packs = "NO";
# your passkey goes here
my $passkey = "puted my key here";
# where you want the torrents downloaded to
my $torrentdir = "/
.irssi/watch/";
# your filters go here - if the release has two words, you should put [_.] as some releases use _'s to seperate words instead of .'s
my$tvfilters="LOL|XOXO|XOR|2HD|LMAO|NoTV|0TV|FQM|S YS|DOT";
my$xvidfilters="DVDrip|R5";
my$tvx264filters="Battlestar|Numb3rs|Flashpoint|ps ych|Kyle[_.]XY|the[_.]Big[_.]Bang|Two[_.]and[_.]a[_.]half[_.]men|Desperate[_.]Housewives|Dexter|Heroes|Lost|House|24|Lie|South|D IMENSION|CTU|2HD";
my$mx264filters="||";
my$mp3filters="SCC";
##### END OF CONFIG #####
my $url = "http://www.sceneaccess.org/download2.php";
my $aurl = "http://www.sceneaccess.org/downloadbig2.php";
my $botnick = "
puted my user named added at end-bot";
my $botadd = "csops.sceneaccess.org";
sub event_privmsg {
my ($server, $data, $nick, $address) = @_;
my ($target, $text) = split(/ :/, $data, 2);
$text =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x16|\x06|\x07//g;
# download all mp3 releases
if ($downloadmp3s eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in MP3: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $release = $1;
my $id = $2;
system qq{wget -O "$torrentdir/$release.torrent" "$url/$id/$passkey/$release.torrent" > /dev/null 2>&1};
Irssi::print("%p[MP3]%n $release downloaded ($nick!$address)");
}
}
# download all apps/0day releases
if ($downloadapps eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in Apps\/0DAY: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $apprel = $1;
my $appid = $2;
system qq{wget -O "$torrentdir/$apprel.torrent" "$url/$appid/$passkey/$apprel.torrent" > /dev/null 2>&1};
Irssi::print("%C[APPS]%n $apprel downloaded ($nick!$address)");
}
}
# download all Music Videos releases
if ($downloadmp3s eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in Music\_Videos: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $apprel = $1;
my $appid = $2;
system qq{wget -O "$torrentdir/$apprel.torrent" "$url/$appid/$passkey/$apprel.torrent" > /dev/null 2>&1};
Irssi::print("%C[APPS]%n $apprel downloaded ($nick!$address)");
}
}
# download all XXX releases
if ($downloadxxx eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in XXX: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $apprel = $1;
my $appid = $2;
system qq{wget -O "$torrentdir/$apprel.torrent" "$url/$appid/$passkey/$apprel.torrent" > /dev/null 2>&1};
Irssi::print("%C[XXX]%n $apprel downloaded ($nick!$address)");
}
}
# download all TV/DVDRip releases
if ($downloadtvdvdrips eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in TV\/DVDRiP: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $apprel = $1;
my $appid = $2;
system qq{wget -O "$torrentdir/$apprel.torrent" "$url/$appid/$passkey/$apprel.torrent" > /dev/null 2>&1};
Irssi::print("%C[APPS]%n $apprel downloaded ($nick!$address)");
}
}
# download all X360 releases
if ($downloadx360 eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in Games\/XBOX360: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $apprel = $1;
my $appid = $2;
system qq{wget -O "$torrentdir/$apprel.torrent" "$url/$appid/$passkey/$apprel.torrent" > /dev/null 2>&1};
Irssi::print("%C[XBOX]%n $apprel downloaded ($nick!$address)");
}
}
# download all DVDR releases
if ($downloaddvdr eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in Movies\/DVDR: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $apprel = $1;
my $appid = $2;
system qq{wget -O "$torrentdir/$apprel.torrent" "$url/$appid/$passkey/$apprel.torrent" > /dev/null 2>&1};
Irssi::print("%C[DVDR]%n $apprel downloaded ($nick!$address)");
}
}
# download matching tv/xvid releases
if ($downloadtv eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in TV\/XviD: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $tvrel = $1;
my $tvid = $2;
if ($tvrel =~ /.*$tvfilters.*/i) {
system qq{wget -O "$torrentdir/$tvrel.torrent" "$url/$tvid/$passkey/$tvrel.torrent" > /dev/null 2>&1};
Irssi::print("%G[TV]%n $tvrel downloaded ($nick!$address)");
}
}
}
# download all MP3 packs
if ($downloadmp3packs eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in MP3: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $mp3rel = $1;
my $mp3id = $2;
if ($mp3rel =~ /.*$mp3filters.*/i) {
system qq{wget -O "$torrentdir/$mp3rel.torrent" "$url/$mp3id/$passkey/$mp3rel.torrent" > /dev/null 2>&1};
Irssi::print("%G[mp3pack]%n $mp3rel downloaded ($nick!$address)");
}
}
}
# download matching tv-x264 releases
if ($downloadxvid eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in TV\-X264: -> (.*) \(Uploaded.*pre\) - \(.* (.*)\) - \(.*details\.php\?id=(.*)\)/))
{
my $movierel = $1;
my $moviesize = $2;
my $movieid = $3;
if (($movierel =~ /.*$tvx264filters.*/i)) {
system qq{wget -O "$torrentdir/$movierel.torrent" "$url/$movieid/$passkey/$movierel.torrent" > /dev/null 2>&1};
Irssi::print("%R[XviD]%n $movierel downloaded ($nick!$address)");
}
}
}
# download matching MOVIES/xVIDS releases
if ($downloadxvid eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in Movies\/XviD: -> (.*) \(Uploaded.*pre\) - \(.* (.*)\) - \(.*details\.php\?id=(.*)\)/))
{
my $movierel = $1;
my $moviesize = $2;
my $movieid = $3;
if (($movierel =~ /.*$xvidfilters.*/i)) {
system qq{wget -O "$torrentdir/$movierel.torrent" "$url/$movieid/$passkey/$movierel.torrent" > /dev/null 2>&1};
Irssi::print("%R[XviD]%n $movierel downloaded ($nick!$address)");
}
}
}
# download matching Movies-x264 releases
if ($downloadmx264 eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in Movies\/X264: -> (.*) \(Uploaded.*pre\) - \(.* (.*)\) - \(.*details\.php\?id=(.*)\)/))
{
my $movierel = $1;
my $moviesize = $2;
my $movieid = $3;
if (($movierel =~ /.*$mx264filters.*/i)) {
system qq{wget -O "$torrentdir/$movierel.torrent" "$url/$movieid/$passkey/$movierel.torrent" > /dev/null 2>&1};
Irssi::print("%R[XviD]%n $movierel downloaded ($nick!$address)");
}
}
}
# download all GAMES/ISO releases
if ($downloadgames eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in Games\/PC_ISO: -> (.*) \(Uploaded.*details\.php\?id=(.*)\)/))
{
my $apprel = $1;
my $appid = $2;
system qq{wget -O "$torrentdir/$apprel.torrent" "$url/$appid/$passkey/$apprel.torrent" > /dev/null 2>&1};
Irssi::print("%C[APPS]%n $apprel downloaded ($nick!$address)");
}
}
# download all packs (archive section) releases
if ($downloadpacks eq "YES") {
if (($address =~ /$botadd/) && ($nick =~ /$botnick/) && ($text =~ /NEW in .*\/Packs\: -> (.*) \((.*) GB\) - \(.*id=(.*)\)/i)) {
my $archsize = $2;
my $packrel = $1;
my $packid = $3;
if ($archsize < $packsize) {
system qq{wget -O "$torrentdir/$packrel.torrent" "$aurl/$packid/$passkey/$packrel.torrent" > /dev/null 2>&1};
Irssi::print("%R[PACKS]%n $packrel downloaded ($nick!$address)");
}
}
}
　
}
Irssi::signal_add("event privmsg", "event_privmsg")

I just scanned the script quickly, but do you have a vhost registered?
If not, are you sure that you are monitoring the #announce channel?
On the SCC website click on the IRC tab and then 'invite' and it will automatically force you in to the specified channels.
This will only work if your bot uses the sitenick.


Ohhh. I just saw that you use the rutorrent plugin. Do you get any error messages? Is it working with other trackers?
In the autodl-irssi tab (next to the logger tab) it should say 'monitoring channel SCC #announce' or something like that.

You need to provide this kind of information.
If someone doesn't beat me and your problems hasn't already been solved, I will take a closer look into your script in a couple of hours, but first I need some sleep.

Don't think thats the rutorrent plugin, because I use autodl without rutorrent gui, manually configured, and my config file looks nothing like that, pretty sure thats a custom irssi script someone made up just for scc. That being said, I'm not familiar with this script, so I can't help you, but I can tell you if you use autodl-irssi it works fine in my case.