Commit 12537751 authored by taggart's avatar taggart

update for new criteria

parent 876795c6
......@@ -4,9 +4,11 @@
# NOTE: this script requires the current user has read access to the db
# Matt Taggart <taggart@riseup.net> 2019-08
my $score=20;
my $score=10;
# today minus 6 months
my $time=`date +%s` - 15768000;
#my $time=`date +%s` - 15768000;
# today minus 2 months
my $time=`date +%s` - 5256000;
my $code="5.1.1";
# things we might remove:
......@@ -19,7 +21,6 @@ if ( ! $ARGV[0] ) {
exit 1;
}
my $target = $ARGV[0];
print "$target\n";
open(LISTDUMP, "$listsql|") or die "cannot get dump of address+bounce pairs from database\n";
......@@ -40,6 +41,7 @@ while (<LISTDUMP>) {
# hash, key is list, value is number of subscriber
#$domcount{$list}++;
if ( $firstbounce < $time && $bouncecode eq $code && $bouncescore > $score) {
#if ( $bouncecode eq $code) {
print "$address $firstbounce $lastbounce $bouncescore $bouncecode\n";
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment