[prev in list] [next in list] [prev in thread] [next in thread] 

List:       pgp-keyserver-folk
Subject:    Memorandum (Re: Memorandom for pgp keyserver configuration)
From:       Hironobu SUZUKI <hironobu () h2np ! net>
Date:       2000-11-11 1:10:03
[Download RAW message or body]

Oops! Memorandum.

> /	Receiving  E-mail:
> /		At the most	30000/days
> 
> is that a challenge? :-)

YES. :-) 

If e-mails are received in every 3 sec from sync server...

	(24 hours * 60 min * 60 sec) / every 3 sec = 28800 e-mails !!

pksd check only X-KeyServer-Sent: field and ignore To: field.
Sometime, my keyserver got triple key sync e-mails from other sync
keyservers.

 ex)
 From: nl
 To: jp, dfn, es
 X: none 

  nl->jp 
    ->dfn -> jp
    ->es  -> jp

I don't know an intention of sync mechanism designer but I'm thinking
that this is too much reflections.  I have been using a perl script to
prevent from reflecting situation.

If someone want to know "received" and "sending" statistics on my pksd,
please check this URL.

	http://pgp.nic.ad.jp/cgi-bin/www-statistics2.pl

(Oops! I found my configuration error to send sync e-mail to
pgp.es.net!)

> interesting! Do other people also play games with this? Is it a safe
> parameter to play with?

More detail about my pksd:

My pksd which was compiled in 1999 Dec 28 have been working well.

$ ls -l pksd
-rwxr-xr-x  1 pgp  wheel  570954 Dec 28  1999 pksd

My pksd eat huge memory area than original one.

% ps axuw
 USER     PID %CPU %MEM   VSZ  RSS  TT  STAT STARTED      TIME COMMAND
...
pgp    36636  0.0 55.2 92464 70372  p0- I     1:57PM   0:54.80 /pgp/pks/bin/pksd -D \
/pgp/pks/etc/nic_pksd.conf

 note) Yesterday, pksd was shutdown for marge/delete log.* files.

----------
#!/usr/bin/perl
#-*- mode:perl -*-
# move from To: field to X-KeyServer-Sent: field

@context="";
$to_l="";
$original_Xsent="";

&getto("mail.dat");
#print @to;
#print "\n";
$to_l =~ s/To: /X-KeyServer-Sent: /;
$to_l =~ s/,(\s+)/\nX-KeyServer-Sent: /g;
print $to_l;
print $original_Xsent;
print @context;

exit 0;

sub getto
{
    local($fname)=@_;
    local($flag)=0;
#    open(FILE,$fname) || die "Can't open $fname...bye\n";

    while(<>) {
	if ( /^(.*): / ) {
	    if ( /To:/ ) {
		if ( $flag == 0 ){ # First To:
		    $flag=1;	# Go push
		}
	    }
	    else {
		if ($flag == 1) { # Already  found To:
		    $flag=3;	# Found Next Field
		}
	    }
	}
	if ( $flag == 1 ) {	#  in To: field
	    $to_l = $to_l.$_;	#  collection
	}
	if (/^X-KeyServer-Sent: /) {
				# collect X-sent field
	    $original_Xsent = $original_Xsent.$_
	}
	else {
	    push(@context,$_);	#  whole of header without Xsent field
	}
    }
#    close(FILE);
}
------


[prev in list] [next in list] [prev in thread] [next in thread]