#! /usr/Bin/env gbs3

'##########################################
'#
'#  <script_opciones>
'#      <version>9</version>
'#      <fecha>27/09/2011</fecha>
'#      <actualizacion>19/02/2012</actualizacion>
'#      <autor>Ángel Romero Astorga</autor>
'#      <contacto>ARomeroAstorga@gmail.com</contacto>
'#      <campos>titulo,trailer,tituloOriginal,año,paises,generos,formato,duracion,direccion,guion,musica,fotografia,produccion,reparto,sinopsis,valoracion,caratula,url</campos>
'#      <opciones>thumbs,series</opciones>
'#  </script_opciones>
'#
'##########################################

Public salida As String

Public Sub main()
    Dim opcion As String
    ' Opcion
    opcion = Application.Args[1]
    ' Busqueda
    If opcion = "busqueda" Then
        If Exist(User.Home &/ ".omediamanager/temp/salida_busqueda.tmp") Then Kill User.Home &/ ".omediamanager/temp/salida_busqueda.tmp"
        busqueda(Application.Args[2], Application.Args[3], Application.Args[4])
    End If
    ' Ficha
    If opcion = "ficha" Then
        If Exist(User.Home &/ ".omediamanager/temp/salida_ficha.tmp") Then Kill User.Home &/ ".omediamanager/temp/salida_ficha.tmp"
        If Application.Args[3] = 0 Or Application.Args[3] = 3 Then fichaPelicula(Application.Args[2])
        If Application.Args[3] = 1 Or Application.Args[3] = 2 Then fichaSerie(Application.Args[2])
    End If
    ' Episodio
    If opcion = "episodio" Then
        If Exist(User.Home &/ ".omediamanager/temp/salida_episodio.tmp") Then Kill User.Home &/ ".omediamanager/temp/salida_episodio.tmp"
        episodio(Application.Args[2], Application.Args[3], Application.Args[4], Application.Args[5])
        File.Save(User.Home &/ ".omediamanager/temp/salida_episodio.tmp", salida)
    End If
    ' Prueba del episodio
    If opcion = "episodioPrueba" Then
        If Exist(User.Home &/ ".omediamanager/temp/salida_episodio.tmp") Then Kill User.Home &/ ".omediamanager/temp/salida_episodio.tmp"
        episodio(Application.Args[2], -1, -1, False)
        File.Save(User.Home &/ ".omediamanager/temp/salida_episodio.tmp", salida)
    End If
End

Public Sub busqueda(titulo As String, pagina As Integer, medio As Integer)
    If medio = 0 Or medio = 3 Then busquedaPelicula(titulo, pagina)
    If medio = 1 Or medio = 2 Then busquedaSerie(titulo, pagina)
End

Public Sub busquedaPelicula(titulo As String, pagina As Integer)
    Dim url As String, path As String
    ' URL y path
    url = "http://www.cineol.net/api/busquedapeliculas.php?apiKey=cfdvkFD&search=" & html_word(titulo)
    path = User.Home &/ ".omediamanager/temp/busqueda.tmp"
    ' Obtengo el resultado
    descargarArchivo(url, path)
    ' Compruebo que se descargó correctamente
    If Len(file.load(path)) > 0 Then 
        ' Llamo al parseo del resultado
        resultadosBusquedaPelicula
    End If
End

Public Sub busquedaSerie(titulo As String, pagina As Integer)
    Dim url As String, path As String
    ' URL y path
    url = "http://www.cineol.net/search.php?search=" & html_word(titulo) & "&select=4&button=Buscar"
    path = User.Home &/ ".omediamanager/temp/busqueda.tmp"
    ' Obtengo el resultado
    descargarArchivo(url, path)
    ' Compruebo que se descargó correctamente
    If Len(file.load(path)) > 0 Then 
        ' Llamo al parseo del resultado
        resultadosBusquedaSerie
    End If
End

