1#!/usr/local/bin/perl
2#
3# postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
4# for webmin by Jamie Cameron
5#
6# Save Postfix options ; special because for virtual tables
7
8
9require './postfix-lib.pl';
10
11&ReadParse();
12
13
14$access{'header'} || &error($text{'header_ecannot'});
15
16
17&error_setup($text{'opts_err'});
18
19
20&lock_postfix_files();
21&before_save();
22$in{'header_checks'} =~ /^(regexp|pcre):\/\S+$/ ||
23	&error($text{'header_eregexp'});
24&save_options(\%in);
25&ensure_map("header_checks");
26&after_save();
27&unlock_postfix_files();
28
29
30&regenerate_header_table();
31
32$err = &reload_postfix();
33&error($err) if ($err);
34
35&webmin_log("header");
36&redirect("");
37
38
39
40