equal
deleted
inserted
replaced
1 #! /usr/bin/perl |
1 #! /usr/bin/perl |
2 |
2 |
3 use strict; |
3 use strict; |
4 use warnings; |
4 use warnings; |
|
5 use feature qw(switch); |
5 |
6 |
6 use lib "lib"; |
7 use lib "lib"; |
7 use Exim; |
8 use Exim; |
8 |
9 |
9 my $exim = new Exim(basename => "exim4", config => "/etc/exim4/exim4.conf"); |
10 my $exim = new Exim(basename => "exim4", config => "/etc/exim4/exim4.conf"); |
10 |
11 |
11 $exim->set_cmdline(-oMi => "1.1.1.1.22"); |
12 $exim->set_cmdline(-oMi => undef); |
12 print $exim->expand("\$received_port"); |
13 print $exim->expand("\$received_port"); |
|
14 |
|
15 # now read the default values |
|
16 open(my $input, $_ = "< t/00-default") or die "Can't open $_: $!\n"; |
|
17 while (<$input>) { |
|
18 next if /^\s*(?#.*)?$/; |
|
19 my ($key, $value) = /^\s*(\S+):\s*(\S+)/; |
|
20 |
|
21 given($key) { |
|
22 when ("sender") { $exim->set_cmdline(-oMa => $value) }; |
|
23 } |
|
24 } |