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