aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica/Core/BugOUT/Basics.pm
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-26 20:57:18 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-26 20:57:58 +0200
commitdb1904b061289bede98ca419ac39679064de93aa (patch)
tree382073d8bcd51c194bab00a1b0451b599de64a57 /lib/Arctica/Core/BugOUT/Basics.pm
parent8fd3066f2a882491205cdcaf10ee0b7a2498f3e7 (diff)
downloadperl-Arctica-Core-BugOUT-db1904b061289bede98ca419ac39679064de93aa.tar.gz
perl-Arctica-Core-BugOUT-db1904b061289bede98ca419ac39679064de93aa.tar.bz2
perl-Arctica-Core-BugOUT-db1904b061289bede98ca419ac39679064de93aa.zip
whitespace cleanups
Diffstat (limited to 'lib/Arctica/Core/BugOUT/Basics.pm')
-rw-r--r--lib/Arctica/Core/BugOUT/Basics.pm24
1 files changed, 12 insertions, 12 deletions
diff --git a/lib/Arctica/Core/BugOUT/Basics.pm b/lib/Arctica/Core/BugOUT/Basics.pm
index 8a81859..d589f8c 100644
--- a/lib/Arctica/Core/BugOUT/Basics.pm
+++ b/lib/Arctica/Core/BugOUT/Basics.pm
@@ -13,7 +13,7 @@
#
################################################################################
#
-# Copyright (C) 2015-2016 The Arctica Project
+# Copyright (C) 2015-2016 The Arctica Project
# http://http://arctica-project.org/
#
# This code is dual licensed: strictly GPL-2 or AGPL-3+
@@ -80,20 +80,20 @@ my %bugOutCfg = (
sub new {
my ($className,$options) = @_;
#print "<<<<<<<<< NEW BUG: $options->{'aexid'}\n";
- my $BugOUT_self = {
+ my $BugOUT_self = {
dummydata => {
somevalue => 123,
otherinfo => "The Other INFO!",
},
_conf => \%bugOutCfg,
- isArctica => 1, # Declare that this is a Arctic "something"
+ 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....
@@ -112,13 +112,13 @@ sub BugOUT_dumpObjects {
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,
+ my $timeout = Glib::Timeout->add(2000,
sub {
open(DUMP,">/tmp/arctica_BugOUT/$progid.otdmp");
print DUMP time,"\n",Dumper($theObj);
- close(DUMP);
+ close(DUMP);
} );
}
}
@@ -202,7 +202,7 @@ sub bugOutCfg {
return 1;
} else {return 0;}
} else {return 0;}
- } elsif ($valueName eq "log_target") {
+ } elsif ($valueName eq "log_target") {
if ($theValue eq "stdout") {
$bugOutCfg{'log_target'} = "stdout";
} elsif ($theValue eq "stderr") {
@@ -210,20 +210,20 @@ sub bugOutCfg {
} elsif ($theValue eq "stdquiet") {
$bugOutCfg{'log_target'} = "stdquiet";
} else {return 0;}
- } elsif ($valueName eq "active") {
+ } 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") {
+ } 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;}