[REL][ES] New script: Cineol (+Culturalia) (ES).ifs

[icecubix]

Well, my little contribution for this fantastic program.
I Had made a script for www.cineol.net. The picture is taken from culturalia because the cineol's picture es ridiculous. I expect it like you.

IN SPANISH:
Bien, me explayo en castellano por que si no me dan las uvas (del 2010):

Esta es mi pequeña contribución para este fantástico programa.
He hecho un script para www.cineol.net. La imagen está cogida de culturalia, ya que la de cineol es ridícula. A mi me funciona perfectamente con todas las películas que encuentra, por lo tanto, y como no tengo ganas de tocarlo mas, ahi os lo dejo. Aun que por supuesto se puede optimizar, mejorar y sobretodo limpiar.

El modo "batch" no funciona como debiera, si no encuentra en la lista una pelicula exactamente con el mismo titulo no cojo ninguna, a menos que sea la única. ¿Por que? por que cineol no ordena la lista por orden de coincidencia y por lo tanto no puedo presuponer que la primera de la lista serà la que busco.

Saludos a todos y buen provecho:

Code: Select all

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

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

[Infos]
Authors=Icecubix
Title=Cineol (+Culturalia) (ES)
Description=Movie importation script for Cineol (picture from Culturalia).
Site=http://www.cineol.com + http://www.culturalianet.com
Language=ES
Version=1.0
Requires=3.5.0
Comments=La imagen la coje de Culturalia mediante Culturalia+IMDB.ifs, ya que es mucho mas grande y hay muchísimas. Hay código del script de FilmAffinity (ES).ifs. Los autores de ambos son David Arenillas, Antoine Potten and J.M. Folgueira, de Culturalia+IMDB.ifs y aviloria  (aviloria@yahoo.com) de FilmAffinity (ES).ifs
License=The source code of the script can be used in another program only if full credits to script author and a link to Ant Movie Catalog website are given in the About box or in the documentation of the program.
GetInfo=1

[Options]
BuscarCaratula=1|1|0=Solo busca información en CINEOL|1=Tambien busca la carátula en CULTURALIA
ModoBatch=0|0|0=Modo normal|1=Modo automático (batch). No pregunta nada ni muestra mensajes

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

program Cineol;

uses
  StringUtils1;

const
  BaseURLCulturalia = 'http://www.culturalianet.com/bus/catalogo.php';
  BaseURLCineol = 'http://www.cineol.net/pelicula.php?action=';
  BaseURLCineol2 = 'http://www.cineol.net/multisearch.php';

var
  MovieName: string;
  MovieURL: string;
  Title: string;
  i: integer;
  s11: string;
  buscarCaratulas: string;
  preguntarTitulo: string;
  minicaratula: string;
  BuscarCaratula, ModoBatch: Boolean;
  Page: TStringList;

//------------------------------------------------------------------------------------

function MiTextBetween(var S: string; StartTag: string; EndTag: string): string;
var
  InitialPos: Integer;
  a,b: string;
begin
  a := ansiLowerCase(StartTag);
  b := AnsiLowerCase(S);

  InitialPos := Pos(AnsiLowerCase(StartTag), AnsiLowerCase(S));
  Delete(S, 1, InitialPos + Length(StartTag) - 1);
  InitialPos := Pos(AnsiLowerCase(EndTag), AnsiLowerCase(S));
  result := copy(S, 1, InitialPos - 1);
  Delete(S, 1, InitialPos + 1);
end;

//------------------------------------------------------------------------------------

function EliminaInicio(S: string; CR: string): string;
begin
  result := S;
  while Pos(CR, result) = 1 do
  begin
    Delete(result, 1, Length(CR));
  end;
end;

function CadenaEntre(var S: string; StartTag: string; EndTag: string): string;
var
  InicioPos: Integer;
begin
  InicioPos := Pos(StartTag, S);
  Delete(S, 1, InicioPos + Length(StartTag) - 1);
  InicioPos := Pos(EndTag, S);
  result := copy(S, 1, InicioPos - 1);
  Delete(S, 1, InicioPos + 1);