Public Sub resultadosBusquedaPelicula()
    Dim texto As String
    Dim i As Integer, j As Integer, final As Integer, pos As Integer
    Dim codigo As String, titulo As String, anho As String, director As String, reparto As String, imagen As String
    Dim contenido As String
    Dim archivo As File
    ' El archivo existe (lo comprobe antes): lo abro y lo leo
    archivo = Open user.home &/ ".omediamanager/temp/busqueda.tmp" For Read
    Read #archivo, contenido, Lof(archivo)
    ' Cierro el archivo
    archivo.Close
    ' Sustituyo las comillas por asteriscos (cuestion practica)
    texto = Replace$(contenido, Chr$(34), "$")
    ' Compruebo que es el tipo de archivo que quiero (resultados de busqueda)
    If InStr(contenido, "<resultados>") > 0 Then
        ' Busqueda de peliculas
        pos = InStr(texto, "<pelicula>")
        Do While pos > 0
            ' Calculo el final del bloque
            final = InStr(texto, "</pelicula>", pos + 1)
            ' Inicializo los valores (los demas siempre se machacan)
            reparto = ""
            director = ""
            ' Codigo
            i = InStr(texto, "<xmlurl>http://www.cineol.net/api/peliculaxml.php?id=", pos) + Len("<xmlurl>http://www.cineol.net/api/peliculaxml.php?id=")
            j = InStr(texto, "<", i)
            codigo = Mid$(texto, i, j - i)
            ' Imagen
            imagen = "http://www.cineol.net/galeria/carteles/" & codigo & ".jpg"
            ' Titulo
            i = InStr(texto, "<titulo>", pos) + 8
            j = InStr(texto, "<", i)
            titulo = Mid$(texto, i, j - i)
            titulo = eliminar_parentesis(titulo)
            titulo = Trim(titulo)
            If Right(titulo, 4) = ", El" Then titulo = "El " & Left(titulo, Len(titulo) - 4)
            If Right(titulo, 4) = ", La" Then titulo = "La " & Left(titulo, Len(titulo) - 4)
            If Right(titulo, 5) = ", Las" Then titulo = "Las " & Left(titulo, Len(titulo) - 5)
            If Right(titulo, 5) = ", Los" Then titulo = "Los " & Left(titulo, Len(titulo) - 5)
            If Right(titulo, 5) = ", Una" Then titulo = "Una " & Left(titulo, Len(titulo) - 5)
            If Right(titulo, 4) = ", Un" Then titulo = "Un " & Left(titulo, Len(titulo) - 4)
            ' Año
            i = InStr(texto, "<anio>", pos) + 6
            anho = Mid$(texto, i, 4)
            ' Agrego el elemento a la lista
            add_search_list(codigo, titulo, anho, director, reparto, imagen)
            ' Avanzo hasta el siguiente elemento (hacen falta 2 saltos)
            pos = InStr(texto, "<pelicula>", pos + 1)
        Loop
    Else 
        salida = "<SIN RESULTADOS>"
    End If
    If Exist(User.Home &/ ".omediamanager/temp/salida_busqueda.tmp") Then Kill User.Home &/ ".omediamanager/temp/salida_busqueda.tmp"
    File.Save(User.Home &/ ".omediamanager/temp/salida_busqueda.tmp", salida)
End

