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/master-timer/process_summary.pl | |
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/master-timer/process_summary.pl')
-rwxr-xr-x | Tools/master-timer/process_summary.pl | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/Tools/master-timer/process_summary.pl b/Tools/master-timer/process_summary.pl deleted file mode 100755 index ebe6300..0000000 --- a/Tools/master-timer/process_summary.pl +++ /dev/null @@ -1,79 +0,0 @@ -#!/usr/bin/perl -w - -$dir = "/home/ms/.master-timer"; - -open (FI,"$dir/done") or die "Can't open \"done\"\n"; -while (<FI>) - { - chomp; - if ($_) - { - ($title,$subtitle) = split (/\|/,$_,2); - $Done{$title}{$subtitle}=1; - } - } -close (FI); - -&traverse('/video'); - -if ($hit) - { - rename ("$dir/done","$dir/done.bak"); - open (FO,">$dir/done"); - foreach $title (sort keys %Done) - { - foreach $subtitle (sort keys %{%Done->{$title}}) - { - print FO "$title\|$subtitle\n"; - } - } - } - -sub traverse - { - local($dir) = shift; - local($path); - unless (opendir(DIR, $dir)) - { - warn "Can't open $dir\n"; - closedir(DIR); - return; - } - foreach (readdir(DIR)) - { - next if $_ eq '.' || $_ eq '..'; - $path = "$dir/$_"; - if (-d $path) # a directory - { - &traverse($path); - } - if ($_ eq "summary.vdr") - { - open (FI,"$path") or die "Can't open \"$path\"\n"; - @lines = <FI>; - close (FI); - if ($lines[0] =~ /^Title\:\s\"(.*)\"/) - { - @titles = split (/\~/,$1); - if ($lines[2] && $lines[2] =~ /^Subtitle\:\s\"(.*)\"/) - { - @subtitles = split (/\~/,$1); - foreach $num (0 .. $#titles) - { - if ($titles[$num] && $subtitles[$num]) - { - if (!$Done{$titles[$num]}{$subtitles[$num]}) - { - $Done{$titles[$num]}{$subtitles[$num]}=1; - $hit = 1; - } - } - } - } - } - } - } - closedir(DIR); - } - - |