28 lines
720 B
Perl
28 lines
720 B
Perl
#!/usr/bin/perl
|
|
# un_domain.cgi
|
|
# Display the icons for various types of lemonldapconfig options
|
|
use Data::Dumper;
|
|
require './lemonldap-lib.pl';
|
|
# Check if lemonlap is installed
|
|
&ReadParse();
|
|
my $domain = $in{'domain'};
|
|
my $handler = $in{'handler'};
|
|
if ($in{'delete'} and $in{'confirm'} eq 'yes') {
|
|
my $c = &get_config;
|
|
my $all_domain = $c->{domain};
|
|
delete $all_domain->{$domain}->{handler}->{$handler};
|
|
$c->{domain} = $all_domain ;
|
|
my $res =&writexml($config{XML_file},$c);
|
|
unless ($res) {
|
|
system ("mv $config{XML_file} $config{XML_file}.bak");
|
|
system ("mv $config{XML_file}.tmp $config{XML_file} ");
|
|
}
|
|
}
|
|
### delete info about httpd
|
|
&delete_handler_httpd($handler);
|
|
|
|
|
|
&redirect("domain.cgi?domain=$domain");
|
|
|
|
|