1 #! /usr/bin/perl

     1 #! /usr/bin/perl

     2 # © Heiko Schlittermann

     2 # © Heiko Schlittermann

     5 use constant USAGE => << '#'; 

     3 use constant USAGE => << '#'; 

     6 !ME! [options] [-- exim native options] 

     4 !ME! [options] [-- exim native options] 

     7 

     5 

     8     --[no]log	show the log output	[!$Cf->log!]

     6     --[no]log	show the log output	[!$Cf->log!]

     9     --[no]debug	show debug output	[!$Cf->debug!]

     7     --[no]debug	show debug output	[!$Cf->debug!]

    31     Environment used: $EXIM		[!$ENV{EXIM}!]

    29     Environment used: $EXIM		[!$ENV{EXIM}!]

    32                       $EXIM_CONF	[!$ENV{EXIM_CONF}!]

    30                       $EXIM_CONF	[!$ENV{EXIM_CONF}!]

    33 

    31 

    34     mail data is read from STDIN unless it's connected to terminal.

    32     mail data is read from STDIN unless it's connected to terminal.

    35 

    33 

    38 #

    36 #

    39 

    37 

    40 

    38 

    41 use strict;

    39 use strict;

    42 use warnings;

    40 use warnings;

    44 use IPC::Open3;

    42 use IPC::Open3;

    45 use IO::Select;

    43 use IO::Select;

    46 use Socket;

    44 use Socket;

    47 use File::Basename;

    45 use File::Basename;

    48 

    46 

    50 

    48 

    51 sub exim_option($);

    49 sub exim_option($);

    52 sub read_exim($;$);

    50 sub read_exim($;$);

    53 sub write_exim($@);

    51 sub write_exim($@);

    54 sub addr(@);

    52 sub addr(@);