diff options
Diffstat (limited to 'framework/src/suricata/contrib/file_processor/Processor/Anubis.pm')
-rw-r--r-- | framework/src/suricata/contrib/file_processor/Processor/Anubis.pm | 33 |
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 |