--- a/bin/gearman_decode_worker.pl Sat Feb 20 18:54:57 2016 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,69 +0,0 @@
-#!/usr/bin/env perl
-
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-use Mojo::Base -strict;
-use lib 'lib';
-
-use Mojo::JSON qw/decode_json/;
-use Mojo::Util qw/decode slurp/;
-use Mojo::Loader qw/load_class/;
-use File::Temp;
-use Gearman::Worker;
-use Mojolicious;
-use Mojo::Home;
-
-sub load_config {
- my $app = Mojolicious->new;
- $app->home(Mojo::Home->new("$FindBin::Bin/../"));
- $app->moniker("CrashTest");
- return $app->plugin('Config');
-}
-
-my $config = load_config();
-
-my $storage_class = $config->{Storage}->{Type};
-if (my $e = load_class($storage_class)) {
- die ref $e ? "Exception: $e" : 'Not found!';
-}
-
-my $storage = $storage_class->new(config => $config->{Storage});
-
-my $worker = Gearman::Worker->new(job_servers => $config->{DecodeQueue}->{GearmanServers});
-
-$worker->register_function("dump_decode", 60, sub {
- my $args = $_[0]->arg;
-
- my $jsonin = decode_json($args);
-
- my $file = File::Temp->new();
- binmode($file);
- print $file $jsonin->{file};
-
- my $cmd = $config->{Dumper}->{JSONStackwalker} . " " . $file->filename . " " . $config->{Dumper}->{SymbolsPath};
- my $out = qx($cmd 2>/dev/null) or die $!;
-
- my $pjson = $json->decode($out);
-
- # Create json for the params
- $pjson->{client_info} = $jsonin->{params};
-
- my $uuidstr = $jsonin->{uuid};
- $storage->store_dump($uuidstr, slurp $file);
- $storage->store_processed_data($uuidstr, $pjson);
-
- return $json->encode($pjson);
-});
-
-$worker->work() while 1;