22.01.2015, 08:46 | #1 |
Специалист
Регистрация: 13.03.2007
Адрес: Кудыкина гора
Сообщений: 175
Вес репутации: 0
|
Борьба с закупочными аппаратами и автоматизация подтверждения ссылок
Тем, кто хочет автоматизировать процесс подтверждения и его не устраивает автомат сапы - просто скрипт. Его можно допилить если руки из правильных мест растут. Скрипт "пробегается" по ссылкам и подтверждает все, что заказал оптимизатор (кроме найденного по стоп-хэшу)и удаляет неподтвержденные ссылки. Ставите его в 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 (это для виндовозных машин). Удачи! |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматизация покупки ссылок в Sape | Mako | Вопросы по работе системы | 0 | 21.11.2011 11:20 |
Автоматизация отмены ссылок в статусе WAIT | dmitry81 | Вопросы по работе системы | 2 | 17.09.2011 10:04 |
Автоматизация продажи ссылок | Оптимайзер | Вопросы по работе системы | 6 | 09.08.2011 19:46 |
Автоматизация покупки контекстных ссылок | Толяныч | Пожелания пользователей системы | 2 | 25.08.2009 14:42 |
Автоматизация подтверждения заявок | gv0zd | Вопросы по работе системы | 8 | 17.03.2008 08:21 |
Часовой пояс GMT +3, время: 18:51.