1 #!/usr/bin/env perl

     2 

     3 # This program is free software: you can redistribute it and/or modify

     4 # it under the terms of the GNU General Public License as published by

     5 # the Free Software Foundation, either version 3 of the License, or

     6 # (at your option) any later version.

     7 #

     8 # This program is distributed in the hope that it will be useful,

     9 # but WITHOUT ANY WARRANTY; without even the implied warranty of

    10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    11 # GNU General Public License for more details.

    12 #

    13 # You should have received a copy of the GNU General Public License

    14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

    15 

    16 use Mojo::Base -strict;

    17 

    18 use lib 'lib';

    19 use CrashTest::Storage::Sql;

    20 use Mojo::JSON;

    21 use Mojo::Util qw(decode slurp);

    22 use File::Basename;

    23 

    24 sub load_config {

    25     my ($file) = @_;

    26     my $code = decode('UTF-8', slurp $file);

    27     return eval($code);

    28 }

    29 

    30 my $config = load_config("CrashTest.conf");

    31 

    32 eval "require $config->{Storage}->{Type}";

    33 my $storage = $config->{Storage}->{Type}->new($config->{Storage});

    34 

    35 

    36 foreach my $arg (@ARGV) {

    37     my $json = Mojo::JSON->new();

    38     my $pjson = $json->decode(slurp $arg);

    39 

    40     my($filename, $dirs, $suffix) = fileparse($arg, qr/\.[^.]*/);

    41 

    42     my $uuid = $filename;

    43     $storage->_db_insert_processed_data($uuid, $pjson);

    44 }