;**************************** ;* ;* Lihaso Web Server ;* ;* (c)2015 by Linder Hard- und Software ;* ;* V0.1 ;* - Initial Web Server ;* - Modul interface ? ;* EnableExplicit ;* ;* Deklaration Variabeln ;* XIncludeFile "lweb_header.pbi" XIncludeFile "lweb.pbi" Define counter, v_lweb_srv_stop lhs_web::set_config(lhs_web::#conf_port, "8081") ;lhs_web::set_config(lhs_web::#conf_binding, "127.0.0.1") lhs_web::set_config(lhs_web::#conf_binding, "0.0.0.0") lhs_web::set_config(lhs_web::#conf_HTTPS_CA, "/home/renlin/dev/libressl/sample/test_ca.pem") lhs_web::set_config(lhs_web::#conf_HTTPS_Cert, "/home/renlin/dev/libressl/sample/test_server_cert.pem") lhs_web::set_config(lhs_web::#conf_HTTPS_Key, "/home/renlin/dev/libressl/sample/test_server_key.pem") lhs_web::set_config(lhs_web::#conf_HTTPS_Key_Pass, "test-server-pass") lhs_web::set_config(lhs_web::#conf_HTTPS_Binding, "127.0.0.1") lhs_web::set_config(lhs_web::#conf_HTTPS_Port, "8444") lhs_web::set_config(lhs_web::#conf_HTTPS_Enable, "1") lhs_web::set_config(lhs_web::#conf_defaultfile, "/index.html") lhs_web::set_config(lhs_web::#conf_basedir, "/home/renlin/testweb/") lhs_web::set_config(lhs_web::#conf_error400, "integrated") lhs_web::set_config(lhs_web::#conf_max_clients, "100") lhs_web::set_config(lhs_web::#conf_cache_enable, "0") ;* ;* includes ;* Procedure.s Sample_Header(Map Header.s()) Define *Text Define.s Encoded, ZumSenden, TBD NewMap Response.s() TBD="

Header


"+#CRLF$ ResetMap(Header()) While NextMapElement(Header()) TBD = TBD+"
"+MapKey(Header())+" : "+Header()+"

"+#CRLF$ Wend *Text = UTF8("
Alle Client Headers
"+TBD+"") Encoded = Base64Encoder(*Text, MemorySize(*Text)) Debug "Encoded: " + Encoded Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string Response(lhs_web::#cha_R_StringBase64) = Encoded Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html") Response(lhs_web::#cha_R_http_head_status) = "200 OK" ZumSenden = lhs_web::MapToJSONString(Response()) Debug "ZumSenden: " + ZumSenden ProcedureReturn ZumSenden EndProcedure Procedure.s Formular_Test(Map Header.s(), ContentData.s) Define *Text Define.s Encoded, ZumSenden, TBD NewMap Response.s() TBD="

FormularPost


"+#CRLF$ ResetMap(Header()) While NextMapElement(Header()) TBD = TBD+"
"+MapKey(Header())+" : "+Header()+"

"+#CRLF$ Wend Debug "TBD:"+TBD Debug "contentData:"+ContentData *Text = UTF8("
Alle Client Headers
"+TBD+"

ConentJSON


"+ContentData+"") Debug "Unencoded:"+PeekS(*Text, -1 , #PB_UTF8) Encoded = Base64Encoder(*Text, MemorySize(*Text)) Debug "Encoded: " + Encoded Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string Response(lhs_web::#cha_R_StringBase64) = Encoded Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html") Response(lhs_web::#cha_R_http_head_status) = "200 OK" ZumSenden = lhs_web::MapToJSONString(Response()) Debug "ZumSenden: " + ZumSenden ProcedureReturn ZumSenden EndProcedure Procedure.s Php_Test(Map Header.s(), ContentData.s) Define *Text, Php Define.s Execute, Phpresult, Encoded, ZumSenden NewMap Response.s() Execute = lhs_web::get_config(lhs_web::#conf_basedir) + Header(lhs_web::#http_head_request) Debug "To Execute:" + Execute Php = RunProgram("php", Execute, "", #PB_Program_Open | #PB_Program_Read) Phpresult = "" If Php While ProgramRunning(Php) If AvailableProgramOutput(Php) Phpresult + ReadProgramString(Php) + #CRLF$ EndIf Wend CloseProgram(Php) ; Schließt die Verbindung zum Programm EndIf *Text = UTF8(Phpresult) Debug "Unencoded:"+PeekS(*Text, -1 , #PB_UTF8) Encoded = Base64Encoder(*Text, MemorySize(*Text)) Debug "Encoded: " + Encoded Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string Response(lhs_web::#cha_R_StringBase64) = Encoded Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html") Response(lhs_web::#cha_R_http_head_status) = "200 OK" ZumSenden = lhs_web::MapToJSONString(Response()) Debug "ZumSenden: " + ZumSenden ProcedureReturn ZumSenden EndProcedure lhs_web::register_client_handler("/server/show_client_headers", @Sample_Header(),lhs_web::#handler_proto_get, lhs_web::#handler_sub) lhs_web::register_client_handler("/post_test", @Formular_Test(),lhs_web::#handler_proto_post, lhs_web::#handler_sub) ;Im zusammenspiel mit einem Formular lhs_web::register_client_handler("php", @Php_Test(),lhs_web::#handler_proto_universal, lhs_web::#handler_type) ;* ;* Initialisierung Netzwerk ;* If InitNetwork() ;Alles IO ;PrintN("Network initalised") Debug "Network initalised" Else Debug "Network initalisation failen... stop" End EndIf If lhs_web::start_server() Debug "Server gestartet" + lhs_web::get_config(lhs_web::#conf_port) Else Debug "Fehlgeschlagen" End EndIf counter = 0 OpenConsole("Test") PrintN("Webserver") PrintN("HTTP an Port:"+lhs_web::get_config(lhs_web::#conf_port)) PrintN("HTTPS an Port:"+lhs_web::get_config(lhs_web::#conf_HTTPS_Port)) PrintN("Press Enter to Exit") Input() End