89 lines
2.0 KiB
Perl
89 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use Lemonldap::NG::Common::Conf;
|
|
use Lemonldap::NG::Common::Conf::Constants;
|
|
use Data::Dumper;
|
|
use POSIX;
|
|
use strict;
|
|
|
|
our $refFile = `mktemp`;
|
|
our $editFile = `mktemp`;
|
|
|
|
chomp $refFile;
|
|
chomp $editFile;
|
|
|
|
eval {
|
|
POSIX::setgid( ( getgrnam('__APACHEUSER__') )[2] );
|
|
POSIX::setuid( ( getpwnam('__APACHEGROUP__') )[2] );
|
|
print STDERR "Running as $>\n";
|
|
};
|
|
|
|
if ( $> == 0 ) {
|
|
print STDERR
|
|
"$0 must not be launched as root since local cache can be corrupted\n"
|
|
. "Continue (y/N)? ";
|
|
my $res = <STDIN>;
|
|
exit 1 unless ( $res =~ /^y/i );
|
|
}
|
|
|
|
my $conf = Lemonldap::NG::Common::Conf->new();
|
|
|
|
open F1, ">$refFile" or quit($!);
|
|
open F2, ">$editFile" or quit($!);
|
|
my $tmp = $conf->getConf();
|
|
delete $tmp->{reVHosts};
|
|
delete $tmp->{cipher};
|
|
$tmp = Dumper($tmp);
|
|
print F1 $tmp;
|
|
print F2 $tmp;
|
|
close F1;
|
|
close F2;
|
|
|
|
system "editor $editFile";
|
|
|
|
if (`diff $refFile $editFile`) {
|
|
my $VAR1;
|
|
my $buf;
|
|
open F1, $editFile;
|
|
while (<F1>) {
|
|
$buf .= $_;
|
|
}
|
|
eval $buf;
|
|
quit($@) if ($@);
|
|
my $res = $conf->saveConf($VAR1);
|
|
if ( $res > 0 ) {
|
|
print STDERR "Configuration $res saved\n";
|
|
}
|
|
else {
|
|
print STDERR "Configuration was not saved:\n ";
|
|
if ( $res == CONFIG_WAS_CHANGED ) {
|
|
print STDERR "Configuration has changed\n";
|
|
}
|
|
elsif ( $res == DATABASE_LOCKED ) {
|
|
print STDERR "Configuration database is or can nor be locked\n";
|
|
}
|
|
elsif ( $res == UPLOAD_DENIED ) {
|
|
print STDERR "You're not authorized to save this configuration\n";
|
|
}
|
|
elsif ( $res == SYNTAX_ERROR ) {
|
|
print STDERR "Syntax error in your configuration\n";
|
|
}
|
|
elsif ( $res == UNKNOWN_ERROR ) {
|
|
print STDERR "Unknown error\n";
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
print STDERR "Configuration not changed\n";
|
|
}
|
|
|
|
unlink $editFile;
|
|
unlink $refFile;
|
|
|
|
sub quit {
|
|
unlink $editFile;
|
|
unlink $refFile;
|
|
print STDERR "$_[0]\n";
|
|
exit 1;
|
|
}
|