leere playlist vdradmin.pl.m3u

Zitat

gelegentlich funktioniert das streamen aber nicht - gund ist eine leere playlist.

Hi Marpiet,
der Grund dafür ist, dass vdr bei Direktaufnahmen zwei Unterstriche
an die Datei anhängt. vdradmin.pl macht aus Unterstrichen
Leerzeichen, die am Ende wegfallen (trim).
Beim Streamen wird aus dieser Angabe dann der Dateiname
ermitterlt (von p. siering in vdradmin eingebaut, soviel ich weiss),
und kann ihn wegen den fehlenden Unterstrichen am Ende
nicht finden -> playliste leer.

Ich habe mir einen workaround gebastelt:
Wenn der Dateiname mit @ beginnt, suche auch
nach @<filename>__.
Such mal nach "playliste AND leer".

Ich habe das, glaube ich, auch schon peter gepostet, aber
er hat vermutlich wichtigeres zu tun. Oder ist
es bei neueren Versionen behoben?

Meine vdradmin.pl-Version: 0.95-ct-5.

Uwe

hi,
du hast recht: an den Klammern innerhalb des find-commands liegts.
Müssen wohl gequotet werden.
Werde mir das mal angucken.
Uwe

hallo,
ich weiss nicht ob's noch interessiert: hier
die komplette routine rec_stream, die jetzt auch
mit Klammern im Verzeichnisnamen zurechtkommt..

