##
# $Id$
##

module Rex
module Zip

#
# This represents an entire archive.
#
class Archive
	attr_reader :entries

	def initialize(compmeth=CM_DEFLATE)
		@compmeth = compmeth
		@entries = []
	end


	def add_file(fname, fdata=nil, xtra=nil, comment=nil)
		if (not fdata)
			begin
				st = File.stat(fname)
			rescue
				return nil
			end

			ts = st.mtime
			if (st.directory?)
				attrs = EFA_ISDIR
				fname += '/'
			else
				f = File.open(fname, 'rb')
				fdata = f.read(f.stat.size)
				f.close
			end
		end

		@entries << Entry.new(fname, fdata, @compmeth, ts, attrs, xtra, comment)
	end


	def set_comment(comment)
		@comment = comment
	end


	def save_to(fname)
		f = File.open(fname, 'wb')
		f.write(pack)
		f.close
	end


	def pack
		ret = ''

		# save the offests
		offsets = []

		# file 1 .. file n
		@entries.each { |ent|
			offsets << ret.length
			ret << ent.pack
		}

		# archive decryption header (unsupported)
		# archive extra data record (unsupported)

		# central directory
		cfd_offset = ret.length
		idx = 0
		@entries.each { |ent|
			cfd = CentralDir.new(ent, offsets[idx])
			ret << cfd.pack
			idx += 1
		}

		# zip64 end of central dir record (unsupported)
		# zip64 end of central dir locator (unsupported)

		# end of central directory record
		cur_offset = ret.length - cfd_offset
		ret << CentralDirEnd.new(@entries.length, cur_offset, cfd_offset, @comment).pack

		ret
	end

	def inspect
		"#<#{self.class} entries = [#{@entries.map{|e| e.name}.join(",")}]>"
	end

end

class Jar < Archive
	attr_accessor :manifest

	def build_manifest(opts={})
		main_class = opts[:main_class] || nil
		existing_manifest = nil

		@manifest =  "Manifest-Version: 1.0\r\n"
		@manifest << "Main-Class: #{main_class}\r\n" if main_class
		@manifest << "\r\n"
		@entries.each { |e|
			existing_manifest = e if e.name == "META-INF/MANIFEST.MF" 
			next unless e.name =~ /\.class$/
			@manifest << "Name: #{e.name}\r\n"
			#@manifest << "SHA1-Digest: #{Digest::SHA1.base64digest(e.data)}\r\n"
			@manifest << "\r\n"
		}
		if existing_manifest
			existing_manifest.data = @manifest
		else
			add_file("META-INF/", '')
			add_file("META-INF/MANIFEST.MF", @manifest)
		end
	end

	def to_s
		pack
	end

	def length
		pack.length
	end

	#
	# Add multiple files from an array
	#
	# +files+ should be structured like so:
	#   [
	#     [ "path", "to", "file1" ],
	#     [ "path", "to", "file2" ]
	#   ]
	# and +path+ should be the location on the file system to find the files to
	# add.  +base_dir+ will be prepended to the path inside the jar.
	#
	# Example:
	# <code>
	# war = Rex::Zip::Jar.new
	# war.add_file("WEB-INF/", '')
	# war.add_file("WEB-INF/", "web.xml", web_xml)
	# war.add_file("WEB-INF/classes/", '')
	# files = [
	#	[ "servlet", "examples", "HelloWorld.class" ],
	#	[ "Foo.class" ],
	#	[ "servlet", "Bar.class" ],
	# ]
	# war.add_files(files, "./class_files/", "WEB-INF/classes/")
	# </code>
	#
	# The above code would create a jar with the following structure from files
	# found in ./class_files/ :
	#
	# +- WEB-INF/
	#   +- web.xml
	#   +- classes/
	#     +- Foo.class
	#     +- servlet/
	#       +- Bar.class
	#       +- examples/
	#         +- HelloWorld.class
	#
	def add_files(files, path, base_dir="")
		files.each do |file|
			# Add all of the subdirectories if they don't already exist
			1.upto(file.length - 1) do |idx|
				full = base_dir + file[0,idx].join("/") + "/"
				if !(entries.map{|e|e.name}.include?(full))
					add_file(full, '')
				end
			end
			# Now add the actual file, grabbing data from the filesystem
			fd = File.open(File.join( path, file ), "rb")
			data = fd.read(fd.stat.size)
			fd.close
			add_file(base_dir + file.join("/"), data)
		end
	end
end

end
end