Mercurial > hg > maltfilter

comparison maltfilter @ 74:e8fbe7cd65a7 maltfilter-0.17.1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
v0.17.1
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 27 Aug 2009 00:32:44 +0300
parents adb4795f451e
children 4769aad8bd14
comparison
equal deleted inserted replaced
73:5d722da1392b 74:e8fbe7cd65a7
10 use Date::Parse; 10 use Date::Parse;
11 use Net::IP; 11 use Net::IP;
12 use Net::DNS; 12 use Net::DNS;
13 use LWP::UserAgent; 13 use LWP::UserAgent;
14 14
15 my $progversion = "0.17.0"; 15 my $progversion = "0.17.1";
16 my $progbanner = 16 my $progbanner =
17 "Malicious Attack Livid Termination Filter daemon (maltfilter) v$progversion\n". 17 "Malicious Attack Livid Termination Filter daemon (maltfilter) v$progversion\n".
18 "Programmed by Matti 'ccr' Hamalainen <ccr\@tnsp.org>\n". 18 "Programmed by Matti 'ccr' Hamalainen <ccr\@tnsp.org>\n".
19 "(C) Copyright 2009 Tecnic Software productions (TNSP)\n"; 19 "(C) Copyright 2009 Tecnic Software productions (TNSP)\n";
20 20
531 # Create submission data 531 # Create submission data
532 my $xml = "<?xml version=\"1.0\"?>\n<request key=\"".$settings{"DRONEBL_RPC_KEY"}."\">\n"; 532 my $xml = "<?xml version=\"1.0\"?>\n<request key=\"".$settings{"DRONEBL_RPC_KEY"}."\">\n";
533 my $entries = 0; 533 my $entries = 0;
534 while (my ($ip, $entry) = each(%dronebl)) { 534 while (my ($ip, $entry) = each(%dronebl)) {
535 if ($entry->{"sent"} == 0 && $entry->{"tries"} < 3) { 535 if ($entry->{"sent"} == 0 && $entry->{"tries"} < 3) {
536 $xml .= "<add ip=\"".$ip."\" type=\"".$entry->{"type"}."\" />\n"; 536 # $xml .= "<add ip=\"".$ip."\" type=\"".$entry->{"type"}."\" />\n";
537 # $xml .= "<add ip=\"".$ip."\" type=\"1\" />\n"; 537 $xml .= "<add ip=\"".$ip."\" type=\"1\" />\n";
538 $entries++; 538 $entries++;
539 } 539 }
540 } 540 }
541 $xml .= "</request>\n"; 541 $xml .= "</request>\n";
542 542