Fix string_copy() macro to not multiple-eval args. Bug 2603

[exim.git] / src / util / proxy_protocol_client.pl

diff --git a/src/util/proxy_protocol_client.pl b/src/util/proxy_protocol_client.pl
index 7cfc13ddcf88c28f2d3004250b3c7f9325af8846..67a171d5d179278a17dff62c513cc3606b04020f 100644 (file)
--- a/src/util/proxy_protocol_client.pl
+++ b/src/util/proxy_protocol_client.pl
@@ -21,6 +21,7 @@
 #
 use strict;
 use warnings;
 #
 use strict;
 use warnings;

+BEGIN { pop @INC if $INC[-1] eq '.' };

 use IO::Select;
 use IO::Socket;
 use Getopt::Long;
 use IO::Select;
 use IO::Socket;
 use Getopt::Long;


@@ -82,10 +83,10 @@ sub generate_preamble {
   if (!$opts{version} || $opts{version} == 2) {
     @preamble = (
       "\x0D\x0A\x0D\x0A\x00\x0D\x0A\x51\x55\x49\x54\x0A", # 12 byte v2 header
   if (!$opts{version} || $opts{version} == 2) {
     @preamble = (
       "\x0D\x0A\x0D\x0A\x00\x0D\x0A\x51\x55\x49\x54\x0A", # 12 byte v2 header

-      "\x02",                                             # declares v2
-      "\x01",                                             # connection is proxied
+      "\x21",                                             # top 4 bits declares v2
+                                                          # bottom 4 bits is command

       $opts{6} ? "\x21" : "\x11",                         # inet6/4 and TCP (stream)
       $opts{6} ? "\x21" : "\x11",                         # inet6/4 and TCP (stream)

-      $opts{6} ? "\x24" : "\x0b",                         # 36 bytes / 12 bytes
+      $opts{6} ? "\x00\x24" : "\x00\x0b",                 # 36 bytes / 12 bytes

       $source_ip,
       $dest_ip,
       $source_port,
       $source_ip,
       $dest_ip,
       $source_port,