Initial Arctica Core Commit

4 files changed, 801 insertions, 0 deletions

diff --git a/lib/Arctica/Core/Basics.pm b/lib/Arctica/Core/Basics.pm
new file mode 100644
index 0000000..54bf052
--- /dev/null
+++ b/lib/Arctica/Core/Basics.pm
@@ -0,0 +1,229 @@
+################################################################################
+#          _____ _
+#         |_   _| |_  ___
+#           | | | ' \/ -_)
+#           |_| |_||_\___|
+#                   _   _             ____            _           _
+#    / \   _ __ ___| |_(_) ___ __ _  |  _ \ _ __ ___ (_) ___  ___| |_
+#   / _ \ | '__/ __| __| |/ __/ _` | | |_) | '__/ _ \| |/ _ \/ __| __|
+#  / ___ \| | | (__| |_| | (_| (_| | |  __/| | | (_) | |  __/ (__| |_
+# /_/   \_\_|  \___|\__|_|\___\__,_| |_|   |_|  \___// |\___|\___|\__|
+#                                                  |__/
+#          The Arctica Modular Remote Computing Framework
+#
+################################################################################
+#
+# Copyright (C) 2015-2016 The Arctica Project 
+# http://http://arctica-project.org/
+#
+# This code is dual licensed: strictly GPL-2 or AGPL-3+
+#
+# GPL-2
+# -----
+# 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; version 2 of the License.
+#
+# 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, write to the
+# Free Software Foundation, Inc.,
+#
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# AGPL-3+
+# -------
+# This programm is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This programm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program; if not, write to the
+# Free Software Foundation, Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# Copyright (C) 2015-2016 Guangzhou Nianguan Electronics Technology Co.Ltd.
+#                         <opensource@gznianguan.com>
+# Copyright (C) 2015-2016 Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
+#
+################################################################################
+package Arctica::Core::Basics;
+use strict;
+use Exporter qw(import);
+use Data::Dumper;# Remove this before release! (unless we're still depending on it.)
+# Be very selective about what (if any) gets exported by default:
+our @EXPORT = qw(genARandom);
+# And be mindfull of what we lett the caller request here too:
+our @EXPORT_OK = qw( aex_initNameClassVersion arcticaAArt );
+
+sub aex_initNameClassVersion {
+	my $Input = $_[0];
+	my %NVC;
+	if ($Input->{'app_name'} =~ /^([a-z0-9\_\-]*)$/) {
+		$NVC{'app_name'} = $1;
+	} else {
+		$NVC{'app_name'} = "noname";
+	}
+	# At some point maybe check if the app_class is known,
+	# if it has some initiation routines we'd want to do...
+	# ...and if there is... do them!
+	if ($Input->{'app_class'} =~ /^(aclient)$/) {# HEY!!! DUDE FIX THIS SOON!!!!
+		$NVC{'app_class'} = $1;
+	} else {
+		$NVC{'app_class'} = "noclass";# YEAH, SERIOUSLY! WE GOT NO...!?!
+	}
+
+	if ($Input->{'app_version'} =~ /^(\d{1,}\.\d{1,}\.\d{1,}\.\d{1,})$/) {
+		$NVC{'app_version'} = $1;
+	} else {
+		$NVC{'app_version'} = "0.0.0.0";#LAZY DEV FORGOT VERSION DECL!?!
+	}
+	
+	($NVC{'self_aID'},$NVC{'parent_aID'}) = setncycle_parent_aid($NVC{'app_name'} );
+
+	return %NVC;
+}
+
+sub setncycle_parent_aid {
+	my $in_app_name = $_[0];
+	my $ret_parent_aid = 0;
+	if ($ENV{'A_PARENT_AID'} =~ /^([a-zA-Z0-9\_\-]*)$/) {
+		$ret_parent_aid = $1;
+	}
+
+	my $new_random_id = genARandom('id',32);
+	my $ret_self_aid = "$in_app_name\_$new_random_id";
+
+	$ENV{'A_SELF_AID'} = $ret_self_aid;
+	$ENV{'A_PARENT_AID'} = $ENV{'A_SELF_AID'};# So that our children may know our aID!
+
+	return ($ret_self_aid, $ret_parent_aid);
+}
+
+sub genARandom {
+	my $in_type = lc($_[0]);
+	my $in_length = $_[1];
+	$in_length =~ s/\D//g;
+	if ($in_type eq "id") {
+		if ($in_length =~ /^(\d{1,})$/) {
+			$in_length = $1;
+			if ($in_length < 16) {
+				$in_length = 16;
+			} elsif ($in_length > 64) {
+				$in_length = 64;
+			}
+		} else {
+			$in_length = 32;
+		}
+		srand();
+		my $time = time();
+		my @p_chars = ('a'..'z','A'..'Z');
+		my $r_lenght = ($in_length - length($time));
+		my $r_string;
+		for (my $i=0; $i<$r_lenght; $i++) {
+			$r_string .= $p_chars[int(rand($#p_chars + 1))];
+		}
+		return "$time$r_string";
+		
+	} elsif ($in_type eq "key") {
+		if ($in_length =~ /^(\d{1,})$/) {
+			$in_length = $1;
+			if ($in_length < 64) {
+				$in_length = 64;
+			} elsif ($in_length > 256) {
+				$in_length = 256;
+			}
+		} else {
+			$in_length = 128;
+		}
+		srand();
+		my @p_chars = ('0'..'9','a'..'z','A'..'Z');
+		my $r_lenght = $in_length;
+		my $r_string;
+		for (my $i=0; $i<$r_lenght; $i++) {
+			$r_string .= $p_chars[int(rand($#p_chars + 1))];
+		}
+		return $r_string;
+		
+	} elsif ($in_type eq "dirtail") {
+		if ($in_length =~ /^(\d{1,})$/) {
+			$in_length = $1;
+			if ($in_length < 8) {
+				$in_length = 8;
+			} elsif ($in_length > 32) {
+				$in_length = 32;
+			}
+		} else {
+			$in_length = 8;
+		}
+		srand();
+		my @p_chars = ('0'..'9','a'..'z','A'..'Z');
+		my $r_lenght = $in_length;
+		my $r_string;
+		for (my $i=0; $i<$r_lenght; $i++) {
+			$r_string .= $p_chars[int(rand($#p_chars + 1))];
+		}
+		return $r_string;
+		
+	} else {
+		die("INVALID RANDOM TYPE?");
+	}
+}
+
+
+sub arcticaAArt {
+	# VERY CLUMSY... I KNOW.... THIS WAS DONE IN ZZZZZzzzzZZZZZZ MODE
+	my $finalAArt;
+	my $termwidth = 80;#keep this FIXED at 80!?
+	my $boxIt = 0;
+	my $baseAArt;
+	$baseAArt .= "         _____ _\n        |_   _| |_  ___\n";
+	$baseAArt .= "          | | | ' \\/ -_)\n          |_| |_||_\\___|\n";
+	$baseAArt .= "                  _   _             ";
+	$baseAArt .= "____            _           _\n";
+	$baseAArt .= "   / \\   _ __ ___| |_(_) ___ __ _  ";
+	$baseAArt .= "|  _ \\ _ __ ___ (_) ___  ___| |_\n";
+	$baseAArt .= "  / _ \\ | '__/ __| __| |/ __/ _` | ";
+	$baseAArt .= "| |_) | '__/ _ \\| |/ _ \\/ __| __|\n";
+	$baseAArt .= " / ___ \\| | | (__| |_| | (_| (_| | ";
+	$baseAArt .= "|  __/| | | (_) | |  __/ (__| |_\n";
+	$baseAArt .= "/_/   \\_\\_|  \\___|\\__|_|\\___\\_";
+	$baseAArt .= "_,_| |_|   |_|  \\___// |\\___|\\___|\\__|\n";
+	$baseAArt .= "                                   ";
+	$baseAArt .= "              |__/\n";
+	my $baWidest = 0;
+	my @baseArt = split(/\n/,$baseAArt);
+	foreach my $baLine (@baseArt) {
+		my $bALLenght = length($baLine);
+		if ($bALLenght > $baWidest) {$baWidest = $bALLenght;}
+	}
+	my $leftPadding = (($termwidth - $baWidest)/2);
+	foreach my $baLine (@baseArt) {
+		if ($boxIt eq 1) {#$termwidth
+			$baLine =~ s/^(.*)/'#' . ' ' x ($leftPadding-1) . $1 . 
+			 ' ' x ($termwidth-(length($baLine)+($leftPadding+1))) 
+			 . '#'/ge;
+		} else {
+			$baLine =~ s/^(.*)/' ' x $leftPadding . $1/ge;
+		}
+		$finalAArt .= "$baLine\n";
+	}
+	if ($boxIt eq 1) {#$termwidth
+		$finalAArt =~ s/^(.*)/'#' x $termwidth . "\n". $1/e;
+		$finalAArt =~ s/(.*)$/$1 . "\n#" . ' ' x ($termwidth-2). 
+		 "#\n". '#' x $termwidth . "\n"/e;
+	}
+	return $finalAArt;
+}
+
+1;
diff --git a/lib/Arctica/Core/ManageDirs.pm b/lib/Arctica/Core/ManageDirs.pm
new file mode 100644
index 0000000..51d4e30
--- /dev/null
+++ b/lib/Arctica/Core/ManageDirs.pm
@@ -0,0 +1,366 @@
+################################################################################
+#          _____ _
+#         |_   _| |_  ___
+#           | | | ' \/ -_)
+#           |_| |_||_\___|
+#                   _   _             ____            _           _
+#    / \   _ __ ___| |_(_) ___ __ _  |  _ \ _ __ ___ (_) ___  ___| |_
+#   / _ \ | '__/ __| __| |/ __/ _` | | |_) | '__/ _ \| |/ _ \/ __| __|
+#  / ___ \| | | (__| |_| | (_| (_| | |  __/| | | (_) | |  __/ (__| |_
+# /_/   \_\_|  \___|\__|_|\___\__,_| |_|   |_|  \___// |\___|\___|\__|
+#                                                  |__/
+#          The Arctica Modular Remote Computing Framework
+#
+################################################################################
+#
+# Copyright (C) 2015-2016 The Arctica Project 
+# http://http://arctica-project.org/
+#
+# This code is dual licensed: strictly GPL-2 or AGPL-3+
+#
+# GPL-2
+# -----
+# 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; version 2 of the License.
+#
+# 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, write to the
+# Free Software Foundation, Inc.,
+#
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# AGPL-3+
+# -------
+# This programm is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This programm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program; if not, write to the
+# Free Software Foundation, Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# Copyright (C) 2015-2016 Guangzhou Nianguan Electronics Technology Co.Ltd.
+#                         <opensource@gznianguan.com>
+# Copyright (C) 2015-2016 Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
+#
+################################################################################
+package Arctica::Core::ManageDirs;
+use strict;
+use Exporter qw(import);
+use Arctica::Core::Basics;
+use Arctica::Core::BugOUT::Basics qw( BugOUT );
+use File::stat;
+
+use Data::Dumper;# Remove this before release! (unless we're still dependant)
+
+# Be very selective about what (if any) gets exported by default:
+our @EXPORT = qw( new check_for_rtail_dir permZealot );
+# And be mindfull of what we lett the caller request here too:
+our @EXPORT_OK = qw( );
+
+my %_CONF;
+
+
+sub new {
+	BugOUT(9,"ManageDir->new ENTER\n");
+	my $class_name = $_[0];# Be EXPLICIT!! DON'T SHIFT OR "@_";
+	my $DefaultTMP = "/tmp";# Load from Config?
+
+	my $self = {
+		isArctica => 1, # Declare that this is a Arctica "something"
+	};
+
+	if ((-d $ENV{'HOME'}) and (user_owns_it($ENV{'HOME'}))) {
+		my $check_arctica_home = "$ENV{'HOME'}/.arctica";
+		if ($check_arctica_home =~ /^(.*\/\.arctica)$/) {
+			$check_arctica_home = $1;
+		}
+
+		unless (-d $check_arctica_home) {
+			mkdir($check_arctica_home) 
+				or die("ManageDirs: Fail to create .arctica 'HOME' directory");
+		}
+
+		permZealot($check_arctica_home);
+		if (check_secure_permissions($check_arctica_home)) {
+			$self->{'home_adir'} = $check_arctica_home;
+		} else {
+			die("ManageDirs: Unable to initiate .arctica HOME dir");
+		}
+	} else {die("The user is a homeless bum...");}
+
+	if (-d $DefaultTMP) {
+
+		if (my $gotDir = check_for_rtail_dir($DefaultTMP)) {
+			# GOT DIR... LETS WORK WITH THAT....
+			if (-d "$DefaultTMP/$gotDir") {
+				BugOUT(9,"Found existing ADir: '$gotDir'");
+				$self->{'tmp_adir'} = "$DefaultTMP/$gotDir";
+			} else {
+				die("Retesting full path failed: \"$DefaultTMP/$gotDir\"");
+			}
+		} else {
+			BugOUT(9,"No ADir, lets create a new one!");
+			my $gotDir = create_new_adir($DefaultTMP);
+			if (-d "$DefaultTMP/$gotDir") {
+				BugOUT(9,"Verified creation of: '$gotDir'");
+				$self->{'tmp_adir'} = "$DefaultTMP/$gotDir";
+			} else {
+				die("Retesting full path failed: \"$DefaultTMP/$gotDir\"");
+			}
+		}
+	} else {die("No TMP? ( $DefaultTMP )");}
+
+	BugOUT(9,"ManageDir->new END\n");
+	return $self;
+}
+
+sub permZealot {
+	# IF WE CAN'T SET SECURE PERMISSIONS... DIE!
+	my $the_path = $_[0];
+	$the_path =~ s/\n//g;
+
+	if (-f $the_path) {
+		chmod(0600,$the_path) 
+			or die("permZealot: Can't set permissions on \"$the_path\"!");
+
+		unless (check_secure_permissions($the_path)) {
+			die("permZealot Can't verify permissions on \"$the_path\"!");
+		}
+		BugOUT(9,"permZealot-> set chmod 0600 for file $the_path");
+	} elsif (-d $the_path) {
+		chmod(0700,$the_path) 
+			or die("permZealot: Can't set permissions on \"$the_path\"!");
+
+		unless (check_secure_permissions($the_path)) {
+			die("permZealot: Can't verify permissions on \"$the_path\"!");
+		}
+		BugOUT(9,"permZealot-> set chmod 0600 for dir $the_path");
+	} elsif (-S $the_path) {
+		chmod(0700,$the_path) 
+			or die("permZealot: Can't set permissions on \"$the_path\"!");
+
+		unless (check_secure_permissions($the_path)) {
+			die("permZealot: Can't verify permissions on \"$the_path\"!");
+		}
+		BugOUT(9,"permZealot-> set chmod 0600 for socket $the_path");
+	} else {
+		die("permZealot: Failed to set permissions on \"$the_path\"!");
+	}
+}
+
+sub create_new_adir {
+	BugOUT(9,"Entering 'create_new_adir'");
+	my $the_tmp_dir = $_[0];
+	my $the_sanetized_username = make_sane_userdir_name();
+	my $the_random_dirtail = genARandom('dirtail',16);
+	my $potential_new_adir = ".arctica\-$the_sanetized_username\-$the_random_dirtail";
+	unless (-d "$the_tmp_dir/$potential_new_adir") {
+		mkdir("$the_tmp_dir/$potential_new_adir") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir'");
+		permZealot("$the_tmp_dir/$potential_new_adir");
+
+		mkdir("$the_tmp_dir/$potential_new_adir/cli") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/cli'");
+		permZealot("$the_tmp_dir/$potential_new_adir/cli");
+
+		mkdir("$the_tmp_dir/$potential_new_adir/ses") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/ses'");
+		permZealot("$the_tmp_dir/$potential_new_adir/ses");
+
+		mkdir("$the_tmp_dir/$potential_new_adir/con") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/con'");
+		permZealot("$the_tmp_dir/$potential_new_adir/con");
+
+		mkdir("$the_tmp_dir/$potential_new_adir/soc") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/soc'");
+		permZealot("$the_tmp_dir/$potential_new_adir/soc");
+		mkdir("$the_tmp_dir/$potential_new_adir/soc/local/") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/soc/local/'");
+		permZealot("$the_tmp_dir/$potential_new_adir/soc/local/");
+		mkdir("$the_tmp_dir/$potential_new_adir/soc/remote/") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/soc/remote/'");
+		permZealot("$the_tmp_dir/$potential_new_adir/soc/remote/");
+		mkdir("$the_tmp_dir/$potential_new_adir/soc/remote/in/") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/soc/remote/in/'");
+		permZealot("$the_tmp_dir/$potential_new_adir/soc/remote/in/");
+		mkdir("$the_tmp_dir/$potential_new_adir/soc/remote/out/") 
+			or die("Unable to create '$the_tmp_dir/$potential_new_adir/soc/remote/out/'");
+		permZealot("$the_tmp_dir/$potential_new_adir/soc/remote/out/");
+
+		BugOUT(8,"create_new_adir: all seems ok, returning '$potential_new_adir'");
+		return $potential_new_adir;
+	} else {
+		die("Realizing '$the_tmp_dir/$potential_new_adir' already exist?!");
+	}
+	
+	BugOUT(9,"Unexpected end of 'create_new_adir'");
+}
+
+sub check_for_rtail_dir {
+	my $check_in_dir = $_[0];
+	my $the_sanetized_username = make_sane_userdir_name();
+
+	if (-d $check_in_dir) {
+		my @potential_dirs;
+		my $dir_to_use;
+		opendir(CHKDIR, $check_in_dir)
+			or die("could not read \"$check_in_dir\"");
+		while (readdir(CHKDIR)) {
+			my $chk_dir = $_;
+			if (-d "$check_in_dir/$chk_dir") {
+				if ($chk_dir =~ /^\.arctica\-([a-zA-Z0-9\_]*)\-([a-zA-Z0-9]*)$/) {
+					my $d_usrname = $1;
+					my $d_rndtail = $2;
+					if ($the_sanetized_username eq $d_usrname) {
+						my $sanetized_dir_name
+							= ".arctica-$d_usrname-$d_rndtail";
+						if (user_owns_it("$check_in_dir/$sanetized_dir_name")) {
+							push @potential_dirs,
+								$sanetized_dir_name;
+						} else {
+							warn("check_for_rtail_dir: ",
+								"wonky ownership of $sanetized_dir_name");
+						}
+					}
+
+				} else {
+				# ADD SOME DEBUGGING STUFF HERE?!
+#					print "		POFS:	$_\n";
+				}
+			}
+		}
+		closedir(CHKDIR);
+		
+		my $pdircnt = @potential_dirs;
+		my $pdmtime = 0; 
+		if ($pdircnt > 0) {
+			if ($pdircnt > 1) {
+				warn("check_for_rtail_dir: more than one tmp dir?");
+			}
+			# Pick the one with highest mtime.... 
+			foreach my $pdir (@potential_dirs) {
+				$pdir =~ s/[\s\n]//g;
+				if (-d "$check_in_dir/$pdir") {
+					my $mtime = stat("$check_in_dir/$pdir")->mtime;
+					if ($mtime > $pdmtime) {
+						$pdmtime = $mtime;
+						$dir_to_use = $pdir;
+					}
+				}
+			}
+
+			if (-d "$check_in_dir/$dir_to_use") {
+				return $dir_to_use;
+			} else {
+				warn("check_for_rtail_dir: no existing dirs found!");
+				return 0;
+			}
+
+		} else {
+			warn("check_for_rtail_dir: no existing dirs found!");
+			return 0;
+		}
+		
+	} else {
+		die("rtail check fail! This is not a dir: \"$check_in_dir\"");
+	}
+}
+
+
+sub check_secure_permissions {
+	my $the_path = $_[0];
+	BugOUT(9,"check_secure_permissions for $the_path");
+	$the_path =~ s/\n//g;
+	if (user_owns_it($the_path)) {
+		my $file_stat = stat($the_path);
+		if (-f $the_path) {
+			if ($file_stat->mode ne 33152) {
+				warn("Insecure permissions for \"$the_path\" ",
+					"(",$file_stat->mode,")\n");
+				return 0;
+			} else {
+				return 1;
+			}
+
+		} elsif (-d $the_path) {
+			if ($file_stat->mode ne 16832) {
+				warn("Insecure permissions for \"$the_path\" ",
+					"(",$file_stat->mode,")\n");
+				return 0;
+			} else {
+				return 1;
+			}
+
+		} elsif (-S $the_path) {
+			if ($file_stat->mode ne 49600) {
+				warn("Insecure permissions for \"$the_path\" ",
+					"(",$file_stat->mode,")\n");
+				return 0;
+			} else {
+				return 1;
+			}
+
+		} else {
+			warn("Failed to check permissions for \"$the_path\"!");
+			return 0;
+		}
+	} else {
+		return 0;
+	}
+}
+
+sub user_owns_it {
+	my $the_path = $_[0];
+	$the_path =~ s/\n//g;
+	BugOUT(9,"check user_owns_it $the_path");
+	my $the_user = $_[1];
+	if (-e $the_path) {
+		unless ($the_user) {
+			$the_user = $ENV{'USER'};
+		}
+		
+		my $file_stat = stat($the_path);
+		if (getpwuid($file_stat->uid) eq $the_user) {
+			return 1;
+
+		} else {
+			warn("user_owns_it, $the_path is owned by ",
+				getpwuid($file_stat->uid)," not $the_user !\n");
+			return 0;
+
+		}
+
+	} else {
+		warn("user_owns_it, can't find: $the_path !\n");
+		return 0;
+	}
+}
+
+
+sub make_sane_userdir_name {
+	my $name = $ENV{'USER'};
+	BugOUT(9,"make_sane_userdir_name for '$name'");
+	$name =~ s/([^a-zA-Z0-9])/sprintf("_%x",ord($1))/egi;
+	if ($name =~ /^([a-zA-Z0-9\_]*)$/) {
+		$name = $1;
+		return $name;
+	} else {
+		die("make_sane_userdir_name: sanitation of '$ENV{'USER'}/$name' FAILED!");
+	}
+}
+
+1;
diff --git a/lib/Arctica/Core/Version.pm b/lib/Arctica/Core/Version.pm
new file mode 100644
index 0000000..77bc83d
--- /dev/null
+++ b/lib/Arctica/Core/Version.pm
@@ -0,0 +1,65 @@
+################################################################################
+#          _____ _
+#         |_   _| |_  ___
+#           | | | ' \/ -_)
+#           |_| |_||_\___|
+#                   _   _             ____            _           _
+#    / \   _ __ ___| |_(_) ___ __ _  |  _ \ _ __ ___ (_) ___  ___| |_
+#   / _ \ | '__/ __| __| |/ __/ _` | | |_) | '__/ _ \| |/ _ \/ __| __|
+#  / ___ \| | | (__| |_| | (_| (_| | |  __/| | | (_) | |  __/ (__| |_
+# /_/   \_\_|  \___|\__|_|\___\__,_| |_|   |_|  \___// |\___|\___|\__|
+#                                                  |__/
+#          The Arctica Modular Remote Computing Framework
+#
+################################################################################
+#
+# Copyright (C) 2015-2016 The Arctica Project 
+# http://http://arctica-project.org/
+#
+# This code is dual licensed: strictly GPL-2 or AGPL-3+
+#
+# GPL-2
+# -----
+# 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; version 2 of the License.
+#
+# 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, write to the
+# Free Software Foundation, Inc.,
+#
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# AGPL-3+
+# -------
+# This programm is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This programm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program; if not, write to the
+# Free Software Foundation, Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# Copyright (C) 2015-2016 Guangzhou Nianguan Electronics Technology Co.Ltd.
+#                         <opensource@gznianguan.com>
+# Copyright (C) 2015-2016 Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
+#
+################################################################################
+package Arctica::Core::Version;
+use strict;
+
+use vars qw[$VERSION];
+
+$VERSION              = '0.0.0.1';
diff --git a/lib/Arctica/Core/eventInit.pm b/lib/Arctica/Core/eventInit.pm
new file mode 100644
index 0000000..c7e7b65
--- /dev/null
+++ b/lib/Arctica/Core/eventInit.pm
@@ -0,0 +1,141 @@
+################################################################################
+#          _____ _
+#         |_   _| |_  ___
+#           | | | ' \/ -_)
+#           |_| |_||_\___|
+#                   _   _             ____            _           _
+#    / \   _ __ ___| |_(_) ___ __ _  |  _ \ _ __ ___ (_) ___  ___| |_
+#   / _ \ | '__/ __| __| |/ __/ _` | | |_) | '__/ _ \| |/ _ \/ __| __|
+#  / ___ \| | | (__| |_| | (_| (_| | |  __/| | | (_) | |  __/ (__| |_
+# /_/   \_\_|  \___|\__|_|\___\__,_| |_|   |_|  \___// |\___|\___|\__|
+#                                                  |__/
+#          The Arctica Modular Remote Computing Framework
+#
+################################################################################
+#
+# Copyright (C) 2015-2016 The Arctica Project 
+# http://http://arctica-project.org/
+#
+# This code is dual licensed: strictly GPL-2 or AGPL-3+
+#
+# GPL-2
+# -----
+# 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; version 2 of the License.
+#
+# 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, write to the
+# Free Software Foundation, Inc.,
+#
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# AGPL-3+
+# -------
+# This programm is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This programm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program; if not, write to the
+# Free Software Foundation, Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# Copyright (C) 2015-2016 Guangzhou Nianguan Electronics Technology Co.Ltd.
+#                         <opensource@gznianguan.com>
+# Copyright (C) 2015-2016 Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
+#
+################################################################################
+package Arctica::Core::eventInit;
+use strict;
+use Exporter qw(import);
+use Arctica::Core::Basics qw( aex_initNameClassVersion genARandom arcticaAArt);
+use Arctica::Core::BugOUT::Basics qw( BugOUT bugOutCfg BugOUT_dumpObjects );
+use Arctica::Core::ManageDirs;
+use Data::Dumper;
+use Glib 'TRUE', 'FALSE';
+# Be very selective about what (if any) gets exported by default:
+our @EXPORT = qw();
+# And be mindfull of what we lett the caller request too:
+our @EXPORT_OK = qw( genARandom BugOUT BugOUT_dumpObjects );
+
+$ENV{'PATH'} = "";
+my $SELF;
+
+sub new {
+	unless ($SELF) {
+		my ($className,$theRest) = @_;
+		my $ACF_self = {	
+			dummydata => {
+				somevalue	=> 12,
+				otherinfo	=> "The Other INFO!",
+			},
+			isArctica => 1,
+		};
+
+		$ACF_self->{'AExecDeclaration'} = {
+					aex_initNameClassVersion($theRest)};
+		$ACF_self->{'BugOUT'} = Arctica::Core::BugOUT::Basics->new({
+				'aexid' => $ACF_self->{'AExecDeclaration'}{'self_aID'},
+			});
+#		bugOutCfg(undef,'set','aexid',$ACF_self->{'AExecDeclaration'}{'self_aID'});
+		$ACF_self->{'a_dirs'} = Arctica::Core::ManageDirs->new();
+		BugOUT_dumpObjects($ACF_self);
+		# pick one of the above.... DONT KEEP BOTH!!
+
+		$ACF_self->{'Glib'}{'MainLoop'} = Glib::MainLoop->new;
+		bless ($ACF_self, $className);
+
+		# DO SOMETHING ELSE TO TIE INDIVIDUAL SIGNALS TO RESPECTIVE FUNCTIONS
+		@SIG{qw( INT TERM HUP )} = sub {doSelfTerminate($_[0],$ACF_self);};
+		$SELF = \$ACF_self;
+		return $ACF_self;
+	} else {
+		die("Don't initiate ACF more than once!");
+	}
+}
+
+sub append_aobject {
+	my $aco = $_[0];
+	my $to_append = $_[1];
+	if ($to_append->{'isArctica'} and $to_append->{'aobject_name'}) {
+		unless ($aco->{$to_append->{'aobject_name'}}) {
+			$aco->{$to_append->{'aobject_name'}} = $to_append;
+		} else {
+			die "Dont append an Arctica object more than once!";
+		}
+	} else {
+		die "Not an arctica object?!";
+	}
+}
+
+
+sub return_self {
+	return  $SELF;
+}
+
+
+################################################################################
+# This sub, should try to clean things up as much as posible.
+sub doSelfTerminate {
+	my $signal = $_[0];
+	my $ACF_self = $_[1];
+	BugOUT(2,"Self Terminating... ($signal)");
+	$ACF_self->{'Glib'}{'MainLoop'}->quit;
+	return 0; 
+}
+# THE END
+################################################################################
+
+1;