From 4adbb850f39279021b94dfb458bb58835bfba0ea Mon Sep 17 00:00:00 2001
From: Ground0 <rene.linder@lihaso.ch>
Date: Sun, 8 Nov 2020 17:33:46 +0100
Subject: [PATCH] Weitere Code bereinigung

TODO: Nicht mehr gebrauchte Variabeln entfernen.
---
 lweb.pbi | 48 ------------------------------------------------
 1 file changed, 48 deletions(-)

diff --git a/lweb.pbi b/lweb.pbi
index 689008c..51fdeb0 100644
--- a/lweb.pbi
+++ b/lweb.pbi
@@ -950,54 +950,6 @@ Module lhs_web
     
   EndProcedure
   
-  Procedure.s Work_Post_Header(ContentLength.i, InMemory.i, Length.i)
-    
-    ;HEADER and Strings:
-                  ; POST /login.mss HTTP/1.1
-                  ; Host: localhost:61000
-                  ; User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:37.0) Gecko/20100101 Firefox/37.0
-                  ; Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
-                  ; Accept-Language: de,en-US;q=0.7,en;q=0.3
-                  ; Accept-Encoding: gzip, deflate
-                  ; Referer: http://localhost:61000/index.html
-                  ; Connection: keep-alive
-                  ; Content-Type: application/x-www-form-urlencoded
-                  ; Content-Length: 27
-                  ; 
-                  ; username=test&passwort=test
-                  
-                  ;********************************3
-                  ;* Script öffnen
-                  ;*   
-                  ;* Akzeptierte Parameter:
-                  ;*
-                  ;* username
-                  ;* passwort
-                  ;* sid
-                  ;*
-                  ;* Identifikation und übergabe des paramters an script ... 
-                  ;Fixe Loginfunktion mit user und pasd
-                ;   Position_String = FindString(Temp_String, "Content-Length:")
-                ;   
-                ;   If Position_String > 0
-                ;     ;Länge Content identifizieren.
-                ;     
-                ;     
-                ;   EndIf
-                ;   
-                ;   While NextElement(HTTP_List())
-                ;     If HTTP_List()\ID = Event_Network_Client
-                ;       HTTP_List()\Login = 1
-                ;       Break
-                ;     Else
-                ;       ;Do Nothing
-                ; 
-                ;     EndIf
-                ;   Wend  
-                  
-                    ;lweb_srv_mod_mss()
-  EndProcedure
-  
   Procedure call_request(RequestString.s, Info.i = #get_handler_procedure)
     Protected CurrPos, Count, Counter, PartString.s
     If m_request(GetExtensionPart(RequestString))\routetype = #handler_type