1*cdf0e10cSrcweir#************************************************************************* 2*cdf0e10cSrcweir# 3*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir# 5*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir# 7*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir# 9*cdf0e10cSrcweir# This file is part of OpenOffice.org. 10*cdf0e10cSrcweir# 11*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir# only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir# 15*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir# 21*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir# version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir# <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir# for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir# 26*cdf0e10cSrcweir#************************************************************************* 27*cdf0e10cSrcweir 28*cdf0e10cSrcweiruse Archive::Zip qw(:ERROR_CODES); 29*cdf0e10cSrcweiruse File::Basename; 30*cdf0e10cSrcweir 31*cdf0e10cSrcweirmy $zipName = shift || die 'must provide a ext name'; 32*cdf0e10cSrcweirmy $rdbName = shift || die 'must provide a types library'; 33*cdf0e10cSrcweirmy $libName = shift || die 'must provide a component library'; 34*cdf0e10cSrcweir 35*cdf0e10cSrcweirdie "can't access type library $rdbName" unless -f $rdbName; 36*cdf0e10cSrcweirdie "can't access component library $libName" unless -f $libName; 37*cdf0e10cSrcweir 38*cdf0e10cSrcweir# Read the zip 39*cdf0e10cSrcweirmy $zip = Archive::Zip->new(); 40*cdf0e10cSrcweir 41*cdf0e10cSrcweirif ( -f $zipName ) 42*cdf0e10cSrcweir{ 43*cdf0e10cSrcweir # be stupid and recreate zip every time 44*cdf0e10cSrcweir # in another iteration lets try to overwrite it instead 45*cdf0e10cSrcweir my $result = 0; 46*cdf0e10cSrcweir $result = unlink($zipName); 47*cdf0e10cSrcweir if ( result != 0 ) 48*cdf0e10cSrcweir { 49*cdf0e10cSrcweir die 'can not delete old extension'; 50*cdf0e10cSrcweir } 51*cdf0e10cSrcweir} 52*cdf0e10cSrcweirmy $rdb = basename( $rdbName ); 53*cdf0e10cSrcweirmy $lib = basename( $libName ); 54*cdf0e10cSrcweir 55*cdf0e10cSrcweirmy $content2 = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; 56*cdf0e10cSrcweir$content2 .= "<!DOCTYPE manifest:manifest PUBLIC \"-//OpenOffice.org//DTD Manifest 1.0//EN\" \"Manifest.dtd\">\n"; 57*cdf0e10cSrcweir$content2 .= "<manifest:manifest xmlns:manifest=\"http://openoffice.org/2001/manifest\">\n"; 58*cdf0e10cSrcweir$content2 .= " <manifest:file-entry manifest:media-type=\"application/vnd.sun.star.uno-typelibrary;type=RDB\" manifest:full-path=\"$rdb\"/>\n"; 59*cdf0e10cSrcweir$content2 .= " <manifest:file-entry manifest:media-type=\"application/vnd.sun.star.uno-component;type=native\" manifest:full-path=\"$lib\"/>\n"; 60*cdf0e10cSrcweir$content2 .= "</manifest:manifest>\n"; 61*cdf0e10cSrcweir 62*cdf0e10cSrcweir$zip->addFile( $rdbName, $rdb ); 63*cdf0e10cSrcweir$zip->addFile( $libName, $lib ); 64*cdf0e10cSrcweir$zip->addDirectory( "META-INF" ); 65*cdf0e10cSrcweir$zip->addFile( "META-INF/manifest.xml", "manifest.xml" ); 66*cdf0e10cSrcweir$zip->addString( $content2, "META-INF/manifest.xml" ); 67*cdf0e10cSrcweirexit( $zip->writeToFileNamed($zipName) ); 68