Public Sub resultadosBusquedaSerie()
    Dim texto As String
    Dim i As Integer, j As Integer, final As Integer, pos As Integer
    Dim codigo As String, titulo As String, anho As String, director As String, reparto As String, imagen As String
    Dim contenido As String
    Dim archivo As File
    ' El archivo existe (lo comprobe antes): lo abro y lo leo
    archivo = Open user.home &/ ".omediamanager/temp/busqueda.tmp" For Read
    Read #archivo, contenido, Lof(archivo)
    ' Cierro el archivo
    archivo.Close
    ' Sustituyo las comillas por asteriscos (cuestion practica)
    texto = Replace$(contenido, Chr$(34), "$")
    
    ' Compruebo que es el tipo de archivo que quiero (resultados de busqueda)
    If InStr(contenido, "no hemos encontrado") = 0 Then
        ' Busqueda de peliculas
        pos = InStr(texto, "<div class=$item$>")
        Do While pos > 0
            ' Calculo el final del bloque
            final = InStr(texto, "</pelicula>", pos + 1)
            ' Inicializo los valores (los demas siempre se machacan)
            director = ""
            anho = ""
            ' Codigo
            i = InStr(texto, "serie/", pos) + Len("serie/")
            j = InStr(texto, "$", i)
            codigo = Mid$(texto, i, j - i)
            ' Imagen
            imagen = Left(codigo, InStr(codigo, "_") - 1)
            imagen = "http://www.cineol.net/galeria/series/" & imagen & ".jpg"
            ' Titulo
            i = InStr(texto, "<h3>", pos) + 4
            j = InStr(texto, "</a>", i)
            titulo = Mid$(texto, i, j - i)
            titulo = eliminar_etiquetas(titulo)
            titulo = eliminar_parentesis(titulo)
            titulo = Trim(titulo)
            ' Reparto
            reparto = ""
            ' Agrego el elemento a la lista
            add_search_list(codigo, titulo, anho, director, reparto, imagen)
            ' Avanzo hasta el siguiente elemento (hacen falta 2 saltos)
            pos = InStr(texto, "<div class=$item$>", pos + 1)
        Loop
    Else 
        salida = "<SIN RESULTADOS>"
    End If
    If Exist(User.Home &/ ".omediamanager/temp/salida_busqueda.tmp") Then Kill User.Home &/ ".omediamanager/temp/salida_busqueda.tmp"
    File.Save(User.Home &/ ".omediamanager/temp/salida_busqueda.tmp", salida)
End

