Radiosender Grabben?

Digital Recording
Goliath
Neugieriger
Neugieriger
Beiträge: 9
Registriert: Samstag 26. April 2003, 14:25

Radiosender Grabben?

Beitrag von Goliath »

Hallo,

bei mir klappt das grabben/streamen von tv-sendern wunderbar.

nur leider tut sich nichts wenn ich radio-streams streamen/grabben will, geht das ueberhaupt?

nachtrag:
hier nochmal ein paar info's fuer euch, die ihr evtl. braucht.

[vader@fosters /]$ uname -a
Linux fosters 2.4.21-0.13mdkcustom #4 Fri Jun 13 22:58:08 CEST 2003 i686 unknown unknown GNU/Linux

[vader@fosters /]$ ggrab -h
ggrab version 0.22a, Copyright (C) 2002 Peter Menzebach
----
dann mache ich:
~ > pzapit -ra 5 20
zapped to HR XXL
pcr: 0xdad
audio 1: 0xdad (deu)
~ >

[vader@fosters /]$ GET http://192.168.1.2/control/zapto?getpids
0
3501

und:
[root@fosters /]# ggrab -host dbox -port 31338 -p 0xdad -o -
xlist::sid: timeout wait for data
[root@fosters /]#

David - fuer jede hilfe dankbar
stimpy
Neugieriger
Neugieriger
Beiträge: 4
Registriert: Dienstag 8. Juli 2003, 20:45

Anderer Lösungsweg (ohne ggrab)

Beitrag von stimpy »

Hi Goliath!

Ich bin eben gerade mit nem mini-script fertig geworden, was genau das macht.
Ich poste mal:

---<snipp>-----------

#!/bin/sh
#
# TuxWatch vo.1ß
# (C) in 2003 by P. Giebel
#

wget -O ~/.tuxwatch/pids http://dbox/control/zapto?getpids 2> /dev/null

export apid=`tail -n1 ~/.tuxwatch/pids`

export apid=`printf %0x $apid`

echo "-===================================-"
echo " TuxListen v0.1ß"
echo ".-----------------------------------."
echo " Playing apid: $apid"
echo "-===================================-"

xmms http://dbox:31338/$apid &

---<schnapp>-----------

Ich schalte halt einfach vorher mit dem WebInterface um. Man könnte das aber bestimmt auch automatisieren. Dazu wären folgende URLs interessant:

http://dbox/control/channellist (beinhaltet eben eine Channelliste mit den jeweiligen Kanalnummern.)

http://dbox/control/zapto?$KANALNUMMER (schaltet auf die entsprechende Kanalnummer um, die man in der Channelliste findet)

http://dbox/control/epg (Das EPG mit Kanalnummern und Zeiten)

Aber da hab ich jetzt keinen Bock mehr drauf.. :)

Als dann, hoffe geholfen zu haben,
stimpy
stimpy
Neugieriger
Neugieriger
Beiträge: 4
Registriert: Dienstag 8. Juli 2003, 20:45

Nachtrag

Beitrag von stimpy »

!!! NACHTRAG !!!

Seltsamer Weise funktioniert das skript bei mir nur mit HR-XXL.
Bei allen anderen Sendern hab ich schwere mpeg-Störungen. Hat jemand ne Idee, warum?

stimpy
Goliath
Neugieriger
Neugieriger
Beiträge: 9
Registriert: Samstag 26. April 2003, 14:25

Re: Nachtrag

Beitrag von Goliath »

stimpy hat geschrieben: Seltsamer Weise funktioniert das skript bei mir nur mit HR-XXL.
Bei allen anderen Sendern hab ich schwere mpeg-Störungen. Hat jemand ne Idee, warum?
hi stimpy,

hier erstmal das script mit dem du die channels per telnet umschalten kannst (null optimiert, nur schnell zusammengeschrieben, und du brauchst dafuer perl und ggf. noch das Net::Telnet modulNet::Telnet modul )

ich starte das einfach am anfang von deinem radio-script, bzw meinem tv-script... tut wunderbar

zum radio... komisch... genau das selbe problem hab ich auch festgestellt, allerdings hatte ich die stoerungen auch wenn ich manuell umgestellt habe (per telnet) ....


wenn du was hoerst, sag bescheid! ;) ... goliath@ircnet (meist in #linux.de)

gruss,

David

---snip

Code: Alles auswählen

#!/usr/bin/perl
#
# dboxZap v0.1
# switch dbox channels via telnet interface
#
# David Solbach (2003)
use Net::Telnet;
use strict;
my $channel;
my $t = new Net::Telnet;
#translate channels
#radio
if ($ARGV[0] eq "xxl") { $channel = "-ra 5 20" }
if ($ARGV[0] eq "wdr3") { $channel = "-ra 5 10" }
if ($ARGV[0] eq "fritz") { $channel = "-ra 5  3" }
if ($ARGV[0] eq "sputnic") { $channel = "-ra 5  8" }
#premiere
if ($ARGV[0] eq "p1") { $channel = "1 6" }
if ($ARGV[0] eq "p2") { $channel = "1 7" }
if ($ARGV[0] eq "p3") { $channel = "1 8" }
if ($ARGV[0] eq "p4") { $channel = "1 9" }
#ard
if ($ARGV[0] eq "1") { $channel = "5 20" }
if ($ARGV[0] eq "hr") { $channel = "5 21" }
if ($ARGV[0] eq "zdf") { $channel = "6 6" }
if ($ARGV[0] eq "cnbc") { $channel = "6 2" }
#open telnet
$t->open("dbox");
#login
$t->waitfor('/login:/');
$t->print("root");
$t->waitfor('/Password:/');
$t->print("dbox2");
#zapp
$t->waitfor('/>/');
$t->print("pzapit $channel");
$t->waitfor('/>/');
$t->print("exit");
exit;[/url]