Can set remailer caps manually (needed for remailers like passthru2 and lcs

1 files changed, 30 insertions, 1 deletions

diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm
index 6e8a6fd..bc14f84 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.9 2002/07/02 18:03:55 weasel Exp $
+# $Id: Conf.pm,v 1.10 2002/07/03 11:08:21 weasel Exp $
 #
 
 =pod
@@ -121,6 +121,35 @@ sub remailer_conf($$$) {
 	return 1;
 };
 
+sub set_caps_manually($$) {
+	my ($addr, $caps) = @_;
+
+	defined $addr or
+		cluck("Address not defined."),
+		return 0;
+	defined $caps or
+		cluck("Caps not defined."),
+		return 0;
+
+	print "Setting caps for $addr manually to $caps\n"
+		if Echolot::Config::get()->{'verbose'};
+
+	my $remailer = Echolot::Globals::get()->{'storage'}->get_address($addr);
+	defined $remailer or
+		cluck("Remailer address $addr did not give a valid remailer."),
+		return 0;
+	my $id = $remailer->{'id'};
+	defined $id or
+		cluck("Remailer address $addr did not give a remailer with an id."),
+		return 0;
+	my $token = 'conf.'.$id;
+
+	my $conf = "Remailer-Type: set-manually\n$caps";
+	remailer_conf($conf, $token, time + 10 * 365 * 24 * 60 * 60); # FIXME: Y2036
+
+	return 1;
+};
+
 sub parse_mix_key($$$) {
 	my ($reply, $time, $remailer) = @_;