;===============================================================================
;
; Nume functie: trailer_movieclip()
; Descriere: Returneaza un numar (ID-ul trailerului pe site)
; Parametrii: $nume_film - Numele filmului (de pe IMDb)
; Valorile returnate: integer - ID-ul trailerului pe site
; In cazul in care nu gaseste trailer seteaza
; @error = 1
; Autor: Neagu Ionut (aka Smash)
;
;===============================================================================
Func trailer_movieclip($nume_film)
Local $raspuns, $temp, $link = StringReplace($nume_film, " ", "-"), $continut
Local $cale_fisier = @ScriptDir & "\trailer.txt"
InetGet("http://www.movieclip.ro/movie/" & $link & ".html", $cale_fisier)
$continut = FileRead($cale_fisier)
FileDelete($cale_fisier)
If StringInStr($continut, "data='http://www.movieclip.ro/flvplayer.swf'") <> 0 Then
$inceput = StringInStr($continut, "
")
$raspuns = StringMid($continut, $inceput, $sfarsit - $inceput)
SetError(0)
Return $raspuns
Else
$raspuns = ""
SetError(1)
Return $raspuns
EndIf
EndFunc ;==>trailer_movieclip
