#!/usr/bin/perl
#
# Show the filters from the ietf+censored mailing list
#
print <<EoF;
Content-type: text/html

<html><head>
<title>IETF+Censored filter rules</title>
</head>
<body bgcolor=white>
<h1>IETF+Censored filter rules</h1>

You asked for it? You got it.<br>
For explanations about what it actually means, see Majordomo documentation.

EoF

push(@INC, "/var/majordomo");

require "config_parse.pl";

# act as if it is already locked, lock not needed
get_config("/var/majordomo/lists", "ietf+censored", 1);

print "<h2>Taboo headers</h2>\n";
print join("<br>\n", split(/\001/, $config_opts{"ietf+censored", taboo_headers}));
print "<h2>Taboo body</h2>\n";
print join("<br>\n", split(/\001/, $config_opts{"ietf+censored", taboo_body}));

print <<EoF;
<hr>
Harald T. Alvestrand &lt;Harald\@Alvestrand.no&gt;
</body>
EoF

