X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fprocessaction.cgi;h=f5ef9c66d4ac81f414f2fd38a5301b8ad981d8b0;hb=fb0ec106a8deca35bebe0713ecd45b37fc41670c;hp=539572e684da5cb7bc4680fcdee6639bb50c8b5f;hpb=e80b69bc05be9f38b1e4b9af37f3232f5004f5e4;p=clearscm.git diff --git a/maps/bin/processaction.cgi b/maps/bin/processaction.cgi index 539572e..f5ef9c6 100755 --- a/maps/bin/processaction.cgi +++ b/maps/bin/processaction.cgi @@ -40,16 +40,12 @@ sub ReturnSequenceNbrs { my @names = param; my @sequence_nbrs; - Debug "Entered ReturnSequenceNbrs"; - foreach (@names) { if (/action(\d+)/) { push @sequence_nbrs, $1; } # if } # foreach - Debug "Returning sequence nbrs " . join ' ', @sequence_nbrs; - return @sequence_nbrs; } # ReturnSequenceNbrs @@ -93,7 +89,7 @@ sub PrintInputLine ($$$$$) { ($pattern, $domain) = split /\@/, $email; } # if - $hit_count = param "hit_count$email_nbr"; + $hit_count = CountMsg $email; } # if print Tr [