postfix/edit_canonical_mappings.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 a mapping
   7
   8 require './postfix-lib.pl';
   9 &ReadParse();
  10
  11 &ui_print_header(undef, $text{'edit_mapping_title'}, "");
  12
  13
  14 my $num;
  15
  16 if (!exists($in{'num'}))
  17 {
  18     $num = &init_new_mapping(&get_current_value("sender_canonical_maps"));
  19 }
  20 else
  21 {
  22     $num = $in{'num'};
  23 }
  24
  25
  26 my $mappingsaliases = &get_aliases();
  27 my %alias;
  28
  29 foreach $trans (@{$aliases})
  30 {
  31     if ($trans->{'number'} == $num) { %alias = %{$trans}; }
  32 }
  33
  34 print "<form action=save_alias.cgi>\n";
  35 print "<table border width=100%>\n";
  36 print "<tr $tb> <td><b>$text{'edit_alias_title'}</b></td></tr>\n";
  37 print "<tr $cb> <td><table>\n";
  38
  39 print "<tr>\n";
  40 print "<td><b>$text{'aliases_name'}</b></td> <td nowrap>\n";
  41 print "<input type=hidden name=\"num\" value=\"$num\">";
  42 print "<input name=\"name\" size=40 value=\"$alias{'name'}\"> </td>\n";
  43 print "</tr>\n";
  44
  45 print "<tr>\n";
  46 print "<td><b>$text{'aliases_value'}</b></td> <td nowrap>\n";
  47 print "<input name=\"value\" size=40 value=\"$alias{'value'}\"> </td>\n";
  48 print "</tr>\n";
  49
  50 print "</table></td></tr></table><p>\n";
  51 print "<input type=submit value=\"$text{'alias_save'}\">\n";
  52 print "<input type=submit name=delete value=\"$text{'delete_alias'}\"></form>\n";
  53
  54 print &ui_hr();
  55 print "<br>\n";
  56