Handle hostnames with upper-case letters
[webmin.git] / postfix / rate.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 SMTP client parameters.
7 #
8 # << Here are all options seen in Postfix sample-rate.cf >>
9
10 require './postfix-lib.pl';
11
12
13 $access{'rate'} || &error($text{'rate_ecannot'});
14 &ui_print_header(undef, $text{'rate_title'}, "");
15
16 $default = $text{'opts_default'};
17 $none = $text{'opts_none'};
18 $no_ = $text{'opts_no'};
19
20 # Form start
21 print &ui_form_start("save_opts.cgi");
22 print &ui_hidden("_log_form", "rate");
23 print &ui_table_start($text{'rate_title'}, "width=100%", 4);
24
25 &option_freefield("default_destination_concurrency_limit", 15);
26 &option_freefield("default_destination_recipient_limit", 15);
27
28 &option_freefield("initial_destination_concurrency", 15);
29 &option_freefield("maximal_queue_lifetime", 15);
30
31 &option_freefield("minimal_backoff_time", 15);
32 &option_freefield("maximal_backoff_time", 15);
33
34 &option_freefield("queue_run_delay", 15);
35 &option_freefield("defer_transports", 15);
36
37 print &ui_table_end();
38 print &ui_form_end([ [ undef, $text{'opts_save'} ] ]);
39
40 &ui_print_footer("", $text{'index_return'});
41
42
43
44