1 files changed, 52 insertions, 0 deletions
diff --git a/contrib/udpd.pl b/contrib/udpd.pl
new file mode 100755
index 0000000..c4a38f1
--- /dev/null
+++ b/contrib/udpd.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+
+##
+# Simple UDP Server/Client to display messages in VDR
+#
+# 22.02.2004 by Thomas Koch <tom at linvdr dot org>
+##
+
+use IO::Socket;
+use IO::Socket::INET 1.26;
+use strict;
+
+my $myself = join("", $0 =~ /^.*\/(.*)/);
+
+# Server
+if($myself eq "udpd.pl") {
+  my $pid = fork();
+  if($pid != 0) {
+    exit(0);
+  }
+  my($Socket) = IO::Socket::INET->new( 
+    Proto => 'udp',
+    LocalPort => 4711,
+    Reuse => 1
+  ) || die;				     
+  my $message;
+  while($Socket->recv($message, 1024)) {
+    my($port, $ipaddr) = sockaddr_in($Socket->peername);
+    my $hishost = gethostbyaddr($ipaddr, AF_INET);
+    system("logger udpd: client $hishost with message \\'$message\\'");
+    for(my $z = 0; $z < 3; $z++) {
+      for(my $i = 0; $i < 3; $i++) {
+        system("svdrpsend.pl mesg $message 2>/dev/null >/dev/null");
+      }
+      sleep(3);
+    }
+  }
+  exit(0);
+}
+
+# Client
+if($myself eq "udpc.pl") {
+  my $message = join(" ", @ARGV);
+  my $Socket = IO::Socket::INET->new(
+    PeerAddr => inet_ntoa(INADDR_BROADCAST),
+    PeerPort => 4711, 
+    Proto => 'udp',
+    Broadcast => 1
+  ) || die;
+  my $result = $Socket->send($message);
+}
+