equal
deleted
inserted
replaced
14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
15 |
15 |
16 use Mojo::Base -strict; |
16 use Mojo::Base -strict; |
17 use lib 'lib'; |
17 use lib 'lib'; |
18 |
18 |
19 use Mojo::JSON; |
19 use Mojo::JSON qw/decode_json/; |
20 use Mojo::Util qw(decode slurp); |
20 use Mojo::Util qw/decode slurp/; |
21 use Mojo::Loader; |
21 use Mojo::Loader; |
22 use File::Basename; |
22 use File::Basename; |
23 use Mojolicious; |
23 use Mojolicious; |
24 use Mojo::Home; |
24 use Mojo::Home; |
25 |
25 |
45 } |
45 } |
46 |
46 |
47 my $storage = $storage_class->new(config => $config->{Storage}); |
47 my $storage = $storage_class->new(config => $config->{Storage}); |
48 |
48 |
49 foreach my $arg (@ARGV) { |
49 foreach my $arg (@ARGV) { |
50 my $json = Mojo::JSON->new(); |
50 my $pjson = decode_json(slurp $arg); |
51 my $pjson = $json->decode(slurp $arg); |
|
52 |
51 |
53 my($filename, $dirs, $suffix) = fileparse($arg, qr/\.[^.]*/); |
52 my($filename, $dirs, $suffix) = fileparse($arg, qr/\.[^.]*/); |
54 |
53 |
55 my $uuid = $filename; |
54 my $uuid = $filename; |
56 $storage->_db_insert_processed_data($uuid, $pjson); |
55 $storage->_db_insert_processed_data($uuid, $pjson); |