aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Arctica')
-rw-r--r--lib/Arctica/Core/Basics.pm16
-rw-r--r--lib/Arctica/Core/ManageDirs.pm40
-rw-r--r--lib/Arctica/Core/Version.pm2
-rw-r--r--lib/Arctica/Core/eventInit.pm6
4 files changed, 32 insertions, 32 deletions
diff --git a/lib/Arctica/Core/Basics.pm b/lib/Arctica/Core/Basics.pm
index 54bf052..283b2ae 100644
--- a/lib/Arctica/Core/Basics.pm
+++ b/lib/Arctica/Core/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+
@@ -88,7 +88,7 @@ sub aex_initNameClassVersion {
} 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;
@@ -134,7 +134,7 @@ sub genARandom {
$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;
@@ -154,7 +154,7 @@ sub genARandom {
$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;
@@ -174,7 +174,7 @@ sub genARandom {
$r_string .= $p_chars[int(rand($#p_chars + 1))];
}
return $r_string;
-
+
} else {
die("INVALID RANDOM TYPE?");
}
@@ -210,8 +210,8 @@ sub arcticaAArt {
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)))
+ $baLine =~ s/^(.*)/'#' . ' ' x ($leftPadding-1) . $1 .
+ ' ' x ($termwidth-(length($baLine)+($leftPadding+1)))
. '#'/ge;
} else {
$baLine =~ s/^(.*)/' ' x $leftPadding . $1/ge;
@@ -220,7 +220,7 @@ sub arcticaAArt {
}
if ($boxIt eq 1) {#$termwidth
$finalAArt =~ s/^(.*)/'#' x $termwidth . "\n". $1/e;
- $finalAArt =~ s/(.*)$/$1 . "\n#" . ' ' x ($termwidth-2).
+ $finalAArt =~ s/(.*)$/$1 . "\n#" . ' ' x ($termwidth-2).
"#\n". '#' x $termwidth . "\n"/e;
}
return $finalAArt;
diff --git a/lib/Arctica/Core/ManageDirs.pm b/lib/Arctica/Core/ManageDirs.pm
index d17d22f..184116c 100644
--- a/lib/Arctica/Core/ManageDirs.pm
+++ b/lib/Arctica/Core/ManageDirs.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+
@@ -90,7 +90,7 @@ sub new {
}
unless (-d $check_arctica_home) {
- mkdir($check_arctica_home)
+ mkdir($check_arctica_home)
or die("ManageDirs: Failed to create .arctica 'HOME' directory");
}
@@ -134,7 +134,7 @@ sub permZealot {
$the_path =~ s/\n//g;
if (-f $the_path) {
- chmod(0600,$the_path)
+ chmod(0600,$the_path)
or die("permZealot: Can't set permissions on \"$the_path\"!");
unless (check_secure_permissions($the_path)) {
@@ -142,7 +142,7 @@ sub permZealot {
}
BugOUT(9,"permZealot-> set chmod 0600 for file $the_path");
} elsif (-d $the_path) {
- chmod(0700,$the_path)
+ chmod(0700,$the_path)
or die("permZealot: Can't set permissions on \"$the_path\"!");
unless (check_secure_permissions($the_path)) {
@@ -150,7 +150,7 @@ sub permZealot {
}
BugOUT(9,"permZealot-> set chmod 0600 for dir $the_path");
} elsif (-S $the_path) {
- chmod(0700,$the_path)
+ chmod(0700,$the_path)
or die("permZealot: Can't set permissions on \"$the_path\"!");
unless (check_secure_permissions($the_path)) {
@@ -169,35 +169,35 @@ sub create_new_adir {
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")
+ 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")
+ 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")
+ 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")
+ 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")
+ 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/")
+ 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/")
+ 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/")
+ 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/")
+ 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/");
@@ -206,7 +206,7 @@ sub create_new_adir {
} else {
die("Realizing '$the_tmp_dir/$potential_new_adir' already exist?!");
}
-
+
BugOUT(9,"Unexpected end of 'create_new_adir'");
}
@@ -244,14 +244,14 @@ sub check_for_rtail_dir {
}
}
closedir(CHKDIR);
-
+
my $pdircnt = @potential_dirs;
- my $pdmtime = 0;
+ 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....
+ # Pick the one with highest mtime....
foreach my $pdir (@potential_dirs) {
$pdir =~ s/[\s\n]//g;
if (-d "$check_in_dir/$pdir") {
@@ -274,7 +274,7 @@ sub check_for_rtail_dir {
warn("check_for_rtail_dir: no existing dirs found!");
return 0;
}
-
+
} else {
die("rtail check fail! This is not a dir: \"$check_in_dir\"");
}
@@ -332,7 +332,7 @@ sub user_owns_it {
unless ($the_user) {
$the_user = $ENV{'USER'};
}
-
+
my $file_stat = stat($the_path);
if (getpwuid($file_stat->uid) eq $the_user) {
return 1;
diff --git a/lib/Arctica/Core/Version.pm b/lib/Arctica/Core/Version.pm
index 77bc83d..82d712d 100644
--- a/lib/Arctica/Core/Version.pm
+++ b/lib/Arctica/Core/Version.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+
diff --git a/lib/Arctica/Core/eventInit.pm b/lib/Arctica/Core/eventInit.pm
index 3a40b04..8055285 100644
--- a/lib/Arctica/Core/eventInit.pm
+++ b/lib/Arctica/Core/eventInit.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+
@@ -76,7 +76,7 @@ my $SELF;
sub new {
unless ($SELF) {
my ($className,$theRest) = @_;
- my $ACF_self = {
+ my $ACF_self = {
dummydata => {
somevalue => 12,
otherinfo => "The Other INFO!",
@@ -133,7 +133,7 @@ sub doSelfTerminate {
my $ACF_self = $_[1];
BugOUT(2,"Self-terminating... ($signal)");
$ACF_self->{'Glib'}{'MainLoop'}->quit;
- return 0;
+ return 0;
}
# THE END
################################################################################