чекер редиректов

[fuckanonimus]

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

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

http://goo.gl/7glQIv

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

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

[Oraven]

Да можно.

Вот нашел сервис для декодирования коротких ссылок 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

[fuckanonimus]

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