smeserver-qpsmtpd/sme7/smeserver-qpsmtpd-1.2.1-peers_plugin.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers mezzanine_patched_smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers
--- smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers        1969-12-31 19:00:00.000000000 -0500
+++ mezzanine_patched_smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers      2006-09-08 10:40:49.000000000 -0400
@@ -0,0 +1,70 @@
+# this plugin checks the peers directory for config
+# file most closely matching the client IP address
+# and loads it if found.
+#
+# Note that init() borrows some internals from Qpsmtpd.pm - I
+# didn't see a suitable public interface.
+
+sub init {
+   my $self = shift;
+   my $qp = shift;
+   my $plugins_list_file = shift;
+   my @plugins = $qp->config($plugins_list_file);
+   my $dir = $qp->plugin_dir;
+
+   for my $plugin (@plugins) {
+     my $plugin_name = $plugin;
+     $plugin =~ s/:\d+$//;       # after this point, only used for filename
+
+     # Escape everything into valid perl identifiers
+     $plugin_name =~ s/([^A-Za-z0-9_\/])/sprintf("_%2x",unpack("C",$1))/eg;
+
+     # second pass cares for slashes and words starting with a digit
+     $plugin_name =~ s{
+                     (/+)       # directory
+                     (\d?)      # package's first character
+                    }[
+                      "::" . (length $2 ? sprintf("_%2x",unpack("C",$2)) : "")
+                     ]egx;
+
+     my $package = "Qpsmtpd::Plugin::$plugin_name";
+
+     # don't reload plugins if they are already loaded
+     unless ( defined &{"${package}::plugin_name"} ) {
+       Qpsmtpd::Plugin->compile($plugin_name,
+         $package, "$dir/$plugin", $self->{_test_mode});
+       $self->log(LOGDEBUG, "Compiling $plugin")
+         unless $plugin =~ /logging/;
+     }
+   }
+
+   return 1;
+}
+sub _peer_plugins {
+   my $qp = shift;
+   my $config = shift;
+   my @plugins = $qp->config($config);
+   $qp->log(LOGNOTICE, "loading plugins @plugins from $config");
+
+   return $qp->_load_plugins($qp->plugin_dir, @plugins);
+}
+
+sub hook_connect {
+   my ($self, $transaction) = @_;
+   my $qp = $self->qp;
+   my $connection = $qp->connection;
+
+   my $client_ip = $qp->connection->remote_ip;
+   while ($client_ip) {
+     if (-f "config/peers/$client_ip") {
+       _peer_plugins($qp, "peers/$client_ip");
+       return (DECLINED);
+     }
+     $client_ip =~ s/\.+\d+\.?$//; # strip off another 8 bits
+   }
+   if (-f "config/peers/0") {
+     _peer_plugins($qp, "peers/0");
+     return (DECLINED);
+   }
+   return (DENY);
+}
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers mezzanine_patched_smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers
2			--- smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers 1969-12-31 19:00:00.000000000 -0500
3			+++ mezzanine_patched_smeserver-qpsmtpd-1.2.1/root/usr/share/qpsmtpd/plugins/peers 2006-09-08 10:40:49.000000000 -0400
4			@@ -0,0 +1,70 @@
5			+# this plugin checks the peers directory for config
6			+# file most closely matching the client IP address
7			+# and loads it if found.
8			+#
9			+# Note that init() borrows some internals from Qpsmtpd.pm - I
10			+# didn't see a suitable public interface.
11			+
12			+sub init {
13			+ my $self = shift;
14			+ my $qp = shift;
15			+ my $plugins_list_file = shift;
16			+ my @plugins = $qp->config($plugins_list_file);
17			+ my $dir = $qp->plugin_dir;
18			+
19			+ for my $plugin (@plugins) {
20			+ my $plugin_name = $plugin;
21			+ $plugin =~ s/:\d+$//; # after this point, only used for filename
22			+
23			+ # Escape everything into valid perl identifiers
24			+ $plugin_name =~ s/([^A-Za-z0-9_\/])/sprintf("_%2x",unpack("C",$1))/eg;
25			+
26			+ # second pass cares for slashes and words starting with a digit
27			+ $plugin_name =~ s{
28			+ (/+) # directory
29			+ (\d?) # package's first character
30			+ }[
31			+ "::" . (length $2 ? sprintf("_%2x",unpack("C",$2)) : "")
32			+ ]egx;
33			+
34			+ my $package = "Qpsmtpd::Plugin::$plugin_name";
35			+
36			+ # don't reload plugins if they are already loaded
37			+ unless ( defined &{"${package}::plugin_name"} ) {
38			+ Qpsmtpd::Plugin->compile($plugin_name,
39			+ $package, "$dir/$plugin", $self->{_test_mode});
40			+ $self->log(LOGDEBUG, "Compiling $plugin")
41			+ unless $plugin =~ /logging/;
42			+ }
43			+ }
44			+
45			+ return 1;
46			+}
47			+sub _peer_plugins {
48			+ my $qp = shift;
49			+ my $config = shift;
50			+ my @plugins = $qp->config($config);
51			+ $qp->log(LOGNOTICE, "loading plugins @plugins from $config");
52			+
53			+ return $qp->_load_plugins($qp->plugin_dir, @plugins);
54			+}
55			+
56			+sub hook_connect {
57			+ my ($self, $transaction) = @_;
58			+ my $qp = $self->qp;
59			+ my $connection = $qp->connection;
60			+
61			+ my $client_ip = $qp->connection->remote_ip;
62			+ while ($client_ip) {
63			+ if (-f "config/peers/$client_ip") {
64			+ _peer_plugins($qp, "peers/$client_ip");
65			+ return (DECLINED);
66			+ }
67			+ $client_ip =~ s/\.+\d+\.?$//; # strip off another 8 bits
68			+ }
69			+ if (-f "config/peers/0") {
70			+ _peer_plugins($qp, "peers/0");
71			+ return (DECLINED);
72			+ }
73			+ return (DENY);
74			+}