Initial BugOUT Commit

2 files changed, 297 insertions, 0 deletions

diff --git a/lib/Arctica/Core/BugOUT/Basics.pm b/lib/Arctica/Core/BugOUT/Basics.pm
new file mode 100644
index 0000000..8a81859
--- /dev/null
+++ b/lib/Arctica/Core/BugOUT/Basics.pm
@@ -0,0 +1,232 @@
+################################################################################
+#          _____ _
+#         |_   _| |_  ___
+#           | | | ' \/ -_)
+#           |_| |_||_\___|
+#                   _   _             ____            _           _
+#    / \   _ __ ___| |_(_) ___ __ _  |  _ \ _ __ ___ (_) ___  ___| |_
+#   / _ \ | '__/ __| __| |/ __/ _` | | |_) | '__/ _ \| |/ _ \/ __| __|
+#  / ___ \| | | (__| |_| | (_| (_| | |  __/| | | (_) | |  __/ (__| |_
+# /_/   \_\_|  \___|\__|_|\___\__,_| |_|   |_|  \___// |\___|\___|\__|
+#                                                  |__/
+#          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::BugOUT::Basics;
+use strict;
+use Exporter qw(import);
+use Data::Dumper;
+# Be very selective about what (if any) gets exported by default:
+our @EXPORT = qw(genRandID);
+# And be mindfull of what we lett the caller request here too:
+our @EXPORT_OK = qw( BugOUT bugOutCfg BugOUT_dumpObjects);
+
+
+
+my %bugOutCfg = (
+	'bug_level' => 9,
+	'log_target' => 'stderr',
+	'dev_mode' => 0,
+	'live_stream' => 1,
+	'active' => 0,
+	'aexid' => 0,
+);
+
+sub new {
+	my ($className,$options) = @_;
+#print "<<<<<<<<< NEW BUG: $options->{'aexid'}\n";
+	my $BugOUT_self = {	
+		dummydata => {
+			somevalue	=> 123,
+			otherinfo	=> "The Other INFO!",
+		},
+		_conf => \%bugOutCfg,
+		isArctica => 1, # Declare that this is a Arctic "something" 
+	};
+	
+	bless ($BugOUT_self, $className);
+	bugOutCfg(undef,'set','aexid',$options->{'aexid'});
+	bugOutCfg(undef,'set','log_target','stdquiet');
+	bugOutCfg(undef,'set','active',1);
+	
+	BugOUT(8,"Initiating DEBUGGER...");
+	# DO SOMETHING ELSE TO TIE INDIVIDUAL SIGNALS TO RESPECTIVE FUNCTIONS
+	# Probably Make a SIG SET sub at some point....
+	$SIG{__WARN__} = sub {BugOUT(1,$_[0]);};
+	$SIG{__DIE__} = sub {BugOUT(0,$_[0]);};
+
+	return $BugOUT_self;
+}
+
+sub BugOUT_dumpObjects {
+# TMP function, will be replaced soon!
+	my $theObj = $_[0];
+	if ($theObj) {
+		if ($bugOutCfg{'aexid'} =~ /^([a-zA-Z0-9\_\-]{16,})$/) {
+			my $progid = $1;
+			unless (-d "/tmp/arctica_BugOUT") {
+				mkdir("/tmp/arctica_BugOUT") or BugOUT(1,"Unable to create /tmp/arctica_BugOUT");
+			}
+	
+			if  (-d "/tmp/arctica_BugOUT") {
+				my $timeout = Glib::Timeout->add(2000, 
+				sub {
+					open(DUMP,">/tmp/arctica_BugOUT/$progid.otdmp");
+					print DUMP time,"\n",Dumper($theObj);
+					close(DUMP);		
+				} );
+			}
+		}
+		return 1;
+	} else {return 0;}
+}
+
+sub BugOUT {
+	my $bug_level = $_[0];
+	my $bugText = $_[1];
+	my $bugCode = $_[2];
+	if ($bugCode) {# Primarily overdone to keep from warn when warn...
+		$bugCode =~ s/\D//g;
+		if ($bugCode =~ /^(\d{1,})$/) {
+			$bugCode = $1;
+		} else {
+			$bugCode = 0;
+		}
+	} else {
+		$bugCode = 0;
+	}
+	$bug_level =~ s/\D//g;
+	if ($bug_level =~ /^(\d)$/) {
+		$bug_level = $1;
+		my $logLine;
+		if ($bug_level <= $bugOutCfg{'bug_level'}) {
+			$bugText =~ s/\n//g;
+			my $bugTime;
+			if ($bugOutCfg{'bug_level'} eq 1) {
+				$bugTime = time();#replace this with high resolution time!
+			} else {
+				$bugTime = time();
+			}
+			my $progid = 0;
+			if ($bugOutCfg{'aexid'} =~ /^([a-zA-Z0-9\_\-]{16,})$/) {
+				$progid = $1;
+			}
+			$logLine = "$bugTime;$progid;$bug_level;$bugCode;$bugText";
+			$logLine =~ s/\n//g;
+
+			if (1 eq 2) {
+			} elsif ($bugOutCfg{'log_target'} eq "stderr") {
+				print STDERR "BUGOUT:$logLine\n";
+			} elsif ($bugOutCfg{'log_target'} eq "stdout") {
+				print STDOUT "BUGOUT:$logLine\n";
+			} elsif ($bugOutCfg{'log_target'} eq "stdquiet") {
+				# DO NOTHING!
+			}
+
+			if ($bugOutCfg{'live_stream'} eq 1) {
+				# COPY TO LIVE VIEW
+				open(TMP,">>/tmp/arctica.log");#dirty FIX THIS!
+				print TMP "$logLine\n";
+				close(TMP);
+			}
+		}
+		if ($bug_level eq 0) {
+			exit 0;
+		}
+	}
+	return 1;
+}
+
+sub bugOutCfg {
+	# WONKY PLACE KEEPER...
+	# WILL BE REPALCED WITH GENERIC CONFIG ROUTINE
+	# and when we do, we'll be more purlish...
+	my $action = $_[1];
+	my $valueName = $_[2];
+	my $theValue = $_[3];
+	if ($action eq "get") {
+		if ($bugOutCfg{$valueName} ne '') {
+			return $bugOutCfg{$valueName};
+		} else {return 0;}
+	} elsif ($action eq "set") {
+		if ($bugOutCfg{$valueName} ne '') {
+			if ($valueName eq "bug_level") {
+				if ($theValue =~ /^(\d)$/) {
+					if (($theValue > 1) and ($theValue < 10)) {
+						$bugOutCfg{'bug_level'} = $1;
+						return 1;
+					} else {return 0;}
+				} else {return 0;}
+			} elsif ($valueName eq "log_target") { 
+				if ($theValue eq "stdout") {
+					$bugOutCfg{'log_target'} = "stdout";
+				} elsif ($theValue eq "stderr") {
+					$bugOutCfg{'log_target'} = "stderr";
+				} elsif ($theValue eq "stdquiet") {
+					$bugOutCfg{'log_target'} = "stdquiet";
+				} else {return 0;}
+			} elsif ($valueName eq "active") { 
+				if ($theValue eq 1) {
+					$bugOutCfg{'active'} = 1;
+				} elsif ($theValue eq 0) {
+					$bugOutCfg{'active'} = 0;
+				} else {return 0;}
+			} elsif ($valueName eq "aexid") { 
+				if ($theValue =~ /^([a-zA-Z0-9\_\-]{16,})$/) {
+					$bugOutCfg{'aexid'} = $1;
+				} else {
+					$bugOutCfg{'aexid'} = undef;
+					return 0;
+				}
+				
+			} else {return 0;}
+		} else {return 0;}
+	} else {return 0;}
+}
+
+1;
diff --git a/lib/Arctica/Core/BugOUT/Version.pm b/lib/Arctica/Core/BugOUT/Version.pm
new file mode 100644
index 0000000..7810a3e
--- /dev/null
+++ b/lib/Arctica/Core/BugOUT/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::BugOUT::Version;
+use strict;
+
+use vars qw[$VERSION];
+
+$VERSION              = '0.0.0.1';