136 lines
3.2 KiB
Perl
136 lines
3.2 KiB
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'};
|
|
&header($text{'index_title'}, "", undef, 1, 1, 0,
|
|
&help_search_link("lemonldap", "man", "doc", "google"));
|
|
print "<hr>\n";
|
|
#my $l=Dumper (%in) ;
|
|
#print "eric $l" ;
|
|
|
|
|
|
|
|
%un_domain= %{&get_un_domain($domain)};
|
|
print "<h3>$domain</h3>\n";
|
|
print "<form method=get action=delete_domain.cgi>";
|
|
print "<b>$text{confirm}:</b><input type=checkbox name=confirm value=yes>";
|
|
print "<input type=hidden name=domain value=$domain>";
|
|
print "<input type=submit name=delete value=delete>";
|
|
print "</form>";
|
|
#$l =Dumper (%un_domain);
|
|
#print "eric1 $l";
|
|
my @tab= @{&get_domain_attr()} ;
|
|
#$l = Dumper(@tab);
|
|
#print "$l eric2";
|
|
print "<form method=get action=update_domain.cgi >" ;
|
|
print "<table border=1>";
|
|
my %cle;
|
|
foreach (keys %un_domain) {
|
|
$cle{lc($_)} = $un_domain{$_};
|
|
}
|
|
#$l= Dumper (%cle);
|
|
#print "eric $l\n";
|
|
|
|
foreach (@tab) {
|
|
my $ligne;
|
|
my %control =%{$_};
|
|
next if $control{name} eq 'id';
|
|
$control{mxlength}=70;
|
|
$control{length}=60;
|
|
$control{value} = $cle{lc($control{name})} if exists $cle{lc($control{name})} ;
|
|
if ($control{liste}) { $ligne=&formradiomaj(%control);
|
|
|
|
} else { $ligne=&formtextmaj(%control) ;}
|
|
print "$ligne\n";
|
|
#$l = Dumper(%control);
|
|
#print "<p>$l eric3";
|
|
|
|
|
|
|
|
}
|
|
print "</table>";
|
|
print "<p>";
|
|
print "<input type=hidden name=domain value=$domain>";
|
|
print "<input type=submit>";
|
|
print "</form>";
|
|
print "<hr>";
|
|
print "<h3>Hanlders</h3>\n";
|
|
|
|
my %hand =%{$un_domain{handler}};
|
|
#$l = Dumper(%hand);
|
|
#print "<p>$l eric3";
|
|
print "<table border =1>";
|
|
|
|
foreach (keys %hand){
|
|
print "<tr><td><a href=\"/lemonldap/un_handler.cgi?domain=$domain&handler=$_\" >$_</a></td></tr>";
|
|
|
|
}
|
|
print "</table>";
|
|
print "<hr>";
|
|
print "<h3>Add hanlder</h3>\n";
|
|
my @tab= @{&get_handler_attr()} ;
|
|
#my $l = Dumper(@tab);
|
|
#print "$l eric";
|
|
print "<form method=get action=create_handler.cgi >" ;
|
|
print "<table border=1>";
|
|
|
|
foreach (@tab) {
|
|
my $ligne;
|
|
my %control =%{$_};
|
|
$control{mxlength}=70;
|
|
$control{length}=60;
|
|
|
|
if ($control{liste}) { $ligne=&formradio(%control);
|
|
|
|
} else { $ligne=&formtext(%control) ;}
|
|
print $ligne;
|
|
|
|
|
|
|
|
}
|
|
print "</table>";
|
|
print "<p>";
|
|
print "<p><b> $text{add_httpd} $config{httpd_conf}<b></p>" ;
|
|
print "<input type=hidden name=domain value=$domain>";
|
|
print "<table>";
|
|
%control='';
|
|
$control{name} ="virtualhost_line" ;
|
|
$control{value} = '';
|
|
$control{mxlength}=80;
|
|
$control{length}=70;
|
|
$ligne=&formtextmaj(%control) ;
|
|
print "$ligne";
|
|
|
|
%control='';
|
|
$control{name} ="servername" ;
|
|
$control{value} = '';
|
|
$control{mxlength}=80;
|
|
$control{length}=70;
|
|
$ligne=&formtextmaj(%control) ;
|
|
print $ligne;
|
|
%control='';
|
|
$control{name} ="perltranshandler" ;
|
|
$control{value} = 'Lemonldap::Handlers::Generic';
|
|
$control{mxlength}=80;
|
|
$control{length}=70;
|
|
$ligne=&formtextmaj(%control) ;
|
|
print $ligne;
|
|
%control='';
|
|
$control{name} ="lemonldaphandlerid" ;
|
|
$control{value} = 'yes';
|
|
$ligne=&formcasemaj(%control) ;
|
|
print $ligne;
|
|
print "</table>";
|
|
print "<input type=submit>";
|
|
print "</form>";
|
|
|
|
|
|
|
|
&footer("/lemonldap", $text{'index'});
|