horse datalogger
v0.0.3
Middleware diseñado para registrar todas las solicitudes y solicitudes HTTP en el caballo.
Soporte: [email protected]
$ boss install github.com/dliocode/horse-dataloggerAgregue las siguientes carpetas a su proyecto, en Proyecto> Opciones> Compilador Delphi> Ruta de búsqueda
../src
Datalogger: esta es una herramienta utilizada para registrar todas las solicitudes de caballos HTTP.
Para obtener más información sobre cómo usar esta herramienta en otras situaciones, haga clic aquí.
Clientip: se usa para capturar la IP.
Para usar este middleware, necesita comprender algunas cosas.
Proveedores : es esencialmente para almacenar sus registros.
Proveedores diponables: haga clic aquí
En qué posición se recomienda usar este proveedor en el caballo: recomendamos que se agregue en la primera posición para registrar toda la información aprobada por él.
Para usarlo, es necesario agregar a usos Horse.DataLogger y luego agregar los diseños elegidos para registrar los registros;
Ahora que ha entendido un poco sobre cómo funciona, vamos a los ejemplos;
uses
Horse, Horse.Constants,
Horse.DataLogger,
DataLogger.Provider.Console, // Provider para Console
System.SysUtils;
begin
THorse
.Use(THorseDataLogger.Logger([TProviderConsole.Create])) // Adiconando Middleware e o Provider
.Get( ' /ping ' ,
procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
begin
Res.Send( ' pong ' );
end );
THorse.KeepConnectionAlive := True;
THorse.Listen( 8080 ,
procedure(AHorse: THorse)
begin
Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
Writeln;
end );
end . Combined, Common, Dev, Short, Tiny
Cada formato tiene una estructura diferente y preestablecida.
Salida de registro combinada de Apache estándar.
${request_remote_clientip} [${time}] "${request_method} ${request_raw_path_info}${request_query} '${request_protocol_version}" ${response_status_code} ${response_content_length} "${request_referer}" "${request_user_agent}"
Salida de registro común.
${request_remote_clientip} [${time}] "${request_method} ${request_raw_path_info}${request_query} '${request_protocol_version}" ${response_status_code} ${response_content_length}
Salida de registro simple
${request_method} ${request_raw_path_info}${request_query} ${response_status_code} ${execution_time} ms - ${response_content_length}
Más corto que el estándar, también incluido el tiempo de respuesta.
${request_remote_clientip} ${request_method} ${request_raw_path_info}${request_query} ${request_protocol_version} ${response_status_code} ${response_content_length} ${execution_time} ms
Salida de registro mínimo
${request_method} ${request_raw_path_info}${request_query} ${response_status_code} ${response_content_length} - ${execution_time} ms
uses
Horse, Horse.Constants,
Horse.DataLogger,
DataLogger.Provider.Console, // Provider para Console
System.SysUtils;
begin
THorse
.Use(
THorseDataLogger.Logger(
THorseDataLoggerFormat.tfCombined, // Formato dos logs
[TProviderConsole.Create] // Adicionado o Middleware
)
)
.Get( ' /ping ' ,
procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
begin
Res.Send( ' pong ' );
end );
// output: 0:0:0:0:0:0:0:1 [2022-12-22 17:18:31:791] "GET /ping HTTP/1.1" 200 4 "-" "PostmanRuntime/7.30.0"
THorse.KeepConnectionAlive := True;
THorse.Listen( 8080 ,
procedure(AHorse: THorse)
begin
Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
Writeln;
end );
end .Puedes definir tus propios formatos de uso
uses
Horse, Horse.Constants,
Horse.DataLogger,
DataLogger.Provider.Console, // Provider para Console
System.SysUtils;
begin
THorse
.Use(
THorseDataLogger.Logger(
// Formato dos logs
' ${request_method} ${request_raw_path_info}${request_query} ${response_status_code} ${response_content_length} - ${execution_time} ms ' ,
// Adicionado o Middleware
[TProviderConsole.Create]
)
)
.Get( ' /ping ' ,
procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
begin
Res.Send( ' pong ' );
end );
// output: 0:0:0:0:0:0:0:1 [2022-12-22 17:18:31:791] "GET /ping HTTP/1.1" 200 4 "-" "PostmanRuntime/7.30.0"
THorse.KeepConnectionAlive := True;
THorse.Listen( 8080 ,
procedure(AHorse: THorse)
begin
Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
Writeln;
end );
end . ${time}
${execution_time} // Time in ms
${request_accept}
${request_authorization}
${request_cache_control}
${request_connection}
${request_content}
${request_content_encoding}
${request_content_length}
${request_content_type}
${request_content_version}
${request_cookie}
${request_cookie_fields}
${request_derived_from}
${request_from}
${request_host}
${request_internal_path_info}
${request_internal_script_name}
${request_method}
${request_path_info}
${request_path_translated}
${request_protocol_version}
${request_query}
${request_query_fields}
${request_raw_path_info}
${request_referer}
${request_remote_addr}
${request_remote_clientip}
${request_remote_host}
${request_remote_ip}
${request_script_name}
${request_server_port}
${request_title}
${request_url}
${request_user_agent}
${response_allow}
${response_content}
${response_content_encoding}
${response_content_length}
${response_content_type}
${response_content_version}
${response_custom_headers}
${response_date}
${response_derived_from}
${response_expires}
${response_last_modified}
${response_location}
${response_log_message}
${response_realm}
${response_reason}
${response_server}
${response_status_code}
${response_title}
${response_version}
${response_wwwauthenticate}
Puede agregar múltiples proporciones para registrar cada solicitud en diferentes ubicaciones.
Para este ejemplo, mostraremos las solicitudes de la consola y guardaremos en formato de texto, todas utilizando dos unidades para registrarse
DataLogger.Provider.Console, DataLogger.Provider.TextFile
uses
Horse, Horse.Constants,
Horse.DataLogger,
DataLogger.Provider.Console, // Provider para Console
DataLogger.Provider.TextFile, // Provider para TextFile
System.IOUtils, System.SysUtils;
begin
THorse
.Use(
THorseDataLogger.Logger(
THorseDataLoggerFormat.tfCombined, // Formato dos logs
TProviderConsole.Create,
TProviderTextFile.Create
.LogDir(TPath.GetDirectoryName(ParamStr( 0 )) + ' logrequest ' )
.PrefixFileName( ' request_ ' )
.Extension( ' .txt ' )
]
)
)
.Get( ' /ping ' ,
procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
begin
Res.Send( ' pong ' );
end );
// output: 0:0:0:0:0:0:0:1 [2022-12-22 17:18:31:791] "GET /ping HTTP/1.1" 200 4 "-" "PostmanRuntime/7.30.0"
THorse.KeepConnectionAlive := True;
THorse.Listen( 8080 ,
procedure(AHorse: THorse)
begin
Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
Writeln;
end );
end .
