
:- use_module(library(http/http_client)).
:- use_module(library('http/http_sgml_plugin')).

encontrar(X, [X|_]) .
encontrar(X, [Y|L]) :- encontrar(X,L) ; encontrar(X, Y).
encontrar(X, Y) :- not(Y=[_|_]), compound(Y), Y=..L, encontrar(X, L).

pegar_url(URL) :- 
    http_get(URL, DOM, [proxy('proxy.ufu.br',3128)]), DOM=[H|_], assert(H).


pegar_titulo(URL, Titulo) :- 
    pegar_url(URL),
    element(X,Y,Z), 
    encontrar(element(meta,A,_),Z), 
    A=[H|T], 
    H=..L, 
    L=[_,name,title],
    T=..TL,
    TL=[_,TL2|_],
    TL2=..[_,_,Titulo|_],
    retract(element(X,Y,Z)).

% exemplo de uso
% pegar_titulo('http://www.imdb.com/title/tt0068646/', Titulo).
