#!/usr/local/bin/perl # # postfix-module by Guillaume Cottenceau , # for webmin by Jamie Cameron # # Copyright (c) 2000 by Mandrakesoft # # Permission to use, copy, modify, and distribute this software and its # documentation under the terms of the GNU General Public License is hereby # granted. No representations are made about the suitability of this software # for any purpose. It is provided "as is" without express or implied warranty. # See the GNU General Public License for more details. # # # Manages virtuals for Postfix # # << Here are all options seen in Postfix sample-virtual.cf >> require './postfix-lib.pl'; $access{'header'} || &error($text{'header_ecannot'}); &ui_print_header(undef, $text{'header_title'}, "", "header"); # alias general options print "
\n"; print "\n"; print "\n"; print "
$text{'header_title'}
\n"; $none = $text{'opts_none'}; print "\n"; &option_radios_freefield("header_checks", 60, $none); print "\n"; print "

\n"; print "

\n"; print &ui_hr(); print "
\n"; if (&get_current_value("header_checks") eq "") { print ($text{'no_map'}."

"); } else { &generate_map_edit("header_checks", $text{'map_click'}." ". "".&hlink("$text{'help_map_format'}", "header")."\n
\n", 1, $text{'header_name'}, $text{'header_value'}); } &ui_print_footer("", $text{'index_return'});