summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-06-06 09:50:55 +0000
committerPeter Palfrader <peter@palfrader.org>2003-06-06 09:50:55 +0000
commitd1fe354b43dfd24259aa5622c5918e35793be1e0 (patch)
treec57f5920aa6e2b17f9a8cc6ab8589ce91fe63839
parent2b9792e00e66690e0eae5c6428f85410291e4284 (diff)
Accept lack of double quotes in caps lines
-rw-r--r--Echolot/Conf.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm
index ba040af..71ea3d5 100644
--- a/Echolot/Conf.pm
+++ b/Echolot/Conf.pm
@@ -1,7 +1,7 @@
package Echolot::Conf;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Conf.pm,v 1.39 2003/05/21 00:28:35 weasel Exp $
+# $Id: Conf.pm,v 1.40 2003/06/06 09:50:55 weasel Exp $
#
=pod
@@ -121,9 +121,9 @@ sub remailer_caps($$$;$) {
Echolot::Log::info("Could not find id in token '$token'."), return 0 unless defined $id;
my ($remailer_type) = ($conf =~ /^\s*Remailer-Type:\s* (.*?) \s*$/imx);
Echolot::Log::info("No remailer type found in remailer_caps from '$token'."), return 0 unless defined $remailer_type;
- my ($remailer_caps) = ($conf =~ /^\s*( \$remailer{".*"} \s*=\s* "<.*@.*>.*"; )\s*$/imx);
+ my ($remailer_caps) = ($conf =~ /^\s*( \$remailer{"?.*"?} \s*=\s* "?<.*@.*>.*"?; )\s*$/imx);
Echolot::Log::info("No remailer caps found in remailer_caps from '$token'."), return 0 unless defined $remailer_caps;
- my ($remailer_nick, $remailer_address) = ($remailer_caps =~ /^\s* \$remailer{"(.*)"} \s*=\s* "<(.*@.*)>.*"; \s*$/ix);
+ my ($remailer_nick, $remailer_address) = ($remailer_caps =~ /^\s* \$remailer{"?(.*)"?} \s*=\s* "?<(.*@.*)>.*"?; \s*$/ix);
Echolot::Log::info("No remailer nick found in remailer_caps from '$token': '$remailer_caps'."), return 0 unless defined $remailer_nick;
Echolot::Log::info("No remailer address found in remailer_caps from '$token': '$remailer_caps'."), return 0 unless defined $remailer_address;