1:
2eval 'exec perl -wS $0 ${1+"$@"}'
3    if 0;
4#*************************************************************************
5#
6# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
7#
8# Copyright 2000, 2010 Oracle and/or its affiliates.
9#
10# OpenOffice.org - a multi-platform office productivity suite
11#
12# This file is part of OpenOffice.org.
13#
14# OpenOffice.org is free software: you can redistribute it and/or modify
15# it under the terms of the GNU Lesser General Public License version 3
16# only, as published by the Free Software Foundation.
17#
18# OpenOffice.org is distributed in the hope that it will be useful,
19# but WITHOUT ANY WARRANTY; without even the implied warranty of
20# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21# GNU Lesser General Public License version 3 for more details
22# (a copy is included in the LICENSE file that accompanied this code).
23#
24# You should have received a copy of the GNU Lesser General Public License
25# version 3 along with OpenOffice.org.  If not, see
26# <http://www.openoffice.org/license.html>
27# for a copy of the LGPLv3 License.
28#
29#*************************************************************************
30
31#*************************************************************************
32#
33# createpdbrelocators - create for pdb relocator files
34#                       PDB relocator files are used to find debug infos
35#                       for analysis of creash reports
36#
37# usage: createpdbrelocators;
38#
39#*************************************************************************
40
41use strict;
42
43#### module lookup
44
45use lib ("$ENV{SOLARENV}/bin/modules");
46use CreatePDBRelocators;
47
48#### script id #####
49
50( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
51
52my $script_rev;
53my $id_str = ' $Revision: 1.5 $ ';
54$id_str =~ /Revision:\s+(\S+)\s+\$/
55  ? ($script_rev = $1) : ($script_rev = "-");
56
57print "$script_name -- version: $script_rev\n";
58
59my $inpath    = $ENV{INPATH};
60my $milestone = $ENV{UPDMINOR};
61my $milestoneext = $ENV{UPDMINOREXT};
62
63if ( $ARGV[0] ) {
64    if ( $milestone && ( $milestone ne $ARGV[0] ) ) {
65        die "Error: specified milestone $ARGV[0] does not match your environment";
66    }
67    $milestone = $ARGV[0];
68}
69
70if ( !$inpath || !$milestone ) {
71    print STDERR "$script_name: INAPTH or UPDMINOR not set!\n";
72    exit(1);
73}
74my $relocators = CreatePDBRelocators->new();
75my $rc = $relocators->create_pdb_relocators($inpath, $milestoneext, "");
76
77if ( !$rc ) {
78    print STDERR "$script_name: creating PDB relocators failed!\n";
79    exit(2);
80}
81
82exit(0);
83