4 # local source :

     4 # local source :

     5 

     5 

     6 use strict;

     6 use strict;

     7 use warnings;

     7 use warnings;

     8 

     8 

    10 use File::Temp;

     9 use File::Temp;

    11 use File::Basename;

    10 use File::Basename;

    12 use Getopt::Long;

    11 use Getopt::Long;

    13 use Pod::Usage;

    12 use Pod::Usage;

    14 use FindBin qw($Bin);

    13 use FindBin qw($Bin);

    19 my $opt_refresh = 0;

    18 my $opt_refresh = 0;

    20 my $opt_dir     = \'dirname($opt_config) . "/checks"';

    19 my $opt_dir     = \'dirname($opt_config) . "/checks"';

    21 

    20 

    22 my $opt_config = undef;

    21 my $opt_config = undef;

    23 my $opt_exim   = undef;

    22 my $opt_exim   = undef;

    24 

    25 

    25 MAIN: {

    26 MAIN: {

    26 

    27 

    27     GetOptions(

    28     GetOptions(

    28         "i|init"        => \$opt_init,

    29         "i|init"        => \$opt_init,