class
	EL_TRAFFIC_ANALYSIS_SHELL_MENU

inherit
	EL_APPLICATION_COMMAND_SHELL
		rename
			make as make_shell
		end

	EL_MODULE_COMMAND; EL_MODULE_DATE_TIME; EL_MODULE_DIRECTORY
	EL_MODULE_LIO; EL_MODULE_OS; EL_MODULE_TUPLE

create
	make

feature {EL_COMMAND_CLIENT} -- Initialization

	make (config_path: FILE_PATH)
		require
			config_exists: config_path.exists
		do
			create config.make (config_path)
			make_shell ("LOG MENU", 10)
		end

feature -- Constants

	Description: STRING = "Command shell for selecting log file to do traffic analysis"

feature {NONE} -- Commands

	analyse_log (log_gz_path: FILE_PATH)
		local
			log_path: FILE_PATH; analysis_cmd: EL_TRAFFIC_ANALYSIS_COMMAND
		do
			log_path := Directory.temporary + (log_gz_path.base_name + ".log")
			if attached Unzip_command as cmd then
				cmd.put_path (Var.path, log_gz_path)
				cmd.put_path (Var.ouput_path, log_path)
				cmd.execute
			end
			if log_path.exists then
				create analysis_cmd.make (log_path, config)
				analysis_cmd.execute
				OS.File_system.remove_file (log_path)
			end
		end

feature {NONE} -- Implementation


feature {NONE} -- Factory

	new_command_table: like command_table
		do
			if attached OS.file_pattern_list (config.archived_web_logs) as file_list then
				create Result.make_size (file_list.count)
				file_list.order_by (agent {FILE_PATH}.modification_time, False)
				across file_list as list loop
					if attached Date_time.modification_time (list.item) as date then
						Result.put (agent analyse_log (list.item), date.formatted_out (Date_format))
					end
				end
			end
		end

feature {NONE} -- Internal attributes

	config: EL_TRAFFIC_ANALYSIS_CONFIG

feature {NONE} -- Constants

	Unzip_command: EL_OS_COMMAND
		once
			create Result.make ("gunzip -c $path > $ouput_path")
			Result.sudo.enable
		end

	Var: TUPLE [path, ouput_path: STRING]
		once
			create Result
			Unzip_command.fill_variables (Result)
		end

	Date_format: STRING = " yyyy/mm Mmm dd"
end