summaryrefslogtreecommitdiff
path: root/Echolot/Storage/File.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Echolot/Storage/File.pm')
-rw-r--r--Echolot/Storage/File.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm
index dbbc6e8..0f48628 100644
--- a/Echolot/Storage/File.pm
+++ b/Echolot/Storage/File.pm
@@ -1,7 +1,7 @@
package Echolot::Storage::File;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: File.pm,v 1.8 2002/06/13 15:30:08 weasel Exp $
+# $Id: File.pm,v 1.9 2002/06/18 17:18:20 weasel Exp $
#
=pod
@@ -231,7 +231,7 @@ sub pingdata_open_one($$$$) {
my $basename = $self->{'METADATA'}->{'remailers'}->{$remailer_addr}->{'stats'}->{$type}->{$key};
defined($basename) or
- $basename = $self->{'METADATA'}->{'remailers'}->{$remailer_addr}->{'stats'}->{$type}->{$key} = $remailer_addr.'.'.$key.'.'.time.'.'.$PROCESS_ID.'_'.Echolot::Globals::get()->{'internalcounter'}++,
+ $basename = $self->{'METADATA'}->{'remailers'}->{$remailer_addr}->{'stats'}->{$type}->{$key} = $remailer_addr.'.'.$type.'.'.$key.'.'.time.'.'.$PROCESS_ID.'_'.Echolot::Globals::get()->{'internalcounter'}++,
$self->commit();
my $filename = $self->{'datadir'} .'/'. $basename;
@@ -358,7 +358,7 @@ sub register_pingout($$$$) {
cluck("Error when writing to $remailer_addr; type=$type; key=$key; out pings: $!"),
return 0;
$fh->flush();
-print "registering pingout at $sent_time for $remailer_addr\n";
+print "registering pingout at $sent_time for $remailer_addr ($type; $key)\n";
return 1;
};
@@ -403,7 +403,7 @@ sub register_pingdone($$$$$) {
cluck("Error when writing to outgoing pings file for remailer $remailer_addr; key=$key file: $!"),
return 0;
$fh->flush();
-print "registering pingdone from $sent_time with latency $latency for $remailer_addr\n";
+print "registering pingdone from $sent_time with latency $latency for $remailer_addr ($type; $key)\n";
return 1;
};
@@ -555,7 +555,8 @@ sub set_key($$$$$$$$$) {
$keyref->{'summary'} = $summary;
};
if ($keyref->{'key'} ne $key) {
- warn ("$nick has a new key string '$key' old: '".$keyref->{'key'}."' - This probably should not happen\n");
+ #warn ("$nick has a new key string '$key' old: '".$keyref->{'key'}."' - This probably should not happen\n");
+ warn ("$nick has a new key string for same keyid $keyid\n");
$keyref->{'key'} = $key;
};
};