1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
#
# MailScanner - SMTP E-Mail Virus Scanner
# Copyright (C) 2002 Julian Field
#
# $Id: MyExample.pm,v 1.1.2.1 2004/03/23 09:23:43 jkf Exp $
#
# The author, Julian Field, can be contacted by email at
# mailscanner@ecs.soton.ac.uk
# or by paper mail at
# Julian Field
# Electronics & Computer Science
# University of Southampton
# Southampton
# SO17 1BJ
# United Kingdom
#
package MailScanner::CustomConfig;
use FileHandle;
use File::Temp qw(tempfile tempdir);
use strict 'vars';
use strict 'refs';
no strict 'subs'; # Allow bare words for parameter %'s
use vars qw($VERSION);
### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.1.2.1 $, 10;
my $Debug = 0; # Set to 1 to enable debug output to STDERR
my($tmpfh, $tmpfilename) = tempfile("MailScanner.XXXXXX", TMPDIR => 1, UNLINK => 0);
############################################################################
############################################################################
############################################################################
#
# This is an example of how to make a Custom Function for an setting call
# a ruleset for that setting, so you can have a Custom Function which
# may (if necessary in your application) call a ruleset to work out its value.
#
# The only bit you need to change is the value for "$option" in each function
# which should be the external name of the config option.
# The external name is the name that appears in MailScanner.conf but with
# nothing except a-z and 0-9, all lower-case.
############################################################################
#
# Virus Scanning =
#
sub InitVirusScanning {
my($ruleset) = @_;
my $option = 'virusscanning'; # External (MailScanner.conf-version)
# Make the temporary 1-line MailScanner.conf file, use it and delete it
my $fh = new FileHandle;
$fh->open("> $tmpfilename") or die "$!";
print $fh $option . " = $ruleset\n";
$fh->close;
MailScanner::Config::SetFileValue($option, undef);
# Must ensure the ruleset for this option is empty before we start reading.
# It is vital the string in the next line is exactly 'nodefaults'.
MailScanner::Config::ReadData($tmpfilename, 'nodefaults');
unlink $tmpfilename;
}
sub VirusScanning {
my($message) = @_;
my $option = 'virusscanning';
return LookupRuleset($option, $message);
}
sub EndVirusScanning {
my $option = 'virusscanning';
MailScanner::Log::InfoLog("Shutting down $option");
}
# Lookup the ruleset for a given message and option name
# (external name as in MailScanner.conf but all lower-case
# and no spaces or punctuation).
sub LookupRuleset {
my($option, $message) = @_;
$option = lc($option);
print STDERR "Looking up ruleset $option for message " .
$message->{id} . "\n" if $Debug;
# All the rulesets have 127.0.0.1 --> 0
return 1 unless $message;
return 0 if $message->{clientip} =~ /^127\.0\.0/;
# Just evaluate the ruleset
my $E2I = MailScanner::Config::GetEtoI();
# The E2I entry doesn't exist if E == I
my $Ioption = $option;
$Ioption = $E2I->{$option} if $E2I->{$option};
# Get the old Custom Function name and delete it
my $funcname = MailScanner::Config::GetCustomFunction($Ioption);
MailScanner::Config::SetCustomFunction($Ioption, undef);
print STDERR "About to lookup ruleset for $option ($Ioption)\n" if $Debug;
my $rulesetresult = MailScanner::Config::Value($Ioption, $message);
print STDERR "The ruleset for $option ($Ioption) said $rulesetresult\n" if $Debug;
# Restore the old Custom Function name
MailScanner::Config::SetCustomFunction($Ioption, $funcname);
return $rulesetresult;
}
# This file must end with the following line
no strict;
1;
|
