mirror of
https://github.com/zeek/zeek.git
synced 2025-10-04 15:48:19 +00:00
789cb376fd
This also installs symlinks from "zeek" and "bro-config" to a wrapper script that prints a deprecation warning. The btests pass, but this is still WIP. broctl renaming is still missing. #239
66 lines
1.8 KiB
Text
66 lines
1.8 KiB
Text
# @TEST-EXEC: zeek -r $TRACES/http/bro.org.pcap %INPUT >output
|
|
# @TEST-EXEC: btest-diff output
|
|
# @TEST-EXEC: btest-diff config.log
|
|
|
|
event zeek_init()
|
|
{
|
|
Config::set_value("Weird::sampling_duration", 5sec);
|
|
Config::set_value("Weird::sampling_threshold", 10);
|
|
Config::set_value("Weird::sampling_rate", 10);
|
|
Config::set_value("Weird::sampling_whitelist", set("whitelisted_net_weird", "whitelisted_flow_weird", "whitelisted_conn_weird"));
|
|
print "Config values set";
|
|
}
|
|
|
|
event zeek_init() &priority = -10
|
|
{
|
|
print Reporter::get_weird_sampling_whitelist();
|
|
print Reporter::get_weird_sampling_rate();
|
|
print Reporter::get_weird_sampling_threshold();
|
|
print Reporter::get_weird_sampling_duration();
|
|
}
|
|
|
|
event conn_weird(name: string, c: connection, addl: string)
|
|
{
|
|
print "conn_weird", name;
|
|
}
|
|
|
|
event flow_weird(name: string, src: addr, dst: addr)
|
|
{
|
|
print "flow_weird", name;
|
|
}
|
|
|
|
event net_weird(name: string)
|
|
{
|
|
print "net_weird", name;
|
|
}
|
|
|
|
event gen_weirds(c: connection)
|
|
{
|
|
local num = 30;
|
|
|
|
while ( num != 0 )
|
|
{
|
|
Reporter::net_weird("my_net_weird");
|
|
Reporter::flow_weird("my_flow_weird", c$id$orig_h, c$id$resp_h);
|
|
Reporter::conn_weird("my_conn_weird", c);
|
|
|
|
Reporter::net_weird("whitelisted_net_weird");
|
|
Reporter::flow_weird("whitelisted_flow_weird", c$id$orig_h, c$id$resp_h);
|
|
Reporter::conn_weird("whitelisted_conn_weird", c);
|
|
--num;
|
|
}
|
|
}
|
|
|
|
global did_one_connection = F;
|
|
|
|
event new_connection(c: connection)
|
|
{
|
|
if ( did_one_connection )
|
|
return;
|
|
|
|
did_one_connection = T;
|
|
event gen_weirds(c); # should permit 10 + 2 of each "my" weird
|
|
schedule 2sec { gen_weirds(c) }; # should permit 3 of each "my" weird
|
|
schedule 7sec { gen_weirds(c) }; # should permit 10 + 2 of each "my" weird
|
|
# Total of 27 "my" weirds of each type and 90 of each "whitelisted" type
|
|
}
|