Recopilando apuntes...

domingo, 11 de marzo de 2012

Control Remoto (IR) en Zotac Nano + XBMC (Dharma) + Ubuntu 11.10 (Oneiric)

Para los que tiene un Zotac Nano y montaron un centro multimedia en él y no saben como hacer para que XBMC reconozca el control remoto que viene con el equipo, aquí están los pasos:

1.- Instalar "lirc".

sudo apt-get install lirc

Si pregunta algo durante la instalación, déjenlo en "none" (primera opción), ya que lo configuraremos a mano más adelante.

2.- Configurar hardware.conf

sudo vi /etc/lirc/hardware.conf

Cambiar estos parámetros:

REMOTE_DEVICE="/dev/lirc0"

START_LIRCD="true"

3.- Configurar lircd.conf

sudo vi /etc/lirc/lircd.conf

Pegar el siguiente texto:

# Please make this file available to others

# by sending it to <lirc@bartelmus.de>

#

# this config file was automatically generated

# using lirc-0.9.0(default) on Sat Jan 14 16:23:13 2012

#

# contributed by 

#

# brand:                       MyRemote.conf

# model no. of remote control: 

# devices being controlled by this remote:

#

begin remote

  name  MyRemote

  bits           37

  flags RC6|CONST_LENGTH

  eps            30

  aeps          100

  header       2661   869

  one           446   437

  zero          446   437

  gap          106433

  toggle_bit_mask 0x8000

  rc6_mask    0x100000000

      begin codes

          KEY_POWER                0x037FCB7B71

          KEY_POWER2               0x037FCB7BC2

          KEY_RECORD               0x037FCB7BC8

          KEY_PAUSE                0x037FCB7BCF

          KEY_STOP                 0x037FCB7BCE

          KEY_REWIND               0x037FCB7BD6

          KEY_PLAY                 0x037FCB7BD3

          KEY_FASTFORWARD          0x037FCB7BD7

          KEY_PREVIOUSSONG         0x037FCB7BDE

          KEY_NEXTSONG             0x037FCB7BDF

          KEY_BACK                 0x037FCB7B7C

          KEY_WIN                  0x037FCB7BA2

          KEY_INFO                 0x037FCB7B34

          KEY_UP                   0x037FCB7BA7

          KEY_LEFT                 0x037FCB7BA5

          KEY_OK                   0x037FCB7BA3

          KEY_RIGHT                0x037FCB7BA4

          KEY_DOWN                 0x037FCB7BA6

          KEY_VOLUMEUP             0x037FCB7BEF

          KEY_VOLUMEDOWN           0x037FCB7BEE

          KEY_MUTE                 0x037FCB7BF2

          KEY_CHANNELUP            0x037FCB7BE1

          KEY_CHANNELDOWN          0x037FCB7BE0

          KEY_NUMERIC_1            0x037FCB7BFE

          KEY_NUMERIC_2            0x037FCB7BFD

          KEY_NUMERIC_3            0x037FCB7BFC

          KEY_NUMERIC_4            0x037FCB7BFB

          KEY_NUMERIC_5            0x037FCB7BFA

          KEY_NUMERIC_6            0x037FCB7BF9

          KEY_NUMERIC_7            0x037FCB7BF8

          KEY_NUMERIC_8            0x037FCB7BF7

          KEY_NUMERIC_9            0x037FCB7BF6

          KEY_NUMERIC_STAR         0x037FCB7BCC

          KEY_NUMERIC_0            0x037FCB7BFF

          KEY_NUMERIC_POUND        0x037FCB7BCD

          KEY_CLEAR                0x037FCB7BC5

          KEY_X                    0x037FCB7BD0

          KEY_Y                    0x037FCB7BC1

          KEY_ENTER                0x037FCB7BCB

          KEY_RED                  0x037FCB7B92

          KEY_GREEN                0x037FCB7B91

          KEY_YELLOW               0x037FCB7B90

          KEY_BLUE                 0x037FCB7B8F

      end codes

end remote

4.- Configurar Lircmap.xml

sudo vi /usr/share/xbmc/system/Lircmap.xml

Pegar el siguiente texto:

<!-- This file contains the mapping of LIRC keys to XBMC keys used in Keymap.xml  -->

<!--                                                                              -->

<!-- How to add remotes                                                           -->

<!-- <remote device="name_Lirc_calls_the_remote">                                 -->

<!--                                                                              -->

<!-- For the commands the layout following layout is used                         -->

<!-- <XBMC_COMMAND>LircButtonName</XBMC_COMMAND>                                  -->

<!--                                                                              -->

<!-- For a list of XBMC_COMMAND's check out the <remote> sections of keymap.xml   -->

<lircmap>

    <remote device="MyRemote">

        <play>KEY_PLAY</play>

        <pause>KEY_PAUSE</pause>

        <stop>KEY_STOP</stop>

        <forward>KEY_FASTFORWARD</forward>

        <reverse>KEY_REWIND</reverse>

        <left>KEY_LEFT</left>

        <right>KEY_RIGHT</right>

        <up>KEY_UP</up>

        <down>KEY_DOWN</down>

        <select>KEY_OK</select>

        <pageplus>KEY_CHANNELUP</pageplus>

        <pageminus>KEY_CHANNELDOWN</pageminus>

        <back>KEY_BACK</back>

        <menu>KEY_Y</menu>

        <title>KEY_X</title>

        <info>KEY_INFO</info>

        <skipplus>KEY_NEXTSONG</skipplus>

        <skipminus>KEY_PREVIOUSSONG</skipminus>

        <display>Display</display>

        <start>KEY_ENTER</start>

        <record>KEY_RECORD</record>

        <volumeplus>KEY_VOLUMEUP</volumeplus>

        <volumeminus>KEY_VOLUMEDOWN</volumeminus>

        <mute>KEY_MUTE</mute>

        <power>KEY_POWER2</power>

        <myvideo>Videos</myvideo>

        <mymusic>Music</mymusic>

        <mypictures>Pictures</mypictures>

        <mytv>TV</mytv>

        <one>KEY_NUMERIC_1</one>

        <two>KEY_NUMERIC_2</two>

        <three>KEY_NUMERIC_3</three>

        <four>KEY_NUMERIC_4</four>

        <five>KEY_NUMERIC_5</five>

        <six>KEY_NUMERIC_6</six>

        <seven>KEY_NUMERIC_7</seven>

        <eight>KEY_NUMERIC_8</eight>

        <nine>KEY_NUMERIC_9</nine>

        <zero>KEY_NUMERIC_0</zero>

        <star>KEY_NUMERIC_STAR</star>

        <hash>KEY_NUMERIC_POUND</hash>

        <clear>KEY_CLEAR</clear>

        <enter>KEY_WIN</enter>

        <red>KEY_RED</red>

        <green>KEY_GREEN</green>

        <yellow>KEY_YELLOW</yellow>

        <blue>KEY_BLUE</blue>

        <teletext>Teletext</teletext>

    </remote>

</lircmap>

El XBMC se debe ejecutar con la opción "-l" por lo que será necesario tener que cambiarlo en el LightDM (o GDM, según versión de Ubuntu)

...enjoy!!

sábado, 17 de septiembre de 2011

YouTube Searcher: Busca Videoclips de Música

Descripción:

Este script lista los videos de artistas (música) que están alojados en YouTube.

El listado de videos contempla el ID, nombre y duración de dichos videos.

Este script se puede complementar con otro script llamado "YouTube Downloader", el cual requiere del ID del video para descargarlo.

Enjoy!

#!/usr/bin/perl

use strict;

use HTTP::Lite;

use HTML::Entities;

#####################################################

#

# Desarrollado por: Zort

# Fecha: 16 de Septiembre de 2011

#

# Descripcion:

#   Este script lista los videos de artistas (musica) que

# estan alojados en YouTube.

#   El listado de videos contempla el ID, nombre y duracion

# de dichos videos.

#   Este script se puede complementar con otro script llamado

# "YouTube Downloader", el cual requiere del ID del video

# para descargarlo.

#

# Anexo:

#   Se omitieron todos los acentos en el codigo, para que no se

# vean caracteres erroneos en el caso de que el equipo donde

# se corra este codigo permita ver solo caracteres gringos.

#

#####################################################

my $artist = $ARGV[0];

$artist =~ s/^ +//;

$artist =~ s/ +$//;

$artist =~ s/ /_/g;

die "Usage: $0 artist\n\n" if ($artist eq '');

my $http = HTTP::Lite->new;

$http->http11_mode(1);

my $req = $http->request('http://www.youtube.com/artist/' . $artist);

if ($http->status() != 200) {

    print "No se pudo traer la pagina\n";

    exit;

}

# Getting the body page

my @body = split(/\n/, $http->body());

my $videos        = '';

my $artist_name   = '';

my $searching     = 0;

my $song_id       = 0;

my $song_duration = 0;

my $song_name     = 0;

foreach my $line (@body) {

    if ($line =~ /<h1>YouTube Mix for ([^<]*)</) {

        $artist_name = $1;

    }

    elsif ($line =~ /<h1>(Released in [0-9]+)/) {

        $videos .= "$1\n";

    }

    elsif ($line =~ / id="artist-videos" /) {

        $searching = 1;

    }

    elsif ($searching) {

        if ($line =~ /<li id="album-track-([^"]*)"/) {

            $song_id = $1;

        }

        elsif ($line =~ /<span class="album-track-duration">([^<]*)</) {

            $song_duration = $1;

        }

        elsif ($line =~ /<span class="description album-track-name">([^<]*)</) {

            $song_name = $1;

            $videos .= "  $song_id - " . decode_entities($song_name) . " ($song_duration)\n";

        }

    }

}

print "\n";

print 'Videos de "' . decode_entities($artist_name) . '":';

print "\n\n";

print $videos;

exit;

YouTube Downloader: Descarga Videos de YouTube

Yap, por fin salió!

Este script sirve para descargar videos de YouTube por CLI ;)

