@load ../__load__
@load policy/frameworks/files/hash-all-files

event file_state_remove(f: fa_file)
	{

	if ( !f$info?$extracted || !f$info?$sha1 || FileExtraction::path == "" )
		return;

	local orig = f$info$extracted;
	
	local split_orig = split_string(f$info$extracted, /\./);
	local extension = split_orig[|split_orig|-1];

	local dest = fmt("%s%s-%s.%s", FileExtraction::path, f$source, f$info$sha1, extension);

	local cmd = fmt("mv %s %s", orig, dest);
	when ( local result = Exec::run([$cmd=cmd]) )
		{
		}		
	f$info$extracted = dest;

	}