summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2009-12-21 21:22:14 +0000
committerAndreas Brachold <vdr07@deltab.de>2009-12-21 21:22:14 +0000
commit40a83ed6616546f35dc96c72b25edf32f2721ea9 (patch)
treeeab8f048e7a49a781b3820a13f9f471ce929b155 /lib
parentd6b4a7ed30075deb159ebc3a5bf7aa6959058fba (diff)
downloadxxv-40a83ed6616546f35dc96c72b25edf32f2721ea9.tar.gz
xxv-40a83ed6616546f35dc96c72b25edf32f2721ea9.tar.bz2
* RECORDS: small improvement
Diffstat (limited to 'lib')
-rw-r--r--lib/XXV/MODULES/RECORDS.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/XXV/MODULES/RECORDS.pm b/lib/XXV/MODULES/RECORDS.pm
index 0e94318..c40cad5 100644
--- a/lib/XXV/MODULES/RECORDS.pm
+++ b/lib/XXV/MODULES/RECORDS.pm
@@ -500,7 +500,9 @@ sub _notify_updatefile {
$e->w->cancel;
}
- lg sprintf "On recorder %d notify events for %s received event: %x", $vid, $e->fullname, $e->mask;
+ lg sprintf("New recordings, on recorder '%s' notify events for %s received event: %x",
+ $self->{svdrp}->hostname($vid),
+ $e->fullname, $e->mask);
if((time - $self->{lastupdate}) > 3 # Only if last update prior 3 seconds (avoid callback chill)
&& $self->_readData()) {
@@ -1186,7 +1188,7 @@ sub analyze {
$title = join('~',@t);
}
- $event = $self->createOldEventId($vid, $vdrdata->{id}, $vdrdata->{starttime}, $info->{duration}, $title, $subtitle, $info);
+ $event = $self->createOldEventId($vid, $vdrdata->{id}, $vdrdata->{starttime}, $title, $subtitle, $info);
unless($event) {
error sprintf("Couldn't create event!: '%s' !",$vdrdata->{id});
return 0;
@@ -1698,7 +1700,6 @@ sub createOldEventId {
my $vid = shift; # ID of Video disk recorder
my $id = shift || return error('No eventid defined!');
my $start = shift || return error('No start time defined!');
- my $duration = shift || 0;
my $title = shift || return error('No title defined!');
my $subtitle = shift;
my $info = shift;
@@ -1708,7 +1709,7 @@ sub createOldEventId {
subtitle => $subtitle,
description => $info->{description} || "",
channel => $info->{channel} || "<undef>",
- duration => $duration,
+ duration => $info->{duration},
starttime => $start,
vpstime => $info->{vpstime} || 0,
video => $info->{video} || "",