end;

procedure BuscarCaratulaCulturalia;
var
  strTemp: string;
  Articles: array of string;
  Index: integer;
begin
  SetArrayLength(Articles,11);
  Articles[0]:='Lo ';
  Articles[1]:='La ';
  Articles[2]:='Le ';
  Articles[3]:='Uno ';
  Articles[4]:='Una ';
  Articles[5]:='Un ';
  Articles[6]:='El ';
  Articles[7]:='Los ';
  Articles[8]:='Las ';
  Articles[9]:='Unos ';
  Articles[10]:='Unas ';

  // Eliminate spanish article if exists
  for Index := 0 to 10 do
  begin
   if Pos(Articles[Index], MovieName) <> 0 then
   MovieName := copy(MovieName, length(Articles[Index]), length(MovieName));
  end;

  // Eliminate point(s) at final of MovieName before search
  strTemp := MovieName;
  if Copy(strTemp, Length(strTemp), Length(strTemp)) = '.' then
    MovieName := Copy(strTemp, 1, Length(strTemp) -1);
    
  AnalyzePageCulturalia(BaseURLCulturalia + '?catalogo=1&texto=' + UrlEncode(MovieName) + '&donde=1');
end;

procedure AnalyzePageCulturalia(Address: string);
var
  Page, TempTit: TStringList;
  LineNr: Integer;
  Code, Title, TitleOrig, Year: string;
  TitleFound: Boolean;
