#!/usr/bin/perl -w

use strict;

use lib './lib';
use Data::Dumper;
use Iodef::Pb::Simple;
use Iodef::Pb::Format;

my $x = Iodef::Pb::Simple->new({
    service => "ssh",
    protocol    => 'tcp',
    portlist    => '22',
    contact => 'Wes Young',
    id      => '1234',
    address => '1.1.1.1',
    prefix  => '1.1.1.0/24',
    asn     => 'AS1234',
    cc      => 'US',
    assessment  => 'botnet',
    confidence  => '50',
    restriction     => 'private',
    method          => 'http://www.virustotal.com/analisis/02da4d701931b1b00703419a34313d41938e5bd22d336186e65ea1b8a6bfbf1d-1280410372',
    #Malware     => '/tmp/malware_test',
    additional_data1            => "12354 bytes",
    additional_data1_meaning    => 'packet size',
    additional_data2            => "12211 bytes",
    additional_data2_meaning    => "packet size",
    guid    => 'everyone',
    
});

#warn ::Dumper($x);
my $f = Iodef::Pb::Format->new({
    config => "/home/wes/.cifv1",
    plugin  => 'Raw',
    data    => $x,
});

warn ::Dumper($f);
    

#my $str = $x->encode();
#warn Dumper($x);
#warn Dumper(IODEFDocumentType->decode($str));
#warn $str;