vdr-tvtime.pl - vdr ueber tvtime steuern

Die Idee ist sehr gut, leider bei mir ist die Qualität des Video nicht so gut wie xawtv, und ich kann tvtime nicht immer starten :

Running tvtime 0.9.12.
Reading configuration from /etc/tvtime/tvtime.xml
Reading configuration from /home/greg/.tvtime/tvtime.xml
videoinput: Can't get tuner info: Invalid argument
videoinput: Can't get tuner info: Invalid argument

Cannot allocate enough off-screen video memory. This may be fixed by:

1. Closing or restarting large X applications.
2. Lowering the input width of tvtime (--inputwidth parameter).
3. Lowering your colour depth or highest configured resolution.
4. Increasing the amount of video memory in your X config file
(for example, if you are using the i810 XFree86 driver.)

See http://tvtime.net/ for more information.

Cannot allocate enough off-screen video memory. This may be fixed by:

1. Closing or restarting large X applications.
2. Lowering the input width of tvtime (--inputwidth parameter).
3. Lowering your colour depth or highest configured resolution.
4. Increasing the amount of video memory in your X config file
(for example, if you are using the i810 XFree86 driver.)

See http://tvtime.net/ for more information.

Thank you for using tvtime.
DEBUG: tvtime exited.

Ich glaube tvtime kann gut werden, aber zur Zeit ist es zu jung

Ich finde das Script sehr nützlich, aber die langen Reaktionszeiten sind tatsächlich sehr störend. Ich habe ein wenig experimentiert und herausgefunden, daß man die Reaktionszeiten auf normales "Fernbedienungs-Nivau" heben kann, indem man die svdrpsend.pl-Funktionalität direkt in das vdr-tvtime-Skript integriert. Dann genügt es, den Socket zum vdr nur einmal zu Öffnen und wiederzuverwenden. Dadurch werden die Reaktionszeiten beträchtlich erhöht.

Ein Problem stellt allerdings der 'timeout' dar, der zwar abgefangen werden kann, allerdings weiss ich nicht, wie er zustande kommt bzw. man ihn vernünftig behandelt.

Cya, Ed

Mein Timeout-Problem scheint serverseitig zu sein: der VDR weigert sich einfach, auf die Verbindung auf Port 2001 zu antworten. Ich habe versucht, via telnet auf den VDR zuzugreifen und habe auch damit keinen Zugriff erhalten. Wenn man allerdings lange genug wartet, meldet sich der VDR schliesslich doch noch.

Ich hab Gonz' Skript entsprechend angepasst, ist aber nur ein kleiner Hack und als proof of concept zu verstehen. Die map.txt bekommt man z.B. aus Gonz' Paket.

Cya, Ed

Da ich offenbar zu blöd bin, das File hochzuladen ("Upload failed! Please check the file's specifications!"), kommt meine modifizierte Version halt im Klartext. Ab und an dauert es ein bisschen, bis der VDR auf die Tasten reagiert, das liegt IMHO aber an der Art, wie der VDR den Socket ausliest, naemlich nur in bestimmten Abstaenden, wenn er grad nichts anderes zu tun hat. Eine Implementation mit Threads waere da responsiver, aber auch von enormem Aufwand.

#!/usr/bin/perl
use Socket;


$tvtime    = '/usr/bin/tvtime --slave';
$tvtimecmd = '/usr/bin/tvtime-command';
$mapfile   = '/etc/tvtime/map.txt';
$svdrpsend = '/usr/bin/svdrpsend.pl';


my %mapped;
my $timeout = 0;


open(IN, "<$mapfile") || die "cannot open mapfile: $mapfile";
while(<IN>)
{
  chomp;
  my @line = split( /\t/, $_ );
  $mapped{$line[0]} = $line[1];
}
close(IN);


$Dest = "127.0.0.1";
$Port = 2001;
$| = 1;


open(IN, "$tvtime|") || die "cannot open pipe";
MainLoop();


sub MainLoop ()
{
  print STDOUT "DEBUG Mainloop\n";


  do {
    OpenSocket();
    while(<IN>)
    {
      chomp;
      next if /^\0$/;
      if ( $mapped{$_} eq "" ) { $mapped{$_} = $_ }


      if ( $mapped{$_} =~ /TVTIME_/)
      {
        $cmd = $mapped{$_};
        $cmd =~ s/TVTIME_//;
        SendTvtime($cmd);
      }
      else
      {
        SendKey($mapped{$_});
      }
    }
  } while (TimeOut);
  Send("quit");
  close(SOCK)                                 || Error("close: $!");
  close(IN);


  print "DEBUG: tvtime exited.\n";
}


sub TimeOut
{
  print STDOUT "TIMEOUT $timeout\n";
  if ($timeout) {$timeout = 0; return 1;}
  return 0;
}


sub SendTvtime
{
system("$tvtimecmd KEY_EVENT $cmd")
}


sub Send
{
  my $cmd = shift || Error("no key to send");
  print SOCK "HITK $cmd\n";
  Receive();
}


sub SendKey
{
  my $cmd = shift || Error("no key to send");
  print SOCK "HITK $cmd\n";
  Receive();
}


sub OpenSocket
{
  $iaddr = inet_aton($Dest)                   || Error("no host: $Dest");
  $paddr = sockaddr_in($Port, $iaddr);
  $proto = getprotobyname('tcp');


  close(SOCK);
  socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || Error("socket: $!");
  connect(SOCK, $paddr)                       || Error("connect: $!");
  select(SOCK) || Error ;
  $| = 1;
  Receive();
}


sub Receive
{
  while (<SOCK>)
  {
    if ( $_ =~ /^221/)
    {
      print STDOUT "timeout detected\n";
      $timeout = 1;
      OpenSocket();
      return;
    }
    print STDOUT $_;
    last if substr($_, 3, 1) ne "-";
  }
}


sub Error
{
  print STDERR "@_\n";
  close(SOCK);
  exit(0);
}

EDIT: Hab den Code nochmal modifiziert: Befehle fuer den tvtime koennen nun ebenfalls in map.txt definiert werden. Z.B:
f TVTIME_f
v TVTIME_v
fuer Fullscreen und Stay-on-Top.

Cya, Ed

Hab noch ein bisschen gebastelt und nun eine stabile Version hinbekommen. Das Skript hält die SVDRP-Verbindung konstant aufrecht, indem es in regelmässigen Abständen ein Ping (bzw. ein HELP) über die Leitung schickt. Dafür sollte man die Variable $timeout auf einen Wert knapp unterhalb des Timeouts im VDR stellen.

#!/usr/bin/perl
use Socket;
use Time::HiRes qw(setitimer ITIMER_VIRTUAL);


$tvtime    = '/usr/bin/tvtime --slave';
$tvtimecmd = '/usr/bin/tvtime-command';
$mapfile   = '/etc/tvtime/map.txt';
$svdrpsend = '/usr/bin/svdrpsend.pl';
$timeout = 250;


my %mapped;


open(IN, "<$mapfile") || die "cannot open mapfile: $mapfile";
while(<IN>)
{
  chomp;
  my @line = split( /\t/, $_ );
  $mapped{$line[0]} = $line[1];
}
close(IN);


$Dest = "127.0.0.1";
$Port = 2001;
$| = 1;


open(IN, "$tvtime @ARGV |") || die "cannot open pipe";
OpenSocket();


# keep alive
$SIG{ALRM} = sub { SendVDR("HELP"); };
setitimer(ITIMER_PROF, $timeout, $timeout);


