Permalink
Browse files

get sources from BGP Ranking database

  • Loading branch information...
1 parent 7071bf1 commit 84783da62441c9331a6312a3a29eade80499562e @Rafiot Rafiot committed with adulau May 13, 2011
Showing with 3 additions and 10 deletions.
  1. +3 −10 bin/getranking.pl
View
@@ -47,16 +47,6 @@
my $yesterday = $date[0] . "-" . $date[1] . "-" . $date[2];
-my @Source = (
- "ZeustrackerIpBlockList", "URLQuery",
- "MalwareDomainListIP", "DshieldDaily",
- "DshieldTopIPs", "SpyeyetrackerIpBlockList",
- "AmadaIpBlockList", "BlocklistDeSsh",
- "BlocklistDeMail", "BlocklistDeApache",
- "BlocklistDePop3", "BlocklistDeFtp",
- "SshblBase"
-);
-
my $r = Redis->new( server => $redisbgpranking );
$r->select("6");
my $rc = Redis->new( server => $rediscaching );
@@ -107,6 +97,9 @@ sub fetchASN {
my $total = 1;
my $sourcetotal = 1;
my $sourceview = 0;
+ $r->select("5");
+ my @Source = $r->smembers( $yesterday . "|sources" );
+ $r->select("6");
foreach my $lsource (@Source) {
my $key = $asn . "|" . $yesterday . "|" . $lsource . "|rankv4";

0 comments on commit 84783da

Please sign in to comment.