In dem Teil, wo der Name ($title) auf
Sonderzeichen durchsucht wird, wird im unless-else
Zweig noch geprueft, ob das i-te Zeichen - jetzt in
$c = substr($title,$i,1) - eine Klammer ist und wenn
ja gequotet (d.h. "\" vorangestellt).

Gruss
Uwe

sub rec_stream {
  my($id) = $q->param('id');
  my($i, $title, $newtitle);
  my $data;
  my $f;
  my(@tmp, $dirname, $name, $parent, @files);
  my( $date, $time, $day, $month, $hour, $minute);
# um: new var $c  
  my $c;


  for(SendCMD("lstr")) {
    ($i, $date, $time, $title) = split(/ +/, $_, 4);
    last if($id == $i);
  }
  if ( $id == $i) {
      chomp($title);
      ($day, $month)= split( /\./, $date);
      ($hour, $minute)= split( /:/, $time);
      # escape characters
      $title =~ s/~/\//g;
      $title =~ s/\ /\_/g;
      for ( $i=0 ; $i < length($title); $i++) {
# um: i. char of title now in $c      
          $c = substr($title,$i,1);
	  unless ( $c =~ /[öäüßÖÄÜA-Za-z0123456789_!@\$%&\(\)\+,\-;=\/]/) {
	      $newtitle.= sprintf( "#%02X", ord($c));
	  } else {
# um: quote "(" and ")"	  
              if ($c =~ /[\(\)]/) { $newtitle .= "\\" };  
	      $newtitle.= $c;
	  }
      }
      $title=$newtitle;
      if ( $title =~ m/@/ ) {
       $title .= "__";
      }
      @files = `find $VIDEODIR/$title/????-$month-$day.$hour?$minute.??.??.rec -maxdepth 1 -name "???.vdr" | sort -r`;
      foreach (@files) {
          $_ =~ s/$VIDEODIR//;
          $data= $CONFIG{ST_URL}."$_\n$data";
      }
  }
  return(header("200", "audio/x-mpegurl", $data));
}

marpiet
gern.
Aber ganz perfekt isses immner noch nicht:
Ich hab da ne Aufnahme namens titel_(2#2F2), im Browser
angezeigt als titel_(2/2), die findet find wegen "/" nicht.
D.h. bei der Prüfung auf reguläre Zeichen
(in der Zeile unless ..) muss noch "\/" (vor "]") raus, dann geht's.

Gruß
Uwe

umad
Die Korrektur mit dem Auslassen der \/ bringt leider neue Probleme mit sich, wenn die Aufnahmen in einem Unterverzeichnis sind.
Das kann man aber wie folgt beheben:
in der unless Zeile bleibt das \/ entfernt, vor die ] wird ein ~ eingefügt und ein . (Den Punkt um Aufnahmen wie "Nr.5 gibt nicht auf" zu sehen).
Die Zeile $title =~ s/~/\//g
wird hinter $title=$newtitle verschoben.
Das wars! Bis zum nächsten Sonderzeichen!

Marten

Hallo Forum,

ich weiss, ich weiss, ist ein alter hut, aber ich bekomme das einfach nicht hin mit dem streaming einer Aufnahme aus dem vdradmin heraus.
Habe mir einen vdr 1.2.6-27 auf Grundlage eine ct VDR 2 edition gebaut. Funktioniert auch alles soweit.

Aber:

Kein Streaming, meine playliste ist leer. Habe die Anweiseungen in diesem Thread beachtet, aber es hilft nix.
Vielleicht bin ich ja auch total auf dem Holzweg.

Ich editiere die Datei /usr/bin/vdradmind.pl

Der relevante Abschnitt ist im Moment:

sub rec_stream {
  my($id) = $q->param('id');
  my($i, $title, $newtitle);
  my $data;
  my $f;
  my(@tmp, $dirname, $name, $parent, @files);
  my( $date, $time, $day, $month, $hour, $minute);
# um: new var $c
  my $c;


  for(SendCMD("lstr")) {
    ($i, $date, $time, $title) = split(/ +/, $_, 4);
    last if($id == $i);
  }
  if ( $id == $i) {
      chomp($title);
      ($day, $month)= split( /\./, $date);
      ($hour, $minute)= split( /:/, $time);
      # escape characters
      $title =~ s/\ /\_/g;
      for ( $i=0 ; $i < length($title); $i++) {
# um: i. char of title now in $c
          $c = substr($title,$i,1);
          unless ( $c =~ /[öäüßÖÄÜA-Za-z0123456789_!@\$%&\(\)\+,\-;=~.]/) {
              $newtitle.= sprintf( "#%02X", ord($c));
          } else {
# um: quote "(" and ")"
              if ($c =~ /[\(\)]/) { $newtitle .= "\\" };
              $newtitle.= $c;
          }
      }
      $title=$newtitle;
      $title =~ s/~/\//g;
      if ( $title =~ m/@/ ) {
       $title .= "__";
      }
      @files = `find $VIDEODIR/$title/????-$month-$day.$hour?$minute.??.??.rec -
maxdepth 1 -name "???.vdr" | sort -r`;
      foreach (@files) {
          $_ =~ s/$VIDEODIR//;
          $data= $CONFIG{ST_URL}."$_\n$data";
      }
  }
  return(header("200", "audio/x-mpegurl", $data));
}

Ich habe da eine Aufnahme, zu sehen im vdradmin:
@Bush in Deutschland Der US-Präsident zu Gast in Mainz

Interessant: Wenn ich über den total commander über die samba freigabe zu der Datei navigiere, sieht das "ä" von "Präsident" irgendwie anders aus. Habe ich da ein Codepage Problem?

\\Vdr\vdr-root\video\@Bush_in_Deutschland_Der_US-Prõsident_zu_Gast_in_Mainz\2005-02-23.16.40.10.01.rec\001.vdr

Hilfe ....

Viele Grüße,
sunfield

Ein fröhliches up!

Okay, ich hab jetzt schon mal verstanden, dass die leere Playliste entsteht, wenn das Verzeichnis in dem der vdr die Aufnahme ablegt, spezielle Sonderzeichen enthält wie Klammern (), @ bei Direktaufnahmen und das wohl auch Punkte zu Problemen führen können.
Scheinbar gehöhrt auch das !-Zeichen dazu. Denn ich habe hier eine Aufnahme, die ich nicht aus VDRAdmin heraus streamen kann und diese enthält ein '!'.

Da ich mal davon ausgehe, dass die Probleme mit den hier besprochenen Sonderzeichen '().' mitlerweile behoben sein sollten, kann es da trotzdem noch sein, dass der VDRAdmin-AM in Version 3.5.1 das '!' nicht auflösen kann???