Public Sub fichaPelicula(codigo As String)
    Dim proceso As Process
    Dim texto As String
    Dim fichero As File
    Dim i As Integer, j As Integer
    Dim titulo As String, titulo_original As String, duracion As String, trailer As String, anho As String, generos As String, paises As String, direccion As String, guion As String, fotografia As String, musica As String, produccion As String, reparto As String, sinopsis As String, strValoracion As String, caratula As String, url As String, Formato As String

    ' Descargo el archivo
    descargarArchivo("http://www.cineol.net/api/peliculaxml.php?apiKey=cfdvkFD&id=" & codigo, User.Home &/ ".omediamanager/temp/ficha.tmp")
    
    ' Abro y leo el archivo
    fichero = Open User.Home &/ ".omediamanager/temp/ficha.tmp" For Read
    Read #fichero, texto, Lof(fichero)
    fichero.Close
    ' Me aseguro de que la descarga no falló
    If Len(texto) = 0 Then 
        Return 
    End If
    ' Sustituyo las comillas por asteriscos
    texto = Replace$(texto, Chr$(34), "$")
    ' Titulo
    titulo = textoEntre(texto, "<titulobonito>", "</titulobonito>")
    ' Titulo original
    titulo_original = textoEntre(texto, "<title>", "</title>")
    ' Duracion
    duracion = textoEntre(texto, "<duracion>", "</duracion>") & " min."
    ' Año
    anho = textoEntre(texto, "<anio>", "</anio>")
    ' Género
    generos = textoEntre(texto, "<genero>", "</genero>")
    generos = Replace(generos, " / ", ", ")
    generos = Replace(generos, " /", ", ")
    generos = Replace(generos, "/ ", ", ")
    generos = Replace(generos, "/", ", ")
    ' Pais
    paises = textoEntre(texto, "<pais>", "</pais>")
    paises = Replace(paises, " / ", ", ")
    paises = Replace(paises, " /", ", ")
    paises = Replace(paises, "/ ", ", ")
    paises = Replace(paises, "/", ", ")
    ' Formato
    formato = textoEntre(texto, "<formato>", "</formato>")
    ' Director
    Direccion = textoEntre(texto, "<Directores>", "</Directores>")
    Direccion = Replace(Direccion, Chr(10), "")
    Direccion = Replace(Direccion, "<url>", "<url")
    Direccion = Replace(Direccion, "</url", "url")
    Direccion = Replace(Direccion, "<Info>", "(")
    Direccion = Replace(Direccion, "</Info>", ")")
    Direccion = Replace(Direccion, "</Nombre>", "</Nombre>, ")
    Direccion = eliminar_etiquetas(Direccion)
    Direccion = eliminar_espacios_dobles(Direccion)
    Direccion = Trim(Left(Direccion, Len(Direccion) - 2))
    Direccion = Replace(Direccion, " , ", ", ")
    ' Guion
    Guion = textoEntre(texto, "<Guionistas>", "</Guionistas>")
    Guion = Replace(Guion, Chr(10), "")
    Guion = Replace(Guion, "<url>", "<url")
    Guion = Replace(Guion, "</url", "url")
    Guion = Replace(Guion, "<Info>", "(")
    Guion = Replace(Guion, "</Info>", ")")
    Guion = Replace(Guion, "</Guionista>", "</Guionista>, ")
    Guion = eliminar_etiquetas(Guion)
    Guion = eliminar_espacios_dobles(Guion)
    Guion = Trim(Left(Guion, Len(Guion) - 2))
    Guion = Replace(guion, " , ", ", ")
    ' Música
    musica = textoEntre(texto, "<Musicos>", "</Musicos>")
    musica = Replace(musica, Chr(10), "")
    musica = Replace(musica, "<url>", "<url")
    musica = Replace(musica, "</url", "url")
    musica = Replace(musica, "<Info>", "(")
    musica = Replace(musica, "</Info>", ")")
    musica = Replace(musica, "</Musico>", "</Musico>, ")
    musica = eliminar_etiquetas(musica)
    musica = eliminar_espacios_dobles(musica)
    musica = Trim(Left(musica, Len(musica) - 2))
    musica = Replace(musica, " , ", ", ")
    ' Fotografia
    fotografia = textoEntre(texto, "<Fotografos>", "</Fotografos>")
    fotografia = Replace(fotografia, Chr(10), "")
    fotografia = Replace(fotografia, "<url>", "<url")
    fotografia = Replace(fotografia, "</url", "url")
    fotografia = Replace(fotografia, "<Info>", "(")
    fotografia = Replace(fotografia, "</Info>", ")")
    fotografia = Replace(fotografia, "</Fotografo>", "</Fotografo>, ")
    fotografia = eliminar_etiquetas(fotografia)
    fotografia = eliminar_espacios_dobles(fotografia)
    fotografia = Trim(Left(fotografia, Len(fotografia) - 2))
    fotografia = Replace(fotografia, " , ", ", ")
    ' Produccion
    produccion = textoEntre(texto, "<Productores>", "</Productores>")
    produccion = Replace(produccion, Chr(10), "")
    produccion = Replace(produccion, "<url>", "<url")
    produccion = Replace(produccion, "</url", "url")
    produccion = Replace(produccion, "<Info>", "(")
    produccion = Replace(produccion, "</Info>", ")")
    produccion = Replace(produccion, "</Productor>", "</Productor>, ")
    produccion = eliminar_etiquetas(produccion)
    produccion = eliminar_espacios_dobles(produccion)
    produccion = Trim(Left(produccion, Len(produccion) - 2))
    produccion = Replace(produccion, " , ", ", ")
    ' Reparto
    reparto = textoEntre(texto, "<Actores>", "</Actores>")
    reparto = Replace(reparto, Chr(10), "")
    reparto = Replace(reparto, "<url>", "<url")
    reparto = Replace(reparto, "</url", "url")
    reparto = Replace(reparto, "</Actor>", "</Actor>, ")
    reparto = Replace(reparto, "<Info>", "(")
    reparto = Replace(reparto, "</Info>", ")")
    reparto = eliminar_etiquetas(reparto)
    reparto = eliminar_espacios_dobles(reparto)
    reparto = Trim(Left(reparto, Len(reparto) - 2))
    reparto = Replace(reparto, " , ", ", ")
    ' Trailer
    trailer = textoEntre(texto, "<idDailymotion>", "</idDailymotion>")
    If trailer <> "" Then
        trailer = "http://www.dailymotion.com/video/" & trailer
    End If
    ' Sinopsis
    sinopsis = textoEntre(texto, "<sinopsis>", "</sinopsis>")
    Sinopsis = Replace(Sinopsis, Chr(10), "")
    ' Valoracion
    StrValoracion = Left(textoEntre(texto, "<nota>", "</nota>"), 3)
    ' Caratula
    caratula = textoEntre(texto, "<Cartel-150x90>", "</Cartel-150x90>")
    If caratula = "" Then
        caratula = textoEntre(texto, "<CartelGrande>", "</CartelGrande>")
    End If
    ' URL
    url = textoEntre(texto, "<url>", "</url>")

    ' SALIDA
    salida = ""
    salida = salida & "<titulo>" & titulo & "</titulo>\n"
    salida = salida & "<tituloOriginal>" & titulo_original & "</tituloOriginal>\n"
    salida = salida & "<duracion>" & duracion & "</duracion>\n"
    salida = salida & "<generos>" & generos & "</generos>\n"
    salida = salida & "<paises>" & paises & "</paises>\n"
    salida = salida & "<año>" & anho & "</año>\n"
    salida = salida & "<formato>" & Formato & "</formato>\n"
    salida = salida & "<direccion>" & direccion & "</direccion>\n"
    salida = salida & "<guion>" & guion & "</guion>\n"
    salida = salida & "<musica>" & musica & "</musica>\n"
    salida = salida & "<fotografia>" & fotografia & "</fotografia>\n"
    salida = salida & "<produccion>" & produccion & "</produccion>"
    salida = salida & "<reparto>" & reparto & "</reparto>\n"
    salida = salida & "<sinopsis>" & sinopsis & "</sinopsis>\n"
    salida = salida & "<valoracion>" & strValoracion & "</valoracion>\n"
    salida = salida & "<caratula>" & caratula & "</caratula>\n"
    salida = salida & "<trailer>" & trailer & "</trailer>\n"
    salida = salida & "<url>" & url & "</url>\n"
   ' Guardo la salida
   If Exist(User.home &/ ".omediamanager/temp/salida_ficha.tmp", salida) Then Kill User.home &/ ".omediamanager/temp/salida_ficha.tmp"
   File.save(User.home &/ ".omediamanager/temp/salida_ficha.tmp", salida)
