mirror of
https://github.com/zeek/zeek.git
synced 2025-10-02 06:38:20 +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
85 lines
2.7 KiB
Text
85 lines
2.7 KiB
Text
##! The controllee portion of the control framework. Load this script if remote
|
|
##! runtime control of the Bro process is desired.
|
|
##!
|
|
##! A controllee only needs to load the controllee script in addition
|
|
##! to the specific analysis scripts desired. It may also need a node
|
|
##! configured as a controller node in the communications nodes configuration::
|
|
##!
|
|
##! zeek <scripts> frameworks/control/controllee
|
|
|
|
@load base/frameworks/control
|
|
@load base/frameworks/broker
|
|
|
|
module Control;
|
|
|
|
event zeek_init() &priority=-10
|
|
{
|
|
Broker::subscribe(Control::topic_prefix + "/" + Broker::node_id());
|
|
Broker::auto_publish(Control::topic_prefix + "/id_value_response",
|
|
Control::id_value_response);
|
|
Broker::auto_publish(Control::topic_prefix + "/peer_status_response",
|
|
Control::peer_status_response);
|
|
Broker::auto_publish(Control::topic_prefix + "/net_stats_response",
|
|
Control::net_stats_response);
|
|
Broker::auto_publish(Control::topic_prefix + "/configuration_update_response",
|
|
Control::configuration_update_response);
|
|
Broker::auto_publish(Control::topic_prefix + "/shutdown_response",
|
|
Control::shutdown_response);
|
|
|
|
if ( Control::controllee_listen )
|
|
Broker::listen();
|
|
}
|
|
|
|
event Control::id_value_request(id: string)
|
|
{
|
|
local val = lookup_ID(id);
|
|
event Control::id_value_response(id, fmt("%s", val));
|
|
}
|
|
|
|
event Control::peer_status_request()
|
|
{
|
|
local status = "";
|
|
|
|
# @todo: need to expose broker::endpoint::peers and broker::peer_status
|
|
local peers = Broker::peers();
|
|
|
|
for ( i in peers )
|
|
{
|
|
local bpeer = peers[i];
|
|
status += fmt("%.6f peer=%s host=%s status=%s\n",
|
|
network_time(),
|
|
bpeer$peer$id,
|
|
bpeer$peer$network$address,
|
|
bpeer$status);
|
|
}
|
|
|
|
event Control::peer_status_response(status);
|
|
}
|
|
|
|
event Control::net_stats_request()
|
|
{
|
|
local ns = get_net_stats();
|
|
local reply = fmt("%.6f recvd=%d dropped=%d link=%d\n", network_time(),
|
|
ns$pkts_recvd, ns$pkts_dropped, ns$pkts_link);
|
|
event Control::net_stats_response(reply);
|
|
}
|
|
|
|
event Control::configuration_update_request()
|
|
{
|
|
# Generate the alias event.
|
|
event Control::configuration_update();
|
|
|
|
# Don't need to do anything in particular here, it's just indicating that
|
|
# the configuration is going to be updated. This event could be handled
|
|
# by other scripts if they need to do some ancilliary processing if
|
|
# redef-able consts are modified at runtime.
|
|
event Control::configuration_update_response();
|
|
}
|
|
|
|
event Control::shutdown_request()
|
|
{
|
|
# Send the acknowledgement event.
|
|
event Control::shutdown_response();
|
|
# Schedule the shutdown to let the current event queue flush itself first.
|
|
schedule 1sec { terminate_event() };
|
|
}
|