aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica/Core/Mother
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2016-09-06 18:24:41 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2016-09-06 18:24:41 +0200
commitf163f7c82fe40fa72e7c03e05b5689414b1b705c (patch)
treec246a3d88b206c3debbc66394f8939ee219e5e0b /lib/Arctica/Core/Mother
parent07239ff13dabff86dae595c309a0960fafaee8bd (diff)
downloadperl-Arctica-Core-Mother-Forker-f163f7c82fe40fa72e7c03e05b5689414b1b705c.tar.gz
perl-Arctica-Core-Mother-Forker-f163f7c82fe40fa72e7c03e05b5689414b1b705c.tar.bz2
perl-Arctica-Core-Mother-Forker-f163f7c82fe40fa72e7c03e05b5689414b1b705c.zip
Forker.pm: whitespace clean-up
Diffstat (limited to 'lib/Arctica/Core/Mother')
-rw-r--r--lib/Arctica/Core/Mother/Forker.pm31
1 files changed, 12 insertions, 19 deletions
diff --git a/lib/Arctica/Core/Mother/Forker.pm b/lib/Arctica/Core/Mother/Forker.pm
index 21fd8c1..765e2f3 100644
--- a/lib/Arctica/Core/Mother/Forker.pm
+++ b/lib/Arctica/Core/Mother/Forker.pm
@@ -103,7 +103,7 @@ sub new {
isArctica => 1, # Declare that this is a Arctica "something"
aobject_name => "MForker_Child",
};
-
+
if (-x $dev_conf->{'exec_path'}) {
if ($dev_conf->{'exec_path'} =~ /^\//) {# Not M$ Windoz friendly... deal with that later...
$self->{'exec_path'} = $dev_conf->{'exec_path'};
@@ -114,7 +114,7 @@ sub new {
} else {
die("$dev_conf->{'exec_path'} is not executable!");
}
-
+
if ($dev_conf->{'exec_cl_argv'}) {# add some sanity checks and whatnot here?
BugOUT(9,"Mother::Forker We got command line arguments for child!");
$self->{'exec_cl_argv'} = $dev_conf->{'exec_cl_argv'};
@@ -256,7 +256,7 @@ sub _afork_ipty {
# END OF THE FORKING CHILD
}
-
+
if ($self->{'child_pid'} > 0) {
BugOUT(8,"Mother::Forker child PID is: $self->{'child_pid'}");
$self->{'glib_tnw'}{'reaper_of_zombie_children'} = Glib::Timeout->add(500, sub {\$self->_is_child_alive();}, undef, 1 );
@@ -309,7 +309,6 @@ sub _is_child_alive {# Idealy you should catch deaths before this do...
}
}
-
sub limpiador_de_la_muerte {
my $self = $_[0];
if ($self->{'dead'} ne 1) {# Death may be noticed multiple places...
@@ -407,7 +406,6 @@ sub log_slurper {# create pipe we can declare as log file.
}
}
-
sub clargv_append {
my $self = $_[0];
my $new_clargv = $_[1];
@@ -522,19 +520,17 @@ sub cfg_file_init {
create => 0,
});
$self->_cfg_file_template_prep_vars($cfg_id,$options->{'vars'},1,0);
-
+
if ($options->{'handle_cfg_change'}) {
$self->{'cfg_files'}{$cfg_id}{'handle_cfg_change'} = $options->{'handle_cfg_change'};
}
-
+
return $cfg_id;
} else {
die("Mother::Forker '$options->{'template'}' does not appear to be a ACNFT file?!?");
}
-
-
-
+
} else {
die("Mother::Forker cfg template must be full path to existing file!");
}
@@ -592,7 +588,6 @@ sub _cfg_file_template_prep_vars {
# }# need to allow empty values
}
-
if (($writefile eq 1) and ($self->{'cfg_files'}{$cfg_id}{'file_path'} =~ /^\//)) {
my $template = $self->{'cfg_files'}{$cfg_id}{'template'};
foreach my $key (keys $self->{'cfg_files'}{$cfg_id}{'pdv'}) {
@@ -649,27 +644,27 @@ sub _chkncreatedir {
unless (-d $full_path) {
mkdir($full_path) or die("Could not create directory: '$full_path' ($!)");
}
-
+
$full_path .= "/foobar";# This is probably where we would want to so something based on application class.
unless (-d $full_path) {
mkdir($full_path) or die("Could not create directory: '$full_path' ($!)");
}
-
+
$full_path .= "/$arctica_core_object->{'AExecDeclaration'}{'self_aID'}.apd";
unless (-d $full_path) {
mkdir($full_path) or die("Could not create directory: '$full_path' ($!)");
}
-
+
$full_path .= "/children";
unless (-d $full_path) {
mkdir($full_path) or die("Could not create directory: '$full_path' ($!)");
}
-
+
$full_path .= "/$self->{'child_aid'}.cld";
unless (-d $full_path) {
mkdir($full_path) or die("Could not create directory: '$full_path' ($!)");
}
-
+
if ($subdir eq "files") {
$full_path .= "/files/";
unless (-d $full_path) {
@@ -681,7 +676,7 @@ sub _chkncreatedir {
mkdir($full_path) or die("Could not create directory: '$full_path' ($!)");
}
}
-
+
if (-d $full_path) {
return $full_path;
} else {
@@ -716,7 +711,6 @@ sub signal {
die("Mother::Forker signal '$signal' is invalid or not supported.");
}
-
}
sub ZombieSlayer {# This one may be usefull for external use too...
@@ -739,5 +733,4 @@ sub DESTROY {
warn("Mother::Forker DESTROY object $self->{'child_id'}");
}
-
1;