mirror of
https://github.com/zeek/zeek.git
synced 2025-10-02 06:38:20 +00:00
d5fd29edcd
While we support initializing records via coercion from an expression
list, e.g.,
local x: X = [$x1=1, $x2=2];
this can sometimes obscure the code to readers, e.g., when assigning to
value declared and typed elsewhere. The language runtime has a similar
overhead since instead of just constructing a known type it needs to
check at runtime that the coercion from the expression list is valid;
this can be slower than just writing the readible code in the first
place, see #4559.
With this patch we use explicit construction, e.g.,
local x = X($x1=1, $x2=2);
84 lines
2 KiB
Text
84 lines
2 KiB
Text
##! Load this script to generate an SMB command log, smb_cmd.log.
|
|
##! This is primarily useful for debugging.
|
|
|
|
@load base/protocols/smb
|
|
|
|
module SMB;
|
|
|
|
export {
|
|
redef enum Log::ID += {
|
|
CMD_LOG,
|
|
};
|
|
|
|
global log_policy: Log::PolicyHook;
|
|
|
|
## The server response statuses which are *not* logged.
|
|
option ignored_command_statuses: set[string] = {
|
|
"MORE_PROCESSING_REQUIRED",
|
|
};
|
|
}
|
|
|
|
## Internal use only.
|
|
## Some commands shouldn't be logged by the smb1_message event.
|
|
const deferred_logging_cmds: set[string] = {
|
|
"NEGOTIATE",
|
|
"READ_ANDX",
|
|
"SESSION_SETUP_ANDX",
|
|
"TREE_CONNECT_ANDX",
|
|
};
|
|
|
|
event zeek_init() &priority=5
|
|
{
|
|
Log::create_stream(SMB::CMD_LOG, Log::Stream($columns=SMB::CmdInfo, $path="smb_cmd", $policy=log_policy));
|
|
}
|
|
|
|
event smb1_message(c: connection, hdr: SMB1::Header, is_orig: bool) &priority=-5
|
|
{
|
|
if ( is_orig )
|
|
return;
|
|
|
|
if ( c$smb_state$current_cmd$status in SMB::ignored_command_statuses )
|
|
return;
|
|
|
|
if ( c$smb_state$current_cmd$command in SMB::deferred_logging_cmds )
|
|
return;
|
|
|
|
Log::write(SMB::CMD_LOG, c$smb_state$current_cmd);
|
|
}
|
|
|
|
event smb1_error(c: connection, hdr: SMB1::Header, is_orig: bool)
|
|
{
|
|
if ( is_orig )
|
|
return;
|
|
|
|
# This is for deferred commands only.
|
|
# The more specific messages won't fire for errors
|
|
|
|
if ( c$smb_state$current_cmd$status in SMB::ignored_command_statuses )
|
|
return;
|
|
|
|
if ( c$smb_state$current_cmd$command !in SMB::deferred_logging_cmds )
|
|
return;
|
|
|
|
Log::write(SMB::CMD_LOG, c$smb_state$current_cmd);
|
|
}
|
|
|
|
event smb2_message(c: connection, hdr: SMB2::Header, is_orig: bool) &priority=-5
|
|
{
|
|
if ( is_orig )
|
|
return;
|
|
|
|
# If the command that is being looked at right now was
|
|
# marked as PENDING, then we'll skip all of this and wait
|
|
# for a reply that isn't marked pending.
|
|
if ( c$smb_state$current_cmd$status == "PENDING" )
|
|
return;
|
|
|
|
if ( c$smb_state$current_cmd$status in SMB::ignored_command_statuses )
|
|
return;
|
|
|
|
if ( c$smb_state$current_cmd$command in SMB::deferred_logging_cmds )
|
|
return;
|
|
|
|
Log::write(SMB::CMD_LOG, c$smb_state$current_cmd);
|
|
}
|