onetipp - Framework - ClientManager - SOURCE CODE

#! /usr/bin/perl

#
# Author: Sebastian Enger, M.Sc.
# Date: 4/17/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Client Manager is getting work task from https://tech.onetipp.net/task.php for processing in Docker Image
# Version: 0.1.8
# UPDATE `servermanagement` SET `done`= "0" WHERE `done` = 1
###system("clear");

use strict;
use utf8;   # wichtig;
use sigtrap qw(die untrapped normal-signals stack-trace any error-signals);
use Crypt::Digest::SHA512;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use LWP::UserAgent; 
use HTTP::Request::Common;

use Data::Dumper;
use Tie::File::AsHash;
use XML::Simple;
use Proc::Background;
use File::Path 'make_path';
use File::Basename;
use File::Copy;
use Cwd 'abs_path';
 
use HTML::Entities;
use Parallel::ForkManager;
use Term::ProgressBar; 
 
use constant HOME 			=> "https://tech.onetipp.net/task.php";
use constant VERSION 		=> "0.1.8";
use constant UPDATETIME 	=> 900; # max run each update process 15 minutes
use constant SCRIPT 		=> abs_path($0);
use constant MAX_PROCESSES 	=> 1;

use constant TRAIN 			=> "/var/tmp/onetipp/train.py";
use constant SAMPLE 		=> "/var/tmp/onetipp/sample.py";
use constant LIBRARY		=> "/var/tmp/onetipp/CharRNN.py";

use constant HOME_DIR		=> "/var/tmp/onetipp";
use constant DEEP_CV		=> "/var/tmp/onetipp/cv";
use constant DEEP_DATA		=> "/var/tmp/onetipp/data";
use constant TMP			=> "/var/tmp";

my $fs 	= HOME_DIR;
system("rm -rf $fs"); # Debug

... [truncated, 587 more lines] ...