1:
2eval 'exec perl -wS $0 ${1+"$@"}'
3    if 0;
4#**************************************************************
5#
6#  Licensed to the Apache Software Foundation (ASF) under one
7#  or more contributor license agreements.  See the NOTICE file
8#  distributed with this work for additional information
9#  regarding copyright ownership.  The ASF licenses this file
10#  to you under the Apache License, Version 2.0 (the
11#  "License"); you may not use this file except in compliance
12#  with the License.  You may obtain a copy of the License at
13#
14#    http://www.apache.org/licenses/LICENSE-2.0
15#
16#  Unless required by applicable law or agreed to in writing,
17#  software distributed under the License is distributed on an
18#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
19#  KIND, either express or implied.  See the License for the
20#  specific language governing permissions and limitations
21#  under the License.
22#
23#**************************************************************
24
25
26
27# creates the ilst control file for the
28# help specific images
29
30use File::Find;
31
32$params = join "|", "",@ARGV,"";
33($params =~ /-dir/) ? ($startdir = $params) =~ (s/.*-dir=([^\|]*).*$/$1/gs) : (($startdir = `pwd`) =~ s/\n//gs);
34($params =~ /-pre/) ? ($pre = $params) =~ (s/.*-pre=([^\|]*).*$/$1/gs) : ($pre = "helpimg");
35
36my $startdir_regexp = quotemeta($startdir);
37
38
39if ( -d $startdir ) {
40	find(sub{push @files, $File::Find::name if (($File::Find::name=~/\.png$/));},$startdir);
41	foreach ( @files ) { s#.*$startdir_regexp[\\/]##; };
42	for (sort(@files)) {
43		print "%GLOBALRES%/$pre/$_\n";
44	}
45} else {
46	&terminate("Cannot find $startdir.");
47}
48
49
50sub terminate {
51	$err = shift;
52	printf STDERR "$err\n\n";
53	$msg = <<"MSG";
54create_ilst.pl -dir=directory [-pre=string]
55-dir  root directory for the help images to
56	be searched (default=current dir)
57	Only *.png will be found.
58-pre  define directory prefix (default=helpimg)
59
60MSG
61	die "$msg\n";
62}
63