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®enerate_header_table(); 31 32$err = &reload_postfix(); 33&error($err) if ($err); 34 35&webmin_log("header"); 36&redirect(""); 37 38 39 40