#!/usr/bin/env perl

# runlibre - Runs LibreOffice programs (for local distro only)
# License: MIT/X (for this file only)

#---------------------------------------------------------------------

use strict;
use Carp;
use warnings;

#---------------------------------------------------------------------

my $IE        =  "Internal error"           ;
my $JAVA_HOME =  "__META_JAVA_HOME__"       ;
my $TOPDIR    =  "__META_TOPDIR__"          ;
my $PREFIX    =  "$TOPDIR/lib/libreoffice"  ;

my $PRGNAME =  $0;
   $PRGNAME =~ s@^.*/@@;
   die "runlibre: $IE #1\n" unless $PRGNAME =~ m@^\w+\z@;
   $PRGNAME = "$PREFIX/program/$PRGNAME";
   die "runlibre: $IE #2\n" unless (-f $PRGNAME) && (-x $PRGNAME);

my $LLP = $ENV {LD_LIBRARY_PATH};
   $LLP = "" unless defined $LLP;
   $LLP = "" unless $LLP =~ m@^\S+\z@;
   $LLP = "$PREFIX/lib:$LLP";
$ENV {'LD_LIBRARY_PATH'} = $LLP;

my $PATH =  $ENV {PATH};
   $PATH =  "" unless defined $PATH;
   $PATH =~ s@\s+\z@@s;
   $PATH =  "$JAVA_HOME/bin:$PATH";
$ENV {'PATH'} = $PATH;

exec $PRGNAME, @ARGV unless fork;