Handle hostnames with upper-case letters
[webmin.git] / postfix / transport.cgi
1 #!/usr/local/bin/perl
2 #
3 # postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
4 # for webmin by Jamie Cameron
5
6 # Manages transport for Postfix
7 #
8 # << Here are all options seen in Postfix sample-transport.cf >>
9
10
11 require './postfix-lib.pl';
12
13 $access{'transport'} || &error($text{'transport_ecannot'});
14 &ui_print_header(undef, $text{'transport_title'}, "", "transport");
15
16 # Start of transport form
17 print &ui_form_start("save_opts_transport.cgi");
18 print &ui_table_start($text{'transport_title'}, "width=100%", 2);
19
20 &option_mapfield("transport_maps", 60);
21
22 print &ui_table_end();
23 print &ui_form_end([ [ undef, $text{'opts_save'} ] ]);
24
25 # Transport map contents
26 print &ui_hr();
27 if (&get_current_value("transport_maps") eq "")
28 {
29     print $text{'no_map'},"<p>\n";
30 }
31 else
32 {
33     &generate_map_edit("transport_maps", $text{'map_click'}." ".
34                        &hlink($text{'help_map_format'}, "transport"));
35 }
36
37 &ui_print_footer("", $text{'index_return'});