diff options
author | Klaus Schmidinger <kls (at) cadsoft (dot) de> | 2002-01-27 18:00:00 +0100 |
---|---|---|
committer | Klaus Schmidinger <kls (at) cadsoft (dot) de> | 2002-01-27 18:00:00 +0100 |
commit | 27919ee969866b68fc95b327a047a9989e4b4153 (patch) | |
tree | 1857862abf169ff6e9287152cd6fec6a1d9dbc41 /Tools/statdvb2vdr | |
parent | b420457467ad0c8ae71f8b985914e85b7a0ff5aa (diff) | |
download | vdr-patch-lnbsharing-27919ee969866b68fc95b327a047a9989e4b4153.tar.gz vdr-patch-lnbsharing-27919ee969866b68fc95b327a047a9989e4b4153.tar.bz2 |
Version 0.99pre2vdr-0.99pre2
- Fixed setting the OSD size in the 'Confirm' interface call (thanks to
Deti Fliegl).
- Removed the 'read incomplete section...' error message in the EIT processor.
- Fixed channel data for "DW TV" (thanks to Axel Gruber).
- Added DPID to "PREMIERE MOVIE 1" in channels.conf.cable (thanks to Stephan
Schreiber).
- Prepared the OSD functions for multiple overlapping windows.
- Removed the check to see whether the system time is running linearly.
- Improved performance of SVDRP command entry.
- Removed EPGBugfixLevel '3' - after more than a year Pro-7 finally managed to
broadcast the correct timestamps for EPG events between 0:00 and 6:00!
- Fixed failing watchdog timer if program hangs in OSD activities (thanks to
Carsten Koch).
- No longer requiring 'libncurses' if compiling without DEBUG_OSD=1 and
REMOTE=KBD (thanks to Lauri Pesonen).
- The "Recordings" menu now displays a hierarchical structure if there are
subdirectories for the recordings. This can be controlled through the
"RecordingDirs" parameter in the "Setup" menu.
See "MANUAL/Replaying a Recording" for details.
- Improved speed of setting the Help button texts.
- Fixed handling file names that contain single quotes (') or dollar signs ($)
in the call to the shutdown command (option '-s') and the recording command
(option '-r').
- Improved error handling in the editing process; the resulting file will be
deleted if an error occured.
- A message is now prompted at the end of the editing process, indicating
whether the process succeeded or failed.
- Fixed setting the LastActivity timestamp after a shutdown prompt (thanks to
Sergei Haller).
- A message is now prompted if free disk space becomes low during recording.
- The editing process now calls AssertFreeDiskSpace() to remove deleted
recordings if the disk becomes full.
- The "Main" menu now displays in its title the used disk space (in percent)
and the estimated free disk space (in hh:mm), assuming a data rate of 30 MB
per minute.
- Activating the "Recordings" menu now displays "scanning recordings..." to
give the user some feedback in case this takes longer.
- Status messages are now displayed centered.
- Removed the 'Tools' subdirectory from the VDR archive. All contributed tools
can now be found at ftp://ftp.cadsoft.de/pub/people/kls/vdr/Tools.
Diffstat (limited to 'Tools/statdvb2vdr')
-rw-r--r-- | Tools/statdvb2vdr/ch.pl | 250 |
1 files changed, 0 insertions, 250 deletions
diff --git a/Tools/statdvb2vdr/ch.pl b/Tools/statdvb2vdr/ch.pl deleted file mode 100644 index 91e918d..0000000 --- a/Tools/statdvb2vdr/ch.pl +++ /dev/null @@ -1,250 +0,0 @@ -#!/usr/bin/perl - -# Reads the file statdvb.dat produced by the Siemens windows -# software (1.50), which contains the scanned channels of an -# DVB-C (-S). The file ist located in the windows directory. -# -# Output is suitable for VDR (channels.conf). Only tested for -# the cable version. Should work with slight modifications for -# the sat version. -# -# 8. März 2001 - Hans-Peter Raschke - - -# file structure derived from "DvbGlobalDef.h" of the Siemens -# DVB kit. - -# typedef int TABLETYPE; -# enum TunStandard -# { -# PAL_BG, //B/G stereo or mono -# PAL_I, //I mono (with Nicam stereo) -# PAL_DK, //D/K mono -# SECAM_L, //L mono (with Nicam stereo) -# SECAM_LI, //Secam L’ (with Nicam stereo) -# SECAM_DK, -# SECAM_BG, -# NTSC_M, -# DVB_C, -# DVB_S, -# DVB_T -# }; -# -# typedef struct TunProgDataTag //xx bytes+1string -# { -# int nNumber; //logical number of the program -# DWORD dwFrequency; //frequency in khz -# CString csName; //name of the program -# TunStandard eStandard; //standard of the program -# DWORD dwExtraInfo; //specific info, like teletext,reserved data -# //0x8 == external input 1-CVBS -# //0x10 == external input 2-Y/C -# //0x20 == scrambled Program stream -# //0x40 == ASTRA Sattable -# //0x80 == Eutelsat Sattable -# //0xC0 == Sattable from File -# //0x100 == Pulsed switch to other satellite dish -# //0x1000-0xF000 = Other Satellite Nr(if Sattable from File) -# //Digital only params beginning from here -# WORD ProgNr; //DVB Nr for the prog (PAS related) -# WORD wTS_ID; //Transport-Stream ID orig. -# WORD wNW_ID; //Network ID orig. -# WORD wService_ID; //Service /Programm Id -# BYTE nModulation; //Modulation-Type QAM,QPSK,other -# BYTE nFEC_outerinner; //outer(high nibble) and inner(low n.) -# DWORD dwSymbolrate; //in symbol/s -# BOOL b22kHz; //east or west(TRUE) position in Sat -# BOOL bVertical_pos; //horizontal or vertical(TRUE) position in SAT -# BYTE nProgtype; //type of service (e.g. tv, radio) -# WORD wVideo_PID; //video-pid of the channel -# WORD wAudio_PID; //audio-pid of the channel -# WORD wPMT_PID; //PID of the associated PMT -# WORD wTxt_PID; //teletext PID for the program -# WORD wSubtitling_PID; //subtitling PID for the program -# WORD wData_PID; //PID for data broadcast -# BYTE nIPFilter; //filter for different ip's -# DWORD dwReserved1; //Shows some extended Information LOWORD=DataBroadcast_Id, -# //MSB showing Databroadcast, (HIWORD & 0xFF)=ComponentTag from the stream ident desc -# DWORD dwReserved2; //reserved dword -# }DVBTunProgData; -# - -use strict; -use FileHandle; - -# for a full dump -my @varNames = ("nNumber", # logical number of the program - "dwFrequency", # frequency in khz - "csName", # name of the program - "eStandard", # standard of the program - "dwExtraInfo", # specific info, like teletext,reserved data - # 0x8 == external input 1-CVBS - # 0x10 == external input 2-Y/C - # 0x20 == scrambled Program stream - # 0x40 == ASTRA Sattable - # 0x80 == Eutelsat Sattable - # 0xC0 == Sattable from File - # 0x100 == Pulsed switch to other satellite dish - # 0x1000-0xF000 = Other Satellite Nr(if Sattable from File) - "ProgNr", # DVB Nr for the prog (PAS related) - "wTS_ID", # Transport-Stream ID orig. - "wNW_ID", # Network ID orig. - "wService_ID", # Service /Programm Id - "nModulation", # Modulation-Type QAM,QPSK,other - "nFEC_outerinner", # outer(high nibble) and inner(low n.) - "dwSymbolrate", # in symbol/s - "b22kHz", # east or west(TRUE) position in Sat - "bVertical_pos", # horizontal or vertical(TRUE) position in SAT - "nProgtype", # type of service (e.g. tv, radio) - "wVideo_PID", # video-pid of the channel - "wAudio_PID", # audio-pid of the channel - "wPMT_PID", # PID of the associated PMT - "wTxt_PID", # teletext PID for the program - "wSubtitling_PID", # subtitling PID for the program - "wData_PID"); # PID for data broadcast - -my @outVar = ("csName", - "dwFrequency", - "bVertical_pos", - "b22kHz", - "dwSymbolrate", - "wVideo_PID", - "wAudio_PID", - "wTxt_PID", - "dwExtraInfo", - "ProgNr"); - -# channels that need a valid smartcard -my @addCrypted = ("Extreme Sport", - "Bloomberg", - "Fashion TV", - "BET ON JAZZ", - "LANDSCAPE", - "Einstein", - "Single TV"); - -my @chNames = (); # list of scanned channels -my $camNo = 1; # number of CI/CAM to use -my %chData; # all channel data -my $buff; # input buffer -my $fh = new FileHandle("$ARGV[0]") or die "Datei $ARGV[0] nicht gefunden!"; - -binmode($fh); # could be run on windows -$fh->seek(4, 0); # skip id - -my $chCnt = 0; -while (!$fh->eof()) { - $chCnt++; - - last if ($fh->read($buff, 7) != 7); - my ($nNumber, - $dwFrequency, - $sLen - ) = unpack("SLC", $buff); - - last if ($fh->read($buff, $sLen) != $sLen); - my ($csName) = unpack("A$sLen", $buff); - $csName =~ s/:/./g; - $csName =~ s/^\s+//; - $csName =~ s/\s+$//; - - last if ($fh->read($buff, 54) != 54); - my ($eStandard, - $dwExtraInfo, - $ProgNr, - $wTS_ID, - $wNW_ID, - $wService_ID, - $nModulation, - $nFEC_outerinner, - $dwSymbolrate, - $b22kHz, - $bVertical_pos, - $nProgtype, - $wVideo_PID, - $wAudio_PID, - $wPMT_PID, - $wTxt_PID, - $wSubtitling_PID, - $wData_PID - ) = unpack("LLSSSSCCLLLCSSSSSS", $buff); - - # some modifications for VDR - $dwFrequency /= 1000; - $bVertical_pos = $bVertical_pos ? "v" : "h"; - $dwSymbolrate /= 1000; - $dwExtraInfo = ($dwExtraInfo == 32 || grep(($_ cmp $csName) == 0, @addCrypted)) ? $camNo : 0; - - my $x = 1; - my $orgName = $csName; - while (exists($chData{$csName})) { - $csName = "$orgName" . "_$x"; - $x++; - } - push(@chNames, $csName); - - my %tmp = ("nNumber" => $nNumber, - "dwFrequency" => $dwFrequency, - "csName" => $orgName, - "eStandard" => $eStandard, - "dwExtraInfo" => $dwExtraInfo, - "ProgNr" => $ProgNr, - "wTS_ID" => $wTS_ID, - "wNW_ID" => $wNW_ID, - "wService_ID" => $wService_ID, - "nModulation" => $nModulation, - "nFEC_outerinner" => $nFEC_outerinner, - "dwSymbolrate" => $dwSymbolrate, - "b22kHz" => $b22kHz, - "bVertical_pos" => $bVertical_pos, - "nProgtype" => $nProgtype, - "wVideo_PID" => $wVideo_PID, - "wAudio_PID" => $wAudio_PID, - "wPMT_PID" => $wPMT_PID, - "wTxt_PID" => $wTxt_PID, - "wSubtitling_PID" => $wSubtitling_PID, - "wData_PID" => $wData_PID); - $chData{$csName} = {%tmp}; -} - -print STDERR "$chCnt channels found!\n"; - -# now we print the channels.conf -# crypted TV -print ":verschlüsselte Fernsehprogramme\n"; -for my $n (@chNames) { - my %tmp = %{$chData{$n}}; - printChannel($chData{$n}) if ($tmp{"nProgtype"} == 1 && $tmp{"dwExtraInfo"}); -} - -# TV -print ":Fernsehprogramme\n"; -for my $n (@chNames) { - my %tmp = %{$chData{$n}}; - printChannel($chData{$n}) if ($tmp{"nProgtype"} == 1 && !$tmp{"dwExtraInfo"}); -} - -# crypted radio -print ":verschlüsselte Radioprogramme\n"; -for my $n (@chNames) { - my %tmp = %{$chData{$n}}; - printChannel($chData{$n}) if ($tmp{"nProgtype"} == 2 && $tmp{"dwExtraInfo"}); -} - -# radio -print ":Radioprogramme\n"; -for my $n (@chNames) { - my %tmp = %{$chData{$n}}; - printChannel($chData{$n}) if ($tmp{"nProgtype"} == 2 && !$tmp{"dwExtraInfo"}); -} - -sub printChannel { - my $p = shift; - my @tmp = (); - - for my $n (@outVar) { - push(@tmp, ${$p}{$n}); - } - - print join(":", @tmp), "\n"; -} |