diff options
author | Christian Lohmaier <cloph@documentfoundation.org> | 2022-12-09 21:15:52 +0100 |
---|---|---|
committer | Christian Lohmaier <lohmaier+LibreOffice@googlemail.com> | 2022-12-13 15:11:32 +0000 |
commit | 5b99afe8ba3afe1a4673f8b7628011ced5583570 (patch) | |
tree | 8dcdc259f8bcd721cf56109ea8afaa927add00e4 /helpers | |
parent | e1cf5179765728ac70b100352ffb09bc1ec3fde5 (diff) |
avoid needless rebuilds of helpimages
also the create_ilist.pl doesn't really do much anymore, was easily
replaced by a plain $(file …) call
Change-Id: I63a41ef8ed289feb4ab210961d2200032adaac28
Reviewed-on: https://gerrit.libreoffice.org/c/help/+/143936
Tested-by: Jenkins
Reviewed-by: Christian Lohmaier <lohmaier+LibreOffice@googlemail.com>
Diffstat (limited to 'helpers')
-rw-r--r-- | helpers/create_ilst.pl | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/helpers/create_ilst.pl b/helpers/create_ilst.pl deleted file mode 100644 index b1cd682835..0000000000 --- a/helpers/create_ilst.pl +++ /dev/null @@ -1,59 +0,0 @@ -: -eval 'exec perl -wS $0 ${1+"$@"}' - if 0; -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed -# with this work for additional information regarding copyright -# ownership. The ASF licenses this file to you under the Apache -# License, Version 2.0 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.apache.org/licenses/LICENSE-2.0 . -# - -# creates the ilst control file for the -# help specific images - -use File::Find; - -$params = join "|", "",@ARGV,""; -($params =~ /-dir/) ? ($startdir = $params) =~ (s/.*-dir=([^\|]*).*$/$1/gs) : (($startdir = `pwd`) =~ s/\n//gs); -($params =~ /-pre/) ? ($pre = $params) =~ (s/.*-pre=([^\|]*).*$/$1/gs) : ($pre = "helpimg"); - -my $startdir_regexp = quotemeta($startdir); - - -if ( -d $startdir ) { - find(sub{push @files, $File::Find::name if (($File::Find::name=~/\.png$/));},$startdir); - foreach ( @files ) { s#.*$startdir_regexp[\\/]##; }; - for (sort(@files)) { - # it's now all in one place so no need to distinguish GLOBALRES vs. HELPCONTENT - $prefix = "%MODULE%/"; - print "$prefix" . "$pre/$_\n"; - } -} else { - &terminate("Cannot find $startdir."); -} - - -sub terminate { - $err = shift; - printf STDERR "$err\n\n"; - $msg = <<"MSG"; -create_ilst.pl -dir=directory [-pre=string] --dir root directory for the help images to - be searched (default=current dir) - Only *.png will be found. --pre define directory prefix (default=helpimg) - -MSG - die "$msg\n"; -} |