postfix/canonical_edit.cgi

   1 #!/usr/local/bin/perl
   2 #
   3 # postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
   4 # for webmin by Jamie Cameron
   5 #
   6 # Edit one category of canonical maps
   7
   8 require './postfix-lib.pl';
   9 &ReadParse();
  10
  11 &ui_print_header(undef, $text{'canonical_edit_title'}, "", "canonical");
  12
  13
  14 my $first_line = $text{'map_click'}." ".
  15                  &hlink($text{'help_map_format'}, "canonical");
  16
  17 if ($in{'which1'})
  18 {
  19     &generate_map_edit("canonical_maps", $first_line);
  20 }
  21 elsif ($in{'which2'})
  22 {
  23     &generate_map_edit("recipient_canonical_maps", $first_line);
  24 }
  25 elsif ($in{'which3'})
  26 {
  27     &generate_map_edit("sender_canonical_maps", $first_line);
  28 }
  29 else
  30 {
  31     &error($text{'internal_error'});
  32 }
  33
  34 &ui_print_footer("", $text{'index_return'});
  35