onetipp - Framework - ServerManager - SOURCE CODE

#! /usr/bin/perl

#
# Author: Sebastian Enger, M.Sc.
# Date: 4/12/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Server Manager is creating training tasks in on https://tech.onetipp.net/task.php for Client Slaves
# Version: 0.1.8
#
use strict;
use DBI;
use DBD::mysql;
use Crypt::Digest::SHA512;
use Digest::MD5 qw(md5 md5_hex md5_base64);
#  use Hash::Ordered;
use LWP::UserAgent; 

#use IPC::Run qw( start pump finish timeout run);
use Data::Dumper;
use Lingua::DE::Wortschatz ':all'; 
#use Lingua::EN::Fathom;
#use Lingua::Sentence;
use Text::ParseWords;
#use MongoDB;
#use MongoDB::OID;
use Mango;

use Encode qw/from_to/;
use Encode::Encoder qw(encoder);

use constant VERSION 	=> "0.1.8";

# http://search.cpan.org/dist/WordNet-Similarity/
# http://search.cpan.org/~burak/Lingua-Any-Numbers-0.45/lib/Lingua/Any/Numbers.pm
# http://search.cpan.org/dist/MongoDB/lib/MongoDB/Tutorial.pod
# http://www.s-anand.net/blog/splitting-a-sentence-into-words/

#my $splitter 			= Lingua::Sentence->new("de");
my $sha512 				= Crypt::Digest::SHA512->new();
#my $mongo 				= MongoDB::MongoClient->new();

my $mango 				= Mango->new('mongodb://localhost:27017');
my $mongo   			= $mango->db('servermanagement')->collection('traintexts');

#my $db 					= $mongo->get_database('servermanagement');
#my $trainDB				= $db->get_collection('traintexts');

#DATA SOURCE NAME
my $dsn 				= "dbi:mysql:onetipp:localhost:3306";

... [truncated, 472 more lines] ...