51 lines
1.4 KiB
Plaintext
Executable File
51 lines
1.4 KiB
Plaintext
Executable File
----
|
|
-- 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
|