postfix/ldap.cgi

   1 #!/usr/local/bin/perl
   2 #
   3 # postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
   4 # for webmin by Jamie Cameron
   5 #
   6 # A form for controling ldap lookups.
   7 #
   8 # << Here are all options seen in Postfix sample-ldap.cf >>
   9
  10 require './postfix-lib.pl';
  11
  12
  13 $access{'ldap'} || &error($text{'ldap_ecannot'});
  14 &ui_print_header(undef, $text{'ldap_title'}, "");
  15
  16 $default = $text{'opts_default'};
  17 $none = $text{'opts_none'};
  18 $no_ = $text{'opts_no'};
  19
  20 if (!(&is_existing_parameter($ldap_timeout)))
  21 {
  22     print "$text{'ldap_non_existent'}<p>\n";
  23     &ui_print_footer("", $text{'index_return'});
  24     exit;
  25 }
  26
  27
  28 print "<form action=save_opts.cgi>\n";
  29 print &ui_hidden("_log_form", "ldap");
  30 print "<table border width=100%>\n";
  31 print "<tr $tb> <td><b>$text{'ldap_title'}</b></td></tr>\n";
  32 print "<tr $cb> <td><table width=100%>\n";
  33
  34 print "<tr>\n";
  35 &option_freefield($ldap_timeout, 15);
  36 print "</tr>\n";
  37
  38 print "<tr>\n";
  39 &option_radios_freefield("ldap_search_base", 65, $none);
  40 print "</tr>\n";
  41
  42 print "<tr>\n";
  43 &option_radios_freefield("ldap_server_host", 65, $none);
  44 print "</tr>\n";
  45
  46 print "</table></td></tr></table><p>\n";
  47 print "<input type=submit value=\"$text{'opts_save'}\"></form>\n";
  48 &ui_print_footer("", $text{'index_return'});
  49
  50
  51
  52