File Manager - BorneoXploit

Editing: header.cgi

#!/usr/bin/perl
#
# postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
# for webmin by Jamie Cameron
# 
# Manages virtuals for Postfix
#
# << Here are all options seen in Postfix sample-virtual.cf >>

require './postfix-lib.pl';    ## no critic
use strict;
use warnings;
our (%access, %text);
&ReadParse();

$access{'header'} || &error($text{'header_ecannot'});
&ui_print_header(undef, $text{'header_title'}, "", "header");

# Start of header checks for
print &ui_form_start("save_opts_header.cgi");
print &ui_table_start($text{'header_title'}, "width=100%", 2);

&option_mapfield("header_checks", 60);

&option_mapfield("mime_header_checks", 60);

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'opts_save'} ] ]);

# Header map contents
print &ui_hr();
my $hc = &get_real_value("mime_header_checks");
if ($hc eq "") {
    print $text{'opts_header_checks_no_map'},"<p>\n";
} else {
    &generate_map_edit("header_checks", $text{'map_click'}." ".
		       &hlink($text{'help_map_format'}, "header"), 1,
		       $text{'header_name'}, $text{'header_value'});
}

# MIME header map contents
print &ui_hr();
my $mhc = &get_real_value("mime_header_checks");
if ($mhc eq "") {
    print $text{'opts_mime_header_checks_no_map'},"<p>\n";
} elsif ($mhc eq $hc) {
    print $text{'opts_mime_header_checks_same_map'},"<p>\n";
} else {
    &generate_map_edit("mime_header_checks", $text{'map_click'}." ".
		       &hlink($text{'help_map_format'}, "header"), 1,
		       $text{'header_name'}, $text{'header_value'});
}

&ui_print_footer("", $text{'index_return'});

Cancel