#!/usr/bin/perl

use strict;

my($old, $mail, $sender, $sendmail, $list_address, $keyword);

$sender = $ENV{'SENDER'};
$sendmail = '/usr/sbin/sendmail';
$list_address = 'php3@lists.php.net';
$keyword = "nobot";

$old = $/;
undef $/;
$mail = <>;
$/ = $old;

if($mail =~ /gdttf\.c/i && $mail =~ /freetype\.h/i && $mail !~ /$keyword/i) {
	open(M, "|$sendmail -f $list_address $sender");
	print M <<"eof";
In order to resolve your problem, you need to install
the freetype-devel RPM from your RedHat distribution.

Please also read the installation instructions for your
distribution (see the file INSTALL.REDHAT).

If this does not solve your problem, please resent your
email and include the word `$keyword' in your email.

Your PHP answering team
eof
	close(M);
	exit(99);
}

exit(0);