bley/twisted doesn't send data if the "client" closes the write handle of the socket

[idl0r]

Simple test case:

#!/usr/bin/perl -w

use strict;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new( PeerAddr => "127.0.0.1", PeerPort => 1337,
        Proto => "tcp");

if($sock->connected()) {
    print $sock "helo_name=mail-fx0-f49.google.com\n";
    print $sock "sender=foobar\@gmail.com\n";
    print $sock "recipient=user\@example.org\n";
    print $sock "client_address=209.85.161.49\n";
    print $sock "client_name=gmail.com\n\n";
    shutdown($sock, 1); # We have stopped writing data

    while(my $line = <$sock>) {
        $line =~ s/\r/\\r/g;
        $line =~ s/\n/\\n/g;
        print "IN: ".$line."\n";
    }
}
close($sock);

Try it with and without the shutdown();

[evgeni]

implement IHalfCloseableProtocol so exim can do its shutdown(fd, SHUT_WR)

closed by b948b6b