From 27919ee969866b68fc95b327a047a9989e4b4153 Mon Sep 17 00:00:00 2001
From: Klaus Schmidinger <kls (at) cadsoft (dot) de>
Date: Sun, 27 Jan 2002 18:00:00 +0100
Subject: Version 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.

---
 Tools/epg2timers/loadvdr.pl | 89 ---------------------------------------------
 1 file changed, 89 deletions(-)
 delete mode 100755 Tools/epg2timers/loadvdr.pl

(limited to 'Tools/epg2timers/loadvdr.pl')

diff --git a/Tools/epg2timers/loadvdr.pl b/Tools/epg2timers/loadvdr.pl
deleted file mode 100755
index 485b0a4..0000000
--- a/Tools/epg2timers/loadvdr.pl
+++ /dev/null
@@ -1,89 +0,0 @@
-#!/usr/bin/perl
-#
-# 0.01 loadvdr (peter)
-# 0.02 delete old entries before updating (peter) 
-# 0.03 dumped Net::Telnet because of lost connections
-#
-# please submit diffs to petera@gmx.net
-#
-# ./epg2timers < merkliste.html | perl -w loadvdr.pl
-#
-#
-
-use Socket;
-use Getopt::Std;
-
-@resp = ();
-
-$Dest = "localhost";
-$Port = 2001;
-
-$Timeout = 10; # max. seconds to wait for response
-
-$SIG{ALRM} = sub { Error("timeout"); };
-alarm($Timeout);
-
-$iaddr = inet_aton($Dest)                   || Error("no host: $Dest");
-$paddr = sockaddr_in($Port, $iaddr);
-
-$proto = getprotobyname('tcp');
-socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || Error("socket: $!");
-connect(SOCK, $paddr)                       || Error("connect: $!");
-select(SOCK); $| = 1;
-Receive_void();
-
-Send("lstt");
-
-foreach $item (reverse @resp){
-  if ($item =~ /^250.(\d{1,2}).*\(epg2timers\)/) {
-    Send_void("DELT $1");
-  }
-}
-
-while (defined ($line = <STDIN>)) {
-  chomp $line;
-  Send_void("UPDT $line");
-}
-
-Send("quit");
-close(SOCK)                                 || Error("close: $!");
-
-
-
-sub Send
-{
-  my $cmd = shift || Error("no command to send");
-  print SOCK "$cmd\r\n";
-  Receive();
-}
-
-sub Send_void
-{
-  my $cmd = $_[0];
-  print SOCK "$cmd\r\n";
-  Receive_void();
-}
-
-sub Receive
-{
-  while (<SOCK>) {
-        chomp;
-        push @resp,$_;
-        last if substr($_, 3, 1) ne "-";
-        }
-}
-
-sub Receive_void
-{
-  while (<SOCK>) {
-        last if substr($_, 3, 1) ne "-";
-        }
-}
-
-sub Error
-{
-  print STDERR "@_\n";
-  close(SOCK);
-  exit 0;
-}
-
-- 
cgit v1.2.3