Hello,
here are the scripts needed to achieve the linguistic split:
debian/scripts/make-control.pl: regenerate the control file (needed only once)
debian/scripts/openoffice-xlate-lang: convert between prefix, iso code, lang
name (heavily adapted from the mdk one)
debian/scripts/openoffice-dpack-lang: unpack one language (a bit adapted
from the mdk one)
debian/rules: modified version to do the other packages.
Please put it in the CVS, test it, and report any problem...
Thanks, Mt.
--
Les rebelles disaient que les débutants avaient le droit d'utiliser un
"éditeur", qui ressemblait à MSWord comme sa mère à Pamela Anderson.
"Vihaille" comme les rebelles l'appellaient, était sans doute un bizutage
-- L'histoire des pingouins
#!/usr/bin/make -f # Debian rules file for openoffice source package # Originally by Stephen Early <[EMAIL PROTECTED]> # Modified by Mark W. Eichin <[EMAIL PROTECTED]> # Modified by Adam Heath <[EMAIL PROTECTED]> # Modified by Branden Robinson <[EMAIL PROTECTED]> # Modified by Peter Novodvorsky <[EMAIL PROTECTED]> # Modified by Filip Van Raemdonck <[EMAIL PROTECTED]> # Modified by Jan-Hendrik Palic <[EMAIL PROTECTED]> # Copyright 1996-2001 Software in the Public Interest, Inc. # Licensed under the GNU General Public License, version 2. See the file # /usr/share/common-licenses/GPL or <http://www.gnu.org/copyleft/gpl.txt>. # Acknowlegements to Branden Robinson, Stephen Early, Mark Eichin, and Manoj Srivastava. # Read in important variables. include debian/scripts/vars BUILD_DIR=$(SOURCE_DIR)/$(TAR_DIR) # default rule to keep things from going nuts by accident default: environment checksource: source.make $(checksource_command) define checksource_command # make sure all the patches applied cleanly @if grep -v '^patch' debian/stampdir/patches/*.log; then echo "Some patches did not apply cleanly. Please investigate." >&2; exit 1; fi # yes, they did endef # Include Adam Heath's source archive/patch handling system. include debian/doogie-build-system # oh my God, this is a gross hack ELSE:=else # This is a horrendous kludge to ensure that some scripts we need are executable. DUMMY:=$(shell if [ ! -x debian/setperms ]; then chmod 755 debian/setperms; fi) DUMMY:=$(shell debian/setperms) #XDISPLAY:=$(shell debian/local/scripts/find-free-display) #export DISPLAY=$(XDISPLAY) export XAUTHORITY= # hacked xvfb-run automatically finds a display # and checks that Xvfb didn't die XVFB=$(CURDIR)/debian/local/scripts/oo-xvfb-run -a -w 5 # debhelper export DH_OPTIONS export DH_ALWAYS_EXCLUDE=CVS # Command for converting HTML to plain text. #HTML2TEXT=lynx -dump -nolist HTML2TEXT=html2text -nobs -style pretty # Get package version info. SOURCE_VERSION:=$(shell head -1 debian/changelog | cut -d\( -f2 | cut -d\) -f1) # Determine our architecture. BUILD_ARCH:=$(shell dpkg --print-gnu-build-architecture) # Work around some old-time dpkg braindamage. BUILD_ARCH:=$(subst i486,i386,$(BUILD_ARCH)) # The DEB_HOST_ARCH variable may be set per the Debian cross-compilation policy. ifdef DEB_HOST_ARCH ARCH:=$(DEB_HOST_ARCH) else # dpkg-cross sets the ARCH environment variable; if set, use it. ifdef ARCH ARCH:=$(ARCH) else ARCH:=$(BUILD_ARCH) endif endif # Read in architecture-specific variables of importance. include debian/scripts/vars.$(ARCH) # This is where the upstream install rules will put their stuff. DEBTREEDIR:=$(CURDIR)/debian/tmp OPENOFFICEDIR:=/usr/lib/openoffice PKGOPENOFFICEDIR:=$(DEBTREEDIR)/$(OPENOFFICEDIR) # Package build directories MAINPKGDIR:=$(CURDIR)/debian/openoffice.org # KDE integration KDEPKGDIR:=$(MAINPKGDIR) # Use GCC version 3? USE_GCC=3 in vars or vars.<arch> ifeq "$(USE_GCC3)" "y" CC=gcc-3.0 CXX=g++-3.0 export CC CXX GCC3 := --enable-gcc3 ifeq "$(ARCHBUILDDIR)" "unxlngi3.pro" # Build directory is different for GCC3 ARCHBUILDDIR=unxlngi4.pro endif else CC=gcc-2.95 CXX=g++-2.95 GCC3 := export CC CXX endif # Use compiler cache? Include ccache in DEB_BUILD_OPTIONS for fun :) ifeq (ccache,$(findstring ccache,$(DEB_BUILD_OPTIONS))) CCACHE=ccache CCACHE_LOGFILE=$(STAMP_DIR)/ccache.log export CCACHE_LOGFILE else CCACHE= endif # Because of the stampdir magic, when you actually want to run a rule # over, you would have to remove the stamp manually. Now, just do # 'debian/rules <target> <target> ... FORCE=1', and the stamp files # that match the given targets will be removed automagically. stampdir_targets=build.prepare configure bootstrap dmake build stampdir_targets+=setup install binary-arch binary-indep stampdir_targets+=source.make patchapply stampdir_targets+=source.build source.unpack fix.source.patch source.patch stampdir_targets+=unfix.source.patch ifdef FORCE DUMMY:=$(shell rm -f $(patsubst %,$(STAMP_DIR)/%,$(filter $(stampdir_targets),$(MAKECMDGOALS)))) endif # If this is defined, then none of the 'long' commands will be run. Useful # for testing. # test_rules=1 clean: source.clean dh_testdir rm -rf $(STAMP_DIR) $(DEBTREEDIR) rm -f debian/*.postinst debian/*.postrm debian/*.preinst debian/*.prerm # rm -rf debian/local/stlport-home dh_clean # All 'important' targets have 2 lines. The one that is run by # dpkg-buildpackage or the user, and the one that does the actual work. This # indirection is needed so that the 'stamp' files that signify when a rule is # done can be located in a separate 'stampdir'. Recall that make has no way to # know when a goal has been met for a phony target (like "build" or "install"). # # At the end of each stampdir target, be sure to run the command 'touch $@' # so that the target will not be run again. Removing the file will make # make run the target over. # Build step 1 - prepare source tree build.prepare: $(STAMP_DIR)/build.prepare $(STAMP_DIR)/build.prepare: $(STAMP_DIR)/source.make dh_testdir #rm -rf $(SOURCE_TREE)/external/gpc # making stlport home mkdir debian/local/stlport-home ln -s /usr/include debian/local/stlport-home/include ln -s /usr/lib debian/local/stlport-home/lib # WorkArounds to fix the buildbugs #Workaround for buildbug in 641c #mkdir -p $(SOURCE_TREE)/solver/$(BUILDNUM)/unxl #mkdir -p $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/inc #touch $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/inc/minormkchanged.flg #Workaround for builder on PPC belongs to mozilla codes cp -rvf $(SOURCE_TREE)/moz/zipped/LINUXGCCIinc.zip $(SOURCE_TREE)/moz/zipped/LINUXGCCPinc.zip cp -rvf $(SOURCE_TREE)/moz/zipped/LINUXGCCIlib.zip $(SOURCE_TREE)/moz/zipped/LINUXGCCPlib.zip cp -rvf $(SOURCE_TREE)/moz/zipped/LINUXGCCIruntime.zip $(SOURCE_TREE)/moz/zipped/LINUXGCCPruntime.zip #mkdir -p $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/inc/external/gpc #cp -f $(SOURCE_TREE)/external/gpc/gpc.c $(SOURCE_TREE)/external/gpc/gpc.h \ # $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/inc/external/gpc #Workaround for xml files mkdir -p $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/xml cp -r debian/local/office $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/ #If using compiler cache, place links to ccache on the path before the compilers if [ -n "$(CCACHE)" ];then \ for I in gcc gcc-3.0 g++ g++-3.0 ; \ do ln -sf "`which ccache`" $(SOURCE_TREE)/solenv/bin/$$I;done;\ fi touch $@ # Build step 2 - configure configure: $(STAMP_DIR)/configure $(STAMP_DIR)/configure: $(STAMP_DIR)/build.prepare dh_testdir # Remove config.cache so we always generate config again rm -f $(SOURCE_TREE)/config_office/config.cache cd $(SOURCE_TREE)/config_office && autoconf && sh ./configure $(GCC3) \ --with-stlport4-home=$(CURDIR)/debian/local/stlport-home \ --with-lang=ALL \ --with-jdk-home=$(JDK_HOME) touch $@ # Build step 3 - bootstrap bootstrap: $(STAMP_DIR)/bootstrap $(STAMP_DIR)/bootstrap: $(STAMP_DIR)/configure dh_testdir cd $(SOURCE_TREE) && tcsh -c 'source $(ENVFILE); ./bootstrap' #mkdir -p $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/inc/external/gpc #mkdir -p $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/lib #cp /usr/include/gpcl/gpc.h $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/inc/external/gpc #cp /usr/lib/libgpcl*.so $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/lib touch $@ # Build step 4 - dmake (build complete project) dmake: $(STAMP_DIR)/dmake $(STAMP_DIR)/dmake: $(STAMP_DIR)/bootstrap dh_testdir set -e # Start Xvfb and run dmake cd $(SOURCE_TREE) && \ tcsh -c 'source $(ENVFILE); $(XVFB) dmake' touch $@ # Build step 4a - project (build individual project) # for an overview, see: # http://www.openoffice.org/dev_docs/source/build_linux.html#BuildingIndividualProjects # This target is not used by the main build, but may be useful to just build a troublesome project. # You need to specify a project like this: # debian/rules buildprj PRJ=<module> PRJ=unknown-project # See http://tools.openoffice.org/modules.html for a list of modules that can be built. # # Warning - the command to run the solver may change, and the following line would have to be updated: SOLVER=$(CURDIR)/$(SOURCE_TREE)/solenv/bin/build.pl product=full buildprj: $(STAMP_DIR)/bootstrap dh_testdir # run dmake with xfvb-run cd $(SOURCE_TREE) && \ tcsh -c 'source $(ENVFILE); cd $(PRJ) && $(XVFB) $(SOLVER)'\ -echo Project $(PRJ) build successful # Build step 5 - generate maintainer scripts build: $(STAMP_DIR)/build $(STAMP_DIR)/build: $(STAMP_DIR)/dmake dh_testdir # there is a problem that uno_writerdb.rdb does not exist, so setup does not work. # This is a workaround # TODO: file an issue about this cp $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/bin/setup_services.rdb \ $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/bin/uno_writerdb.rdb zip -j -5 "f0_061" $(SOURCE_TREE)/solver/$(BUILDNUM)/$(ARCHBUILDDIR)/bin/uno_writerdb.rdb mv f0_061.zip $(SOURCE_TREE)/instsetoo/$(ARCHBUILDDIR)/$(BUILDLANG)/normal # generate maintainer scripts for FILE in debian/*.postinst.in debian/*.postrm.in debian/*.preinst.in debian/*.prerm.in; do \ if [ -e "$$FILE" ]; then \ MAINTSCRIPT=$$(echo $$FILE | sed 's/.in$$//'); \ sed -n '1,/^#INCLUDE_SHELL_LIB#$$/p' < $$FILE | sed -e '/^#INCLUDE_SHELL_LIB#$$/d' > $$MAINTSCRIPT; \ cat debian/shell-lib.sh >> $$MAINTSCRIPT; \ sed -n '/^#INCLUDE_SHELL_LIB#$$/,$$p' < $$FILE | sed -e '/^#INCLUDE_SHELL_LIB#$$/d' >> $$MAINTSCRIPT; \ fi; \ done touch $@ # Run openoffice setup for net install setup: $(STAMP_DIR)/setup $(STAMP_DIR)/setup: $(STAMP_DIR)/build dh_testdir dh_testroot umask 022 dh_clean -k # Packagers - if you are working on improving the .debs, you can # run setup and rebuild over and over like this: # rm debian/stampdir/setup ; dpkg-buildpackage -nc -rfakeroot rm -rf $(DEBTREEDIR) rm -f $(STAMP_DIR)/install.log mkdir -p $(PKGOPENOFFICEDIR) sed -e "[EMAIL PROTECTED]@#$(PKGOPENOFFICEDIR)#" \ -e "[EMAIL PROTECTED]@#$(CURDIR)/$(STAMP_DIR)/install.log#" \ debian/local/rsfile.global.txt > debian/local/rsfile.txt # Run OOo setup using response file. $(XVFB) $(SOURCE_TREE)/instsetoo/$(ARCHBUILDDIR)/$(BUILDLANG)/normal/setup -v \ -R:$(CURDIR)/debian/local/rsfile.txt rm -f debian/local/rsfile.txt touch $@ # Install files generated by setup into package directories install: $(STAMP_DIR)/install $(STAMP_DIR)/install: $(STAMP_DIR)/setup dh_testdir dh_testroot umask 022 # Remove package directories rm -rf debian/openoffice.org debian/openoffice.org-common for ext in `debian/scripts/openoffice-xlate-lang -i all|tr A-Z a-z` ; do \ rm -rf scripts/ooo-l10n-$$ext;\ done dh_installdirs # compare manifests (cd debian/tmp && find -type f | LC_ALL=C sort | cut -c3-) > debian/MANIFEST.$(ARCH).new # confirm that the installed file list has not changed if [ -e debian/MANIFEST.$(ARCH) ]; then \ if ! cmp -s debian/MANIFEST.$(ARCH) debian/MANIFEST.$(ARCH).new; then \ diff -u -0 debian/MANIFEST.$(ARCH) debian/MANIFEST.$(ARCH).new; \ if [ -n "$$IGNORE_MANIFEST_CHANGES" ]; then \ echo 'MANIFEST check failed; ignoring problem because \$$IGNORE_MANIFEST_CHANGES set' >&2; \ echo 'Please ensure that the package maintainer has an up-to-date version of the' >&2; \ echo 'MANIFEST.$(ARCH) file.' >&2; \ $(ELSE) \ echo 'MANIFEST check failed; please see debian/README' >&2; \ exit 1; \ fi; \ fi; \ fi; # Clear destinations so this target is idempotent #rm -rf $(KDEPKGDIR) $(MAINPKGDIR) debian/*.debhelper # Move files around from openoffice locations to # debian-friendly locations # KDE icons #mkdir -p $(KDEPKGDIR)/usr/share/apps/openoffice.org #cp -r $(PKGOPENOFFICEDIR)/share/kde/net/mimelnk/share/icons $(KDEPKGDIR)/usr/share/apps/openoffice.org # mime .desktop files #mkdir -p $(KDEPKGDIR)/usr/share/mimelnk/application #cp -r $(PKGOPENOFFICEDIR)/share/kde/net/mimelnk/share/mimelnk/application \ # $(KDEPKGDIR)/usr/share/mimelnk #cp -r $(PKGOPENOFFICEDIR)/share/kde/net/applnk $(KDEPKGDIR)/usr/share # convert shortcuts #for I in $(KDEPKGDIR)/usr/share/applnk/*/*.desktop ;do \ # sed 's#Exec=".*\(/usr/lib/openoffice/.*\)"#Exec="\1"#' < "$$I" > "$$I.new" ;\ # rm "$$I"; mv "$$I.new" "$$I" ;\ #done dh_install --sourcedir=debian/tmp ifeq "$(ARCH)" "i386" cp -rf $(PKGOPENOFFICEDIR)/program/libmozab2.so $(MAINPKGDIR)/usr/lib/openoffice/program/libmozab2.so cp -rf $(PKGOPENOFFICEDIR)/program/libmozabdrv2.so $(MAINPKGDIR)/usr/lib/openoffice/program/libmozabdrv2.so endif install -m644 debian/local/rsfile.local.txt \ debian/openoffice.org/etc/openoffice/autoresponse.conf install -m755 debian/local/ooffice debian/openoffice.org/usr/bin/openoffice for FILE in program/instdb.ins \ share/config/registry/instance/org/openoffice/Setup.xml \ share/config/registry/instance/org/openoffice/Office/Common.xml; do \ sed -e 's#$(PKGOPENOFFICEDIR)#$(OPENOFFICEDIR)#g' debian/openoffice.org/$(OPENOFFICEDIR)/"$$FILE" > \ debian/openoffice.org/$(OPENOFFICEDIR)/"$$FILE".new; \ mv debian/openoffice.org/$(OPENOFFICEDIR)/"$$FILE".new \ debian/openoffice.org/$(OPENOFFICEDIR)/"$$FILE"; \ done # Install the lang packs for prefix in `debian/scripts/openoffice-xlate-lang -p all|sed 's#01##'`; do \ echo "Unpack "`debian/scripts/openoffice-xlate-lang -l $$prefix`" l10n..."; \ langiso=`debian/scripts/openoffice-xlate-lang -i $$prefix|tr A-Z a-z`; \ debian/scripts/openoffice-dpack-lang \ -d="debian/ooo-l10n-$$langiso/usr/lib/openoffice" \ -i=$(SOURCE_TREE)/instsetoo/$(ARCHBUILDDIR)/$$prefix/normal/setup.ins \ >/dev/null; \ rm -rf debian/ooo-l10n-$$langiso/usr/lib/openoffice/help/main_transform.xsl;\ done # move the help and templates to the extra package #for prefix in `debian/scripts/openoffice-xlate-lang -p all|sed 's#01##'`; do \ # echo "prefix=$$prefix"; \ # langiso=`debian/scripts/openoffice-xlate-lang -i $$prefix|tr A-Z a-z`; \ # mkdir -p debian/ooo-ui-extra-$$langiso/usr/lib/openoffice/share; \ # for FILE in help share/template ; do \ # if [ -e debian/ooo-ui-$$langiso/usr/lib/openoffice/$$FILE ] ; then \ # mv -v debian/ooo-ui-$$langiso/usr/lib/openoffice/$$FILE \ # debian/ooo-ui-extra-$$langiso/usr/lib/openoffice/; \ # fi; \ # done; \ #done # move the lex stuff to the right directory #for prefix in `debian/scripts/openoffice-xlate-lang -p all|sed 's#01##'`; do \ # echo "prefix=$$prefix"; \ # langiso=`debian/scripts/openoffice-xlate-lang -i $$prefix|tr A-Z a-z`; \ # mkdir -p debian/ooo-lex-$$langiso/usr/lib/openoffice; \ # for FILE in share user ; do \ # if [ -e debian/ooo-ui-$$langiso/usr/lib/openoffice/$$FILE ] ; then \ # mv -v debian/ooo-ui-$$langiso/usr/lib/openoffice/$$FILE \ # debian/ooo-lex-$$langiso/usr/lib/openoffice/; \ # fi; \ # done; \ #done # remove empty packages #for pkg in ui ui-extra lex ; do \ # for iso in `debian/scripts/openoffice-xlate-lang -i all| \ # sed 's#en##'|tr A-Z a-z`; do \ # data=`find debian/ooo-$${pkg}-$$iso/usr/lib/openoffice -type f`; \ # if [ -z $$data ]; then echo "$$pkg"-"$$iso est vide"; fi; \ # done; \ #done touch $@ # This single target is used to build all the packages, all at once, or # one at a time. So keep in mind: any options passed to commands here will # affect _all_ packages. Anything you want to only affect one package # should be put in another target, such as the install target. binary-common: dh_testdir dh_testroot dh_installdocs dh_undocumented dh_installchangelogs dh_installmime dh_installmenu dh_link dh_strip dh_compress dh_fixperms dh_installdeb dh_shlibdeps dh_gencontrol dh_md5sums dh_builddeb # Build architecture independant packages using the common target. binary-indep: $(STAMP_DIR)/binary-indep $(STAMP_DIR)/binary-indep: $(STAMP_DIR)/install $(MAKE) -f debian/rules DH_OPTIONS=-i binary-common touch $@ # Build architecture dependant packages using the common target. binary-arch: $(STAMP_DIR)/binary-arch $(STAMP_DIR)/binary-arch: $(STAMP_DIR)/install $(MAKE) -f debian/rules DH_OPTIONS=-a binary-common touch $@ # Any other binary targets build just one binary package at a time. binary-%: $(STAMP_DIR)/install make -f debian/rules binary-common DH_OPTIONS=-p$* binary: binary-arch binary-indep # Use 'debian/rules environment' to help debug architecture-related problems # with the rules file. environment: @echo 'Package build environment (not all variables may be set):' @echo '$$(ARCH)' is "$(ARCH)" @echo '$$(DEB_HOST_ARCH)' is "$(DEB_HOST_ARCH)" @echo '$$(BUILD_ARCH)' is "$(BUILD_ARCH)" @echo '$$(CURDIR)' is "$(CURDIR)" @echo 'See debian/control for build dependencies.' .PHONY: default build install clean-debian clean binary-arch binary-indep binary .PHONY: default environment checksource # vim:set noet ai sts=8 sw=8 tw=0:
#! /usr/bin/perl
use strict;
#- Define full path to unzip command
my $UnzipCommand = "/usr/bin/unzip";
#- Define the default setup file
my $SetupConf = "setup.ins";
#- Define the zipfiles dir (will be the same as of setup.ins)
my $SetupDir = ".";
#- Define destination directory
my $DestDir = "/usr/lib/openoffice";
while ( $ARGV[0] =~ /^-/ ) {
$_ = shift;
if (m/^-d=(\S+)/) {
$DestDir=$1;
}
elsif (m/^-z=(\S+)/) {
$UnzipCommand=$1;
}
elsif (m/^-i=(\S+)/) {
$SetupConf=$1;
$SetupDir=$SetupConf;
$SetupDir=~ s|/[^/]*$||;
}
else {
print STDERR "$0: Unknown option $_";
}
}
# Parse enough of <setup.in> to get correct Directory and File sections.
sub ReadSetup($) {
my ($file) = @_;
my $e;
my %entries;
open FILE,"$file" || die "Can't read setup from $file : $!\n";
while (<FILE>) {
if (/^([_A-Za-z]+)\s*([_A-Za-z0-9]+)/) {
$entries{$1}{$2} = $e = { };
}
elsif (/\s*([_A-Za-z]+)\s*=\s*\"?([^;\"]+)\"?;/) {
$e->{$1} = $2;
}
}
close FILE;
# Expand predefined dirs to de $DestDir variable
$entries{Directory}{$_} = { HostName => "$DestDir" } foreach
qw( PREDEFINED_HOMEDIR PREDEFINED_PROGDIR PREDEFINED_CONFIGDIR
);
\%entries;
}
sub DumpEntries(\%$) {
my $entries = shift;
my ($basename) = @_;
my $sections = $entries->{$basename} if $entries->{$basename};
while (my ($key, $value) = each(%$sections)) {
print "$basename $key\n";
$value->{$_} and print "\t$_\t= \"$value->{$_}\";\n"
foreach qw(Bitmap Date DefaultDestPath DefaultLanguage
Description FadeType FileName fontsDirFile
fontsDirGlobalFile fontspath HostName ID Key
Languages Name PackedName Path ProcName
ProductName ProductVersion Section Text Time
Value VendorBitmap);
$value->{$_} and print "\t$_\t= $value->{$_};\n"
foreach qw(ArchiveFiles ArchiveSize BitmapPosX BitmapPoxY
Carrier Default Dir DiskNo FileID FontSize
Minimal ModuleID NetDir Order ParentID
ProfileID RegistryID ScriptVersion Size
TextHeight TextWidth UnixRights);
print "End\n\n";
}
}
sub GetFullPath {
my $dirs = shift;
my ($id) = @_;
return ( $dirs->{$id}->{ParentID} ? GetFullPath($dirs,
$dirs->{$id}->{ParentID}) . "/" : "" )
. $dirs->{$id}->{HostName};
}
sub mkpath {
# Stolen in File::Path
my($paths, $verbose, $mode) = @_;
# $paths -- either a path string or ref to list of paths
# $verbose -- optional print "mkdir $path" for each directory created
# $mode -- optional permissions, defaults to 0777
local($")= "/";
$mode = 0777 unless defined($mode);
$paths = [$paths] unless ref $paths;
my(@created,$path);
foreach $path (@$paths) {
next if -d $path;
# parent=dirname
my $parent = $path; $parent =~ s#/[^/]*/?$##;
unless (-d $parent or $path eq $parent) {
push(@created,mkpath($parent, $verbose, $mode));
}
print "mkdir $path\n" if $verbose;
unless (mkdir($path,$mode)) {
my $e = $!;
# allow for another process to have created it meanwhile
die "mkdir $path: $e" unless -d $path;
}
push(@created, $path);
}
@created;
}
# Parse the file and get all entries
die "$0: Can't open $SetupConf\n" if ( ! -r $SetupConf );
my $setup = ReadSetup($SetupConf);
#DumpEntries %$setup, "Directory";
#DumpEntries %$setup, "File";
die "$UnzipCommand not found, please set the full path to the unzip command\n"
if
( ! -x "$UnzipCommand" );
while (my ($key, $value) = each (%{$setup->{File}})) {
if ($value->{PackedName}) {
my $zipfile = "$SetupDir/$value->{PackedName}";
die "$0: zip file $zipfile not accessible" if
( ! -r "$zipfile" );
# Find language-specific candidates
if (($key =~ /_Lang$/) || ($key =~ /File_Help/)
|| ($value->{Name} =~ /\.res$/)) {
print "Unpacking $zipfile... \n";
# Prefer NetDir path over simple Dir
my $outpath = GetFullPath \%{$setup->{Directory}},
$value->{NetDir} ? $value->{NetDir} : $value->{Dir};
-d $outpath or mkpath($outpath);
system("$UnzipCommand -qq -o $zipfile -d $outpath");
}
}
}
#!/usr/bin/perl
use strict;
my $progname=$0; $progname = $& if $progname =~ m,[^/]+$,;
my %PREFIX; # used to search for prefix numbers
my %ISOCODE; # used to search for iso codes
my %LANGUAGE; # used to search for language names
#=======================================================================
# initialisation code - stuff the DATA into the CODES hash
#=======================================================================
sub init {
my $prefix;
my $code;
my $name;
while (<DATA>)
{
next unless /\S/;
chop;
($prefix, $code, $name ) = split(/:/, $_, 3);
$PREFIX{$prefix} = $prefix;
$PREFIX{$code} = $prefix;
$PREFIX{$name} = $prefix;
$ISOCODE{$prefix} = $code;
$ISOCODE{$code} = $code;
$ISOCODE{$name} = $code;
$LANGUAGE{$prefix} = $name;
$LANGUAGE{$code} = $name;
$LANGUAGE{$name} = $name;
}
}
#=======================================================================
# usage - error message
#=======================================================================
sub usage {
my $errmsg = shift;
my $errcode = shift;
print "$progname: $errmsg\n" if $errmsg;
print "$progname: Converts between prefix codes, iso codes and langnames\n";
print " Usage: $progname (-i|-l|-p|-h) <code>|all\n";
print " -i <code>: convert prefix to iso code (ex: 03 -> pt)\n";
print " -l <code>: convert iso code to language name (ex: pt ->
portuguese)\n";
print " -p <code>: convert iso code to prefix (ex: pt -> 03)\n";
print " the code can either be an iso code, a prefix or even a language
name\n";
print " The special code \"all\" asks for all possible values.\n\n";
print " -h : print this help\n";
exit $errcode;
}
#=======================================================================
# main -
#=======================================================================
init();
my ($LanguageCode, $LanguageMap);
while ($ARGV[0] =~ /^-/) {
$_ = shift;
if (m/^-i/) {
$LanguageMap = \%ISOCODE;
}
elsif (m/^-l/) {
$LanguageMap = \%LANGUAGE;
}
elsif (m/^-p/) {
$LanguageMap = \%PREFIX;
}
elsif (m/^-h/) {
usage("",0);
}
else {
usage ("unknown option $_",1);
}
}
usage ("no operation specified on command line",1)
if (!$LanguageMap);
usage ("no language code specified on command line",1)
if (!($LanguageCode = shift));
if ($LanguageCode =~ (m/^all$/)) {
# Asked for all codes
my $old="";
foreach my $key (sort values %$LanguageMap) {
if ($key ne $old) {
print "$key ";
$old=$key;
}
}
print "\n";
exit 0;
}
usage ("no mapping found for $LanguageCode\n",1)
if (!(%$LanguageMap->{$LanguageCode}));
print $LanguageMap->{$LanguageCode}, "\n";
1;
__DATA__
01:en:english_us
03:pt:portuguese
07:ru:russian
30:el:greek
31:nl:dutch
33:fr:french
34:es:spanish
35:fi:finnish
37:ca:catalan
39:it:italian
45:da:danish
46:sv:swedish
48:pl:polish
49:de:german
81:ja:japanese
82:ko:korean
86:zh-CN:chinese_simplified
88:zh-TW:chinese_traditional
90:tr:turkish
96:ar:arabic
make-control.pl
Description: Perl program
