Hi Tom,
the following patch enables vdradmin-0.24-pre6 to be used with
vdr-1.1.29-autopid-2
---8<-----if--you--cut--here--you--will--probably--destroy--your--monitor---
--- vdradmind.pl.orig 2003-04-30 14:34:54.000000000 +0200
+++ vdradmind.pl 2003-05-03 14:46:48.000000000 +0200
@@ -377,7 +377,7 @@
chomp;
my($vdr_id, $temp) = split(/ /, $_, 2);
my($name, $frequency, $polarization, $source, $symbolrate, $vpid, $apid,
- $tpid, $ca, $service_id) = split(/\:/, $temp);
+ $tpid, $ca, $service_id, $nid, $tid) = split(/\:/, $temp);
push(@CHAN, {
vdr_id => $vdr_id,
name => $name,
@@ -389,7 +389,9 @@
apid => $apid,
tpid => $tpid,
ca => $ca,
- service_id => $service_id
+ service_id => $service_id,
+ nid => $nid,
+ tid => $tid
});
}
}
@@ -402,9 +404,9 @@
return($channel->{vdr_id});
}
}
- } elsif($channel_id =~ /^(.*)-.*-(.*)-(.*)$/) {
+ } elsif($channel_id =~ /^(.*)-(.*)-(.*)-(.*)$/) {
for my $channel (@CHAN) {
- if($channel->{source} eq $1 && $channel->{frequency} == $2 && $channel->{service_id} == $3) {
+ if($channel->{source} eq $1 && $channel->{nid} == $2 && $channel->{tid} == $3 && $channel->{service_id} == $4) {
return($channel->{vdr_id});
}
}
---8<-----if--you--cut--here--you--will--probably--destroy--your--monitor---
Ciao,
Andreas
--
Andreas Kool (akool@akool.de * akool@isdn4linux.de * http://www.akool.de)
PGP: 3FBF2411 Fingerprint: B5 35 34 74 25 60 2A 7A 89 06 92 C4 08 BA A5 BD
(To get my PGP key, send me a mail with subject "send pgp key")
X <-- Nail here for a new Monitor
Transmission of this message via the Microsoft Network is prohibited