##! Detect and log web applications through the software framework.

@load base/frameworks/signatures
@load base/frameworks/software
@load base/protocols/http

@load-sigs ./detect-webapps.sig

module HTTP;

# Ignore the signatures used to match webapps
redef Signatures::ignored_ids += /^webapp-/;

export {
	redef enum Software::Type += {
		## Identifier for web applications in the software framework.
		WEB_APPLICATION,
	};

	redef record Software::Info += {
		## Most root URL where the software was discovered.
		url:   string &optional &log;
	};
}

event signature_match(state: signature_state, msg: string, data: string) &priority=5
	{
	if ( /^webapp-/ !in state$sig_id ) return;

	local c = state$conn;
	local si: Software::Info;
	si = Software::Info($name=msg, $unparsed_version=msg, $host=c$id$resp_h, $host_p=c$id$resp_p, $software_type=WEB_APPLICATION);
	si$url = build_url_http(c$http);
	Software::found(c$id, si);
	}

event Software::register(info: Software::Info) &priority=5
	{
	if ( info$host !in Software::tracked )
		return;

	local ss = Software::tracked[info$host];

	if ( info$name !in ss )
		return;

	local old_info = ss[info$name];

	if ( ! old_info?$url )
		return;

	if ( ! info?$url )
		return;

	# If the new url is a substring of an existing, known url then let's
	# use that as the new url for the software.
	# PROBLEM: different version of the same software on the same server with a shared root path
	local is_substring = 0;

	if ( |info$url| <= |old_info$url| )
		is_substring = strstr(old_info$url, info$url);

	if ( is_substring != 1 )
		return;

	old_info$url = info$url;
	# Force the software to be logged because it indicates a URL
	# closer to the root of the site.
	info$force_log = T;
	}
