so u get dub when mail comes in? do u use maildrop? if you also use
other filter that may cause the problem.

Remo

Dave Cook wrote:
> Hi Remo:
> That was just a left-over from testing.  I removed the user-default and
> I still get dups.  That's where I started this morning when the dup
> thing started.
> Getting back to the eliminate-dups script.
> 
> 1) I have the following in .qmail-delivery:  (in
> /home/vpopmail/domains/mydomain.com/)
> 
>    | /usr/local/sbin/eliminate-dups mydomain.com duphash
>   &[EMAIL PROTECTED]
> 
> 2) I have the following in .qmail-default:  (in
> /home/vpopmail/domains/mydomain.com/)
> 
>    | /home/vpopmail/bin/vdelivermail '' bounce-no-mailbox
> 
> 3) The eliminate-dups script is here:
> 
> #! /usr/bin/perl
> #----------------------------------------------------------------------
> # Copyright 2006 Russell Nelson <[EMAIL PROTECTED]>
> # This program is free software; you can redistribute it and/or
> # modify it under the same terms as Perl itself.
> #----------------------------------------------------------------------
> #
> #
> # Modified for use with vpopmail
> # by Chris Hardie <[EMAIL PROTECTED]>
> # originally by Russell Nelson, http://www.qmail.org/eliminate-dups
> #
> #
> # Now, if delivery to the mbox is deferred, eliminate-dups will NOT be
> # run a second time for the same message.
> #
> # Set up ~vpopmail/domains/domain.com/.qmail-default as follows:
> #
> #  | /home/vpopmail/bin/vdelivermail '' [EMAIL PROTECTED]
> #
> # Then create a ~vpopmail/domains/domain.com/.qmail-delivery file as
> follows:
> #
> #  |bin/eliminate-dups domain.com duphash
> #  &[EMAIL PROTECTED]
> #
> # Now, if delivery to the mbox is deferred, eliminate-dups will NOT be
> # run a second time for the same message.
> 
> my $basedir = "/home/vpopmail/domains";
> 
> my $domainname = shift;
> my $hname = shift;
> my $hashname = "$basedir/$domainname/$hname";
> 
> use Digest::MD5;
> $md5 = new Digest::MD5;
> 
> $loose = 1;                     # loose matching if set.
> 
> while(<>) {
>    last if /^$/;
>    next if $ignore_continue && /^\s/;
>    $ignore_continue = 0;
>    if (/^received:/i) {
>        $ignore_continue = 1;
>        next;
>    }
>    if (!$loose) {
>        $headers .= $_;
>        next;
>    }
>    if ($keep_continue && /^\s/) {
>        $headers .= $_;
>        next;
>    }
>    $keep_continue = 0;
>    if (m/^(from|message-id|date):/i) {
>        $headers .= $_;
>        $keep_continue = 1;
>        next;
>    }
>    next;
> }
> 
> $md5->add($headers);
> $md5->addfile(STDIN);
> $hash = $md5->hexdigest;
> print "$headers Our hash:$hash\n";
> 
> if (open(HASH, "<$hashname.newer")) {
>    flock(HASH, 2);
>    while(<HASH>) { chomp; exit 99 if $_ eq $hash; }
> }
> open(HASH, "<$hashname.older") || die "$0: Cannot open $hashname.older";
> while(<HASH>) { chomp; exit 99 if $_ eq $hash; }
> 
> # roll the files once a week.
> if (-M "$hashname.older" > 7) {
>        rename("$hashname.newer", "$hashname.older") || die "$0: Unable
> to move newer to older";
> }
> 
> # add the hash to the "received messages" list.
> open(HASH, ">>$hashname.newer") || die "$0: Cannot append to
> $hashname.newer";
> print HASH "$hash\n";
> close(HASH);
> 
> print "Original message";
> exit 0;
> 
>    a) Putting  | /home/vpopmail/bin/vdelivermail '' [EMAIL PROTECTED] in
> the .qmail-default file stops email delivery and doesn't work.
>    b) This file is owned by vpopmail.vchkpw and is executable and is in
> my /usr/local/sbin directory.
> 
> Question: Does vpopmail read .qmail files in the user's Maildirs?  (i.e.
> /home/vpopmail/domains/mydomain.com/dcook)
> 
> I need some direction on where these files should reside, if it actually
> works and how I can test it.  Any help greatly appreciated.
> 
> Cheers,
> Dave
> 
> ----- Original Message ----- From: "Remo Mattei" <[EMAIL PROTECTED]>
> To: <vchkpw@inter7.com>
> Sent: Sunday, December 03, 2006 11:21 PM
> Subject: Re: [vchkpw] Removng Duplicate Email
> 
> 
> 
> 
> !DSPAM:4573b2d0307555258618536!
> 

Reply via email to