End

Public Sub fichaSerie(codigo As String)
    Dim proceso As Process
    Dim texto As String
    Dim fichero As File
    Dim i As Integer, j As Integer
    Dim titulo As String, titulo_original As String, duracion As String, trailer As String, anho As String, generos As String, paises As String, direccion As String, guion As String, fotografia As String, musica As String, produccion As String, reparto As String, sinopsis As String, strValoracion As String, caratula As String, url As String, Formato As String

    ' Descargo el archivo
    descargarArchivo("http://www.cineol.net/serie/" & codigo, User.Home &/ ".omediamanager/temp/ficha.tmp")
    ' Abro y leo el archivo
    fichero = Open User.Home &/ ".omediamanager/temp/ficha.tmp" For Read
    Read #fichero, texto, Lof(fichero)
    fichero.Close
    ' Me aseguro de que la descarga no falló
    If Len(texto) = 0 Then 
        Return 
    End If
    ' Sustituyo las comillas por asteriscos
    texto = Replace$(texto, Chr$(34), "$")

    ' Titulo
    titulo = textoEntre(texto, "<li><strong>Titulo: </strong>", "</li>")    
    ' Titulo original
    titulo_original = textoEntre(texto, "<li><strong>Titulo original: </strong>", "</li>")
    ' Anho
    anho = textoEntre(texto, "<li><strong>Año: </strong>", " -")
    ' Formato
    anho = textoEntre(texto, "<li><strong>Formato: </strong>", "</li>")
    ' Duracion
    duracion = textoEntre(texto, "<li><strong>Duración media: </strong>", "</li>")
    ' Género
    generos = textoEntre(texto, "<li><strong>Género: </strong>", "</li>")
    generos = eliminar_etiquetas(generos)
    generos = Replace(generos, " / ", ", ")
    generos = Trim(generos)
    ' Paises
    paises = textoEntre(texto, "<li><strong>País: </strong>", "</li>")
    ' Director
    direccion = textoEntre(texto, "<li><strong>Creador: </strong>", "</li>")
    If direccion <> "" Then
        direccion = eliminar_etiquetas(direccion)
        direccion = Trim(Replace(direccion, " / ", ", "))
    End If
    ' Musica
    musica = textoEntre(texto, "<li><strong>Música: </strong>", "</li>")
    If musica <> "" Then
        musica = eliminar_etiquetas(musica)
        musica = Trim(Replace(musica, " / ", ", "))
    End If
    ' Productor
    produccion = textoEntre(texto, "<li><strong>Canal: </strong>", "</li>")
    ' Reparto
    reparto = textoEntre(texto, "<th>Personaje</th>", "<div class=$clearing$>")
    reparto = eliminar_parentesis(reparto)
    reparto = Replace(reparto, "</tr><tr", "), <")
    reparto = Replace(reparto, "</td><td>", " (")
    reparto = Replace(reparto, "<th>Personaje</th>", "), ")
    reparto = Replace(reparto, "<th>Actor</th>", "")
    reparto = Replace(reparto, Chr(9), "")
    reparto = Replace(reparto, Chr(10), "")
    reparto = Replace(reparto, Chr(13), "")
    Do While InStr(reparto, "  ") > 0 
        reparto = Replace(reparto, "  ", " ")
    Loop    
    reparto = eliminar_etiquetas(reparto)
    reparto = Replace(reparto, " )", ")")
    reparto = Trim(reparto) & ")"
    ' Caratula
    caratula = Left(codigo, InStr(codigo, "_") - 1)
    caratula = "http://www.cineol.net/galeria/series/" & caratula & ".jpg"
    If InStr(texto, "<a href=$galeria/carteles/") > 0 Then
        i = InStr(texto, "<a href=$galeria/carteles/") + Len("<a href=$galeria/carteles/")
        j = InStr(texto, "$", i)
        caratula = "http://www.cineol.net/galeria/carteles/" & Mid$(texto, i, j - i)
    End If
    ' Sinopsis
    sinopsis = Trim(textoEntre(texto, "<h2>Sinopsis</h2>", "</div>"))
    sinopsis = Replace(sinopsis, "<br/>", Chr(10))
    sinopsis = eliminar_etiquetas(sinopsis)
    sinopsis = Trim(sinopsis)
    ' Valoracion
    If InStr(texto, "<em>Puntuación de</em>") > 0 Then
        strValoracion = textoEntre(texto, "<em>Puntuación de</em>", "</span>")
        strValoracion = Left(strValoracion, 3)
    End If
    ' URL
    url = "http://www.cineol.net/serie/" & codigo

    ' SALIDA
    salida = ""
    salida = salida & "<titulo>" & titulo & "</titulo>\n"
    salida = salida & "<tituloOriginal>" & titulo_original & "</tituloOriginal>\n"
    salida = salida & "<duracion>" & duracion & "</duracion>\n"
    salida = salida & "<generos>" & generos & "</generos>\n"
    salida = salida & "<paises>" & paises & "</paises>\n"
    salida = salida & "<año>" & anho & "</año>\n"
    salida = salida & "<formato>" & Formato & "</formato>\n"
    salida = salida & "<direccion>" & direccion & "</direccion>\n"
    salida = salida & "<guion>" & guion & "</guion>\n"
    salida = salida & "<musica>" & musica & "</musica>\n"
    salida = salida & "<fotografia>" & fotografia & "</fotografia>\n"
    salida = salida & "<produccion>" & produccion & "</produccion>"
    salida = salida & "<reparto>" & reparto & "</reparto>\n"
    salida = salida & "<sinopsis>" & sinopsis & "</sinopsis>\n"
    salida = salida & "<valoracion>" & strValoracion & "</valoracion>\n"
    salida = salida & "<caratula>" & caratula & "</caratula>\n"
    salida = salida & "<trailer>" & trailer & "</trailer>\n"
    salida = salida & "<url>" & url & "</url>\n"
   ' Guardo la salida
   If Exist(User.home &/ ".omediamanager/temp/salida_ficha.tmp", salida) Then Kill User.home &/ ".omediamanager/temp/salida_ficha.tmp"
   File.save(User.home &/ ".omediamanager/temp/salida_ficha.tmp", salida)
