- VERSION 4.11.09

- Commit inicial

TestHandler.bas

@@ -0,0 +1,35 @@
+B4J=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=4.19
+@EndOfDesignText@
+'Handler class
+Sub Class_Globals
+	
+End Sub
+
+Public Sub Initialize
+	
+End Sub
+
+Sub Handle(req As ServletRequest, resp As ServletResponse)
+	Log("TEST")
+	resp.ContentType = "text/html"
+	resp.Write($"<a href="/test">Test</a> | <a href="/manager?command=reload">Reload</a> | <br/>"$)
+	resp.Write($"RemoteServer is running on port <strong>${Main.srvr.Port}</strong> ($DateTime{DateTime.Now})<br/>"$)
+	Try
+'		Dim con As SQL = Main.rdcConnectorDB1.GetConnection("")
+		Dim con As SQL = Main.Connectors.Get("DB1").As(RDCConnector).GetConnection("")
+		resp.Write("Connection successful.</br></br>")
+		Private estaDB As String = ""
+		Log(Main.listaDeCP)
+		For i = 0 To Main.listaDeCP.Size - 1
+			If Main.listaDeCP.get(i) <> "" Then estaDB = "." & Main.listaDeCP.get(i)
+			resp.Write($"Using config${estaDB}.properties</br>"$)
+		Next
+		con.Close
+	Catch
+		resp.Write("Error fetching connection.")
+	End Try
+End Sub