sub sieve_util_remove_page { my $relay_label; my ($relay, $filename, $int_ext,$filelock) = @_; if ($int_ext =~ /^int/i) { $relay_label = "Internal Relay: $filelock"; } else { $relay_label = "External Relay: $filelock"; } print start_html(-title=>"Sieve Filter Administration",), "
\n", br(br(br(h2(b("Removed!"))))), h3(b("The file lock on $filelock has been removed!")), hidden(-name=>"tflag", -default=>"$int_ext"); print end_html(); exit; }