aboutsummaryrefslogtreecommitdiffstats
path: root/framework/src/suricata/contrib/file_processor/Processor/Anubis.pm
diff options
context:
space:
mode:
Diffstat (limited to 'framework/src/suricata/contrib/file_processor/Processor/Anubis.pm')
-rw-r--r--framework/src/suricata/contrib/file_processor/Processor/Anubis.pm33
1 files changed, 0 insertions, 33 deletions
diff --git a/framework/src/suricata/contrib/file_processor/Processor/Anubis.pm b/framework/src/suricata/contrib/file_processor/Processor/Anubis.pm
deleted file mode 100644
index 6cdabb8d..00000000
--- a/framework/src/suricata/contrib/file_processor/Processor/Anubis.pm
+++ /dev/null
@@ -1,33 +0,0 @@
-package Processor::Anubis;
-use Moose;
-extends 'Processor';
-use Data::Dumper;
-use LWP::UserAgent;
-
-has 'md5' => (is => 'ro', isa => 'Str', required => 1);
-has 'ua' => (is => 'rw', isa => 'LWP::UserAgent', required => 1, default => sub { return LWP::UserAgent->new(agent => 'Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:10.0.1) Gecko/20100101 Firefox/10.0.1'); });
-has 'url_template' => (is => 'ro', isa => 'Str', required => 1, default => 'http://anubis.iseclab.org/?action=result&task_id=%s');
-sub name { 'Anubis' }
-sub description { 'Processor for anubis.iseclab.org' }
-
-sub process {
- my $self = shift;
- my $url = sprintf($self->url_template, $self->md5);
- $self->log->debug('Getting url ' . $url);
- my $response = $self->ua->get($url);
- #$self->log->debug(Dumper($response));
- if ($response->code eq 200){
- if ($response->decoded_content =~ /Invalid Task ID/){
- $self->log->debug('No result');
- return 0;
- }
- $self->log->info('Got result');
- return $url;
- }
- else {
- $self->log->debug('Communications failure: ' . Dumper($response));
- return 0;
- }
-}
-
-1 \ No newline at end of file