/usr/share/lemonldap-ng/bin/convertConfig is in liblemonldap-ng-conf-perl 1.1.2-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | #!/usr/bin/perl
use strict;
use Getopt::Long;
use Lemonldap::NG::Common::Conf;
my %opts;
my $result = GetOptions( \%opts, 'help|h', 'current|c=s', 'new|n=s', 'latest|l',
'force|f' );
if ( $opts{help} or not( $opts{current} and $opts{new} ) ) {
print STDERR "
## Lemonldap::NG configuration converter ##
Usage: $0 --current=/current/lemonldap-ng.ini --new=/new/lemonldap-ng.ini
other parameters:
--latest -l
convert only last configuration
--force -f
continue even if an error occurs
";
exit 1;
}
foreach ( $opts{current}, $opts{new} ) {
unless ( -e $_ ) {
print STDERR "$_ does not exist\n";
exit 2;
}
unless ( -r $_ ) {
print STDERR "$_ is not readable\n";
exit 3;
}
}
my $old = Lemonldap::NG::Common::Conf->new(
{
confFile => $opts{current},
noCache => 1,
}
);
unless ($old) {
print STDERR
"Failed to get current conf : $Lemonldap::NG::Common::Conf::msg\n";
exit 4;
}
my $new = Lemonldap::NG::Common::Conf->new(
{
confFile => $opts{new},
force => 1,
noCache => 1,
cfgNumFixed => 1,
}
);
unless ($new) {
print STDERR
"Failed to create new conf object : $Lemonldap::NG::Common::Conf::msg\n";
exit 5;
}
my @available;
if ( $opts{lastest} ) {
@available = $old->lastCfg();
}
else {
@available = $old->available();
}
foreach (@available) {
my $conf = $old->getConf( { cfgNum => $_ } );
eval {
delete $conf->{reVHosts};
delete $conf->{cipher};
};
unless ($conf) {
print STDERR
"\nFailed to get conf $_ : $Lemonldap::NG::Common::Conf::msg\n";
next if ( $opts{force} );
exit 6;
}
if ( my $r = $new->saveConf($conf) ) {
print "Conf $conf->{cfgNum} stored\n";
next;
}
print STDERR
"Unable to store configuration $conf->{cfgNum}: $Lemonldap::NG::Common::Conf::msg";
next if ( $opts{force} );
exit 7;
}
exit 0;
|