1#!/usr/bin/perl -w
2# <@LICENSE>
3# Licensed to the Apache Software Foundation (ASF) under one or more
4# contributor license agreements.  See the NOTICE file distributed with
5# this work for additional information regarding copyright ownership.
6# The ASF licenses this file to you under the Apache License, Version 2.0
7# (the "License"); you may not use this file except in compliance with
8# the License.  You may obtain a copy of the License at:
9#
10#     http://www.apache.org/licenses/LICENSE-2.0
11#
12# Unless required by applicable law or agreed to in writing, software
13# distributed under the License is distributed on an "AS IS" BASIS,
14# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15# See the License for the specific language governing permissions and
16# limitations under the License.
17# </@LICENSE>
18
19use strict;
20
21use FindBin;
22use lib "$FindBin::Bin/../lib";
23use Mail::SpamAssassin;
24
25my $spamtest = Mail::SpamAssassin->new({
26    rules_filename => 'rules',
27    dont_copy_prefs => 1,
28    local_tests_only => 1,
29    debug => 0,
30    paranoid => 0,
31});
32
33for($_=shift @ARGV; defined($_); $_=shift @ARGV)
34{
35	open (FILE, "<$_");
36	my $mail = $spamtest->parse (\*FILE);
37	close(FILE);
38
39	my $status = $spamtest->check($mail);
40        print $status->get_hits," $_ ",$status->get_names_of_tests_hit,"\n";
41	$status->finish();
42	$mail->finish();
43}
44