alias Check_Vignette {
.remove film.txt
.remove out.txt
sockclose code_html
sockopen code_html www.cinemotions.com 80
}
on *:sockopen:code_html:{
sockwrite -n code_html GET /recherche/ $+ %titre-du-film $+ .html HTTP/1.1
sockwrite -n code_html User-agent : Mozilla/5.0
sockwrite -n code_html Host: www.cinemotions.com
sockwrite -n code_html Connection: Keep-Alive
sockwrite -n code_html $str($crlf,2)
}
on *:sockread:code_html: { sockread &a | bwrite film.txt -1 -1 &a }
on *:sockclose:code_html:{
filter -c film.txt out.txt *<img src="/vignettes/affiche*.jpg*
tokenize 34 $read(out.txt,1)
set %url-vignette $2
}