cvs commit: qpsmtpd/lib Qpsmtpd.pm
[email protected] (Robert Spier)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/06 22:35:17
Modified: lib Qpsmtpd.pm
Log:
Allow for multiple instances of a single plugin by using plugin:0
notation
Revision Changes Path
1.42 +2 -1 qpsmtpd/lib/Qpsmtpd.pm
Index: Qpsmtpd.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -w -r1.41 -r1.42
--- Qpsmtpd.pm 6 Sep 2004 17:36:57 -0000 1.41
+++ Qpsmtpd.pm 7 Sep 2004 05:35:16 -0000 1.42
@@ -193,6 +193,7 @@
}
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;