Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: fuckanonimus on July 13, 2015, 10:55:23 PM

Title: чекер редиректов
Post by: fuckanonimus on July 13, 2015, 10:55:23 PM

Подскажите  , как средствами Clickermann написать чекер редиректов

есть исходный файл redirect.txt с ссылками, например:

http://goo.gl/7glQIv

если по ней перейти и она средиректит на yandex.ru то сохраняем ее в good.txt

возможно это реализовать через HTTPGET  ?

Title: Re: чекер редиректов
Post by: Oraven on July 14, 2015, 07:18:14 AM

Да можно.

Вот нашел сервис для декодирования коротких ссылок http://untiny.me (http://untiny.me)

А вот как это выглядит для функции httpget. Расшифрованный url выводится в логе.

Code: (clickermann) [Select]

$rd = "http://goo.gl/7glQIv" // сокращенная ссылка
$str = httpget(STRCONCAT("http://untiny.me/api/1.0/extract?url=", $rd, "&format=text"))
LOGWRITE ($str) // результат
LOGSHOW (1)

HALT
А вот и сам чекер

Code: (clickermann) [Select]

$poisk = "yandex.ru"

$count = TFCOUNT("redirect.txt")+1
FOR($a=1,$a<$count)
   $rd = TFREAD("redirect.txt", $a)
   $str = httpget(STRCONCAT("http://untiny.me/api/1.0/extract?url=", $rd, "&format=text"))   
   IF(STRPOS($str, $poisk) > 0)
      TFWRITE("good.txt", $rd)
   END_IF     
END_CYC
HALT

Title: Re: чекер редиректов
Post by: fuckanonimus on July 14, 2015, 12:42:45 PM

Oraven, благодарю за ответ!  :)