From f1d1c9849c8e27cccb46cf9c0d0ccb59da3f91f9 Mon Sep 17 00:00:00 2001
From: Klaus Schmidinger <kls (at) cadsoft (dot) de>
Date: Mon, 6 Aug 2001 18:00:00 +0200
Subject: Version 0.90 - Modified the display of the channel group separators
 (thanks to Markus Lang   for this suggestion). - Added support for replaying
 DVDs (thanks to Andreas Schultz). See INSTALL for   instructions on how to
 compile VDR with DVD support. - Fixed replay progress display in case replay
 is paused while watching an   ongoing recording. - Ringbuffer uses semaphores
 to signal empty/full conditions. - Fixed calculating the timeout value in
 cFile::FileReady() (thanks to   Wolfgang Henselmann-Weiss).

---
 Tools/master-timer/process_summary.pl | 79 +++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100755 Tools/master-timer/process_summary.pl

(limited to 'Tools/master-timer/process_summary.pl')

diff --git a/Tools/master-timer/process_summary.pl b/Tools/master-timer/process_summary.pl
new file mode 100755
index 0000000..ebe6300
--- /dev/null
+++ b/Tools/master-timer/process_summary.pl
@@ -0,0 +1,79 @@
+#!/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);
+  }
+
+
-- 
cgit v1.2.3