# Fred's Custom Eval rules
# Version:  1.0
# Created:  03/29/2004
# Modified: 03/29/2004
# Changes: None yet, still initial release.
# License:  Artistic - see http://www.rulesemporium.com/license.txt
# Current Maintainer: Frederic Tarasevicius - tech2@i-is.com
# Current Home: http://www.rulesemporium.com/rules/88_FVGT_EVALS.cf
## 
## For SpamAssassin 2.6x you must add the subs to EvalTests.pm (location varies).
## For SpamAssassin 3.0  you must....

header		X_IP_IS_FORGED		eval:check_for_forged_xip()
describe	X_IP_IS_FORGED		The X-IP header is forged!
score		X_IP_IS_FORGED		3.57

header		TO_NAME_IN_SUBJECT	eval:check_for_my_to_in_subject()
describe	TO_NAME_IN_SUBJECT	Contains name in subject
score		TO_NAME_IN_SUBJECT	1.357

## 
## EVAL SUBS BELOW:
## 

#sub check_for_forged_xip {
#  my ($self) = @_;
#  my $xip = $self->get('X-IP');
#  if (!$xip) { return 0; } # no x-ip
#  $xip =~ s/[^0-9\.]//; # remove everything cept #'s.
#  my $rcvd = $self->get('Received');
#  if (index($rcvd, $xip) < 0) { return 1; } # x-ip is not found
#  return 0;
#}
#


#sub check_for_my_to_in_subject {
#  my ($self) = @_;
#
#  my $to = $self->get('To:addr');
#  return 0 unless $to; # no To:?
#  $to =~ s/\@.*$//; # just the username please
#
#  my $subject = $self->get('Subject');
#
#  return ($subject =~ /^\s*$to,/i);
#}
#

#EOF