summaryrefslogtreecommitdiff
path: root/Tools/master-timer/process_summary.pl
diff options
context:
space:
mode:
authorKlaus Schmidinger <kls (at) cadsoft (dot) de>2002-01-27 18:00:00 +0100
committerKlaus Schmidinger <kls (at) cadsoft (dot) de>2002-01-27 18:00:00 +0100
commit27919ee969866b68fc95b327a047a9989e4b4153 (patch)
tree1857862abf169ff6e9287152cd6fec6a1d9dbc41 /Tools/master-timer/process_summary.pl
parentb420457467ad0c8ae71f8b985914e85b7a0ff5aa (diff)
downloadvdr-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-xTools/master-timer/process_summary.pl79
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);
- }
-
-