begin
  Page := TStringList.Create;
  TempTit := TStringList.Create;
  Page.Text := GetPage(Address);
  Page.Text := StringReplace(Page.Text, '<br>', #13#10);
  if Pos('No se ha encontrado ningún artículo por título', Page.Text) = 0 then
  begin
    if not ModoBatch then
    begin
       PickTreeClear;
       LineNr := 1;
       PickTreeAdd('CULTURALIA: Imagenes para: "' + MovieName + '"', '');
       while LineNr + 3 < Page.Count do
       begin
         Code := TextAfter(Page.GetString(LineNr), 'Codigo = ');
         Title := TextAfter(Page.GetString(LineNr+1), 'Titulo = ');
         TitleOrig := TextAfter(Page.GetString(LineNr+2), 'Titulo original = ');
         Year := TextAfter(Page.GetString(LineNr+3), 'Año = ');
         PickTreeAdd(Title + ' (' + TitleOrig + '), ' + Year, BaseURLCulturalia + '?catalogo=1&codigo=' + Code);
         LineNr := LineNr + 5;
       end;
       Page.Free;
       if PickTreeExec(Address) then
         AnalyzeMoviePageCulturalia(Address);
    end else
    begin
      LineNr := 1;
      TitleFound := True;
      Code := TextAfter(Page.GetString(LineNr), 'Codigo = ');
      Address := (BaseURLCulturalia + '?catalogo=1&codigo=' + Code);
      if TitleFound then
        AnalyzeMoviePageCulturalia(Address);
      Page.Free;
    end;
  end else
  if not ModoBatch then
    ShowMessage('No se ha encontrado ninguna coincidencia por título');
end;


procedure AnalyzeMoviePageCulturalia(Address: string);
var
  Page: TStringList;
  Comments: string;
  strTitle: string;
  strSinopsis: string;
  Line: string;
  LineNr: Integer;
  strTemp: string;
begin
  Page := TStringList.Create;
  Page.Text := StringReplace(GetPage(Address), '<br><br>', #13#10);
  Page.Text := StringReplace(Page.Text, '<br>', #13#10);
  LineNr := FindLine('Imagen = ', Page, 0);
  if LineNr <> -1 then
     GetPicture(TextAfter(Page.GetString(LineNr), 'Imagen = '));
  Page.Free;
end;

procedure CINEOL_BuscarInformacion;
var url: String;
  Articles: array of string;
  Index: integer;
begin
  SetArrayLength(Articles,11);
  Articles[0]:='Lo ';
  Articles[1]:='La ';
  Articles[2]:='Le ';
  Articles[3]:='Uno ';
  Articles[4]:='Una ';
  Articles[5]:='Un ';
  Articles[6]:='El ';
  Articles[7]:='Los ';
  Articles[8]:='Las ';
  Articles[9]:='Unos ';
  Articles[10]:='Unas ';

  // Eliminate spanish article if exists
  for Index := 0 to 10 do
  begin
   if Pos(Articles[Index], MovieName) = 1  then
   MovieName := copy(MovieName, length(Articles[Index]), length(MovieName));
  end;

  url := CINEOL_ListaBusqueda(BaseURLCineol2, URLEncode('search=' + MovieName + '&where=movies'));

  if url <> '' then
    CINEOL_RecuperarInformacionPelicula(url);
end;


function CINEOL_ListaBusqueda(Address, params: String): string;
var
  Page, TempTit: TStringList;
  LineNr: Integer;
  Code, Title, tmp: string;
  ini, fin, cont: integer;
  encontradoParaBatch: boolean;
begin
  Page := TStringList.Create;
  TempTit := TStringList.Create;
// Hacemos un post. Hay otro metodo con get, pero si encuentra solo una hace un redireccionamiento raro
// imposible de rastrear y perdo la página.
  Page.Text := PostPage(Address, params);

  Page.Text := StringReplace(Page.Text, '<br>', #13#10);

  if Pos('>No se encontraron resultados<', Page.Text) = 0 then
  begin
       PickTreeClear;
       PickTreeAdd('CINEOL: Resultados de búsqueda para: "' + MovieName + '"', '');
       LineNr := FindLine('>Resultados de la búsqueda<', Page, 0);
       if LineNr < 1 then
         exit
       else
       begin
         LineNr := LineNr + 4;
         encontradoParaBatch := true; cont := 0;
         while (pos('idpelicula=', Page.GetString(LineNr)) > 0) and (LineNr + 3 < Page.Count) do
         begin
           tmp   := TextAfter(Page.GetString(LineNr), 'idpelicula=');
           Code  := copy(tmp, 1, pos('"', tmp)-1);

           ini := pos('">', tmp) + 2;
           fin := pos('</a>', AnsiLowerCase(tmp)) - ini;
           Title := copy(tmp, ini, fin);

           if ModoBatch and (AnsiLowerCase(Title) = AnsiLowerCase(MovieName)) then
           begin
             encontradoParaBatch := true;
             Break;
           end;

           PickTreeAdd(Title, BaseURLCineol + 'view&idpelicula=' + Code);
           LineNr := LineNr + 1;
           cont := cont + 1;
         end;

         Page.Free;
         if ModoBatch then
         begin
            if encontradoParaBatch or (cont  = 1) then
              result := BaseURLCineol + 'view&idpelicula=' + Code
         end
         else
         begin
           if PickTreeExec(Address) then result := Address
                                    else result := '';
         end
       end
  end else
  if not ModoBatch then
    ShowMessage('CINEOL: No se ha encontrado ninguna coincidencia de "'+ MovieName +'"');
end;

procedure CINEOL_RecuperarInformacionPelicula(Address: String);
var
  LineNr, aux: Integer;
  Line, Line2: string;
  Item, s_aux: string;
  comentarios: string;
  interpretes: string;
  s: String;
begin
  // URL
  SetField(fieldURL, Address);

  Page := TStringList.Create;
  Page.Text := GetPage(Address);

  // Titulo traducido
  s := buscaCampo('class="txPeliTit"', 0, '"txPeliTit">"', '" </TD>');
  setField(fieldTranslatedTitle, s);
  
  // Titulo original
  s := buscaCampo('>Título Original<', 0, 'Título Original</SPAN>: ', '<BR>');
  setField(fieldOriginalTitle, s);
  
  // Genero/Categoria

  LineNr := FindLine('> Género<', Page, 0);
  if LineNr > 0 then
  begin
    Line := Page.GetString(LineNr);
    if pos('title="', Line) > 0 then
    begin
      s := buscaCampo('> Género<',         0,'title="', '"');
      s := StringReplace(s, '/', ', ');
    end
    else
      s := buscaCampo('> Género<',         0,'Género</SPAN>: ', '<');
    setField(fieldCategory, s);
  end;
  
  // País
  s := buscaCampo('>País<',            0, 'País</SPAN>: ', '<BR>');
  setField(fieldCountry, s);

  // Duración
  s := buscaCampo('>Duración<',        0, 'Duración</SPAN>: ', ' minutos');
  setField(fieldLength, s);

  // Director
  s := buscaCampo('>Dirección<',      +1, '">', '<');
  setField(fieldDirector, s);

  // Productor
  s := buscaCampo('>Producción<',     +1, '">', '<');
  setField(fieldProducer, s);
  
  // Sinopsis
  LineNr := FindLine('>Sinopsis<', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('Sinopsis</SPAN>:<BR>',Page.Text), length(Page.Text));
    Item := MiTextBetween (Item, 'Sinopsis</SPAN>:<BR>', '<BR><BR>');
    Item := StringReplace(Item, '<br>', #13#10);
    Item := StringReplace(Item, '<BR>', #13#10);
    HTMLDecode(Item);
    SetField(fieldDescription, Trim (Item));
  end;
  
  // Año
  s := buscaCampo('>Año<',0, 'Año</SPAN>: ', '<BR>');
  setField(fieldYear, s);

  // Comentarios = Premios, Guion, fotografia, Musica, comentario destacado, web oficial
  // Cada cual que se lo monte a su gusto. A mi me gusta así:
  comentarios := '';
  s := buscaCampo('>Premios<', 0, '>Premios</span>:<br>', '<');
  if s <> '' then comentarios := comentarios + 'Premios: '#9#9 + s + #13#10;
  
  s := buscaCampo('>Guión<',   +1, '">', '<');
  if s <> '' then comentarios := comentarios + 'Guión: '#9#9 + s + #13#10;
  
  s := buscaCampo('>Música<',  +1, '">', '<');
  if s <> '' then comentarios := comentarios + 'Música: '#9#9 + s + #13#10;
  
  s := buscaCampo('>Fotografía<', +1, '">', '<');
  if s <> '' then comentarios := comentarios + 'Fotografía: '#9 + s + #13#10;

  s := buscaCampo('>Web oficial:<', 0, 'href="', '"');
  if s <> '' then comentarios := comentarios + 'Web oficial: '#9 + s + #13#10;

  s := '> Comentario destacado<';
  LineNr := FindLine(s, Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos(s,Page.Text), length(Page.Text));
    Item := MiTextBetween (Item, '<BR>', '</i></td></tr>');
    Item := StringReplace(Item, '<br>', #13#10);
    Item := StringReplace(Item, '<BR>', #13#10);
    HTMLDecode(Item);
    While pos(#13#10, Item) = 1 do Item := Copy(Item, 3, length(item)); //Nos comemos los <BR> iniciales
    s := Trim(Item);
    if s <> '' then
    begin
      comentarios := comentarios + ' _________________________________________________'#13#10;
      comentarios := comentarios + #13#10 + 'COMENTARIO DESTACADO: ' + #13#10 + s + #13#10;
    end
  end;

  setField(fieldComments, comentarios);

  //Interpretes
  interpretes := '';
  LineNr := FindLine('>Intérpretes<', Page, 0) + 1;
  Line := Page.GetString(LineNr);
  While pos('gente.php?idperson', Line) > 0 do
  begin
    interpretes := interpretes + MiTextBetween (Line, '">', '</a>') + MiTextBetween (Line, '>', '<br') + #13#10;
    LineNr := LineNr + 1;
    Line := Page.GetString(LineNr);
  end;
  if interpretes <> '' then
    SetField(fieldActors, interpretes);

  //Calificación
  s := buscaCampo('images/iconotablanca.gif', 0, '<font size="1">', '<');
  if s <> '' then setField(fieldRating, s);

end;

function buscaCampo(patron: String; offset: integer; ini, fin: string): String;
var
  LineNr: Integer;
  Line: string;
  Item: string;
begin
  Result := '';
  LineNr := FindLine(patron, Page, 0);
  if LineNr > 0 then
  begin
    LineNr := LineNr + offset;
    Line := Page.GetString(LineNr);
    Item := MiTextBetween (Line, ini, fin);
    HTMLDecode(Item);
    result := Trim(Item);
  end;
end;

//------------------------------------------------------------------------------------
//------------------------------------------------------------------------------------


begin
  BuscarCaratula        := getOption('BuscarCaratula') <> 0;
  ModoBatch             := getOption('ModoBatch') = 1; //OJO: SI EL TITULO DE
                 //LA PELICULA NO COINCIDE NO MOSTRARA INFORMACIÓN, POR QUE LOS
                 //RESULTADOS DE LA BUSQUEDA NO LOS ORDENA POR ORDEN DE SEMEJANZA

  { Un modo mas cómodo de asignar las variables es marcando el check de la caratula y
    del titulo traducido, en los "campos modificables". Si me desmarca la imagen no la buscaré
    y si me marca el titulo traducido(por ejemplo) serà un proceso batch.:
    
    BuscarCaratula        := CanSetPicture();
    ModoBatch             := not CanSetField(fieldTranslatedTitle);
   }

  if CheckVersion(3,5,0) then
  begin
    MovieName := GetField(fieldTranslatedTitle);
    if MovieName = '' then
      MovieName := GetField(fieldOriginalTitle);
      
    if (MovieName = '') or not (ModoBatch) then
      if not Input('Importar de CINeol + Culturalia', 'Introduzca el titulo de la pelicula:', MovieName) then
        Exit;

    if (MovieName <> '') then
    begin
         CINEOL_BuscarInformacion; // El titulo a buscar siempre está en MovieName

         if BuscarCaratula then
            BuscarCaratulaCulturalia;
    end;
  end
  else
    ShowMessage('Este script requiere una version mas reciente de Ant Movie Catalog (por lo menos la version 3.5.0)');
end. 

[folgui]

Thanks icecubix for your contribution

Regards, folgui

[Sergiqu]

Pues tiene una pinta increible tio, muchas gracias.
POr cierto, sabes de alguna forma para poder meter tambien la informacion de los DVDs???. osea, que te ponga los extras que trae y demas???

[icecubix]

De nada, Sergiqu. Un placer.

Pues no entiendo bien tu pregunta. ¿Quieres que te recupere información de un DVD fisico que tu metes en la lectora o que te los recupere de internet? Bueno en ambos casos no lo se. En el primer caso no se ni si es posible y en el segundo caso supongo que seria cuestion de buscar alguna web con esta información. No se.

Saludos

[Guest]

Pues me referia a la segunda, que te lo recupere de Inet. Supongo que usando DVDGo podria servir. Tu crees que es factible???????
Para lo que me necesites, en el msn como bizcochetes arroba yahoo punto es.
Un saludo

[icecubix]

Hombre, yo creo que si. Por lo que acabo de ver, a simple vista, utiliza posts para hacer la busqueda y gets para mostrar la película en si. De esta manera el esquema del programa seria el siguiente:

-Cargar pagina con el metodo post POST de
http://www.dvdgo.com/list_search.htm y con parametros que ahora no tengo por que no estoy en mi casa (si te interesa ya te los buscaré). Uno de esos parametros es el titulo de la pelicula.

-Con el resultado hacer un bucle para recoger cada titulo y cada enlace, mostrandolos al usuario para que escoja (fijarse del codigo de culquier script hecho).

-Con el enlace de la pelicula cargar pagina con GET y recoger todos los campos para nuestro catalogo.

Siento no poder entrar mas en detalles pero como te digo no tengo aquí el ant movie catalog y no me acuerdo de las cosas. De todas maneras si veo que el dvdgo tiene muchas peliculas catalogadas igual me pongo yo mismo. Pero lo dudo, me falta el preciado tiempo.

Saludos

[Guest]

Gracias. Seria posible hacer el de http://info.frozen-layer.net/ esque en español de anime no ahy ninguno xD Gracias de nuevo :P

[icecubix]

Seria posible, aun que no la he analizado en profundidad veo que el procedimiento seria el mismo. Si alguien se anima ya sabe. Yo ando muy apurado de tiempo últimamente. Quizas mas adelante...

Saludos

[Juanra]

Desde hace unos días estoy teniendo problemas con el script. Encuentra los títulos correctamente pero no importa ningún campo. No he cambiado ningún parámetro del programa ni del script, lo he vuelto a descargar por si acaso, pero sigue igual.

¿Alguien puede ayudar?

Gracias.

English: Since a few days ago I'm having problems with the script. It finds the right titles but doesn't import any field at all. Haven't changed any parameter either, I've downloaded it again but to no avail.

Can anybody help?

Thanks.

[micmic]

Parece que han cambiado algo de la página. Por ejemplo:
ANTES

Code: Select all

// Titulo traducido
  s := buscaCampo('class="txPeliTit"', 0, '"txPeliTit">"', '" </TD>');
  setField(fieldTranslatedTitle, s); 

AHORA debería quedar como:

Code: Select all

// Titulo traducido
  s := buscaCampo('class="txPeliTit"', 0, '"txPeliTit">"', '" </TD>');
  setField(fieldTranslatedTitle, s); 

Han eliminado un blanco y además en mi caso (Kill Bill 2) hay una imagen para complicarlo un poco más

[icecubix]

Ufffff, está chunga la cosa. Al hacer la búsqueda por el método post no retorna una lista de resultados, sinó una pantalla con el mensaje "Se le ha restringido el acceso a esta web". Se ve que detecta de alguna manera si estamos visitando la página personalmente o no. Claro, al bajarnos información con el AMC no estamos visitando su publicidad...

Abriré otro hilo para hacer la pregunta en inglés, ya que no creo que el webmaster esté leyendo esto. No se si esto se puede evitar mejorando la función PostPage.

A ver si hay suerte.

[icecubix]

Se acabó. Adiós cineol. O mejor dicho, a tomar por c.... y que les cunda.

Se ve que yo estaba en lo cierto y han capado las consultas desde AMC. Cineol ve que el user-agent es el de AMC, en vez del firefox (por nombrar alguno) y sacan el mensaje de acceso restringido. El mismo antc ha hecho la prueba. Podeis leer este hilo:

viewtopic.php?p=11231

En fin, suerte que hay otras muy buenas paginas como filmaffinity o culturalia. Esperemos que no hagan lo mismo.

Saludos a todos

Icecubix

[panete]

Suelo visitar a menudo la web de CINeol y entiendo lo que han hecho...

Tampoco mola que se pillen a saco el trabajo de gente que no cobra nada por ello (y mucho menos por ver la publicidad creo yo)

[Juanra]

¡Ya funciona otra vez! Lo han dscapado por fin.

Salu2

[Davix]

No funciona me da el siguiente error al ejecutar el script: duplicate identifier linea 49

function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;

alguien me puede pasar el archivo .ifs?

Salu2.

[antp]

I moved the FindLine function used by lots of scripts to StringUtils1.pas
Since this script defines this function but also uses StringUtils1.pas there is a conflict.
Delete code from the start of "function FindLine" until the "//----" that follows its contents.

[Juanra]

He borrado el código que dice antp y funciona. De todas maneras, este problema sólo se da con la versión 3.5.0.1, con la 3.5.0.0 el script funciona bien sin borrar código.

Saludos.


English: I've deleted the code as antp says and it works. Anyway, this problem only arises with version 3.5.0.1, with 3.5.0.0 works fine without deleting any code.

Regards

[antp]

Actually it is not really related to AMC 3.5.0.1. People with version 3.5.0.0 that upgraded the scripts from the temp folder on my site would also have the problem

[Guest]

Thanks, works correctly

[Davix]

Thanks, works correctly

Gracias, funciona correctamente

Salu2.