From a84bd7e786517757e781dcee8ef1bacf9459383b Mon Sep 17 00:00:00 2001
From: Will Budic <vilijanac@gmail.com>
Date: Thu, 21 Sep 2023 16:47:39 +1000
Subject: [PATCH] Extracted %LOG section.

---
 htdocs/cgi-bin/CNFServices.cgi | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/htdocs/cgi-bin/CNFServices.cgi b/htdocs/cgi-bin/CNFServices.cgi
index b76e8fd..f27d485 100755
--- a/htdocs/cgi-bin/CNFServices.cgi
+++ b/htdocs/cgi-bin/CNFServices.cgi
@@ -31,6 +31,17 @@ require CNFNode;
 
 our $GLOB_HTML_SERVE = "'{}/*.cgi' '{}/*.htm' '{}/*.html' '{}/*.md' '{}/*.txt'";
 our $script_path = $0; $script_path =~ s/\w+.cgi$//;
+use constant LOG_Settings =>q(
+<<@<%LOG>
+    file      = web_server.log
+    # Should it mirror to console too?
+    console   = 0
+    # Disable/enable output to file at all?
+    enabled   = 0
+    # Tail size cut, set to 0 if no tail cutting is desired.
+    tail      = 1000
+>>
+);
 
 exit &CNFHTMLService;
 
@@ -53,16 +64,7 @@ sub _getServiceScript($cgi) {
 }
 
 sub _CNF_Script_For_Feeds {
-<<__CNF_IS_COOL__;
-<<@<%LOG>
-            file      = web_server.log
-            # Should it mirror to console too?
-            console   = 0
-            # Disable/enable output to file at all?
-            enabled   = 0
-            # Tail size cut, set to 0 if no tail cutting is desired.
-            tail      = 1000
->>
+LOG_Settings . <<__CNF_IS_COOL__;
 <<PROCESS_RSS_FEEDS<PLUGIN>
 
     RUN_FEEDS = yes
@@ -98,8 +100,7 @@ The Perl Weekly ( http://perlweekly.com/ ) is a newsletter including links to bl
 __CNF_IS_COOL__
 }
 
-
-1;
+__END__
 
 =begin copyright
 Programed by  : Will Budic
-- 
2.34.1