$tvtimealive = 1;
while($tvtimealive)
{
  chomp($key=<IN>);
  printf(STDOUT "Key $key %d\n", ord($key));
  next if $key =~ /^\0$/;


  if ( ord($key) == 0 )
  {
    $tvtimealive = 0;
    next;
  }


  if ( $mapped{$key} eq "" ) { $mapped{$key} = $key }
  if ( $mapped{$key} =~ /TVTIME_/)
  {
    $cmd = $mapped{$key};
    $cmd =~ s/TVTIME_//;
    SendTvtime("KEY_EVENT $cmd");
  }
  else
  {
    SendVDR("HITK $mapped{$key}");
  }
}


SendVDR("quit");
close(VDRSOCK) || Error("close: $!");
close(IN);


print STDOUT "DEBUG: tvtime exited.\n";
exit(0);


sub SendTvtime
{
  $cmd = shift || Error("no key to send");
  system("$tvtimecmd $cmd")
}


sub SendVDR
{
  my $cmd = shift || Error("no key to send");
  print VDRSOCK "$cmd\n";
  Receive();
}


sub OpenSocket
{
  $iaddr = inet_aton($Dest) || Error("no host: $Dest");
  $paddr = sockaddr_in($Port, $iaddr);
  $proto = getprotobyname('tcp');


  socket(VDRSOCK, PF_INET, SOCK_STREAM, $proto) || Error("socket: $!");
  connect(VDRSOCK, $paddr) || Error("connect: $!");
  select(VDRSOCK) || Error ;
  $| = 1;
  Receive();
}


sub Receive
{
  while (<VDRSOCK>)
  {
    if ( $_ =~ /^221.*timeout/)
    {
      print STDOUT "timeout detected\n";
      OpenSocket();
      return;
    }
    print STDOUT "$_";
    last if substr($_, 3, 1) ne "-";
  }
}


sub Error
{
  print STDERR "@_\n";
  close(VDRSOCK);
  exit(0);
}

Nicht der sauberste Code, aber meine aktiven Perltage liegen schon ein paar Jahre zurück...

Cya, Ed

hi gonz,

beim Aufruf von vdr-tvtime.pl bekomme ich die fogelnde Fehlermeldung:

Can't locate Time/HiRes.pm in @INC (@INC contains: /usr/lib/perl5/5.8.3/i386-linux-thread-multi /usr/lib/perl5/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at ./vdr-tvtime.pl line 4.
BEGIN failed--compilation aborted at ./vdr-tvtime.pl line 4.

habe mal die Zeile: use Time::HiRes qw(setitimer ITIMER_VIRTUAL);
auskommentiert, aber dann stürzt tvtime nach einer Zeit mit der Meldung ab:

Running tvtime 0.9.12.
Reading configuration from /etc/tvtime/tvtime.xml
Reading configuration from /root/.tvtime/tvtime.xml
videoinput: Can't get tuner info: Das Argument ist ungültig
videoinput: Can't get tuner info: Das Argument ist ungültig
videoinput: Can't mute card. Post a bug report with your
videoinput: driver info to http://tvtime.net/
videoinput: Include this error: 'Das Argument ist ungültig'
220 gecko SVDRP VideoDiskRecorder 1.3.12; Fri Aug 27 00:40:40 2004
Undefined subroutine &main::setitimer called at ./vdr-tvtime.pl line 34, <VDRSOCK> line 1.

Danke, das wars, hat fkt.

Hallo gonz,

ich da noch eine Frage,
in der map.txt versuche ich gerade für die Ok-Taste, Return zu
definieren, aber das klappt nicht.
Was muß ich eintragen, damit die Bestägung einer Anwahl mit Return klappt.

Ähm, mal für jemanden, der gerne mal tvtime ausprobieren würde (wegen Plasma und fiesen Störstreifen in der dvbshop.tv Geschichte)

Was heißt "direkt bedienen" Heißt das, wenn ich tvtime ohne diese bewundernswerte Skript-Akrobatik installiere, daß dann meine (LIRC-) Fernbedienung nicht mehr geht?

Und hat jemand von Euch tvtime auf der nativen Auflösung eines Plasma laufen?

Gruß,

Mirko