Борьба с закупочными аппаратами и автоматизация подтверждения ссылок

[troll]

Тем, кто хочет автоматизировать процесс подтверждения и его не устраивает автомат сапы - просто скрипт. Его можно допилить если руки из правильных мест растут. Скрипт "пробегается" по ссылкам и подтверждает все, что заказал оптимизатор (кроме найденного по стоп-хэшу)и удаляет неподтвержденные ссылки. Ставите его в cron с запуском, например, раз в час начинаете "косить" все. По факту таким скриптом вы даете шанс ручной закупке и вас будут меьше раздражать мертвые автоматы.

#!/usr/bin/perl -w

use strict;
use XMLRPC::Lite;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use HTTP::Cookies;
use Data:umper;
use utf8;

my $login = 'ваш_логин_в_Сапе';
my $pass = md5_hex('ваш_парол_в_Сапе');

# Это урл api sape, чтобы использовать https - пишите в саппорт, чтобы вам его открыли
my $sape_url = 'http://api.sape.ru/xmlrpc/';
#my $sape_url = 'https://api.sape.ru/xmlrpc/?v=extended';

# тут добаляете стоп-слова и стоп-знаки )
my %stop = (
1 => 'і',
2 => 'є',
3 => 'ї',
4 => 'І',
5 => 'Є',
6 => 'Ї',
8 => '.by',
8 => '.com',
9 => '.ru',
10 => '.info',
11 => '.рф',
12 => '063',
13 => '066',
14 => '050',
15 => '095',
);


my $cookies = HTTP::Cookies->new(ignore_discard => 1);

my $xmlrpc = XMLRPC::Lite->proxy($sape_url, cookie_jar => $cookies);
my $call = $xmlrpc->call('sape.login', $login, $pass, 1) ;

$call = $xmlrpc->call('sape.get_sites', [1,1,1,0,0]);
my $sites= $call->result;

print "\n=====Типа начали=====\n";
my $cnt = 1;
foreach my $site (@$sites) {
sleep 0.5;
print "$cnt $site->{id} = $site->{url}\n";

# Get links for current id
my $links = $xmlrpc->call('sape.get_site_links', $site->{id}, ['status',0,0,0,0,0,0,0]);

if (scalar(@{$links->result})) {
# check WAIT links
foreach my $link (@{$links->result}) {
# Approve WAIT_WM links if exists
if ($link->{status} eq 'WAIT_WM') {
my $stopflag = 0;
foreach (keys %stop) {
my $stop = $stop{$_};
# $_ = convert_to_regexp($_);
if ($link->{txt} =~ /$stop/) {
$stopflag = 1;
last;
}
}
unless ($stopflag) {
# approve WAIT link
my $var = SOAP:ata->type(string => $link->{id});
my $approve = $xmlrpc->call('sape.placements_accept_wm', $var);
print "\t\t approve $link->{status} $link->{id} $link->{url} \n\t\t $link->{txt} \n";
print "\t\t $approve->{fault} \n";
}
else {
# delete WAIT_SEO link
my $var = SOAP:ata->type(string => $link->{id});
my $del = $xmlrpc->call('sape.placement_delete', $var);
print "\t\t del $link->{status} $link->{id} $link->{url} \n\t\t $link->{txt} \n";
print "\t\t $del->{fault} \n";
}
}
# Delete WAIT_SEO links if exists
elsif ($link->{status} eq 'WAIT_SEO') {
# delete WAIT_SEO link
my $var = SOAP:ata->type(string => $link->{id});
my $del = $xmlrpc->call('sape.placement_delete', $var);
print "\t\t del $link->{status} $link->{id} $link->{url} \n\t\t $link->{txt} \n";
print "\t\t $del->{fault} \n";
}
sleep 0.5;
}

}
$cnt++;
}

exit;


вот и все, запускать можно хоть со своего компьютера, главное чтобы у ваc был установлен perl (это для виндовозных машин). Удачи!