End

'########################################################
'##Episodio
'########################################################
' PASO 1 - ¿Es una web válida? Y el script? Es válido?
Public Sub episodio(web As String, temporada As Integer, capitulo As Integer, especial As Boolean)
    Dim codigo As String
    ' Tengo que detectar si la web es válida
    If Left(web, Len("http://www.cineol.net/serie/")) = "http://www.cineol.net/serie/" Then
        If temporada = -1 And capitulo = -1 Then
            salida = "<SCRIPT VALIDO>"
        Else
            ' Web válida
            codigo = textoEntre(web & "}", "http://www.cineol.net/serie/", "}")
            deteccionEpisodio(codigo, temporada, capitulo, especial)
        End If
    Else
        ' Web no válida
        salida = "<SCRIPT NO VALIDO>"
    End If
End

' PASO 2 - Deteccion del episodio
Public Sub deteccionEpisodio(codigo As String, temporada As Integer, capitulo As Integer, especial As Boolean)
    Dim web_episodios As String, path As String, contenido As String, url As String
    Dim cap As String
    ' Web donde buscar el episodio
    web_episodios = "http://www.cineol.net/lista_episodios/" & codigo
    ' Descarga
    path = User.Home &/ ".omediamanager/temp/lista_episodios.tmp"
    ' Obtengo el resultado
    descargarArchivo(web_episodios, path)
    contenido = file.load(path)
    ' Cambio el formato del texto
    If InStr(contenido, "ISO-8859-1") > 0 Then
        contenido = Conv$(contenido, "ISO-8859-1", "UTF-8")
    End If
    contenido = Replace(contenido, Chr(34), "$")
    ' Formato de episodios
    If Len(Str(capitulo)) = 1 Then cap = "0"
    cap = cap & Str(capitulo)
    ' Episodio encontrado
    If InStr(contenido, "/" & Str(temporada) & "x" & cap & "/") > 0 Then
        ' Obtengo la url del episodio
        url = textoEntre(contenido, "/" & Str(temporada) & "x" & cap & "/", "$")
        url = "http://www.cineol.net/episodio/25_Perdidos" & "/" & Str(temporada) & "x" & cap & "/" & url
        ' Lo descargo
        descargaEpisodio(url)
    Else
        salida = "<EPISODIO NO ENCONTRADO>"
    End If
