update for new criteria

tools/findoldbounce

@@ -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";
     }
   }