#1 Le 08/10/2007, à 21:53
- oblooblo2000
[resolu]feisty + mythtv + sasc-ng + infinity phoenix
Bonjour a tous,
1/ j'aimerai savoir si la seule solution pour utiliser une carte officelle est sasc-ng. J'ai cru comprendre qu'il fallait coupler ensuite avec newcs, gbox...
2/ Je me suis donc lancé dans la compil comme expliqué ici:
https://opensvn.csie.org/traccgi/sascng/
sudo apt-get install subversion
sudo svn co https://OpenSVN.csie.org/sascng sasc-ng
cd sasc-ng/
cd trunk/
sudo ./configure
sudo make module
sudo makeet la j'ai des erreurs:
echo 'const char *source_version =' '"'`(svnversion /home/gilc/sasc-ng/trunk 2>/dev/null) || echo Unknown`/`(svnversion /home/gilc/sasc-ng/trunk/dvbloopback 2>/dev/null) || echo Unknown`'";' > .vers.new ; diff .vers.new objs/version.cpp > .vers.diff 2>&1 ; if test -s .vers.diff ; then mv -f .vers.new objs/version.cpp ; fi ; rm -f .vers.new .vers.diff
make -C ./sc/PLUGINS/src/sc-src CXX=g++ SASC=1 STATIC=1 all
sed: impossible de lire ../../../ci.c: Aucun fichier ou répertoire de ce type
grep: ../../../i18n.c: Aucun fichier ou répertoire de ce type
make[1]: entrant dans le répertoire « /home/gilc/sasc-ng/trunk/sc/PLUGINS/src/sc-src »
g++ -O2 -g -fPIC -Wall -Woverloaded-virtual -c -DPLUGIN_NAME_I18N='"sc"' -DSASC -DAPIVERSNUM=10505 -D_GNU_SOURCE -DSTATICBUILD -I../../../include crypto.c
Dans le fichier inclus à partir de crypto.c:24:
crypto.h:32:33: erreur: openssl/opensslconf.h : Aucun fichier ou répertoire de ce type
crypto.h:33:30: erreur: openssl/opensslv.h : Aucun fichier ou répertoire de ce type
crypto.h:36:2: erreur: #error Openssl version 0.9.7 or newer is strongly recomended
Dans le fichier inclus à partir de crypto.h:39,
à partir de crypto.c:24:
crypto-bn.h:23:24: erreur: openssl/bn.h : Aucun fichier ou répertoire de ce type
crypto.c:91:2: attention : #warning ** openssl lacks IDEA support. Using deprecated static support code. Update your openssl package.
crypto.c:385:2: attention : #warning ** openssl lacks AES support. Using deprecated static support code. Update your openssl package.
crypto-bn.h:34: erreur: «BIGNUM" does not name a type
crypto-bn.h:38: erreur: expected type-specifier before «BIGNUM"
crypto-bn.h: In constructor «cBN::cBN()":
crypto-bn.h:36: erreur: «big" was not declared in this scope
crypto-bn.h:36: erreur: «BN_init" was not declared in this scope
crypto-bn.h: In destructor «cBN::~cBN()":
crypto-bn.h:37: erreur: «big" was not declared in this scope
crypto-bn.h:37: erreur: «BN_free" was not declared in this scope
crypto-bn.h: At global scope:
crypto-bn.h:47: erreur: ISO C++ forbids declaration of «BN_CTX" with no type
crypto-bn.h:47: erreur: expected «;" before «*" token
crypto-bn.h:51: erreur: expected type-specifier before «BN_CTX"
crypto-bn.h: In constructor «cBNctx::cBNctx()":
crypto-bn.h:49: erreur: «ctx" was not declared in this scope
crypto-bn.h:49: erreur: «BN_CTX_new" was not declared in this scope
crypto-bn.h: In destructor «cBNctx::~cBNctx()":
crypto-bn.h:50: erreur: «ctx" was not declared in this scope
crypto-bn.h:50: erreur: «BN_CTX_free" was not declared in this scope
crypto.h: At global scope:
crypto.h:131: erreur: expected «," or «..." before «*" token
crypto.h:131: erreur: ISO C++ forbids declaration of «BIGNUM" with no type
crypto.h:132: erreur: «BIGNUM" has not been declared
crypto.h:132: erreur: expected «," or «..." before «*" token
crypto.h:132: erreur: ISO C++ forbids declaration of «BIGNUM" with no type
crypto.h:133: erreur: «BIGNUM" has not been declared
crypto.h:133: erreur: expected «," or «..." before «*" token
crypto.h:133: erreur: ISO C++ forbids declaration of «BIGNUM" with no type
crypto.c: In member function «bool cBN::Get(const unsigned char*, int)":
crypto.c:54: erreur: «big" was not declared in this scope
crypto.c:54: erreur: «BN_bin2bn" was not declared in this scope
crypto.c: In member function «int cBN::Put(unsigned char*, int) const":
crypto.c:59: erreur: «big" was not declared in this scope
crypto.c:59: erreur: «BN_num_bytes" was not declared in this scope
crypto.c:62: erreur: «BN_bn2bin" was not declared in this scope
crypto.c:68: erreur: «BN_bn2bin" was not declared in this scope
crypto.c:70: erreur: «BN_bn2bin" was not declared in this scope
crypto.c: In member function «bool cBN::GetLE(const unsigned char*, int)":
crypto.c:78: erreur: «big" was not declared in this scope
crypto.c:78: erreur: «BN_bin2bn" was not declared in this scope
crypto.c: At global scope:
crypto.c:157: erreur: expected «," or «..." before «*" token
crypto.c:157: erreur: ISO C++ forbids declaration of «BIGNUM" with no type
crypto.c: In member function «int cRSA::RSA(unsigned char*, const unsigned char*, int, int) const":
crypto.c:161: erreur: «LE" was not declared in this scope
crypto.c:162: erreur: «exp" was not declared in this scope
crypto.c:162: erreur: «mod" was not declared in this scope
crypto.c:162: erreur: «BN_mod_exp" was not declared in this scope
crypto.c: At global scope:
crypto.c:168: erreur: «int cRSA::RSA" is not a static member of «class cRSA"
crypto.c:168: erreur: «BIGNUM" was not declared in this scope
crypto.c:168: erreur: «out" was not declared in this scope
crypto.c:168: erreur: expected primary-expression before «const"
crypto.c:168: erreur: expected primary-expression before «int"
crypto.c:168: erreur: expected primary-expression before «const"
crypto.c:168: erreur: expected primary-expression before «const"
crypto.c:168: erreur: expected primary-expression before «bool"
crypto.c:168: erreur: initializer liste d'expressions traitée comme une expression composée
crypto.c:168: erreur: expected «," or «;" before «const"
crypto.c:179: erreur: «BIGNUM" has not been declared
crypto.c:179: erreur: expected «," or «..." before «*" token
crypto.c:179: erreur: ISO C++ forbids declaration of «BIGNUM" with no type
crypto.c: In member function «int cRSA::RSA(unsigned char*, int, int*, int) const":
crypto.c:183: erreur: «exp" was not declared in this scope
crypto.c:183: erreur: «mod" was not declared in this scope
crypto.c:183: erreur: «BN_mod_exp" was not declared in this scope
crypto.c:183: erreur: «LE" was not declared in this scope
make[1]: *** [crypto.o] Erreur 1
make[1]: quittant le répertoire « /home/gilc/sasc-ng/trunk/sc/PLUGINS/src/sc-src »
make: *** [sc-plugin] Erreur 2j'ai l'impression qu'il y a un pb avec libcrypto, openssl qui est a jour pourtant, libssl qui a l'air de ne pas etre dans les depots et mes headers dvb qui sont normalement avec le noyau??? A moins que je doits les telecharger (sources)
apres il faut je crois patcher mythtv
et puis je doits enfin faire le lien avec mon infinity usb phoenix avec newcs je penses.
Je tatonne, ah oui j'utilise une hauppauge nova s plus (dvb-s) qui marche avec cx88-dvb
Merci pour toute aide.
Dernière modification par oblooblo2000 (Le 13/10/2007, à 23:09)
Hors ligne
#2 Le 09/10/2007, à 19:35
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
ok j'ai reussi a compiler en installant avant le make:
sudo apt-get install libc6-dev kernel-package libqt3-mt-dev libncurses-dev libttf-dev libqt4-core libqt4-dev mysql-common mysql-server phpmyadmin xmltv xmltv-gui build-essential fakeroot qt3-dev-tools libqt3-mt-dev liblircclient-dev libasound2-dev libdts-dev libdvdnav-dev libxv-dev libxvmc-dev libxxf86vm-dev libqt3-mt-mysql libxxf86vm-dev libqt3-mt-mysql subversion libdvdread3-dev libsamplerate0 subversion libsamplerate0 liba52-0.7.4-dev liba52-0.7.4-dev libcdio-dev kdelibs4-dev flac flac123 libflac-dev libcdaudio-dev libxml-simple-perl libxml-rss-perl exif libexif-dev liblame-dev liblame0 lame libssl-devcomme indiqué ici
https://opensvn.csie.org/traccgi/sascng/wiki/Ubuntubuild
http://mythtv.pbwiki.com/MythTV+och+SASC-NG
Si vous avez un probleme avec le configure, un sudo apt-get install g++ peu aider (sous linuxmce)
Maintenant il faut que j'installe newcs et l'interface avec smartcard.conf, je croits.
A suivre.
Dernière modification par oblooblo2000 (Le 24/10/2007, à 21:15)
Hors ligne
#3 Le 09/10/2007, à 20:18
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
d'ailleurs si cela sert a quelqu un les versions compiler sont la:
http://www.zshare.net/download/4114002fe7df10/
config:
mythtv 0.20-svn20070122-0.0ubuntu6 (via apt-get)
kernel a jour 2.6.20-16-generic
ubuntu feisty
Hors ligne
#4 Le 09/10/2007, à 21:37
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
bon voici le newcs.xml que j'utilise avec mon infinity usb phoenix sur port com 1:
<newCSconfig>
<readers name="Card Readers">
<device>
<name>phoenix</name>
<type>Phoenix</type>
<node>/dev/ttyS0</node>
<mhz>600</mhz> <!-- or 357 -->
<parity>even</parity>
<export>yes</export>
<enabled>yes</enabled>
<blocksa>No</blocksa>
<blockua>No</blockua>
<blockga>No</blockga>
<!-- <boxkey>0000000000</boxkey> -->
<PTShandshake>no</PTShandshake>
<crypto-special>no</crypto-special>
<carddetect>no</carddetect>
<newcamd_port>10001</newcamd_port>
<priority>round</priority> <!-- hard is default -->
<sid>
<allow>
<!-- valid value for id are:
4 numbers, if the service id is 3 numbers, add a 0 infront of it. -->
<id></id>
</allow>
<deny>
<!-- valid value for id are:
4 numbers, if the service id is 3 numbers, add a 0 infront of it. -->
<id></id>
</deny>
</sid>
</device>
</readers>
<radegastserver>
<!-- valid value for enable are:
0,1 - Enable or Disable radegast server. -->
<enabled>no</enabled>
<!-- valid value for port are:
0,65535 - Which port to listen for incomming connections. -->
<port>10001</port>
<!-- valid value for allow are:
ALL - Not active yet. -->
<allow>
<hostname>127.0.0.1</hostname>
</allow>
</radegastserver>
<cache>
<emm>10</emm>
<ecm>10</ecm>
</cache>
<debug>
<level>normal</level>
<type>init</type>
<output>all</output>
<logfile></logfile>
<console_options></console_options>
<file_options></file_options>
<udp_host>192.168.1.10</udp_host>
<udp_port>1000</udp_port>
<udp_options></udp_options>
<tcp_port>3001</tcp_port>
<tcp_options></tcp_options>
</debug>
<newcamdserver>
<enabled>yes</enabled>
<name>bla</name>
<deskey>0102030405060708091011121314</deskey>
<userfile></userfile>
<user>
<name>test</name>
<password>test</password>
<au>on</au>
</user>
<!-- Remove if you dont use reverse login -->
<user>
<name>User2</name>
<password>Pass2</password>
<hostname>localhost</hostname>
<port>12345</port>
<spider>yes</spider>
</user>
</newcamdserver>
</newCSconfig>Je n'ai pas encore eu le temps de le parametrer a ma sauce !!
Maintenant reste a lier mythtv et sasc-ng, comme indiqué ici a priori:
https://opensvn.csie.org/traccgi/sascng/wiki/SascMythTV
Puis lier sasc-ng avec newcs !
risque d'etre plus coton
A priori il y avait plus simple en modifiant uniquement le fichier sc_files/smartcard.conf et donc se passer de newcs !
Hors ligne
#5 Le 10/10/2007, à 17:22
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
En fait voici d'autres infos utiles:
http://www.omcentre.com.au/Getting-Pay-TV-to-Work-With-MythTV.102.0.html
avec newcs, o doit parametrer le serveur radegast, puis parametrer dans sasc, le fichier cardclient.conf:
The only file I'm putting there is cardclient.conf that has the configuration
to connect to the newcamd server (radegast) that controls the smartcard.
Reste plus qu'a trouver un exemple !!!
Hors ligne
#6 Le 10/10/2007, à 17:30
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
ok, les exemples de fichiers se trouvent dans:
sasc-ng/trunk/sc/PLUGINS/src/sc-src/examples
2 solutions, smartcard.conf a configurer et dans ce cas, on se passe de newcs
I've never used ST19 and it's been a long time since I used a smartcard at all, but make sure you read the directions in sc/PLUGINS/src/sc-src. You must specify the 'DEFAULT_PORT in sasc's Makefile via:
SCOPTS = 'DEFAULT_PORT="/dev/ttyS0",0,0,0'
dans mon cas, c'est ok
2eme solution on parametre newcs je croits en serveur radegast, puis le fichiers sc_files/cardclient.conf de sasc-ng. Je me demande si on est obligé de passer par newcamd... ou est ce que newcs peut dialoguer directement avec sasc
Dernière modification par oblooblo2000 (Le 10/10/2007, à 18:03)
Hors ligne
#7 Le 10/10/2007, à 18:06
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
Pour la 2eme solution, je croits qu'on a pas le choix !!
newcs + newcamd (ou radegast, cccam, gbox...) + sasc (cardclient.conf) + carte virtuelle tv dans mythtv (carte reele decryptee)
EDIT: Je me reprends, en fait on peut s'en passer, newcs + sasc marche ensemble:
/etc/newcs.xml:
<newCSconfig>
<readers name="Card Readers">
<device>
<name>phoenix</name>
<type>Phoenix</type>
<node>/dev/ttyS0</node>
<mhz>357</mhz> <!-- or 357 -->
<parity>even</parity>
<export>yes</export>
<enabled>yes</enabled>
<blocksa>No</blocksa>
<blockua>No</blockua>
<blockga>No</blockga>
<!-- <boxkey>0000000000</boxkey> -->
<PTShandshake>no</PTShandshake>
<crypto-special>no</crypto-special>
<carddetect>no</carddetect>
<newcamd_port>10000</newcamd_port>
<priority>round</priority> <!-- hard is default -->
<sid>
<allow>
<!-- valid value for id are:
4 numbers, if the service id is 3 numbers, add a 0 infront of it. -->
<id></id>
</allow>
<deny>
<!-- valid value for id are:
4 numbers, if the service id is 3 numbers, add a 0 infront of it. -->
<id></id>
</deny>
</sid>
</device>
</readers>
<cache>
<emm>10</emm>
<ecm>10</ecm>
</cache>
<debug>
<level>normal</level>
<type>init</type>
<output>all</output>
<logfile></logfile>
<console_options></console_options>
<file_options></file_options>
<udp_host>localhost</udp_host>
<udp_port>11000</udp_port>
<udp_options></udp_options>
<tcp_port>11001</tcp_port>
<tcp_options></tcp_options>
</debug>
<newcamdserver>
<enabled>yes</enabled>
<name>grencam</name>
<deskey>0102030405060708091011121314</deskey>
<userfile></userfile>
<user>
<name>test</name>
<password>test</password>
<au>on</au>
<spider>No</spider>
<sidoverride>No</sidoverride>
<readers>
<allow>phoenix</allow>
</readers>
</user>
</newcamdserver>
</newCSconfig>changer le port vers /dev/ttyUSB1 dans le cas d'un cable usb2serial
sasc-ng/trunk/sc_files/cardclient.conf:
#
# Comment lines can start with # or ;
#
# every client line starts with the client name, followed by some arguments:
# 'hostname' is the name of the server
# 'port' is the port on the server
# 'emm' is a flag to allow EMM transfers to the server
# (0=disabled 1=enabled)
# 'caid' (optional) caid on which this client should work
# 'mask' (optional) mask for caid e.g. caid=1700 mask=FF00 would allow
# anything between 1700 & 17FF.
# Default is 1700 & FF00. If only caid is given mask is FFFF.
# You may give multiple caid/mask values comma separated
# (e.g. 1702,1722,0d0c/ff00).
# 'username' is the login username
# 'password' is the login password
#
# radegast client
#radegast:hostname:port:emm/caid/mask
#
# aroureos client
# 'hexbase'
# 'hexserial' card data for which EMM updates should be send
#aroureos:hostname:port:emm/caid/mask:hexbase:hexserial
#
# camd33 client (tcp protocol)
# 'aeskey' is the AES key (32bytes), disable encryption if missing
#camd33:hostname:port:emm/caid/mask:username:password:aeskey
#
# camd35 client (udp protocol)
#camd35:hostname:port:emm/caid/mask:username:password
#
# cardd client
#cardd:hostname:port:emm/caid/mask:username:password
#
# buffy client
# 'aeskey' is the AES key (32bytes), disable encryption if missing
#buffy:hostname:port:emm:username:password:aeskey
#some examples
#newcamd:192.168.0.10:10000:1/1801/FF00:mythtv:xxxxxxxx:XXXXXXXXXXXXXXXXXXXXXXXXXXXX
#radegast:192.168.0.10:10001:1/1801/FF00
#
# newcamd client
# 'cfgkey' is the config key (28bytes)
#newcamd:hostname:port:emm/caid/mask:username:password:cfgKey
newcamd:127.0.0.1:10000:1/1801/FF00:test:test:0102030405060708091011121314
#
# gbox client
#
# NOTE: hostname & port will be ignore. GBOX must be runnning on the local
# machine. For convinience you should choose localhost:8004
#gbox:hostname:port:emm/caid/maskAvec ces deux configs ca marche:
sudo /home/gilc/sasc-ng/trunk/sasc-ng -j 0:1
sudo /home/gilc/newcs-1_31/bin/newcs.i686.usb
Reste qu'a parametrer la carte virtuelle dans le backend.
Dernière modification par oblooblo2000 (Le 03/11/2007, à 15:08)
Hors ligne
#8 Le 11/10/2007, à 02:13
- zenacim
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
bonjour,
tu as l'air de t y connaitre.
Je possède un infinity USB mais je connais pas la marche a suivre pour l'installer sous 7.04
peux m'aider stp
ASUS X55V - Ubuntu 14.04 LTS
Hors ligne
#9 Le 11/10/2007, à 13:09
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
bonjour,
tu as l'air de t y connaitre.
Je possède un infinity USB mais je connais pas la marche a suivre pour l'installer sous 7.04
peux m'aider stp
salut, non mais je decouvre et c'est hard quant meme.
Pour ton probleme, que veux tu faire reelement?? Quel soft tu veux utiliser (kaffeine, vdr, mythtv...)??
Quel infinity as tu phoenix, unlimited ???
QU'est ce qui te bloque ?
A plus
Hors ligne
#10 Le 11/10/2007, à 20:28
- zenacim
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
salut je possede un Infinity USB "Phoenix Compatible"
je souhaiterai pouvoir manipuler les cartes à puces que je possède
ASUS X55V - Ubuntu 14.04 LTS
Hors ligne
#11 Le 12/10/2007, à 08:02
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
salut, soit un peu plus précis / a mes autres questions
Hors ligne
#12 Le 13/10/2007, à 20:59
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
ok je continue, a priori, il faut patcher myththtv pour le lien avec sasc:
http://dvbn.happysat.org/viewtopic.php?t=41499&highlight=mythtv+sasc
Merci a torxbit
#These are the plugins for Mythtv. The revision you check out MUST match the revision of mythtv above
svn co http://cvs.mythtv.org/svn/trunk/mythplugins#These are the patches you run against Mythtv so it will work with Dishnet/Expressview (and a few others I do not know off the top of my head).
svn co http://opensvn.csie.org/myth_dvb_ng#This is the sasc code to emulate a CAM and decrypt the stream.
svn co http://opensvn.csie.org/sascngThese steps imply you know something about Linux. It is not meant as a HOWTO for someone who is completely new (that excersise is damn near futile and is covered on many sites on the Internet anyway).
1) Install whatever Linux you want, configure its devices and ensure it works.
2) Load on a compiler (gcc and g++) comes to mind, as well as some libraries. If you compile and find you have errors from "missing" statements this usually means you are missing some -dev package.
3) Get those 4 pieces above.
4) Copy the patches you need from the myth-dvb-ng above to the mythtv directory you downloaded in step 1. If you do not know what patched you need there are many places here to tell you. Which ones depends on how you plan to use the software and on what DVB cards. The general command is:patch -p0 -F99 < whatever.diff
This implies you are in the directory to patch (the -p0) and that you want to to be forgiving on how far off the lines can differ (-F99). If you have ANY failed chucks STOP. You need newer patches (unless you know what a diff is and can apply the failed segments by hand).
5) Go to the directory you downloaded mythtv to and configure and make the software. What options you need to put in your configure again greatly depend on what hardware you have.
6) Install it, then go to the mythplugins directory.
7) Like in step 6, configure and make again. If things do not show up here it is again because you are missing libraries. If you failed to install mythtv above this will fail as you are missing its libraries. When you are done install these (yes I am implying you have both frontend and backend on the same box).
Cool No go to the sascng/trunk directory, and configure the software. If you have an AMD processor read on these forums how to fix the code.
9) Go to the dvbloopback/module directory and type make. If this works you should have a dvbloopback.ko file. If it fails the most common reason is you do not have the kernel source code on the system (it is needed as you are making a custom module for your kernel). If you have problems here, again search the forums.
10) Copy that dvbloopback.ko to the modules direcotry (commonly /lib/modules/<kernel>). Then type "depmod -a". If there are errors here, stop and go back to step 9.
11) type "modprobe dvbloopback" if you have more then one card or need other options again search the forums.
12) go to the sascng/trunk directory and type 'make". If it works you should have a sasc-ng binary. After this you need to search the forums and get some parts external to this site (no I am not going to tell you where to get a key file). Setting up sasc to work with mythtv is in the stickies above.
Hors ligne
#13 Le 13/10/2007, à 22:15
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
En fait le patch est necessaire uniquement pour le nord americain !!
En fait Il faut faire pointer mythtv vers le virtual device 1
(en gros on a le 0 qui est le tunner reel, le 1 devient le 0+decodage de sasc lui meme discutant avec newcs connecté a la carte... oufff compliqué quant meme !)
Donc reste ce point a regler sachant que la commande sasc bloque quant le backend fonctionne (en gros je pense qu'il acced au tuner), donc je pense quant liant le backend de mythtv a la carte 1 (virtuelle), sasc fonctionnera !!
a suivre
Hors ligne
#14 Le 13/10/2007, à 22:36
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
Bon en fait dans carte dvb de mythtv backend il suffit de changer le numéro d'adaptateur qui etait a 0 vers 1. Et de relancer le parametrage automatique !!
Du coup sasc marche, c'etait bien ca !!
Par contre, je suis un peu degouté car en mettant l'adaptateur a 1, dans le frontend de mythtv, je n'ai pas de signal !! En clair il y a un truc que j'ai mal fait !!
Je penses que c'est avec le configure de sasc !!! je ne me rapele pas si j'ai mis des options ??
a suivre !
Hors ligne
#15 Le 13/10/2007, à 23:08
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
Je penses que c'est avec le configure de sasc !!! je ne me rapele pas si j'ai mis des options ??
a suivre !
Ca y est, a les louia !!! Ca marche !!!
En fait ca vennait pas du configure, mais du dvbloopback.ko
sudo rmmod dvbloopback.ko
sudo rm /home/gilc/sasc-ng/trunk/dvbloopback.ko
sudo make #recreer le sasc-ng
sudo make module #recreer le dvbloopback module
sudo insmod dvbloopback.ko
sudo ./sasc-ng -j 0:1 #lancer sasc et creer l'adaptateur virtuel 1 basé sur le 0dans le cas de deux cartes:
sudo ./sasc-ng -j 0:2 -j 1:3
Dernière modification par oblooblo2000 (Le 25/10/2007, à 18:49)
Hors ligne
#16 Le 13/10/2007, à 23:19
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
c'etait encore plus c*n que ca:
sudo /etc/init.d/mythtv-backend stop
sudo /etc/init.d/mythtv-backend start
puis relancer newcs
puis sasc
puis myth frontend
Hors ligne
#17 Le 13/10/2007, à 23:43
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
sasc au demarrage:
creer script
sudo vim /etc/init.d/sasc
chmod 755 /etc/init.d/sasc
cd /etc/rc5.d
sudo ln -s ../init.d/sasc S40sacto make it run level 5
L'autre solution peut etre:
ln -s /script/mythtv/newcs/newcs.i686 ~/.kde/Autostart/newcs
ln -s /script/mythtv/sasc/sasc-ng ~/.kde/Autostart/sasc
ln -s mythtv-backend ~/.kde/Autostart/mythtv-backend
ou encore:
l faut créer un script du type
Code sasc.sh:
#!/bin/sh
/etc/init.d/mythtv-backend stop
/script/mythtv/newcs/bin/newcs.i686
/script/mythtv/sasc/sasc-ng -j 0:1
/etc/init.d/mythtv-backend start
mythfrontend
Tu le mets dans ~/.kde/Autostart
puis tu le rends exécutable et le setuid
Code:
sudo chmod +x ton_script
sudo chmod 6775 ton_script
Dernière modification par oblooblo2000 (Le 16/10/2007, à 18:11)
Hors ligne
#18 Le 15/10/2007, à 21:42
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
Pour ma part j'ai fait un petit script, et un lien:
dans l'autostart vers
ln -s /usr/bin/mythfrontend
Puis le script simple dans /etc/init.d
#! /bin/bash
#
# sasc start-stop script
# Updated 1-9-07 - version 7
# Script by opacus
#
# IMPORTANT: Copy dvbloopback.ko (or link it) to /lib/modules/2.6.XX/misc
# after that run "depmod -a" so the modprobe works without being in the current directory.
# Change to 1 to enable sasc-ng's init-script
ENABLED=1
NAME="sasc" # name of this program
LOOPDRIVER=" dvbloopback" # name of dvbloopback module
SASCDIR="/script/mythtv/sasc/" # sasc-ng directory
SASCPRG="sasc-ng" # name of sasc-ng program
ADDLPRG="mythbackend" # additional program (mythbackend or vdr) to be started
ADDLDIR="/usr/local/bin/" # additional program directory
# If no add-l program is desired leave an empty field. ie: ADDLPROG= " "
# Add here your dvb card or remote control drivers which may be loaded and unloaded.
# CAUTION: The order of drivers is critical. Drivers with dependants must be at the end of the list
# THE WRONG ORDER OF DRIVERS MAY CRASH YOUR SYSTEM
# this is an example for ati-rc and genpix-usb:
# ADDLDRIVERS=" dvb-usb-gp8psk lirc_atiusb lirc-dev dvb-usb dvb-core dvb-pll"
# this is an example for nexus-s card:
#ADDLDRIVERS=" ves1x93 stv0297 sp8870 tda8083 ves1820 l64781 lnbp21 ttpci_eeprom stv0299 saa7146_vv saa7146 dvb_ttpci dvb_core"
#ADDLDRIVERS=""
# Startup Options passed to dvbloopback driver: Adjust according to your number of dvb cards.
LOOPDRIVEROPTION=" num_adapters=1 "
# Startup Options passed to SASC-NG.
# Adjust according to your devices. You can also use multiple dvb card arguments joined
# SASCOPTION=" --cam-dir=/video/plugins -r 0 -v 1 -o " # this is an example for sasc-ng R1 - R66
SASCOPTION=" -j 0:1 " # this is an example for sasc-ng R67 ->
# Number of times runsasc will attempt to restart SASC-NG after a crash has occured (set to 0 for no limit)
MAXTRIES=3
## End Configuration Section ##
test "$ENABLED" != "0" || exit 0
SASCCMD="$SASCDIR$SASCPRG $SASCOPTION"
LOOPCOUNT=1
LOOP=0
TIMEOUT=200
# Load all DVBLoopback driver modules needed for your hardware:
function LoadDrivers()
{
echo -e "Stopping mythtv-backend \n"
sudo /etc/init.d/mythtv-backend stop
sleep 5
echo -e "Starting newcs \n"
#/script/mythtv/newcs/bin/newcs.i686&
screen -D -m -S newcs-screen /script/mythtv/newcs/bin/newcs.i686&
sleep 5
cd /script/mythtv/sasc
echo -e "Starting dvbloopback \n"
#insmod dvbloopback.ko num_adapters=<# of cards>
#modprobe -aqv /script/mythtv/sasc/dvbloopback.ko
sudo insmod /script/mythtv/sasc/dvbloopback.ko num_adapters=1
sleep 5
echo -e "Starting sasc \n"
#/script/mythtv/sasc/sasc-ng -j 0:1&
#screen -D -m -S sasc-screen /script/mythtv/sasc/sasc-ng -j 0:2 -j 1:3&
screen -D -m -S sasc-screen /script/mythtv/sasc/sasc-ng -j 0:1&
sleep 5
echo -e "Restarting mythtv-backend \n"
sudo /etc/init.d/mythtv-backend start
}
# Unload all DVBLoopback driver modules loaded in LoadDrivers
function UnloadDrivers()
{
screen -wipe >/dev/null 2>&1
killall -q -TERM "newcs.i686"
sleep 2
killall -q -TERM "sasc-ng"
sleep 2
rmmod dvbloopback.ko
sleep 2
}
case "$1" in
start)
echo -e "Starting $SASCPRG \n"
LoadDrivers
;;
stop)
echo -e "Stopping $SASCPRG and unloading drivers \n"
UnloadDrivers
;;
restart | reload | force-reload)
echo -e "Restarting $SASCPRG \n"
UnloadDrivers
LoadDrivers
;;
*)
echo "Use: $N {start|stop|restart|reload|force-reload}" >&2
;;
esac
exit 1si plusieurs adaptateurs modifier le script:
insmod dvbloopback.ko num_adapters=<# of cards>
Dernière modification par oblooblo2000 (Le 25/10/2007, à 19:55)
Hors ligne
#19 Le 16/10/2007, à 17:26
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
j'ai mis a jour mon script car pour que sasc trouve le fichier cardclient.conf, il faut se trouver dans le repertoire du script sasc.
Je penses qu'en l'ajoutant au path, ca doit marcher aussi !!
Bon maintenant je passe a la config de lirc !!
Je suis alle dans aptitude et j'ai installé lirc !!!
sudo apt-get install lirc lirc-modules-source module-assistant
si on veux re construire a chaque changement de kernel avec les sources de lirc
sudo dpkg-reconfigure lirc-modules-source
+ d infos ici
https://help.ubuntu.com/community/Install_Lirc_Feisty
J'ai modifié le fichier:
lircd.conf pour ma hauppauge (compatible en tout cas car avec la nova s plus, la telecommande est une a415 ou a415-hpg-we-a :
begin remote
name Hauppauge_350
bits 13
flags RC5|CONST_LENGTH
eps 30
aeps 100
one 969 811
zero 969 811
gap 114605
toggle_bit 2
plead 1097
begin codes
Go 0x00000000000017BB
Power 0x00000000000017BD
TV 0x000000000000179C
Videos 0x0000000000001798
Music 0x0000000000001799
Pictures 0x000000000000179A
Guide 0x000000000000179B
Radio 0x000000000000178C
Up 0x0000000000001794
Left 0x0000000000001796
Right 0x0000000000001797
Down 0x0000000000001795
OK 0x00000000000017A5
Back/Exit 0x000000000000179F
Menu/i 0x000000000000178D
Vol+ 0x0000000000001790
Vol- 0x0000000000001791
Prev.Ch 0x0000000000001792
Mute 0x000000000000178F
Ch+ 0x00000000000017A0
Ch- 0x00000000000017A1
Record 0x00000000000017B7
Stop 0x00000000000017B6
Rewind 0x00000000000017B2
Play 0x00000000000017B5
Forward 0x00000000000017B4
Replay/SkipBackward 0x00000000000017A4
Pause 0x00000000000017B0
SkipForward 0x000000000000179E
1 0x0000000000001781
2 0x0000000000001782
3 0x0000000000001783
4 0x0000000000001784
5 0x0000000000001785
6 0x0000000000001786
7 0x0000000000001787
8 0x0000000000001788
9 0x0000000000001789
Asterix 0x000000000000178A
0 0x0000000000001780
# 0x000000000000178E
Red 0x000000000000178B
Green 0x00000000000017AE
Yellow 0x00000000000017B8
Blue 0x00000000000017A9
end codes
end remoteEn tout cas les fleches marche
######puis modifier le code pour l'utilisateur mythtv (lorsque je lance le prog je presume)
######/home/mythtv/.mythtv/lircrc
puis modifier le code pour ~/.lircrc (lorsque je lance le prog je presume)
sudo vim .lircrc
# ~/.mythtv/lircrc
#
# MythTV native LIRC config file for
# the new grey Hauppauge remote
#
# Modified from Jarod Wilson's which came from Jeff Campbell's
# By Brad Templeton
# Here we have the jump point commands. They only work if you have
# defined function keys for these jump points. For me the most
# common command is the menu of recordings, so I put that on "videos"
# even though that's counter-intuitive
begin
prog = mythtv
button = TV
repeat = 3
config = F5
end
begin
prog = mythtv
button = Videos
repeat = 3
config = F2
end
# Not yet defined
begin
prog = mythtv
button = Music
repeat = 3
config = Up
end
# Given another function for now, I don't use mythgallery
begin
prog = mythtv
button = Pictures
repeat = 3
config = F
end
begin
prog = mythtv
button = Guide
repeat = 3
config = F3
end
# I stuck the "todo" list on here as Myth has no radio function
begin
prog = mythtv
button = Radio
repeat = 3
config = F4
end
begin
prog = mythtv
button = UP
repeat = 3
config = Up
end
begin
prog = mythtv
button = DOWN
repeat = 3
config = Down
end
begin
prog = mythtv
button = LEFT
repeat = 3
config = Left
end
begin
prog = mythtv
button = RIGHT
repeat = 3
config = Right
end
# Channel Up
begin
prog = mythtv
button = Channel-UP
repeat = 3
config = Up
end
# Channel Down
begin
prog = mythtv
button = Channel-DOWN
repeat = 3
config = Down
end
# OK/Select
begin
prog = mythtv
button = Ok
config = Space
end
# Play
begin
prog = mythtv
button = Play
config = Return
end
# Stop
begin
prog = mythtv
button = Stop
config = I
end
# Escape/Exit/Back
begin
prog = mythtv
button = Back/Exit
config = Esc
end
# Power Off/Exit
begin
prog = mythtv
button = Power
config = Esc
end
# Pause
begin
prog = mythtv
button = Pause
repeat = 3
config = P
end
# Mute
begin
prog = mythtv
button = Mute
repeat = 3
config = |
end
# Fast forward (30 sec default)
begin
prog = mythtv
button = Rewind
repeat = 3
config = <
end
# Rewind (10 sec default)
begin
prog = mythtv
button = Forward
repeat = 3
config = >
end
# Skip forward (10 min default)
begin
prog = mythtv
button = Next
repeat = 3
config = End
end
# Skip backward (10 min default)
begin
prog = mythtv
button = Previous
repeat = 3
config = Home
end
# Record
begin
prog = mythtv
button = Record
repeat = 3
config = R
end
# Delete
begin
prog = mythtv
button = Red
repeat = 3
config = D
end
# Decrease play speed
begin
prog = mythtv
button = Green
repeat = 3
config = J
end
# Display EPG while in live TV,
# View selected show while in EPG
begin
prog = mythtv
button = Menu
repeat = 3
config = M
end
# Scroll up
begin
prog = mythtv
button = Volume-UP
repeat = 3
config = F11
end
# Scroll down
begin
prog = mythtv
button = Volume-DOWN
repeat = 3
config = F10
end
# Bring up OSD info
begin
prog = mythtv
button = Go
repeat = 3
config = I
end
# Change display aspect ratio
begin
prog = mythtv
button = Prev-Channel
repeat = 3
config = W
end
# double speed watch
begin
prog = mythtv
button = Yellow
repeat = 3
config = J
end
# change tuners
begin
prog = mythtv
button = hash
repeat = 3
config = Y
end
# Bring up Time stretch
begin
prog = mythtv
button = Blue
repeat = 3
config = A
end
# Numbers 0-9
begin
prog = mythtv
button = 0
repeat = 3
config = 0
end
begin
prog = mythtv
button = 1
repeat = 3
config = 1
end
begin
prog = mythtv
button = 2
repeat = 3
config = 2
end
begin
prog = mythtv
button = 3
repeat = 3
config = 3
end
begin
prog = mythtv
button = 4
repeat = 3
config = 4
end
begin
prog = mythtv
button = 5
repeat = 3
config = 5
end
begin
prog = mythtv
button = 6
repeat = 3
config = 6
end
begin
prog = mythtv
button = 7
repeat = 3
config = 7
end
begin
prog = mythtv
button = 8
repeat = 3
config = 8
end
begin
prog = mythtv
button = 9
repeat = 3
config = 9
end
### MPlayer lirc setup
# Show OSD
begin
prog = mplayer
button = MENU
repeat = 3
config = osd
end
# Pause playback
begin
prog = mplayer
button = PAUSE
repeat = 3
config = pause
end
# Skip ahead a minute if playing
# If paused, resume playing
begin
prog = mplayer
button = PLAY
repeat = 3
config = seek +1
end
# Stop playback and exit
begin
prog = mplayer
button = STOP
repeat = 3
config = quit
end
# Mute
begin
prog = mplayer
button = MUTE
repeat = 3
config = mute
end
# Seek back 10 seconds
begin
prog = mplayer
button = REW
repeat = 3
config = seek -10
end
# Seek forward 30 seconds
begin
prog = mplayer
button = FFW
repeat = 3
config = seek +30
end
# Quit
begin
prog = mplayer
button = BACK/EXIT
repeat = 3
config = quit
end
# Seek forward 10 minutes
begin
prog = mplayer
button = SKIP
repeat = 3
config = seek +600
end
# Seek backward 10 minutes
begin
prog = mplayer
button = REPLAY
repeat = 3
config = seek -600
end
# Toggle full-screen
begin
prog = mplayer
button = FULL
repeat = 3
config = vo_fullscreen
end
### Xine lirc setup
begin
prog = xine
button = PLAY
repeat = 3
config = Play
end
begin
prog = xine
button = STOP
repeat = 3
config = Stop
end
begin
prog = xine
button = OFF
repeat = 3
config = Quit
end
begin
prog = xine
button = PAUSE
repeat = 3
config = Pause
end
begin
prog = xine
button = CH+
repeat = 3
config = EventUp
end
begin
prog = xine
button = CH-
repeat = 3
config = EventDown
end
begin
prog = xine
button = VOL-
repeat = 3
config = EventLeft
end
begin
prog = xine
button = VOL+
repeat = 3
config = EventRight
end
begin
prog = xine
button = OK
repeat = 3
config = EventSelect
end
begin
prog = xine
button = BACK/EXIT
repeat = 3
config = Menu
end
begin
prog = xine
button = FFW
repeat = 3
#config = SpeedFaster
config = SeekRelative+60
end
begin
prog = xine
button = REW
repeat = 3
#config = SpeedSlower
config = SeekRelative-60
end
begin
prog = xine
button = FULL
repeat = 3
config = Volume+
end
begin
prog = xine
button = BLANK
repeat = 3
config = Volume-
end
begin
prog = xine
button = MUTE
repeat = 3
config = Mute
end
begin
prog = xine
button = MENU
repeat = 3
config = RootMenu
end
begin
prog = xine
button = SKIP
repeat = 3
config = EventNext
end
begin
prog = xine
button = REPLAY
repeat = 3
config = EventPrior
end
begin
prog = xine
button = GO
repeat = 3
config = OSDStreamInfos
end
begin
prog = xine
button = RED
repeat = 3
config = Quit
end
begin
prog = xine
button = RED
repeat = 3
config = Quit
endpour l'instant ca marche pas !!!
A suivre
...suite
cat /proc/bus/input/devices
en fait ma carte ir est reconnu et j'ai l'impression que le noyau prend le dessus.
En fait lirc ne fonctionne pas, il faut modifier le hardware.conf pour charger les bons modules !
il y a un lien avec
xmodmap et keycode
a suivre
infos:http://people.mech.kuleuven.be/~wmeeusse/linux.html
sudo apt-get install input-utils
cree un lien entre les event et lirc
cat /proc/bus/input/devices
j'utilise l'event2 dans mon cas
mettre dans /etc/lirc/hardware.conf
LIRCD_ARGS="-H dev/input -d /dev/input/event2"
Dernière modification par oblooblo2000 (Le 18/10/2007, à 19:23)
Hors ligne
#20 Le 16/10/2007, à 17:54
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
Once your file is complete, you'll need to install it as /home/mythtv/.mythtv/lircrc in order for mythfrontend to find it. The trouble is, everything else will expect that file in /home/mythtv/.lircrc - so to work around that, we'll like them together with:
$ ln -s ~/.mythtv/lircrc ~/.lircrc
Create a .lircrc file
If you are intending on using lirc for only IR transmitting, you don't need to create a ~/.lircrc file. If you are going to use it for IR receiving, you will need to create a ~/.lircrc file describing what each of the buttons does for each application you will use lirc in.
The basic syntax is as follows:
begin
prog = PROGRAM
button = REMOTE_BUTTON
config = ACTION
end Where:
PROGRAM is the program you are recording buttons for. Some examples for PROGRAM are mythtv, mplayer, xine, vlc, and irexec.
REMOTE_BUTTON is the name of the button in accordance with what is listed in your /etc/lirc/lircd.conf.
ACTION is the action that will be performed when this button is pressed. You can find a list of actions in the attached .lircrc example file.
Specific Application Notes
Multiple applications can be listed in the .lircrc file, but you will need a seperate begin and end block for each button in eachapplication.
MythTV
If you are using this for mythtv, you will need to create a symbolic link to this file for mythtv to read it.
ln -s ~/.lircrc ~/.mythtv/lircrc
IRexec
irexec is able to interpret keypresses and launch applications when the keys are pressed. The syntax is:
begin
prog = irexec
button = REMOTE_BUTTON
config = APPLICATION
end APPLICATION is simply the path and name of a file marked executable.
Dernière modification par oblooblo2000 (Le 17/10/2007, à 23:58)
Hors ligne
#21 Le 16/10/2007, à 18:34
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
Programmes de telepoche
http://cvs.sourceforge.net/viewcvs.py/xmltv/xmltv/grab/fr/tv_grab_fr?rev=1.23&view=log
copiez le fichier dans:
/usr/bin/tv_grab_fr
su
cp /usr/bin/tv_grab_fr /usr/bin/tv_grab_fr.sav
cp /le_nouveau_fichier_grab /usr/bin/tv_grab_fr
chmod a+x /usr/bin/tv_grab_fr
#!/usr/bin/perl
=head1 NAME
tv_grab_fr - Grab TV listings for France.
=head1 SYNOPSIS
To configure: tv_grab_fr --configure [--config-file FILE] [--gui OPTION]
To grab listings: tv_grab_fr [--output FILE] [--quiet] [--perdays]
Slower, detailed grab: tv_grab_fr --slow [--output FILE] [--days N] [--offset N] [--quiet] [--perdays]
To show capabilities: $0 --capabilities
To show version: $0 --version
Help: tv_grab_fr --help
=head1 DESCRIPTION
Output TV listings for several channels available in France (Hertzian,
Cable/satellite, Canal+ Sat, TPS). The data comes from
telepoche.guidetele.com. The default is to grab as many days as possible
from the current day onwards. By default the program description are
not downloaded, so if you want description and ratings, you should
active the --slow option.
B<--configure> Grab channels informations from the website and ask for
channel type and names.
B<--gui OPTION> Use this option to enable a graphical interface to be used.
OPTION may be 'Tk', or left blank for the best available choice.
Additional allowed values of OPTION are 'Term' for normal terminal output
(default) and 'TermNoProgressBar' to disable the use of Term::ProgressBar.
B<--output FILE> Write to FILE rather than standard output.
B<--days N> Grab N days starting from today, rather than as many as
possible. Due to the website organization, the speed is exactly the
same, whatever the number of days is until you activate the --slow
option. If --slow is not specified, --days will thus only filter the
data without speeding up the grabber.
B<--offset N> Start grabbing N days from today, rather than starting
today. N may be negative. Due to the website organization, N cannot
be inferior to -1. As with --days, this is only useful for limiting
downloads in --slow mode.
B<--slow> Get additional information from the website, like program
description, reviews and credits.
B<--quiet> Suppress the progress messages normally written to standard
error.
B<--perdays> Activate the "per days" grabbing mode. It is a fallback to use if the
grabber does not return any data in the XML file
B<--capabilities> Show which capabilities the grabber supports. For more
information, see L<http://membled.com/twiki/bin/view/Main/XmltvCapabilities>
B<--version> Show the version of the grabber.
B<--help> Print a help message and exit.
=head1 SEE ALSO
L<xmltv(5)>
=head1 AUTHOR
Sylvain Fabre, centraladmin@lahiette.com
with some patches from :
- Francois Gouget, fgouget@free.fr
- Niel Markwick, nielm@bigfoot.com
=cut
# TODO / FIXME
# - perhaps we should internationalize messages and docs?
# - try to detect the language based on the country so we can make use of the
# set the VO, VF and original title markers
# - due to the layout of the grid program data, a given show can appear more
# than once, first without an icon and then with the icon. But in such a
# case we miss the icon
# - fix the character encoding handling. Then we can remove the no warning
# below
# - detect when the website returns an incomplete page. See the thread at:
# http://sourceforge.net/mailarchive/message.php?msg_id=15128312
# - detect and workaround the website returning the wrong date for pages
# generated between midnight and 6am
# - detect and workaround the website cache that keeps returning stale pages
# - extend Get_nice so we don't have to do our own downloads. See the thread
# at:
# http://sourceforge.net/mailarchive/message.php?msg_id=15220040
# - fix our Memoize usage so the generated cache file can be reused from one
# day to the next
# - investigate using the per-day pages which would be more efficient for
# --days 1 to 5
# - investigate how to better handle France 5 and Arte as they share a single
# channel for over-the-air broadcasts, but each have their own channel on
# cable, satellite and ADSL. See the thread at:
# http://sourceforge.net/mailarchive/message.php?msg_id=15181920
use XMLTV::Usage <<END
$0: get French television listings in XMLTV format
To configure: tv_grab_fr --configure [--config-file FILE]
To grab listings: tv_grab_fr [--output FILE] [--quiet]
Slower, detailed grab: tv_grab_fr --slow [--output FILE] [--days N] [--offset N] [--quiet]
END
;
use warnings;
use strict;
use utf8;
use XMLTV::Version '$Id: tv_grab_fr,v 1.74 2007/10/02 20:01:29 reudeudeu Exp $ ';
use XMLTV::Capabilities qw/baseline manualconfig cache/;
use XMLTV::Description 'France';
use Getopt::Long;
use HTML::Entities; # parse entities
use IO::File;
use URI;
use Date::Manip;
use XMLTV;
use XMLTV::Ask;
use XMLTV::ProgressBar;
use XMLTV::Mode;
use XMLTV::Config_file;
use XMLTV::DST;
use LWP;
use XMLTV::Get_nice;
use XMLTV::Memoize;
use File::Temp;
use LWP::Simple;
#***************************************************************************
# Main declarations
#***************************************************************************
my $GRID_BY_CHANNEL = 'http://telepoche.guidetele.com/gtv/semaine?openagent&d=0&c=';
my $GRID_BY_CHANNEL_PER_DAY = 'http://telepoche.guidetele.com/gtv/journee?openagent&';
my $GRID_FOR_CHANNEL = 'http://telepoche.guidetele.com/grille/EMWD-6KWLUE/';
my $SHEET_URL = "http://telepoche.guidetele.com/fiche/emi_";
my $ROOT_URL = "http://telepoche.guidetele.com";
my $LANG = "fr";
my $MAX_STARS = 4;
my $VERSION = "021007-01";
# FIXME: Temporary avoid XML warnings (to be investigated)
no warnings;
# Grid id defined by the website according to channel types (needed to build the URL)
my %GridType = ( "HERTZIENNE" => "EMWD-66DGBM",
"TNT" => "EMWD-6B2HZ3",
"CABLE/SAT" => "EMWD-66DGCT",
"TPS" => "EMWD-66DJQG",
"CANAL SAT" => "EMWD-66DJEA",
"FREEBOX" => "EMWD-66DJXL",
"ETRANGERES" => "EMWD-66DJAL",
"NOUVEAU CANAL SAT" => "MDFA-6ZYMXB" );
# Slot of hours according to the website (needed to build the URL)
my @offsets = (2, 3, 4, 5, 6, 7);
# Slot of days for day per day grabbing
my @days = (2, 3, 4, 5, 6, 7, 8, 9);
##patch: tigerlol: correction des chevauchements d'horaire
my $progexist=0;
my $prevstart;
my $prevstop;
my $prevtitle;
my %prevprog;
##/patch
#***************************************************************************
# Global variables allocation according to options
#***************************************************************************
XMLTV::Memoize::check_argv('XMLTV::Get_nice::get_nice_aux');
#my ($opt_days, $opt_help, $opt_output, $opt_per_days, $opt_per_weeks, $opt_offset, $opt_gui, $opt_quiet, $opt_list_channels, $opt_config_file, $opt_configure, $opt_slow);
##patch: tigerlol: correction des chevauchements d'horaire
my ($opt_days, $opt_help, $opt_output, $opt_per_days, $opt_per_weeks, $opt_offset, $opt_gui, $opt_quiet, $opt_list_channels, $opt_config_file, $opt_configure, $opt_slow, $opt_noautocorrect);
##/patch
$opt_quiet = 0;
# The website is able to store up to nine days from now
my $default_opt_days = 9;
$opt_output = '-'; # standard output
GetOptions('days=i' => \$opt_days,
'help' => \$opt_help,
'output=s' => \$opt_output,
'offset=i' => \$opt_offset,
'quiet' => \$opt_quiet,
'configure' => \$opt_configure,
'config-file=s' => \$opt_config_file,
'gui:s' => \$opt_gui,
'list-channels' => \$opt_list_channels,
'slow' => \$opt_slow,
'perdays' => \$opt_per_days,
'perweeks' => \$opt_per_weeks,
##patch: tigerlol: correction des chevauchements d'horaire
'noautocorrect' => \$opt_noautocorrect
##/patch
)
or usage(0);
#***************************************************************************
# Options processing, warnings, checks and default parameters
#***************************************************************************
die 'Number of days must not be negative' if (defined $opt_days && $opt_days < 0);
die 'Cannot get more than one day before current day' if (defined $opt_offset && $opt_offset < -1);
usage(1) if $opt_help;
XMLTV::Ask::init($opt_gui);
# The options can be used, but we default them if not set.
$opt_offset = 0 if not defined $opt_offset;
$opt_days = $default_opt_days if not defined $opt_days;
# Force the per days option in all cases
if ( $opt_per_weeks == 0 ) {
$opt_per_days = 1;
}
if ( (($opt_offset + $opt_days) > $default_opt_days) or ($opt_offset > $default_opt_days) ) {
$opt_days = $default_opt_days - $opt_offset;
if ($opt_days < 0) {
$opt_offset = 0;
$opt_days = $default_opt_days;
}
say <<END
The website does not handle more than $default_opt_days days.
So the grabber is now configure with --offset $opt_offset --days $opt_days
END
;
}
##patch: tigerlol: correction des chevauchements d'horaire
if ( $opt_noautocorrect ) {
print STDERR "Autocorrect DESACTIVE!\n";
} else {
print STDERR "Autocorrect ACTIVE!\n";
}
##/patch
#***************************************************************************
# Last init before doing real work
#***************************************************************************
my %results;
my $lastdaysoffset = $opt_offset + $opt_days - 1;
my $checkDummySlot = 0;
# Now detects if we are in configure mode
my $mode = XMLTV::Mode::mode('grab', # default
$opt_configure => 'configure',
$opt_list_channels => 'list-channels');
# File that stores which channels to download.
my $config_file = XMLTV::Config_file::filename($opt_config_file, 'tv_grab_fr', $opt_quiet);
#***************************************************************************
# Sub sections
#***************************************************************************
sub get_channels( $ );
sub process_channel_grid_page( $$$$ );
sub get_detailed_fic( $$$ );
sub debug_print( @ );
# Set this to 1 of you debug strings
my $DEBUG_FR = 0;
# Internal debug functions
sub debug_print( @ ) {
if ($DEBUG_FR) { print @_; }
}
sub xmlencoding {
# encode for xml
$_[0] =~ s/</</g;
$_[0] =~ s/>/>/g;
$_[0] =~ s/&/\%26/g;
return $_[0];
}
sub tidy {
for (my $s = shift) {
s/\xe2\x80\x99/\'/g;
s/—/--/g;
s/…/.../g;
s/\x{2019}/\'/g;
decode_entities $_;
tr/\207\211\200\224/\347\311\055\055/; # bad characters
tr/\205//d;
tr/\222/''/;
s/\234/oe/g;
s/−/ /g;
# Remove nasty caracters, thanks to nielm
s/“|”|&\#8219;|&\#8220;|&\#x201[89];/"/g;
s/‘|’|&\#8216;|&\#8217;|&\#8218;|&\#x201[cdCD];/\'/g;
s/&\#8230;|&\#x202[4-7];/.../g;
s/&\#821[0123];|&\#x201[2-5];/-/g;
s/Œ/OE/g;
s/œ/oe/g;
s/&\#x0027/\'/g;
s/(&\#[0-9]{4,};)//g;
s/(&\#x[0-9a-zA-Z]{3,};)//g;
# Not strictly a bad character but it does get in the way.
s/ / /g;
tr/\240/ /;
tr/\t/ /;
s/([^\012\015\040-\176\240-\377])//g;
return $_;
}
}
#***************************************************************************
# Configure mode
#***************************************************************************
if ($mode eq 'configure') {
XMLTV::Config_file::check_no_overwrite($config_file);
open(CONF, ">$config_file") or die "Cannot write to $config_file: $!";
# Get a list of available channels, according to the grid type
my @gts = sort keys %GridType;
my @gtnames = map { $GridType{$_} } @gts;
my @gtqs = map { "Get channels type : $_?" } @gts;
my @gtwant = ask_many_boolean(1, @gtqs);
my $bar = new XMLTV::ProgressBar('getting channel lists',
scalar grep { $_ } @gtwant)
if not $opt_quiet;
my %channels_for;
foreach my $i (0 .. $#gts) {
my ($gt, $gtw, $gtname) = ($gts[$i], $gtwant[$i], $gtnames[$i]);
next if not $gtw;
my %channels = get_channels( $gtname );
die 'No channels could be found' if not %channels;
$channels_for{$gt} = \%channels;
update $bar if not $opt_quiet;
}
$bar->finish() if not $opt_quiet;
my %asked;
foreach (@gts) {
my $gtw = shift @gtwant;
my $gtname = shift @gtnames;
if ($gtw) {
my %channels = %{$channels_for{$_}};
say "Channels for $_";
# Ask about each channel (unless already asked).
my @chs = grep { not $asked{$_}++ } sort keys %channels;
my @names = map { $channels{$_}{name} } @chs;
my @qs = map { "add channel $_?" } @names;
my @want = ask_many_boolean(1, @qs);
foreach (@chs) {
my $w = shift @want;
warn("cannot read input, stopping channel questions"), last if not defined $w;
# Print a config line, but comment it out if channel not wanted.
print CONF '#' if not $w;
print CONF "channel $_ $channels{$_}{name};$channels{$_}{icon}\n";
}
}
}
close CONF or warn "cannot close $config_file: $!";
say("Finished configuration.");
exit();
}
#***************************************************************************
# Check mode checking and get configuration file
#***************************************************************************
die if $mode ne 'grab' and $mode ne 'list-channels';
my @config_lines;
if ($mode eq 'grab') {
@config_lines = XMLTV::Config_file::read_lines($config_file);
}
#***************************************************************************
# Prepare the XMLTV writer object
#***************************************************************************
my %w_args;
if (defined $opt_output) {
my $fh = new IO::File(">$opt_output");
die "cannot write to $opt_output: $!" if not defined $fh;
$w_args{OUTPUT} = $fh;
}
$w_args{encoding} = 'ISO-8859-1';
# In fast mode, the datasource contains data for all days at once,
# so we let XMLTV::Writer filter out the days that the user wanted.
if (not $opt_slow) {
$w_args{days} = $opt_days;
$w_args{offset} = $opt_offset;
$w_args{cutoff} = "000000";
}
my $writer = new XMLTV::Writer(%w_args);
$writer->start
({ 'source-info-url' => 'http://telepoche.guidetele.com/',
'source-data-url' => 'http://telepoche.guidetele.com/',
'generator-info-name' => 'XMLTV',
'generator-info-url' => 'http://membled.com/work/apps/xmltv/',
});
#***************************************************************************
# List channels only case
#***************************************************************************
if ($mode eq 'list-channels') {
# Get a list of available channels, according to the grid type
my @gts = sort keys %GridType;
my @gtnames = map { $GridType{$_} } @gts;
my @gtqs = map { "List channels for grid : $_?" } @gts;
my @gtwant = ask_many_boolean(1, @gtqs);
my %seen;
foreach (@gts) {
my $gtw = shift @gtwant;
my $gtname = shift @gtnames;
if ($gtw) {
say "Now getting grid : $_ \n";
my %channels = get_channels( $gtname );
die 'no channels could be found' if (scalar(keys(%channels)) == 0);
foreach my $ch_did (sort(keys %channels)) {
my $ch_xid = "C".$ch_did.".telepoche.com";
$writer->write_channel({ id => $ch_xid,
'display-name' => [ [ $channels{$ch_did}{name} ] ],
'icon' => [{src=>$ROOT_URL.$channels{$ch_did}{icon}}] })
unless $seen{$ch_xid}++;
}
}
}
$writer->end();
exit();
}
#***************************************************************************
# Now the real grabbing work
#***************************************************************************
die if $mode ne 'grab';
#***************************************************************************
# Build the working list of channel name/channel id
#***************************************************************************
my (%channels, $chicon, $chid, $chname);
my $line_num = 1;
foreach (@config_lines) {
++ $line_num;
next if not defined;
# Here we store the Channel name with the ID in the config file, as the XMLTV id = Website ID
if (/^channel:?\s+(\S+)\s+([^\#]+);([^\#]+)/) {
$chid = $1;
$chname = $2;
$chicon = $3;
$chname =~ s/\s*$//;
$channels{$chid} = {'name'=>$chname, 'icon'=>$chicon};
} else {
warn "$config_file:$line_num: bad line $_\n";
}
}
#***************************************************************************
# Now process the days by getting the main grids.
#***************************************************************************
my @to_get;
warn "No working channels configured, so no listings\n" if not %channels;
my $script_duration = time();
# The website stores channel information by hour area for a whole week !
foreach $chid (sort keys %channels) {
my $url;
my $i;
$writer->write_channel({ id => "C".$chid.".telepoche.com", 'display-name' => [[$channels{$chid}{name}]], 'icon' => [{src=>$channels{$chid}{icon}}]});
if ( $opt_per_days ) {
for ($i=$opt_offset+2; $i < $opt_offset+$opt_days+2; $i++ ) {
$url = $GRID_BY_CHANNEL_PER_DAY . "d=$i&c=$chid&h=0";
push @to_get, [ $url, $chid, $i ];
}
} else {
foreach (@offsets) {
$url = $GRID_BY_CHANNEL . "$chid&h=$_";
push @to_get, [ $url, $chid, $_ ];
}
}
}
my $bar = new XMLTV::ProgressBar('getting listings', scalar @to_get) if not $opt_quiet;
Date_Init("TZ=UTC");
foreach (@to_get) {
my ($url, $chid, $slot) = @$_;
#my $th = threads->new(\&process_channel_grid_page, $writer, $chid, $url, $slot);
#$th->join();
process_channel_grid_page($writer, $chid, $url, $slot);
update $bar if not $opt_quiet;
}
##patch: tigerlol: correction des chevauchements d'horaire
if ( !$opt_noautocorrect ) {
if ( $progexist ) {
# Ecriture du programme restant en memoire (au cas ou)
if ( !$results{$prevprog{start}.$chid} ) {
#print STDERR "!!!Ecriture du dernier programme sauvegarde: " . $prevtitle . "(" . $prevprog{channel} . ")\n";
$results{$prevprog{start}.$chid} = "1";
$writer->write_programme(\%prevprog);
}
$progexist = 0;
}
}
##/patch
$writer->end();
$bar->finish() if not $opt_quiet;
# Print the duration
$script_duration = time() - $script_duration;
print STDERR "Grabber process finished in " . $script_duration . " seconds.\n" if not $opt_quiet;
#***************************************************************************
# Specific functions for grabbing information
#***************************************************************************
sub get_channels( $ ) {
my $gridid = shift;
my %channels;
my $url = $GRID_FOR_CHANNEL.$gridid.'/2_6.html';
# Get the current page
my $t = get_nice_tree($url);
debug_print( "URL : " . $url ."\n");
foreach my $cellTree ( $t->look_down( "_tag", "td", "width", "55", "height", "85" ) ) {
my $tag = $cellTree->look_down( "_tag", "a", 'href', '#' );
if ($tag != undef) {
my $chid = $tag->attr('onclick');
if ( $chid =~ /goChaine\('(.*)','(.*)',''\);/ ) {
$chid = $1;
my $imgCell = $cellTree->look_down( "_tag", "img" );
my $chicon = $imgCell->attr('src');
my $chname = $imgCell->attr('src');
$chname =~ s/http:\/\/static.guidetele.com\/c_img\/chaine\///;
$chname =~ s/\.gif//;
$chname =~ s/\.GIF//;
debug_print "Found channel : $chid - " . $chname . "\n";
$channels{$chid} = {'name' => $chname, 'icon' => $chicon };
}
}
}
$t->delete(); undef $t;
return %channels;
}
sub process_fucking_damned_page( $$$$$ ) {
my ($writer, $chid, $myrow, $dateindex, $slot) = @_;
my ($genre, $lastshowview, $showview, $hours, $starthour, $endhour) = 0;
my ($title, $subgenre, $star_rating, $datecreate) = 0;
# Each show is described in a table cell with a 'prog' class
foreach my $show ($myrow->look_down('_tag', 'td', 'class', 'prog') ) {
# Each cell contains zero or more links describing the show.
# - If no information is available for the time slot, then the cell
# is empty ( actually).
# - Links with a 'fiche' class have the most details and also point
# to the per-show web page with the extra information.
# - Other links contain less detailed information and no pointer to
# a per-show page.
my $link=$show->look_down('_tag', 'a', 'class', 'fiche') ||
$show->look_down('_tag', 'a', 'onmouseover', qr/^showmenu/);
next if (!$link);
my $line = $link->attr('onmouseover');
$line =~ (!m/showmenu\(([^""]+)\)/);
$line =~ m/\'(.*)\',\'(.*)\'/;
$title = tidy($2);
my $mydata = $1;
next if ( $title eq 'Fin des programmes');
($hours, $genre, $showview) = split (/<br>/, $mydata);
next if ( !$hours );
# Process the title, sometimes a showview field is shown
$title =~ s/^\d{7,8} //;
$title =~ s/\\//g;
if ($title =~ s/\s*([*]+)\s*$//) {
my $n = length $1;
if (0 < $n and $n <= $MAX_STARS) {
$star_rating = $n;
} elsif ($MAX_STARS < $n) {
warn "too many stars ($n), expected at most $MAX_STARS\n";
} else { die }
}
die if $title =~ /[*]$/;
my ($language, $subtitles_language);
for ($title) {
s/\s+$//;
if (s/\s+\(VO\)$//) {
# Version originale - language is unknown but not French. There is no way to represent this in the DTD.
} elsif (s/\s+\(VO sous-titr.e\)$//) {
# Language unknown, but we know it has French subtitles.
$subtitles_language = 'fr';
} elsif (s/\s+\(VF\)$//) {
# Version francaise. The title may or may not be translated.
$language = 'fr';
}
}
# At this point, $title contains title and subtitle (if any), separated by a '-'. We will try to split off the subtitle
# further down. Process hours, there are like HHhMM
($starthour, $endhour) = split("-", $hours);
$starthour =~ s/h//g
or die "Cannot detect start hour from website : $starthour \n";
$endhour =~ s/h//g
or die "Cannot detect end hour from website : $endhour \n";
# Process the start/stop dates
my $start = $dateindex.$starthour."00";
my $stop = $dateindex.$endhour."00";
# Dummy site : the slot 0-4 of day n is in fact the slot 0-4 for day n+1
# Again, specific parsing if we are in "per days" mode
if ( $opt_per_days ) {
# Check it only after 06:00, sometimes we have shows at 03:00.
my $myslot = substr($starthour, 0, 2);
$checkDummySlot = 1 if($myslot > 6);
if($checkDummySlot && $myslot >= 0 && $myslot < 4) {
$start = &UnixDate(&DateCalc($start, "+1 day"), "%Y%m%d%H%M%S");
die 'could not add one day to start time' if not $start;
$stop = &UnixDate(&DateCalc($stop, "+1 day"), "%Y%m%d%H%M%S");
die 'could not add one day to stop time' if not $stop;
}
} else {
if ( $slot == 7 ) {
my $myslot = substr($starthour, 0, 2);
die if not $start;
$start = &UnixDate(&DateCalc($start, "+1 day"), "%Y%m%d%H%M%S")
if ($myslot >= 0 && $myslot < 4);
die 'could not add one day to start time' if not $start;
$stop = &UnixDate(&DateCalc($stop, "+1 day"), "%Y%m%d%H%M%S");
die 'could not add one day to stop time' if not $stop;
}
}
# Last check to see if start > stop
if ( Date_Cmp($start, $stop) > 0 ) {
$stop = &UnixDate(&DateCalc($stop, "+1 day"), "%Y%m%d%H%M%S");
die 'could not add one day to stop time' if not $stop;
}
# Now set the proper timezone (WT/ST) according to current date
die if not $start; die if not $stop;
$start = utc_offset( $start, "+0100");
$stop = utc_offset( $stop , "+0100");
my %prog = (channel => "C".$chid.".telepoche.com",
title => [ [ tidy($title) ] ], # lang unknown
start => $start,
stop => $stop
);
debug_print("Found title : $title - $start - $stop \n");
$prog{'star-rating'} = [ "$star_rating/$MAX_STARS" ] if defined $star_rating;
for ($language) { $prog{language} = [ $_ ] if defined }
for ($subtitles_language) {
$prog{subtitles} = [ { type => 'onscreen', language => [ $_ ] } ]
if defined;
}
# Sometimes the genre is not set, so replace it by the showview field
if (defined $genre and $genre =~ m/Showview : /) {
$showview = $genre;
undef $genre;
}
# Process the genre, subgenre and date if defined
if (defined $genre ) {
my $genre_tmp;
($genre_tmp, $datecreate) = split("-", $genre);
if ($datecreate == 0) {
#datecreate n'est pas une valeur numerique => on la supprime
undef $datecreate;
} else {
#datecreate est valide
$genre=$genre_tmp;
}
($genre, $subgenre) = split(",", $genre);
for ($genre) { s/^\s+//; s/\s+$//; s/\xA0//; }
if (defined $subgenre) {
for ($subgenre) { s/^\s+//; s/\s+$//; s/\xA0//; }
$prog{category} = [ [ xmlencoding(lc($genre)), $LANG ], [ xmlencoding(lc($subgenre)), $LANG ] ];
} else {
$prog{category} = [ [ xmlencoding(lc($genre)), $LANG ] ];
}
if (defined $datecreate) {
for ($datecreate) { s/^\s+//; s/\s+$//; s/\xA0//; }
$prog{date} = $datecreate ;
}
}
# -2 is an unsane value for the showview code...
undef $showview if ($showview =~ /-2/ );
# Process the showview field
if ( defined $showview ) {
$showview =~ s/Showview : //;
for ($showview) { s/^\s+//; s/\s+$//; s/\xA0//; }
$prog{showview} = $showview;
next if ( $showview == $lastshowview );
$lastshowview = $showview;
}
my $img=$show->look_down('_tag', 'img', 'onerror', qr/this\.src=/);
if ($img) {
my $url=$img->attr('src');
# Get the big icon
$url =~ s%/c_img/v/%/c_img/i/%;
push @{$prog{icon}}, {src => $url};
}
# Now get program description if the longlisting option is set
if ( $opt_slow && $link->attr('class') eq 'fiche' ) {
get_detailed_fic( $link->attr('onclick'), \%prog, $title );
} else {
# The text for the <a> tag contains the title without the sub-title so we can use that to separate the two. However
# the text for the <a> tag may have been truncated so it fits the slot on the page. Also some titles may contain
# a ' - '. Still the heuristic works very well.
my $subtitle;
my $text = $link->as_text();
if ($text =~ s/\.\.\.$//) {
if ($title =~ s/^\Q$text\E([^-]+)\s+-\s+//) {
$prog{'title'} = [ [ tidy($text).tidy($1) ] ];
$prog{'sub-title'} = [ [ tidy($title) ] ];
}
}
elsif ($title =~ s/^\Q$text\E\s+-\s+//) {
$prog{'title'} = [ [ tidy($text) ] ];
$prog{'sub-title'} = [ [ tidy($title) ] ];
}
}
##patch: tigerlol: correction des chevauchements d'horaire
if ( !$opt_noautocorrect ) {
if ( $progexist ) {
#print STDERR "*** " . $prevprog{channel} . " / " . $prog{channel} . " ***\n";
if ( $prevprog{channel} ne $prog{channel} ) {
# changement de chaine on ecrit le dernier programme de la chaine precedente
# et on remet progexist a 0
#print STDERR "*************\nChangement de chaine...\n*************\n";
if ( !$results{$prevprog{start}.$chid} ) {
#print STDERR "Ecriture du dernier programme sauvegarde: " . $prevtitle . "(" . $prevprog{channel} . ")\n";
$results{$prevprog{start}.$chid} = "1";
$writer->write_programme(\%prevprog);
}
$progexist = 0;
}
}
if ( !$progexist ) {
#premier programme => sauvegarde du programme courant
$prevtitle = tidy($title);
$prevstart = $start;
$prevstop = $stop;
%prevprog = %prog;
$progexist = 1;
} else {
#print STDERR "prev. channel = " . $prevprog{channel} . "\n";
#print STDERR "current channel = " . $prog{channel} . "\n";
#il existe deja un programme
#if (( $prog{start} > $prevprog{start} ) && ( $prog{stop} != $prevprog{stop} )) {
if ( $prog{start} > $prevprog{start} ) {
# programme courant != programme sauvegarde
my $savedstop = $prevprog{stop};
#print STDERR "savedstop = $savedstop\n";
if ( $prevprog{stop} > $prog{start} ) {
#chevauchement => modification de l'heure de fin du programme precedent
#print STDERR "Chevauchement:\n";
#print STDERR " - " . $prevtitle . " (start: " . $prevprog{start} . " / stop: " . $prevprog{stop} . ")\n";
#print STDERR " - " . $title . " (start: " . $start . " / stop: " . $stop . ")\n";
$prevprog{stop} = $prog{start};
}
if ( $prevprog{stop} - $prevprog{start} > 400 ) {
#prevprog n'est pas trop court donc ecriture du programme precedent
if ( !$results{$prevprog{start}.$chid} ) {
#print STDERR "Ecriture du programme: " . $prevtitle . "(" . $prevprog{channel} . ")\n";
$results{$prevprog{start}.$chid} = "1";
$writer->write_programme(\%prevprog);
}
} else {
if (( $savedstop == $prog{stop} ) || ( $prevprog{title} eq $prog{title} )) {
#prevprog est un programme trop court ou duplique => on le zap! ;-)
#et on modifie le start du programme courant avant de le sauvegarder
my $dureeprog = $prevprog{stop} - $prevprog{start};
#print STDERR "Programme court zappe: $prevtitle ($dureeprog)\n";
$prog{start} = $prevprog{start};
$start = $prog{start};
} else {
#prevprog est valide, on l'ecrit...
if ( !$results{$prevprog{start}.$chid} ) {
#print STDERR "Ecriture du programme: " . $prevtitle . "(" . $prevprog{channel} . ")\n";
$results{$prevprog{start}.$chid} = "1";
$writer->write_programme(\%prevprog);
}
}
}
#sauvegarde du programme courant
$prevtitle = tidy($title);
$prevstart = $start;
$prevstop = $stop;
%prevprog = %prog;
} else {
debug_print("Date of previous program is not correct\n");
if ($prog{stop} < $prevprog{start} ){
# bcp plus simple que precedement : vu qu on identifie un programme
# qui precede avec des dates superieures, cela signifie en fait que
# le programme date du jour precedent et qu un jour lui a ete rajoute
# par erreur. La solution est de supprimer le programme precedent.
$prevtitle = tidy($title);
$prevstart = $start;
$prevstop = $stop;
%prevprog = %prog;
}
}
}
} else {
if ( !$results{$prog{start}.$chid} ) {
$results{$prog{start}.$chid} = "1";
$writer->write_programme(\%prog);
}
}
##/patch
}
}
sub process_channel_grid_page( $$$$ ) {
my ($writer, $chid, $url, $slot) = @_;
my ($genre, $lastshowview, $showview, $hours, $starthour, $endhour, $date, $dateindex) = 0;
my ($title, $subgenre, $star_rating, $datecreate) = 0;
$checkDummySlot = 0;
# Get the current page
my $t = get_nice_tree($url);
debug_print("Now getting page : $url\n");
# Reset some working variables
my $day = 0; my $month = 0; my $year = 0;
if ( my $tableTree = $t->look_down('_tag', 'table', 'width', '600', 'height', '70', 'bgcolor', '#ffffff') ) {
# Get the list of rows of the table
my @dateRowTab = $tableTree->content_list();
# Now loop thru rows
foreach my $dateRow (@dateRowTab) {
my $daterow = $dateRow->look_down('_tag', 'td', 'width', '403');
if ( $daterow ) {
my $startdate = $daterow->as_text();
if ( $opt_per_days ) {
$startdate =~ /^Les programmes de la journ.*e\s+du\s+(\d+)\/(\d+)\/(\d+)/;
$day = $1; $month = $2; $year = $3;
} else {
$startdate =~ /^Les programmes de la semaine du (\d+)\/(\d+)\/(\d+)/;
$day = $1; $month = $2; $year = $3;
}
}
}
}
# If we are grabbing in "per days" mode, then enter here
if ( $opt_per_days) {
$date = DateCalc($month."/".$day."/".$year, "+0 days");
$dateindex = UnixDate($date, "%Y%m%d");
foreach my $tableTree ($t->look_down('_tag', 'table', 'width', '655')) {
# Skip table which do not contain program
next if(!$tableTree->look_down('_tag', 'td', 'class', 'prog'));
process_fucking_damned_page( $writer, $chid, $tableTree, $dateindex, $slot);
}
# Default old per week grabbing process
} else {
if ( my $tableTree = $t->look_down('_tag', 'table', 'width', '655', 'class', 'prog_grille') ) {
foreach my $myrow ( $tableTree->look_down('_tag', 'tr') ) {
if ( my $celldate = $myrow->look_down('_tag', 'td', 'width', '55', 'height', '42' ) ) {
my $myday = $celldate->as_text();
$myday =~ /^(\d+)\/(\d+)/;
$day = $1; $month = $2;
}
debug_print "Now parsing date : $day $month \n";
$date = DateCalc($month."/".$day."/".$year, "+0 days");
$dateindex = UnixDate($date, "%Y%m%d");
# We need to limit the number of days fetched in slow mode, but in fast mode no limit is needed since
# there is a single fetch for all days.
if ($opt_slow) {
next if Date_Cmp($dateindex, UnixDate(DateCalc("today", "+$opt_offset days"),"%Y%m%d")) < 0;
next if Date_Cmp($dateindex, UnixDate(DateCalc("today", "+$lastdaysoffset days"),"%Y%m%d")) > 0;
}
process_fucking_damned_page( $writer, $chid, $myrow, $dateindex, $slot);
$myrow->replace_with("REPLACED");
}
}
}
$t->delete(); undef $t;
}
sub text_cleanup( $ )
{
my ($desc) = @_;
$desc =~ s/\@\@\@/ /g;
# Remove leading and trailing spaces
$desc =~ s/^\s*:\s*//;
$desc =~ s/\s*$//;
return $desc;
}
sub parse_name_list( $ )
{
my ($names) = @_;
# Remove leading and trailing spaces
$names =~ s/^\s*:\s*//;
$names =~ s/\s*$//;
$names =~ s/\s+(?:avec|et)\s+/, /i;
my @list=split /(?:\s*,)+\s*/, $names;
return @list;
}
sub get_detailed_fic( $$$ )
{
my $id = shift;
my $prog = shift;
my $title = shift;
my $nbretry = 0;
$id =~ /fiche\('(\d+)'\)/ or die "expected fiche(x), got: $id";
$id = $1;
my $FIC_FILE = new File::Temp(SUFFIX => '.xmltv' );
debug_print("Calling sheet URL : " . $SHEET_URL . $id . "\n");
# Get the current page
while ( HTTP::Status::is_error(getstore($SHEET_URL . $id, $FIC_FILE->filename )) ) {
sleep(1); $nbretry++;
return if ($nbretry == 5 );
}
my $tfic = HTML::TreeBuilder->new;
$tfic->store_comments(1);
$tfic->parse_file( $FIC_FILE->filename );
# This page's title tag contains the program title without the sub-title. Use it to separate the two.
my $ttitle;
if ( $ttitle = $tfic->look_down('_tag', 'title') ) {
my $htmltitle = $ttitle->as_text();
$htmltitle =~ s/^Fiche Programme TV : //g;
if ($title =~ s/^\Q$htmltitle\E\s+-\s+//) {
$prog->{'title'} = [ [ tidy($htmltitle) ] ];
$prog->{'sub-title'} = [ [ tidy($title) ] ];
}
}
# Get the duration and the year
if ( my $tdesc = $tfic->look_down('_tag', 'td', 'bgcolor', '#F8F8F8') ) {
if (my $img = $tdesc->look_down('_tag', 'img', 'alt', qr/^(Accord|Interdit)/)) {
my $text=$img->attr('alt');
my $rating;
if ($text =~ /Accord parental souhaitable/i) {
$rating="-10";
} elsif ($text =~ /Accord parental indispensable/i) {
$rating="-12";
} elsif ($text =~ /Interdit aux moins 16 ans/i) {
$rating="-16";
} elsif ($text =~ /Interdit aux moins 18 ans/i) {
$rating="-18";
} else {
warn "Unknown show rating [$text]\n";
}
if ($rating) {
my $icon="http://telepoche.guidetele.com" . $img->attr('src');
push @{$prog->{rating}}, [ $rating, "CSA", [ {src => $icon} ] ];
}
}
debug_print "RAWDATA: " . tidy($tdesc->as_text()) . "\n";
foreach my $field ( split(/\s+/, tidy($tdesc->as_text())) ) {
# Set to lowercase for better color/b&w detection
$field = lc($field);
if ( $field =~ s/^(\d\d\d\d)$//i ) {
$prog->{'date'} = $1;
} elsif ( $field =~ s/^coul.*//i ) {
$prog->{'video'}{colour} = 1;
} elsif ( $field =~ s/^noir.*//i ) {
$prog->{'video'}{colour} = 0;
} elsif ( $field =~ s%^16/9%%) {
$prog->{'video'}{aspect} = "16:9";
} elsif ( $field =~ s/^(st.r.o|Dolby)\s*//i) {
my $stereo = $1;
if ($stereo =~ /^st.r.o$/) {
$prog->{'audio'}{stereo} = "stereo";
} elsif ($stereo eq "Dolby") {
$prog->{'audio'}{stereo} = "dolby";
}
} elsif ($field =~ s/(\d+)h(\d+)//) {
my ($hour, $min) = ($1, $2);
# guidetele.com is full of bugs ...
$hour = $hour - 12 if ($hour >= 12);
my $duration=($hour * 3600) + ($min * 60);
$prog->{'length'} = $duration if ($duration != 0);
}
}
}
# The actors list is really hard to identify and risks producing false
# positives. Fortunately we know it follows a 'DISTRIBUTION' comment.
# So we:
# - locate the 'DISTRIBUTION' comment and identify what should be the
# first actor after that
# - only set $actors_section to 1 when we are in the right area of the page.
# The rest of the time it is set to 0 before the actors section,
# and 2 after it.
my $actors_section=0;
my $first_actor;
if (my $comment=$tfic->look_down('_tag', '~comment', 'text', qr/DISTRIBUTION/)) {
my $sibling=$comment->right();
if (!ref $sibling) {
# $sibling is a string, what we want is the next HTML element
$sibling=($comment->parent()->content_list())[$comment->pindex()+2];
}
if (defined $sibling) {
$first_actor=$sibling->look_down('_tag', 'span', 'class', 'noir11');
}
}
# Now get descriptions, summary, advices, actors and director
# These are represented as <span class='noir11'> / <span class='noir11r'>
# pairs.
my ($resume, $histoire, $avis);
foreach my $span ($tfic->look_down('_tag', 'span', 'class', 'noir11')) {
my $sibling=$span->right();
next if (!defined $sibling);
my $value="";
if (!ref $sibling) {
# $sibling is a string, what we want is the next HTML element
$value=$sibling;
$sibling=($span->parent()->content_list())[$span->pindex()+2];
next if (!defined $sibling);
}
if ($sibling->attr('_tag') ne "span" or
$sibling->attr('class') ne "noir11r") {
# Not a valid value span tag
next;
}
$value.=$sibling->as_text();
my $name=$span->as_text();
if ($name =~ /^Titre original/i) {
# FIXME: Still in the works...
;
} elsif ($name =~ /^R.*alisateur/i) {
push @{$prog->{credits}{director}}, parse_name_list(tidy($value));
} elsif ($name =~ /^Pr.*sentateur/i) {
my @presenter = parse_name_list(tidy($value));
if ( $#presenter != 1 ) {
push @{$prog->{credits}{presenter}}, @presenter ;
}
} elsif ($name =~ /^Sc.*nariste/i || $name =~ /^Sc.*nario/i) {
push @{$prog->{credits}{writer}}, parse_name_list(tidy($value));
} elsif ($name =~ /Musique/i) {
# No xmltv field for this
;
} elsif ($name eq "HISTOIRE") {
$histoire = text_cleanup(tidy($value));
$actors_section=2;
} elsif ($name eq "RESUME") {
$resume = text_cleanup(tidy($value));
$actors_section=2;
} elsif ($name eq "AVIS") {
$avis = text_cleanup(tidy($value));
$actors_section=2;
} elsif ($actors_section == 1 or
($actors_section == 0 and defined $first_actor and $span eq $first_actor)) {
my $actorname = text_cleanup(tidy($name));
if ( $actorname ne "" ) {
push @{$prog->{credits}{actor}}, $actorname;
}
$actors_section=1;
}
}
# RESUME is the main definition, HISTOIRE is shorter.
foreach ($resume, $histoire) {
push @{$prog->{desc}}, [ $_, $LANG ] if defined and length;
}
# Add AVIS to the main description, or make a new desc for it if there are none.
if (defined $avis and length($avis) ) {
if ($prog->{desc}) {
$prog->{desc}->[0]->[0] .= " Critique : " . $avis;
} else {
push @{$prog->{desc}}, [ $avis, $LANG ];
}
}
$tfic->delete(); undef $tfic;
}$ tv_grab_fr --configure
Le paramétrage ci-dessus produit un fichier tv_grab_fr.conf qui contient les chaînes sélectionnées.
La commande manuelle suivante permet d'indiquer un certain nombre d'informations pour chacune des chaînes préalablement choisies
Pour configurer xmltv tu tapes donc tv_grab_fr -- configure.
Il te crée un fichier dans ~/.xmltv/tv_grab_fr.conf, puis on le lie
sudo ln -s ~/.xmltv/tv_grab_fr.conf ~/.mythtv/csat.xmltv
puis un
mythfilldatabase --graboptions "--perdays"
l'option
Code :
--graboptions "--perdays"
peut étre indiquée dans la configuration de mythfrontend (option à passer à mythfilldatabase).
Dernière modification par oblooblo2000 (Le 17/10/2007, à 23:41)
Hors ligne
#22 Le 25/10/2007, à 22:57
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
je continue et grace a ce site:
http://mythtv-fr.info/index.php?file=Forum&page=viewtopic&forum_id=4&thread_id=121
je scan les dernieres chaines:
- plutôt que de me renseigner sur les caractéristiques de chaque canal j'ai installé un paquet "dvb-utils"
http://www.linuxtv.org/wiki/index.php/LinuxTV_dvb-apps et
http://sourceforge.net/projects/dvbtools/2 methodes:
apt-get install dvb-utilssoit
wget http://www.linuxtv.org/download/dvb/linuxtv-dvb-apps-1.1.1.tar.gz
uncompresse
cd to the top directory level of the uncompressed sources; run 'make' and then 'sudo make install'ou le recuperer ici:
http://packages.ubuntu.com/dapper/misc/dvb-utilsqui m'a permis de lancer la commande:
scan -v /usr/share/doc/dvb-utils/examples/scan/dvb-s/Astra-19.2E -l UNIVERSAL -a 0 | tee channels-22jan2007.conf
et sauvegarde la sortie dans un fichier
- ayant accès à un bouquet limité on peut soit même recréé un fichier "channels.conf" avec uniquement les chaînes qui intéressent- au moment de scanner les chaînes lui indiquer le chemin vers votre fichier "~user/channels.conf"
Dernière modification par oblooblo2000 (Le 25/10/2007, à 23:12)
Hors ligne
#23 Le 28/11/2007, à 18:15
- bellad
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
bonjour , et merci pour ce tuto
j'ai fait comme t'a dis , quand je fait insmod dvbloopback.ko
je n'ai pas de adapter1 dans /dev/dvb
pour info je suis sous linuxmce 704 , une nova-s , les drivers v4l (avec adapter0) et une graphique nvidia
quelqu'un peut il m'aider ?
merci
#24 Le 06/12/2007, à 22:46
- oblooblo2000
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
salut,
a priori, si j'ai bien compris:
- tu as compiler dvbloopback.ko
- tu as un /dev/dvb/adptater0
lance tu la commande comme ca (avec le chemin absolu?? car sinon tu dois le mettre dans le path)
sudo insmod /script/mythtv/sasc/dvbloopback.ko
As tu des messages d'erreurs ?
As tu plusieurs cartes ?
@ +
Hors ligne
#25 Le 10/12/2007, à 16:32
- bellad
Re : [resolu]feisty + mythtv + sasc-ng + infinity phoenix
salut, excuse du retard , j'ete avec linuxmce 704 et j'attends la 710. Du coup j'ai tout viré et je suis en train d'installé ubuntu 710 et ensuite je vais suivre ton exemple
je te tiendrai au courent
merci
Hors ligne