.

diff --git a/htdocs/cgi-bin/CNF_SnippetsTesting.pl b/htdocs/cgi-bin/CNF_SnippetsTesting.pl
index c2b4db7073942db3ab48cff111df6ef9d6444bdc..93ec55b5055ce07c053c545b81e33cee0c7c2d5e 100755 (executable)
--- a/htdocs/cgi-bin/CNF_SnippetsTesting.pl
+++ b/htdocs/cgi-bin/CNF_SnippetsTesting.pl
@@ -20,17 +20,16 @@ my $db       = DBI->connect( $dsn, "admin", "admin", { PrintError => 0, RaiseErr
                       or Exception->throw("Connect failed [$_]");
 
 Settings::getConfiguration($db,{backup_enabled=>1});
-
 print "backup_enabled1:[".Settings::anon('backup_enabled')."]\n";
 my @r = Settings::anons();
 print "anon_size:[".@r."]@r\n";
 
 
-Settings::getConfiguration($db);
+Settings::getConfiguration($db);#in file set to 0
 print "backup_enabled2:[".Settings::anon('backup_enabled')."]\n";
-Settings::getConfiguration($db,{backup_enabled=>1});
+Settings::getConfiguration($db,{backup_enabled=>1});#this is later, code set.
 print "backup_enabled3:[".Settings::anon('backup_enabled')."]\n";
-Settings::getConfiguration($db);#Murky waters, can't update an anon later through code.
+Settings::getConfiguration($db);#Murky waters, can't update an anon later through code. Config initially set.
 print "backup_enabled4:[".Settings::anon('backup_enabled')."]\n";
 
 # my $s1 ="`1`2`3`te\\`s\\`t`the best`";

diff --git a/htdocs/cgi-bin/CNF_test_anons.pl b/htdocs/cgi-bin/CNF_test_anons.pl
index 9f229ff4fa989680ee07f1a69afaff761999b73d..c1da7e027d6d323f194b309a38356f504c53e480 100755 (executable)
--- a/htdocs/cgi-bin/CNF_test_anons.pl
+++ b/htdocs/cgi-bin/CNF_test_anons.pl
@@ -18,7 +18,7 @@ use lib "system/modules";
 use lib $ENV{'PWD'}.'/htdocs/cgi-bin/system/modules';
 require CNFParser;
 
-testSettingsForStatments();
+testAnons();
 
 
 

diff --git a/htdocs/cgi-bin/CNF_tester.pl b/htdocs/cgi-bin/CNF_tester.pl
index 1572edd81a83472a16deb9423b7769aee45d0f31..94d29ae06fb40cc5a108904d83ce3a6bbaeca2cc 100755 (executable)
--- a/htdocs/cgi-bin/CNF_tester.pl
+++ b/htdocs/cgi-bin/CNF_tester.pl
@@ -14,25 +14,31 @@ use Text::CSV;
 
 #DEFAULT SETTINGS HERE!
 use lib "system/modules";
-
 use lib $ENV{'PWD'}.'/htdocs/cgi-bin/system/modules';
-require CNFParser;
-
-my $cnf = CNFParser->new();
-$cnf->parse($ENV{'PWD'}."/dbLifeLog/database.cnf");
-
-foreach ($cnf->SQLStatments()){
-    print "$_\n";
-}
-foreach my $p ($cnf->constants()){
-
-    print "$p=", $cnf->constant($p),"\n";
-}
-print "\n---ANNONS---\n";
-my %anons = $cnf->anons();
-foreach my $k (%anons){
-    print "$k=", $anons{$k},"\n" if $k;
-}
+require Settings;
+
+my $today  = DateTime->now;
+$today->set_time_zone( &Settings::timezone );
+print $today;
+
+# use lib $ENV{'PWD'}.'/htdocs/cgi-bin/system/modules';
+# require CNFParser;
+
+# my $cnf = CNFParser->new();
+# $cnf->parse($ENV{'PWD'}."/dbLifeLog/database.cnf");
+
+# foreach ($cnf->SQLStatments()){
+#     print "$_\n";
+# }
+# foreach my $p ($cnf->constants()){
+
+#     print "$p=", $cnf->constant($p),"\n";
+# }
+# print "\n---ANNONS---\n";
+# my %anons = $cnf->anons();
+# foreach my $k (%anons){
+#     print "$k=", $anons{$k},"\n" if $k;
+# }
 # foreach (sort keys %ENV) {
 #   print "$_= $ENV{$_}\n";
 # }