From ab08722bcf27572ce40873e09d3191e63b2b9e37 Mon Sep 17 00:00:00 2001
From: Ground0 <rene.linder@lihaso.ch>
Date: Thu, 30 Mar 2023 15:46:01 +0200
Subject: [PATCH] New lhttp main

---
 lhttpd.pb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lhttpd.pb b/lhttpd.pb
index 62d1827..6abfac4 100644
--- a/lhttpd.pb
+++ b/lhttpd.pb
@@ -39,11 +39,11 @@ Repeat
     PrintN("   Activate Debug Log")
     
   ElseIf Left(Parameter,3) = "-c=" Or Left(Parameter,9) = "--config="
-    Configfile = Right(Parameter, Len(Parameter) - FindString(Parameter, "=") + 1)
+    Configfile = Right(Parameter, Len(Parameter) - FindString(Parameter, "="))
     If ReadFile(0, Configfile)
       CloseFile(0)
     Else
-      PrintN("Failed unable to open config file")
+      PrintN("Failed unable to open config file:["+Configfile+"]")
       End
     EndIf
   ElseIf Left(Parameter,6) = "--run="
@@ -82,7 +82,7 @@ XIncludeFile "lweb.pbi"
 PrintN("lhttpd Webserver "+Version)
 
 If Len(Checkruntime) > 0
-  If CreateFile(0, Checkruntime)
+  If ReadFile(0, Checkruntime)
     CloseFile(0)
     PrintN("PID File created --run="+Checkruntime)
   Else