postfix/edit_access.cgi

   1 #!/usr/local/bin/perl
   2 # edit_access.cgi
   3 # Display a form to edit a general access mapping table
   4 # by Roberto Tecchio, 2005 (www.tecchio.net)
   5
   6 require './postfix-lib.pl';
   7
   8 $access{'smtpd'} || &error($text{'smtpd_ecannot'});
   9 &ReadParse();
  10 &ui_print_header(undef, $in{'title'}, "");
  11
  12 if (&get_current_value($in{'name'}) eq "")
  13 {
  14     print ($text{'no_map'}."<br><br>");
  15 }
  16 else
  17 {
  18     &generate_map_edit($in{'name'}, $text{'map_click'}." ".
  19                        "<font size=\"-1\">".&hlink("$text{'help_map_format'}", "access")."</font>\n<br>\n", 1,
  20                        $text{'mapping_client'}, $text{'header_value'});
  21 }
  22
  23 &ui_print_footer("smtpd.cgi", $text{'smtpd_title'}, "index.cgi", $text{'index_title'});