On Thu, 2007-08-30 at 13:53 -0400, Guy Hulbert wrote:
> On Fri, 2007-08-31 at 00:59 +0800, Ask Bjørn Hansen wrote:
> > Woah - bikeshedding galore!
> >
> > I just got my email downloaded to my mac (I'm traveling) and Mail.app
> > says there are 61 mails in this thread (plus those I deleted
> > earlier!?!).
> >
> > Enough already.
>
> There might have been a little less chat if he'd posted the code to the
> list ... fwiw, here it is.
>
> >
> > If anyone has a serious realistic concern with what Matt did, please
>
> http://svn.perl.org/qpsmtpd/trunk/lib/Qpsmtpd/Transaction.pm
>
Sorry, I missed this bit:
my $SALT_HOST => crypt(hostname, chr(65+rand(57)).chr(65+rand(57)));
$SALT_HOST =~ tr/A-Za-z0-9//cd;
> # Generate unique id
> # use gettimeofday for microsec precision
> # add in rand() in case gettimeofday clock is slow (e.g. bsd?)
> # add in $$ in case srand is set per process
> my ($start, $mstart) = gettimeofday();
> my $id = sprintf("%d.%06d.%s.%d.%d",
> $start,
> $mstart,
> $SALT_HOST,
> rand(10000),
> $$,
> );
>
>
>
> > provide a perl implementation of mod_unique_id from Apache -
> > otherwise then let's leave this alone for now.
> >
> >
> > - ask
--
--gh
