mirror of
https://github.com/zeek/zeek.git
synced 2025-10-04 15:48:19 +00:00
41dd0b98e9
Conflicts: scripts/base/frameworks/cluster/setup-connections.bro scripts/base/frameworks/metrics/main.bro scripts/base/frameworks/notice/actions/email_admin.bro scripts/base/frameworks/notice/weird.bro scripts/base/protocols/mime/file-hash.bro scripts/base/protocols/mime/file-ident.bro scripts/policy/frameworks/communication/listen-clear.bro scripts/policy/frameworks/communication/listen-ssl.bro scripts/policy/frameworks/control/controller.bro scripts/policy/frameworks/metrics/http-example.bro scripts/policy/frameworks/metrics/ssl-example.bro scripts/policy/protocols/conn/scan.bro src/CMakeLists.txt
48 lines
1.5 KiB
Text
48 lines
1.5 KiB
Text
|
|
# @TEST-EXEC: bro -b %INPUT
|
|
# @TEST-EXEC: ( ls static-*; cat static-* ) >output
|
|
# @TEST-EXEC: btest-diff output
|
|
|
|
module SSH;
|
|
|
|
export {
|
|
# Create a new ID for our log stream
|
|
redef enum Log::ID += { SSH };
|
|
|
|
# Define a record with all the columns the log file can have.
|
|
# (I'm using a subset of fields from ssh-ext for demonstration.)
|
|
type Log: record {
|
|
t: time;
|
|
id: conn_id; # Will be rolled out into individual columns.
|
|
status: string &optional;
|
|
country: string &default="unknown";
|
|
} &log;
|
|
}
|
|
|
|
global c = -1;
|
|
|
|
function path_func(id: Log::ID, path: string, rec: Log) : string
|
|
{
|
|
c = (c + 1) % 3;
|
|
|
|
return fmt("%s-%d-%s", path, c, rec$country);
|
|
}
|
|
|
|
event bro_init()
|
|
{
|
|
Log::create_stream(SSH, [$columns=Log]);
|
|
Log::remove_default_filter(SSH);
|
|
|
|
Log::add_filter(SSH, [$name="dyn", $path="static-prefix", $path_func=path_func]);
|
|
|
|
Log::set_buf(SSH, F);
|
|
|
|
local cid = [$orig_h=1.2.3.4, $orig_p=1234/tcp, $resp_h=2.3.4.5, $resp_p=80/tcp];
|
|
Log::write(SSH, [$t=network_time(), $id=cid, $status="success"]);
|
|
Log::write(SSH, [$t=network_time(), $id=cid, $status="failure", $country="US"]);
|
|
Log::write(SSH, [$t=network_time(), $id=cid, $status="failure", $country="UK"]);
|
|
Log::write(SSH, [$t=network_time(), $id=cid, $status="success", $country="BR"]);
|
|
Log::write(SSH, [$t=network_time(), $id=cid, $status="failure", $country="MX"]);
|
|
Log::write(SSH, [$t=network_time(), $id=cid, $status="failure", $country="MX2"]);
|
|
Log::write(SSH, [$t=network_time(), $id=cid, $status="failure", $country="MX3"]);
|
|
}
|