mirror of
https://github.com/vdr-projects/vdr.git
synced 2025-03-01 10:50:46 +00:00
a616d4b859
- Updated the Estonian OSD texts (thanks to Arthur Konovalov). - Updated the Finnish OSD texts (thanks to Rolf Ahrenberg). - Fixed handling 'summary.vdr' files with more than two empty lines (thanks to Christian Jacobsen for reporting this one). - Improved resetting CAM connections (thanks to Marco Schlüßler). - Implemented cVideoRepacker in remux.c to make sure every PES packet contains only data from one frame (thanks to Reinhard Nissl). NOTE: currently this doesn't work with MPEG1, so if you use MPEG1 you may want to change line 1158 in remux.c to ts2pes[numTracks++] = new cTS2PES(VPid, resultBuffer, IPACKS); as it was before. - EPG events without a title now display "No title" instead of "(null)" (thanks to Rolf Ahrenberg). - A device can now detach all receivers for a given PID, as is necessary, e.g., for the bitstreamout plugin (thanks to Werner Fink). - Added the year (two digits) to recording dates in LSTR, and thus also in menus (suggested by Jan Ekholm). - Fixed the call to Channels.Unlock() in cEITScanner::Process() (thanks to Reinhard Nissl). - Fixed handling timers with a day given as MTWTF--@6, i.e. a repeating timer with first day not as full date, but just day of month (thanks to Henrik Niehaus for reporting this one). - Removed an unnecessary #include from osd.c (thanks to Wolfgang Rohdewald). - Fixed dropping EPG events that have a zero start time or duration, in case it's an NVOD event (thanks to Chris Warren). - Fixed handling page up/down in menu lists in case there are several non selectable items in a row (thanks to Udo Richter for reporting this one). - Added cOsdMenu::SetCols() to allow adjusting the menu columns. - Modified cEITScanner::Process() so that it works on systems with only budget cards or a mix of DVB-S, DVB-C or DVB-T cards.
48 lines
1.3 KiB
Perl
Executable File
48 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Convert 'summary.vdr' files to 'info.vdr'
|
|
#
|
|
# Converts all 'summary.vdr' files in the video directory to the
|
|
# 'info.vdr' format as used from VDR version 1.3.25 upward.
|
|
#
|
|
# Usage: summary2info.pl /video
|
|
#
|
|
# See the main source file 'vdr.c' for copyright information and
|
|
# how to reach the author.
|
|
#
|
|
# $Id: summary2info.pl 1.3 2005/06/04 11:33:09 kls Exp $
|
|
|
|
$VideoDir = $ARGV[0] || die "please provide the name of the video directory\n";
|
|
|
|
@SummaryFiles = `find "$VideoDir" -name summary.vdr`;
|
|
|
|
for $SummaryFile (@SummaryFiles) {
|
|
chomp($SummaryFile);
|
|
print STDERR "converting $SummaryFile...";
|
|
open(F, $SummaryFile) || die "$SummaryFile: $!\n";
|
|
$line = 0;
|
|
@data = ();
|
|
while (<F>) {
|
|
chomp;
|
|
if ($_ || $line > 1) {
|
|
$data[$line] .= '|' if ($data[$line]);
|
|
$data[$line] .= $_;
|
|
}
|
|
else {
|
|
$line++;
|
|
}
|
|
}
|
|
close(F);
|
|
if ($line == 1) {
|
|
$data[2] = $data[1];
|
|
$data[1] = "";
|
|
}
|
|
($InfoFile = $SummaryFile) =~ s/summary\.vdr$/info.vdr/;
|
|
open(F, ">$InfoFile") || die "$InfoFile: $!\n";
|
|
print F "T $data[0]\n" if ($data[0]);
|
|
print F "S $data[1]\n" if ($data[1]);
|
|
print F "D $data[2]\n" if ($data[2]);
|
|
close(F);
|
|
print STDERR "done.\n";
|
|
}
|