postfix/debug.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 debugging features.
   7 #
   8 # << Here are all options seen in Postfix sample-debug.cf >>
   9
  10 require './postfix-lib.pl';
  11
  12
  13 $access{'debug'} || &error($text{'debug_ecannot'});
  14 &ui_print_header(undef, $text{'debug_title'}, "");
  15
  16 $default = $text{'opts_default'};
  17 $none = $text{'opts_none'};
  18 $no_ = $text{'opts_no'};
  19
  20 # Start of form
  21 print &ui_form_start("save_opts.cgi");
  22 print &ui_hidden("_log_form", "debug");
  23 print &ui_table_start($text{'debug_title'}, "width=100%", 4);
  24
  25 &option_freefield("debug_peer_list", 65);
  26
  27 &option_freefield("debug_peer_level", 15);
  28
  29 print &ui_table_end();
  30 print &ui_form_end([ [ undef, $text{'opts_save'} ] ]);
  31
  32 &ui_print_footer("", $text{'index_return'});
  33