----
-- File::			zip_extract.rbs
-- Description::	Extract ZIP file.
--
-- Author::			David Muir <david.muir@rockstarnorth.com>
-- Date::			20 September 2010
--

-----------------------------------------------------------------------------
-- Uses
-----------------------------------------------------------------------------
-- None

-----------------------------------------------------------------------------
-- File Globals
-----------------------------------------------------------------------------
local zip_filename = get_param( "file" )
local temp_dir = get_param( "output" ) 
local mount_point = "zip:/"

-----------------------------------------------------------------------------
-- Functions
-----------------------------------------------------------------------------

--
-- Extract the specified zip File.
--
function extract_zip( filename )

	-- Extract
	mount_zip( filename, mount_point )
	local files = find_files( mount_point .. "*.*" )
	
	for key, value in files do
	
		local file = get_filename_from_path( value )
		copy_file( mount_point .. file, temp_dir .. "/" .. file )
	end
	
	unmount_zip( filename )
end

-----------------------------------------------------------------------------
-- Entry-Point
-----------------------------------------------------------------------------

create_leadingpath( temp_dir .. "/blah.txt" )
extract_zip( zip_filename )

-- zip_extract.rbs