mirror of
https://github.com/vdr-projects/vdr.git
synced 2025-03-01 10:50:46 +00:00
771986b89f
- Re-implemented handling of DVB-S2, which first appeared in version 1.5.14, but was revoked in version 1.5.15 in favor of making a stable version 1.6.0. VDR now requires the "multiproto" DVB driver, e.g. from http://jusst.de/hg/multiproto. Note that the channels.conf file now supports additional parameters, so you may want to make sure you have a backup of this file in case you need to go back to the previous version of VDR! - Fixed displaying transponder data when it is modified (thanks to Reinhard Nissl). - Fixed handling the counter in detection of pre 1.3.19 PS data (thanks to Reinhard Nissl). - Improved logging system time changes to avoid problems on slow systems under heavy load (suggested by Helmut Auer). - Now setting the thread name, so that it can be seen in 'top -H' (thanks to Rolf Ahrenberg). - Fixed initializing the timer's flags in the cTimer copy constructor (thanks to Andreas Mair). - Fixed setting the OSD level in the 'osddemo' example (thanks to Wolfgang Rohdewald). - Increased the time between checking the CAM status to 500ms to avoid problems with some CAMs (reported by Arthur Konovalov).
57 lines
1.6 KiB
Perl
Executable File
57 lines
1.6 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 2.0 2006/04/17 12:19:24 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 (!$data[2]) {
|
|
$data[2] = $data[1];
|
|
$data[1] = "";
|
|
}
|
|
elsif ($data[1] && $data[2]) {
|
|
# if line 1 is too long, it can't be the short text,
|
|
# so assume the short text is missing and concatenate
|
|
# line 1 and line 2 to be the long text:
|
|
if (length($data[1]) > 80) {
|
|
$data[2] = $data[1] . "|" . $data[2];
|
|
$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";
|
|
}
|