postfix/address_rewriting.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 editing address rewriting for Postfix
   7 #
   8 # << Here are all options seen in Postfix sample-rewrite.cf >>
   9
  10 require './postfix-lib.pl';
  11
  12 $access{'address_rewriting'} || &error($text{'address_rewriting_ecannot'});
  13 &ui_print_header(undef, $text{'address_rewriting_title'}, "");
  14
  15 $default = $text{'opts_default'};
  16 $none = $text{'opts_none'};
  17 $no_ = $text{'opts_no'};
  18
  19 print &ui_form_start("save_opts.cgi");
  20 print &ui_hidden("_log_form", "opts");
  21 print &ui_table_start($text{'address_rewriting_title'}, "width=100%", 4);
  22
  23 &option_yesno("allow_percent_hack");
  24 &option_yesno("append_at_myorigin");
  25
  26 &option_yesno("append_dot_mydomain");
  27 &option_yesno("swap_bangpath", 'help');
  28
  29 &option_radios_freefield("empty_address_recipient", 35, $text{'opt_empty_recip_default'});
  30
  31 &option_radios_freefield("masquerade_domains", 35, $none);
  32
  33 &option_radios_freefield("masquerade_exceptions", 35, $none);
  34
  35 print &ui_table_end();
  36 print &ui_form_end([ [ undef, $text{'opts_save'} ] ]);
  37
  38 &ui_print_footer("", $text{'index_return'});
  39
  40
  41
  42