End

' PASO 3 - Parseo de la web del episodio
Public Sub descargaEpisodio(url As String)
    Dim contenido As String
    Dim titulo As String, direccion As String, guion As String, invitados As String, fecha As String, valoracion As String, sinopsis As String, imagen As String
    ' Descargo la web
    descargarArchivo(url, user.home &/ ".omediamanager/temp/episodio.tmp")
    ' Cargo el contenido
    contenido = file.load(user.home &/ ".omediamanager/temp/episodio.tmp")
    ' Cambio el formato del texto
    If InStr(contenido, "ISO-8859-1") > 0 Then
        contenido = Conv$(contenido, "ISO-8859-1", "UTF-8")
    End If
    contenido = Replace(contenido, Chr(34), "$")

    ' Obtengo los valores
    titulo = textoEntre(contenido, "<li><strong>Titulo: </strong>", "</li>")
    ' Direccion
    direccion = textoEntre(contenido, "<li><strong>Dirección: </strong>", "</li>")
    direccion = eliminar_etiquetas(direccion)
    direccion = Replace(direccion, " / ", ", ")
    ' Guion
    guion = textoEntre(contenido, "<li><strong>Guión: </strong>", "</li>")
    guion = eliminar_etiquetas(guion)
    guion = Replace(guion, " / ", ", ")
    ' Sinopsis
    sinopsis = textoEntre(contenido, "<h2>Sinopsis</h2>", "</p>")
    sinopsis = Trim(eliminar_etiquetas(sinopsis))
    ' Fecha
    fecha = textoEntre(contenido, "<li><strong>Emisión: </strong>", "</li>")
    fecha = Replace(fecha, "-", "/")
    ' Valoracion
    If InStr(contenido, "<em>Puntuación de</em>") > 0 Then
        valoracion = textoEntre(contenido, "<em>Puntuación de</em>", "</span>")
        valoracion = Left(valoracion, 3)
    End If

    ' Formo la salida
    salida = ""
    salida = salida & "<titulo>" & titulo & "</titulo>\n"
    salida = salida & "<direccion>" & direccion & "</direccion>\n"
    salida = salida & "<guion>" & guion & "</guion>\n"
    salida = salida & "<invitados>" & invitados & "</invitados>\n"
    salida = salida & "<fecha>" & fecha & "</fecha>\n"
    salida = salida & "<sinopsis>" & sinopsis & "</sinopsis>\n"
    salida = salida & "<imagen>" & imagen & "</imagen>\n"
    salida = salida & "<valoracion>" & valoracion & "</valoracion>\n"
