(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Luis Henrique Carneiro
Title=AdoroCinema
Description=Movie importation script for AdoroCinema
Site=www.adorocinema.com
Language=BR
Version=2.0 (27 Janeiro 2010)
Requires=3.5.1
Comments=
License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version.
GetInfo=1

[Options]
Link do site Oficial=0|0|0=Não|1=Sim

***************************************************)

program AdoroCinema;
uses StringUtils1,StringUtils7552;
var nomeFilme: string;


// simple string procedures

function ra(S : string) : string;
Begin
  S:=StringReplaceAll(S,'ç','c');
  S:=StringReplaceAll(S,'ã','a');
  S:=StringReplaceAll(S,'é','e');
  S:=StringReplaceAll(S,'í','i');
  S:=StringReplaceAll(S,'acute;','');
  S:=StringReplaceAll(S,'tilde;','');
  S:=StringReplaceAll(S,'cedil;','');
  S:=StringReplaceAll(S,'&','');
  Result := S;
End;

function StringReplaceAll(S, Old, New: string): string;
begin
 while Pos(Old, S) > 0 do
 S := StringReplace(S, Old, New);
 Result := S;
end;

Function ConvertNum(s: string) : string;
var
i: Integer;
s2, ch: string;
begin
    s := AnsiLowerCase(s);
    s2 := '';
    For i := 1 To Length(s) do
    begin
      ch := copy(s, i, 1);
      if ((ch >= '0') and (ch <= '9')) then
        s2 := s2 + ch;
    end;
    result := s2;
end;

procedure CutBefore(var Str: string; Pattern: string);
begin
 Str := Copy(Str, Pos(Pattern, Str), Length(Str));
end;
procedure CutAfter(var Str: string; Pattern: string);
begin
 Str := Copy(str, Pos(Pattern, Str) + Length(Pattern), Length(Str));
end;

// Loads and analyses page from internet
procedure AnalyzePage(Address: string);
var
 Page: TStringList;
begin
 Page := TStringList.Create;
 Page.Text := GetPage(Address);
 if Pos('>nome original:<', Page.Text) = 0 then
 begin
 ShowMessage('Nothing found.');
 Exit;
 end
 else
 begin
 PickTreeClear;
 PickTreeAdd('Search results:', '');
 AddMoviesTitles(Page);
 if PickTreeExec(Address) then
     AnalyzeMoviePage(Address);
 end
end;

procedure AnalyzeMoviePage(Address: String);
var
  Page: TStringList;
  LineNr, BeginPos: integer;
  value, value2: string;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  value2:=Address;

  value:=TextBetween(Page.Text,'site oficial</strong>:<a href="','" ');
  SetField(fieldURL, value + '     (' + value2 + ')' );

  value:=ra(TextBetween(Page.Text,'<title>',' - '));
  SetField(fieldTranslatedTitle, value);

  value:=ra(TextBetween(Page.Text,'original</strong>:','</'));
  SetField(fieldOriginalTitle, trim(value));

  value:=TextBetween(Page.Text,'amento</strong>:','</');
  SetField(fieldYear, trim(value));

  value:=TextBetween(Page.Text,' </strong> ','</p>');
  value:=TextBetween(value,'(',')');
  SetField(fieldCountry, trim(value));

  value:=TextBetween(Page.Text,'nero</strong>:','</');
  value:=ra(value);
  SetField(fieldCategory, trim(value));
 
  value:=TextBetween(Page.Text,'dura','/p>');
  value:=ConvertNum(TextBetween(value,'>','<'));
  SetField(fieldLength, trim(value));
 
  value:=TextBetween(Page.Text,'<strong>produ','/li');
  value:=ra(TextBetween(value,'>:','<'));
  SetField(fieldProducer, FullTrim(value));

  value:=TextBetween(Page.Text,'<li><strong>dire','/li');
  value:=ra(TextBetween(value,'>:','<'));
  SetField(fieldDirector, trim(value));

  value:=TextBetween(Page.Text,'elenco:','id="ficha_noticias"');
  value:=FormatText2(value);
  SetField(fieldActors, value);

  value:=TextBetween(Page.Text,'sinopse:</h4></div>','</p></div>');
  value:=ra(FormatText2(value));
  SetField(fieldDescription, value);

  value:=TextBetween(Page.Text,'tica do adorocinema</h4>','src="');
  value:=TextBetween(value,'Rate','"');
  SetField(fieldRating, value);

  value:=TextBetween(Page.Text,'thumb" src="','" width=');
  if (value <> '') and CanSetPicture then GetPicture(value);
  GetPicture(value);

end;

procedure AddMoviesTitles(ResultsPage: TStringList);
var
 Page: string;
 MovieTitle, MovieAddress : String;
begin
 Page := ResultsPage.Text;
 while Pos('>nome original:<', Page) > 0 do
 begin
 CutBefore(Page, '>nome original:<');
 MovieAddress := 'http://www.adorocinema.com/filmes' + TextBetween(Page, '<a href="http://www.adorocinema.com/filmes', '/#');
 CutBefore(Page, '<a href="http://www.adorocinema.com/filmes');
 MovieTitle := TextBetween(Page, 'title="', '">');
 MovieTitle := ra(MovieTitle);
 CutAfter(Page, '<span class="favoritos">');
 PickTreeAdd(MovieTitle, MovieAddress);
 end;
end;

begin
  PickListClear;
  nomeFilme := GetField(fieldTranslatedTitle);
  if (length(nomeFilme)=0) then
    nomeFilme := GetField(fieldOriginalTitle);
  if Input('Importar do Adorocinema', 'Escreve o nome do filme:', nomeFilme) then
  begin
    nomeFilme:=stringreplace(nomeFilme,' ','+');
    AnalyzePage('http://www.adorocinema.com/busca/?criteria='+nomeFilme);
  end;
end.