solenv/bin/createpdbrelocators.pl

   1 :
   2 eval '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
  41 use strict;
  42
  43 #### module lookup
  44
  45 use lib ("$ENV{SOLARENV}/bin/modules");
  46 use CreatePDBRelocators;
  47
  48 #### script id #####
  49
  50 ( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
  51
  52 my $script_rev;
  53 my $id_str = ' $Revision: 1.5 $ ';
  54 $id_str =~ /Revision:\s+(\S+)\s+\$/
  55   ? ($script_rev = $1) : ($script_rev = "-");
  56
  57 print "$script_name -- version: $script_rev\n";
  58
  59 my $inpath    = $ENV{INPATH};
  60
  61 if ( !$inpath ) {
  62     print STDERR "$script_name: INAPTH not set!\n";
  63     exit(1);
  64 }
  65 my $relocators = CreatePDBRelocators->new();
  66 my $rc = $relocators->create_pdb_relocators($inpath, "", "");
  67
  68 if ( !$rc ) {
  69     print STDERR "$script_name: creating PDB relocators failed!\n";
  70     exit(2);
  71 }
  72
  73 exit(0);