End

'##################################################################################
' ### OTRAS FUNCIONES
'##################################################################################
Public Sub descargarArchivo(url As String, path As String)
    Dim myCommand As New String[]
    Dim myProcess As Process
    ' Elimino el archivo por si existe
    If Exist(path) Then Kill path
    ' Creo el comando a ejecutar
    myCommand.Add("wget")
    myCommand.Add("-O")
    myCommand.Add(path)
    myCommand.Add(url)
    ' Ejecuto el proceso
    myProcess = Exec myCommand
    Do While myProcess.state = process.running
        Wait 0.001
    Loop
End

' Texto entre
Public Function textoEntre(total As String, inicio As String, final As String) As String
    Dim i As Integer, j As Integer
    Dim salida As String
    salida = ""
    If InStr(total, inicio) = 0 Then Return ""
    i = InStr(total, inicio) + Len(inicio)
    j = InStr(total, final, i)
    If j > i Then 
        salida = Mid(total, i, j - i)
    End If
    Return salida
End

' Parsea una palabra para el navegador (caracteres especiales)
Public Function html_word(palabra As String) As String
    Dim resultado As String
    resultado = palabra
    resultado = Replace$(resultado, "ñ", "n")
    resultado = Replace$(resultado, "Ñ", "n")
    resultado = Replace$(resultado, " ", "+")
    resultado = Replace$(resultado, "á", "a")
    resultado = Replace$(resultado, "Á", "a")
    resultado = Replace$(resultado, "é", "e")
    resultado = Replace$(resultado, "É", "e")
    resultado = Replace$(resultado, "í", "i")
    resultado = Replace$(resultado, "Í", "i")
    resultado = Replace$(resultado, "ó", "o")
    resultado = Replace$(resultado, "Ó", "o")
    resultado = Replace$(resultado, "ú", "u")
    resultado = Replace$(resultado, "Ú", "u")
    Return resultado
End

' Eliminar etiquetas
Public Function eliminar_etiquetas(cadena As String) As String
    Dim resultado As String
    resultado = cadena
    Do While InStr(resultado, "<") > 0
        resultado = Left$(resultado, InStr(resultado, "<") - 1) & Right$(resultado, Len(resultado) - InStr(resultado, ">"))
    Loop
    Return resultado
End

' Eliminar parentesis
Public Function eliminar_parentesis(cadena As String) As String
    Dim resultado As String
    resultado = cadena
    Do While InStr(resultado, "(") > 0
        resultado = Left$(resultado, InStr(resultado, "(") - 1) & Right$(resultado, Len(resultado) - InStr(resultado, ")"))
    Loop
    Return resultado
End

' Eliminar espacios dobles
Public Function eliminar_espacios_dobles(cadena As String) As String
    Dim resultado As String
    resultado = cadena
    Do While InStr(resultado, "  ") > 0
        resultado = Replace$(resultado, "  ", " ")
    Loop
    Return resultado
End

' Agrega a la salida de busqueda
Public Sub add_search_list(codigo As String, titulo As String, anho As String, director As String, reparto As String, imagen As String)
    salida = salida & "<resultado>" & "\n"
    salida = salida & "    <codigo>" & codigo & "</codigo>" & "\n"
    salida = salida & "    <titulo>" & titulo & "</titulo>" & "\n"
    salida = salida & "    <año>" & anho & "</año>" & "\n"
    salida = salida & "    <direccion>" & director & "</direccion>" & "\n"
    salida = salida & "    <reparto>" & reparto & "</reparto>" & "\n"
    salida = salida & "    <miniatura>" & imagen & "</miniatura>" & "\n"
    salida = salida & "</resultado>"
End