Lo único que tienen que hacer es ejecutar el script y pasarle como argumento el ID del video, luego el script preguntará el formato y resolución y... listo!

Enjoy!

#!/usr/bin/perl

use strict;

use HTTP::Lite;

use Data::Dumper;

#####################################################

#

# Desarrollado por: Zort

# Fecha: 16 de Septiembre de 2011

#

# Descripcion:

#   Este script descarga un video de YouTube especificado por

# el ID, el cual es entregado como parametro en la ejecucion.

#   A su vez, es posible elegir el formato y la resolucion

# del video segun la disponibilidad de YouTube de entregar el

# video con dichas caracteristicas.

#

# Anexo:

#   Se omitieron todos los acentos en el codigo, para que no se

# vean caracteres erroneos en el caso de que el equipo donde

# se corra este codigo permita ver solo caracteres gringos.

#   Se ha detectado que en ciertas ocasiones no se descarga

# el video. En estos casos se debe intentar nuevamente.

#

#####################################################

my $debug = 0;

my $video_id = $ARGV[0];

die "Usage: $0 video_id\n\n" if ($video_id eq '');

my $http = HTTP::Lite->new;

$http->http11_mode(1);

my $req = $http->request("http://www.youtube.com/get_video_info?video_id=$video_id&eurl=http%3A%2F%2Flocalhost%2F&hl=en_US")

    or die "Unable to get document: $!";

&showResponse($http) if ($debug);

if ($http->status() != 200) {

    print "The return code is not valid!\n";

    exit;

}

my $seconds        = 0;

my $fmt_stream_map = '';

my $fmt_list       = '';

my $title          = '';

my $token          = '';

my $formats        = ();

my @infos = split(/&/, $http->body());

foreach my $info (@infos) {

    my ($name, $value) = split(/=/, $info);

    $seconds        = $value            if ($name eq 'length_seconds');

    $fmt_stream_map = urlDecode($value) if ($name eq 'url_encoded_fmt_stream_map');

    $fmt_list       = urlDecode($value) if ($name eq 'fmt_list');

    $title          = urlDecode($value) if ($name eq 'title');

    $token          = $value            if ($name eq 'token');

}

my @formats_list = split(/,/, $fmt_list);

foreach my $format_list (@formats_list) {

    $format_list =~ /^([^\/]+)\/([^\/]+)\//;

    $formats->{$1}->{'resolution'} = $2;

}

my @formats_map = split(/,/, $fmt_stream_map);

foreach my $format_map (@formats_map) {

    my $url           = '';

    my $quality       = '';

    my $fallback_host = '';

    my $type          = '';

    my $itag          = '';

    my @variables = split(/&/, $format_map);

    foreach my $variable (@variables) {

        my ($name, $value) = split(/=/, $variable);

        $url           = urlDecode($value) if ($name eq 'url');

        $quality       = urlDecode($value) if ($name eq 'quality');

        $fallback_host = urlDecode($value) if ($name eq 'fallback_host');

        $type          = urlDecode($value) if ($name eq 'type');

        $itag          = $value            if ($name eq 'itag');

    }

    $formats->{$itag}->{'url'}           = $url;

    $formats->{$itag}->{'quality'}       = $quality;

    $formats->{$itag}->{'fallback_host'} = $fallback_host;

    $formats->{$itag}->{'type'}          = $type;

}

print "Titulo: $title\n";

print "Formatos:\n";

foreach my $format (sort { $formats->{$a}->{'type'} cmp $formats->{$b}->{'type'} } keys %{$formats}) {

    print " - (" . sprintf("%2d", $format) . ") " . $formats->{$format}->{'type'} . " (" . $formats->{$format}->{'quality'} . ") [" . $formats->{$format}->{'resolution'} . "]\n";

}

print "Opcion: ";

my $option = <STDIN>;

chomp($option);

print "Descargando numero $option...\n";

$http->reset();

$req = $http->request($formats->{$option}->{'url'});

my $output = $title;

$output .= '.mp4' if ($formats->{$option}->{'type'} =~ /video\/mp4/);

$output .= '.flv' if ($formats->{$option}->{'type'} =~ /video\/x-flv/);

$output .= '.webm' if ($formats->{$option}->{'type'} =~ /video\/webm/);

open(FH, '>', $output);

binmode(FH);

print FH $http->body();

close(FH);

print "Done!\n";

print "Archivo: '$output'\n";

#################

##  FUNCTIONS  ##

#################

sub showResponse() {

    my $http = shift;

    my $status     = $http->status();

    my $status_msg = $http->status_message();

    my @headers    = $http->headers_array();

    $status_msg =~ s/[\n\r]//g;

    print "Return Code:\n";

    print "    $status ($status_msg)\n";

    print "Headers:\n";

    foreach my $header (@headers) {

        print "    $header\n";

    }

    print "---------------------------\n";

    return 0;

}

sub urlDecode() {

    $_ = shift;

    s/\+/ /g;

    s/\%([0-9A-F]{2})/@{[chr hex $1]}/g;

    return $_;

}