1
0
mirror of https://github.com/VDR4Arch/vdr.git synced 2023-10-10 13:36:52 +02:00

Fixed opening the UDP port in peerdemo

This commit is contained in:
Klaus Schmidinger 2019-03-11 10:28:22 +01:00
parent 18bb52554f
commit 084f51c7db
3 changed files with 4 additions and 2 deletions

View File

@ -3544,6 +3544,7 @@ Stefan P
Robert Hannebauer <vdr@hannebauer.org> Robert Hannebauer <vdr@hannebauer.org>
for fixing an overflow of PIDs in a receiver for fixing an overflow of PIDs in a receiver
for fixing opening the UDP port in peerdemo
Aitugan Sarbassov <isarbassov@gmail.com> Aitugan Sarbassov <isarbassov@gmail.com>
for adding 'S58.5E Kazsat 3' to sources.conf for adding 'S58.5E Kazsat 3' to sources.conf

View File

@ -9348,7 +9348,7 @@ Video Disk Recorder Revision History
Senzel). Senzel).
- Official release. - Official release.
2018-11-15: Version 2.4.1 2019-03-11: Version 2.4.1
- Fixed handling the tfRecording flag in the SVDRP commands MODT and UPDT (reported - Fixed handling the tfRecording flag in the SVDRP commands MODT and UPDT (reported
by Johann Friedrichs). by Johann Friedrichs).
@ -9374,3 +9374,4 @@ Video Disk Recorder Revision History
- Reverted the change "The EIT filter no longer parses data from "other TS"...". It led to - Reverted the change "The EIT filter no longer parses data from "other TS"...". It led to
missing EPG data on channels from Canal Digital Norway (reported by Stian B. Barmen). missing EPG data on channels from Canal Digital Norway (reported by Stian B. Barmen).
- Fixed accessing the actual frontend on multi frontend devices (thanks to Helmut Binder). - Fixed accessing the actual frontend on multi frontend devices (thanks to Helmut Binder).
- Fixed opening the UDP port in peerdemo (thanks to Robert Hannebauer).

View File

@ -37,7 +37,7 @@ $TcpPort = $Port;
$UdpPort = $DefaultSvdrpPort; $UdpPort = $DefaultSvdrpPort;
$TcpSocket = new IO::Socket::INET(Listen => 5, LocalPort => $TcpPort, Proto => "tcp", ReusePort => 1) || die "$!"; $TcpSocket = new IO::Socket::INET(Listen => 5, LocalPort => $TcpPort, Proto => "tcp", ReusePort => 1) || die "$!";
$UdpSocket = new IO::Socket::INET( LocalPort => $UdpPort, Proto => "udp", ReusePort => 1) || die "$!"; $UdpSocket = new IO::Socket::INET( LocalPort => $UdpPort, Proto => "udp", ReuseAddr => 1) || die "$!";
$SvdrpSelect = new IO::Select($TcpSocket); $SvdrpSelect = new IO::Select($TcpSocket);
setsockopt($UdpSocket, SOL_SOCKET, SO_RCVTIMEO, pack('L!L!', 0, 1000)); # 1ms timeout on UDP socket setsockopt($UdpSocket, SOL_SOCKET, SO_RCVTIMEO, pack('L!L!', 0, 1000)); # 1ms timeout on UDP socket