--- /dev/null
+#!/usr/bin/perl
+use IO::Socket::INET;
+use IO::Select;
+
+if (fork != 0) {
+ sleep 1;
+ exit 0;
+}
+
+my ($select,$socket,$received_data);
+
+$socket = new IO::Socket::INET (
+ LocalPort => '1223',
+ Proto => 'udp',
+) or die "ERROR in Socket Creation : $!\n";
+
+$select = IO::Select->new($socket) or die "IO::Select $!";
+
+if (scalar ($select->can_read(5)) == 1) {
+ $socket->recv($recieved_data,1024);
+ print "received: $recieved_data\n";
+}
--- /dev/null
+# Exim test configuration 0601
+# udpsend
+
+exim_path = EXIM_PATH
+spool_directory = DIR/spool
+log_file_path = DIR/spool/log/%slog
+
+# ----- Main settings -----
+
+acl_smtp_connect = check
+
+
+# ----- ACL -----
+
+begin acl
+
+check:
+ warn udpsend = <; 127.0.0.1 ; 1223 ; message from exim
+
+# End
--- /dev/null
+1999-03-02 09:44:33 U=CALLER rejected connection in "connect" ACL
--- /dev/null
+1999-03-02 09:44:33 U=CALLER rejected connection in "connect" ACL
--- /dev/null
+# udpsend
+#need_ipv4
+#
+#
+perl aux-fixed/0601.udpserver
+****
+#
+exim -bs -odi
+mail from:someone@some.domain
+rcpt to:CALLER@HOSTNAME
+data
+This is a test message.
+.
+quit
+***
+sleep 4
--- /dev/null
+received: message from exim
+550 Administrative prohibition\r